(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)
(skip-chars-forward "^ ")
(setq end (current-column))
+(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) ...)."
(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."
- (let ((field-position-alist (View-process-make-field-pos
+ (let ((field-position-alist (View-process-make-field-position-alist))
(setq buffer-read-only nil)