Commits

youngs  committed 1171979

Martin's Monster Mega typo patch

  • Participants
  • Parent commits b341b19

Comments (0)

Files changed (2)

+2000-10-05  Martin Buchholz  <martin@xemacs.org>
+
+	* *: Mega typo fix.
+
 2000-03-23  Charles G Waldman <cgw@alum.mit.edu>
 
         * view-process-mode.el:  (doc-strings) correct spelling and

File view-process-mode.el

 (defvar View-process-mode-name "Processes"
   "Name of the `view process mode'.")
 
-(defun View-process-make-field-postition-alist-1 ()
-"Internal function of View-process-make-field-postition-alist."
+(defun View-process-make-field-position-alist-1 ()
+"Internal function of View-process-make-field-position-alist."
   (if (>= (point) View-process-header-end)
       nil
     (let (start end)
       (skip-chars-forward "^ ")
       (setq end (current-column))
       (cons (list start end) 
-	    (View-process-make-field-postition-alist-1))))
+	    (View-process-make-field-position-alist-1))))
   )
 
-(defun View-process-make-field-postition-alist ()
+(defun View-process-make-field-position-alist ()
   "Returns an alist with the start and end positions of each field.
 The list looks like ((start1 end1) (start2 end2) ...)."
   (save-restriction
     (widen)
     (goto-char View-process-header-start)
-    (View-process-make-field-postition-alist-1)))
+    (View-process-make-field-position-alist-1)))
 
 (defun View-process-overwrite-chars-in-region (begin end char)
   "Overwrite region between BEGIN and END with CHAR."
   "Replaces the blanks in fields with underscores."
   (save-excursion
     (save-window-excursion
-      (let ((field-position-alist (View-process-make-field-postition-alist))
+      (let ((field-position-alist (View-process-make-field-position-alist))
 	    (read-only buffer-read-only))
 	(setq buffer-read-only nil)
 	(goto-char View-process-output-start)