Commits

Anonymous committed a0fa68c

2002-08-17 Ville Skyttä <ville.skytta@xemacs.org>

* view-process-mode.el: Docstring typo fixes, thanks to
Reuben Thomas.

* view-process-mode.el: Checkdoc fixes.
* view-process-xemacs.el: Ditto.
* view-process-system-specific.el: Ditto.

Comments (0)

Files changed (4)

+2002-08-17  Ville Skyttä  <ville.skytta@xemacs.org>
+
+	* view-process-mode.el: Docstring typo fixes, thanks to
+	Reuben Thomas.
+
+	* view-process-mode.el: Checkdoc fixes.
+	* view-process-xemacs.el: Ditto.
+	* view-process-system-specific.el: Ditto.
+
 2000-10-05  Martin Buchholz  <martin@xemacs.org>
 
 	* *: Mega typo fix.

view-process-mode.el

 (defconst View-process-package-maintainer "muenkel@tnt.uni-hannover.de")
 
 (defun View-process-xemacs-p ()
-  "Returns non nil if the editor is the XEmacs or lemacs."
+  "Return non-nil if the editor is XEmacs or lemacs."
   (or (string-match "Lucid" emacs-version)
       (string-match "XEmacs" emacs-version)))
 
 (defun View-process-lemacs-p ()
-  "Returns non nil if the editor is the lemacs."
+  "Return non-nil if the editor is lemacs."
   (string-match "Lucid" emacs-version))
 
 (if (not (View-process-xemacs-p))
   "*This hook is run after reading in the processes.")
 
 (defvar View-process-motion-help t
-  "*If non nil, then help messages are displayed during mouse motion.
+  "*If non-nil, then help messages are displayed during mouse motion.
 The variable is buffer local.")
 
 (make-variable-buffer-local 'View-process-motion-help)
 
 (defvar View-process-display-with-2-windows t
   "*Determines the display type of the `View-process-mode'.
-If it is non nil, then 2 windows are used instead of one window.
+If it is non-nil, then 2 windows are used instead of one window.
 In the second window are the header lines displayed.")
 
 (defvar View-process-hide-header t
-  "*The header lines in the view processes buffer are hide, if this is t.")
+  "*If t, the header lines in the view processes buffer are hidden.")
 
 (make-variable-buffer-local 'View-process-hide-header)
 
 (defvar View-process-truncate-lines t
-  "*Truncates the liens in the view process buffer if t.")
+  "*Truncates the lines in the view process buffer if t.")
 
 (make-variable-buffer-local 'View-process-truncate-lines)
 
 (defvar View-process-display-short-key-descriptions t
-  "*Controls, whether short key descriptions are displayed or not.")
+  "*Controls whether short key descriptions are displayed or not.")
 
 (defvar View-process-display-uptime t
-  "*Controls, whether the uptime is displayed or not.")
+  "*Controls whether uptime is displayed or not.")
 
 (defvar View-process-use-font-lock t
-  "*Determines, if the `font-lock-mode' should be used or not.")
+  "*Controls whether `font-lock-mode' is used or not.")
 
 (defvar View-process-ps-header-window-offset 2
   "Offset for the size of the ps header window.")
 
 (defvar View-process-ps-header-window-size 0
-  "Internal variable. The size of the window with the *ps header* buffer.")
+  "Internal variable.  The size of the window with the *ps header* buffer.")
 
 (make-variable-buffer-local 'View-process-ps-header-window-size)
 
 (defvar View-process-stop-motion-help nil
-  "Internal variable. Stops motion help temporarily.")
+  "Internal variable.  Stops motion help temporarily.")
 
 (defvar View-process-deleted-lines nil
-  "Internal variable. A list with lines, which are deleted by a filter.")
+  "Internal variable.  A list with lines, which are deleted by a filter.")
 
 (make-variable-buffer-local 'View-process-deleted-lines)
 
   "*This hook is run after building the header buffer.")
 
 (defvar View-process-header-mode-line-off t
-  "t means do not display modeline in view-process-header-mode.
-This does only work in the XEmacs 19.12 or higher.")
+  "*t means do not display modeline in `View-process-header-mode'.
+This works only in XEmacs 19.12 and higher.")
 
 (defvar View-process-header-line-detection-list '("PID" "COMMAND" "COMD" "CMD")
   "*The header line is detected with the help of this list.
-At least one of these words must be in a header line. Otherwise
-an error is signaled. You must only change this list if your ps
+At least one of these words must be in a header line.  Otherwise
+an error is signaled.  You must only change this list if your ps
 produces header lines with strings that are not in this list.") 
 
 (defvar View-process-header-line-background "yellow"
   "*Foreground color of the header line.")
 
 (defvar View-process-header-line-font (face-font 'bold)
-  "*Font of the header line")
+  "*Font of the header line.")
 
 (defvar View-process-header-line-underline-p t
   "*t if the header line should be underlined.")
   )  
 
 (defvar View-process-pid-mark-alist nil
-  "Internal variable. An alist with marks and pids.")
+  "Internal variable.  An alist with marks and pids.")
 
 (make-variable-buffer-local 'View-process-pid-mark-alist)
 
 (defvar View-process-last-pid-mark-alist nil
-  "Internal variable. An alist with the last marks and pids.")
+  "Internal variable.  An alist with the last marks and pids.")
 
 (make-variable-buffer-local 'View-process-last-pid-mark-alist)
 
 These commands will be run over the ps output every time after
 ps has created a new output.
 The list consists of sublists, whereby every sublist specifies a 
-command. The first element of each list is a keyword which 
+command.  The first element of each list is a keyword which 
 determines a command.
 The following keywords are allowed:
  sort		- Sort the output by an output field
  exclude-grep	- Filter the output by the whole line, delete matching lines
  reverse	- Reverse the order of the output lines.
 
-The cdr of each sublist depends on the keyword. The following shows
+The cdr of each sublist depends on the keyword.  The following shows
 the syntax of the different sublist types:
  (sort <fieldname>)
  (filter <fieldname> <regexp>)
  (reverse)
 
 Where <fieldname> is a string with determines the name of an output field
-and <regexp> is a string with an regular expression. The output field names
+and <regexp> is a string with an regular expression.  The output field names
 are derived from the header line of the ps output.")
 
 (defvar View-process-actual-sorter-and-filter nil
-  "Internal variable. It holds the actual sorter and filter commands.
+  "Internal variable.  It holds the actual sorter and filter commands.
 Don't change it!")
 
 (make-variable-buffer-local 'View-process-actual-sorter-and-filter)
   "*Value of the view process itimer.")
 
 (defvar View-process-system-type nil
-  "Internal variable. Type of the system, on which the ps command is called.
+  "Internal variable.  Type of the system, on which the ps command is called.
 The variable is buffer local.")
 
 (make-variable-buffer-local 'View-process-system-type)
 
 (defvar View-process-remote-host nil
-  "Internal variable. Name of the remote host or nil.
+  "Internal variable.  Name of the remote host or nil.
 The variable is buffer local.")
 
 (make-variable-buffer-local 'View-process-remote-host)
 
 (defvar View-process-header-start nil
-  "Internal variable. Start of the ps output header line.
+  "Internal variable.  Start of the ps output header line.
 The variable is buffer local.")
 
 (make-variable-buffer-local 'View-process-header-start)
 
 (defvar View-process-header-end nil
-  "Internal variable. End of the ps output header line.
+  "Internal variable.  End of the ps output header line.
 The variable is buffer local.")
 
 (make-variable-buffer-local 'View-process-header-end)
 
 (defvar View-process-output-start nil
-  "Internal variable. Start of the ps output (after the header).
+  "Internal variable.  Start of the ps output (after the header).
 The variable is buffer local.")
 
 (make-variable-buffer-local 'View-process-output-start)
 
 (defvar View-process-output-end nil
-  "Internal variable. End of the ps output (after the header).
+  "Internal variable.  End of the ps output (after the header).
 The variable is buffer local.")
 
 (make-variable-buffer-local 'View-process-output-end)
 
 (defvar View-process-old-window-configuration nil
-  "Internal variable. Window configuration before the first ps command.")
+  "Internal variable.  Window configuration before the first ps command.")
 
 (make-variable-buffer-local 'View-process-old-window-configuration)
 
 (defvar View-process-max-fields nil
-  "Internal variable. Number of output fields.
+  "Internal variable.  Number of output fields.
 The variable is buffer local.")
 
 (make-variable-buffer-local 'View-process-max-fields)
 
 (defvar View-process-field-names nil
-  "Internal variable. An alist with the fieldnames and fieldnumbers.
+  "Internal variable.  An alist with the fieldnames and fieldnumbers.
 The variable is buffer local.")
 
 (make-variable-buffer-local 'View-process-max-fields)
 
 (defvar View-process-field-blanks-already-replaced nil
-  "Internal variable. It is t if blanks in fields are already replaced.")
+  "Internal variable.  It is t if blanks in fields are already replaced.")
 
 (make-variable-buffer-local 'View-process-field-blanks-already-replaced)
 
     ("29" "29") ("30" "30") ("31" "31"))
   "An alist with the possible signals for the kill command.
 This list is used, if no system specific list is defined.
-It may be that you've other signals on your system. Try to test
+It may be that you've other signals on your system.  Try to test
 it with \"kill -l\" in a shell.")
 
 (defvar View-process-default-kill-signal "SIGTERM"
 It is an alist and each sublist has the following structure:
  (field-name position-descriptor offset)
 The field-name is a string with the name of the field.
-The position-descriptor determines a position. It has one of the
+The position-descriptor determines a position.  It has one of the
 following values:
 `in-front' => insert in front of the field.
 `in-front-successor' => insert in front of the successor of the field.
   )
 
 (defun View-process-make-field-position-alist ()
-  "Returns an alist with the start and end positions of each field.
+  "Return an alist with the start and end positions of each field.
 The list looks like ((start1 end1) (start2 end2) ...)."
   (save-restriction
     (widen)
 
 (defun View-process-replaces-blanks-in-the-fields-of-this-line 
   (field-position-alist)
-  "Replaces the blanks in the fields of this line with underscores.
+  "Replace the blanks in the fields of this line with underscores.
 FIELD-POSITION-ALIST is an alist with the name and the 
 approximated start and end positions of each field."
   (if (cdr field-position-alist) ; don't change the last field
 	 (cdr field-position-alist)))))
 
 (defun View-process-replaces-blanks-in-fields ()
-  "Replaces the blanks in fields with underscores."
+  "Replace the blanks in fields with underscores."
   (save-excursion
     (save-window-excursion
       (let ((field-position-alist (View-process-make-field-position-alist))
 	(setq buffer-read-only read-only)))))
 
 (defun View-process-replaces-blanks-in-fields-if-necessary ()
-  "Replaces blanks in fields, if necessary.
+  "Replace blanks in fields, if necessary.
 For that it checks `View-process-field-blanks-already-replaced'."
   (if View-process-field-blanks-already-replaced
       nil
 					     end
 					     &optional overwrite
 					               not-looking-at)
-  "Inserts the CHAR at the COLUMN in the region from BEGIN TO END.
-The first line must have sufficient columns. No tabs are allowed.
-If the optional argument OVERWRITE is non nil, then the CHAR 
+  "Insert the CHAR at the COLUMN in the region from BEGIN to END.
+The first line must have sufficient columns.  No tabs are allowed.
+If the optional argument OVERWRITE is non-nil, then the CHAR 
 overwrites the char in the COLUMN.
 The optional argument NOT-LOOKING-AT is nil or a regular expression.
 In the second case the insertion will only be done if NOT-LOOKING-AT
 (defun View-process-insert-blank-in-column (column 
 					    &optional overwrite
 					              not-looking-at)
-  "Inserts a blank in all lines of the ps output in column COLUMN.
-If OVERWRITE is non nil, then it overwrites the old column char.
+  "Insert a blank in all lines of the ps output in column COLUMN.
+If OVERWRITE is non-nil, then it overwrites the old column char.
 The optional argument NOT-LOOKING-AT is nil or a regular expression.
 In the second case the insertion will only be done if NOT-LOOKING-AT
 isn't a string starting at the column."
 ;      (forward-line))))
 
 (defun View-process-insert-blanks-at-line-start ()
-  "Inserts some blanks at the beginning of each output line.
+  "Insert some blanks at the beginning of each output line.
 This space is used for the marks."
   (save-excursion
     (goto-char View-process-output-end)
     (insert "m ")))
 
 (defun View-process-return-position (field-name position-descriptor)
-  "Returns a position depending on the FIELD-NAME and the POSITION-DESCRIPTOR.
+  "Return a position depending on the FIELD-NAME and the POSITION-DESCRIPTOR.
 The POSITION-DESCRIPTOR must be one of the 4 values: `in-front',
 `in-front-successor', `behind' and `behind-predecessor'.
 If the FIELD-NAME isn't in the header-line, then it return nil."
 	       (current-column))))))
 
 (defun View-process-split-merged-fields (insert-blank-alist)
-  "Tries to split merged fields.
+  "Try to split merged fields.
 At the moment this is done by inserting a blank between fields,
-which are often merged together. The fields are determined by the
+which are often merged together.  The fields are determined by the
 alist INSERT-BLANK-ALIST."
   (cond (insert-blank-alist
 	 (let ((position (View-process-return-position 
 	(t)))
 
 (defun View-process-replace-colons-with-blanks ()
-  "Replaces colons with blanks if a colon is also in the header line.
+  "Replace colons with blanks if a colon is also in the header line.
 This fixes the output of the IRIX ps on SGIs."
   (save-excursion
     (goto-char View-process-header-start)
   )
 
 (defun View-process-build-field-name-list ()
-  "Returns an alist with the field names and the field number.
+  "Return an alist with the field names and the field number.
 The list looks like ((\"USER\" 1) (\"PID\" 2) (\"COMMAND\" 3))."
   (goto-char View-process-header-start)
   (forward-word 1)
       (forward-word 1))))
 
 (defun View-process-field-name-exists-p (field-name)
-  "Returns non nil if the field FIELD_NAME exists."
+  "Return non-nil if the field FIELD-NAME exists."
   (assoc field-name View-process-field-names))
 
 (defun View-process-translate-field-name-to-position (field-name)
-  "Returns the position of the field with the name FIELD-NAME."
+  "Return the position of the field with the name FIELD-NAME."
   (car (cdr (assoc field-name View-process-field-names)))
   )
 
 (defun View-process-translate-field-position-to-name (position)
-  "Returns the field name of the field with the position POSITION."
+  "Return the field name of the field with the position POSITION."
   (if (> position View-process-max-fields)
       (car (View-process-assoc-2th View-process-max-fields 
 				   View-process-field-names))
     ))
 
 (defun View-process-get-system-type-from-host-list (host-name)
-  "Returns nil, or the system type of the host with the name HOST-NAME."
+  "Return nil, or the system type of the host with the name HOST-NAME."
   (car (cdr (assoc host-name View-process-host-names-and-system-types))))
 
 (defun View-process-put-system-type-in-host-list (host-name system-type)
 (defun View-process-bsd-or-system-v (&optional remote-host)
   "This function determines if the system is a BSD or a System V.
 For that it uses the ps command.
-If REMOTE-HOST is non nil, then the system of the REMOTE-HOST will 
+If REMOTE-HOST is non-nil, then the system of the REMOTE-HOST will 
 be tested."
     (if remote-host
 	(if (eq 0 (call-process View-process-rsh-command
 	"bsd")))
 
 (defun View-process-program-exists-p (program &optional remote-host)
-  "Returns t if the PROGRAM exists.
-If REMOTE_HOST is non nil, then the program will be searched remote
+  "Return t if the PROGRAM exists.
+If REMOTE-HOST is non-nil, then the program will be searched remote
 on that host."
   (if remote-host
       (or (= 0 (call-process View-process-rsh-command
 	   )))
 
 (defun View-process-search-system-type-in-system-list (system-type system-list)
-  "Searches the SYSTEM-TYPE in SYSTEM-LIST.
+  "Search the SYSTEM-TYPE in SYSTEM-LIST.
 It returns the entry or nil if the SYSTEM-TYPE isn't in the list.
 If more then one entry with the same SYSTEM-TYPE are found, then the
-version number is also checked. If the version number isn't in the 
+version number is also checked.  If the version number isn't in the 
 list, then nil is returned."
   (let ((system-type-entries (View-process-search-system-type-in-system-list-1
 			      (car system-type)
 (defun View-process-generalize-system-type (system-type &optional remote-host)
   "Generalize the SYSTEM-TYPE.
 Determines if the system is in the `View-process-specific-system-list'
-and if it is a BSD or a System V system. It returns a list which looks 
+and if it is a BSD or a System V system.  It returns a list which looks 
 like the following: (<system-type> <version-no> <bsd-or-system-v>).
 The elements <system-type> and <version-no> are set to nil if the 
-<system-type> isn't in the `View-process-specific-system-list'. In that 
+<system-type> isn't in the `View-process-specific-system-list'.  In that 
 case the third element (<bsd-or-system-v>) is determined with the help
-of the ps output. if REMOTE-HOST is non nil, the the ps command to check
+of the ps output.  if REMOTE-HOST is non-nil, the the ps command to check
 the system type is run on the remote host REMOTE-HOST."
   (let ((new-system-type (View-process-search-system-type-in-system-list
 			  system-type
       (list nil nil (View-process-bsd-or-system-v)))))
 
 (defun View-process-get-local-system-type ()
-  "Returns the system type of the local host."
+  "Return the system type of the local host."
   (let ((system-type (View-process-get-system-type-from-host-list
 		      (system-name))))
     (if (not system-type)  ; t if the host isn't in the list
       system-type)))
 
 (defun View-process-get-remote-system-type ()
-  "Returns the system type of the remote host `View-process-remote-host'."
+  "Return the system type of the remote host `View-process-remote-host'."
   (let ((system-type (View-process-get-system-type-from-host-list 
 		      View-process-remote-host)))
     (if system-type  ; nil if the host isn't in the list
       system-type)))
 
 (defun View-process-get-system-type ()
-  "Returns the type of the system on which ps was executed."
+  "Return the type of the system on which ps was executed."
   (if View-process-remote-host
       (View-process-get-remote-system-type)
     (View-process-get-local-system-type)
     ))
 
 (defun View-process-get-kill-signal-list (system-type)
-  "Returns a kill signal list for the SYSTEM-TYPE."
+  "Return a kill signal list for the SYSTEM-TYPE."
   (if (= 3 (length system-type))
       (if (string= "bsd" (nth 2 system-type))
 	  (if View-process-kill-signals-bsd
 	  View-process-kill-signals-general)))))
 
 (defun View-process-get-field-name-description-list (system-type)
-  "Returns a field name description list for the SYSTEM-TYPE.
+  "Return a field name description list for the SYSTEM-TYPE.
 It returns nil if no system specific list exists."
   (if (= 3 (length system-type))
       (if (string= "bsd" (nth 2 system-type))
 
 (defun View-process-init-internal-variables (use-last-sorter-and-filer)
   "Init internal variables. 
- (without `View-process-header-start').
+(without `View-process-header-start').
 If USE-LAST-SORTER-AND-FILER is t, then 
 'View-process-actual-sorter-and-filter' will not be changed"
   ;; don't replace blanks now
 	(use-local-map local-map))))
 
 (defun View-process-insert-uptime (&optional remote-host)
-  "Inserts uptime information at the current point.
+  "Insert uptime information at the current point.
 if `View-process-display-uptime' is nil, then nothing will be inserted.
-If REMOTE-HOST is non nil, then its the name of the remote host."
+If REMOTE-HOST is non-nil, then its the name of the remote host."
   (if View-process-display-uptime
       (progn
 ;	(newline)
 	     
 
 (defun View-process-search-header-line (&optional no-error-message)
-  "Function searches the header line and sets `View-process-header-start'.
+  "Searcg the header line and set `View-process-header-start'.
 The header line must have at least one of the words of the list
 `View-process-header-line-detection-list'.
 If NO-ERROR-MESSAGE is t and no header-line is found, then only 
     ))
 
 (defun View-process-save-position ()
-  "Saves the current line and column in a cons cell and returns it."
+  "Save the current line and column in a cons cell and return it."
   (save-restriction
     (widen)
     (if (< View-process-header-start (point-max))
       nil)))
 
 (defun View-process-goto-position (position)
-  "Sets the point to the POSITION.
+  "Set the point to the POSITION.
 POSITION is a cons cell with a line number and a column."
   (if position
       (save-restriction
   "Prints a list with processes in the buffer `View-process-buffer-name'.
 COMMAND-SWITCHES is a string with the command switches (ie: -aux).
 IF the optional argument REMOTE-HOST is given, then the command will
-be executed on the REMOTE-HOST. If an prefix arg is given, then the 
+be executed on the REMOTE-HOST.  If an prefix arg is given, then the 
 function asks for the name of the remote host.
 If USE-LAST-SORTER-AND-FILTER is t, then the last sorter and filter 
-commands are used. Otherwise the sorter and filter from the list
+commands are used.  Otherwise the sorter and filter from the list
 'View-process-sorter-and-filter' are used."
   (interactive 
    (let ((View-process-stop-motion-help t))
     ))
 
 (defun View-process-status-update ()
-  "Runs the `View-process-status' with the last switches
+  "Run `View-process-status' with the last switches
 and sorter and filter commands."
   (interactive)
   (if View-process-status-last-command-switches
 On System V like systems the value of the variable
 `View-process-status-command-switches-system-v' is used.
 IF the optional argument REMOTE-HOST is given, then the command will
-be executed on the REMOTE-HOST. If an prefix arg is given, then the 
+be executed on the REMOTE-HOST.  If an prefix arg is given, then the 
 function asks for the name of the remote host."
   (interactive 
    (let ((View-process-stop-motion-help t))
 (defun View-process-show-pid-and-command-or-field-name ()
   "Displays the pid and the command of the current line or the field name.
 If the point is at a blank, then the pid and the command of the current
-line are displayed. Otherwise the name of the field and its description
+line are displayed.  Otherwise the name of the field and its description
 are displayed."
   (interactive)
   (if (looking-at " ")
 (defun View-process-show-field-names ()
   "Displays the name(s) of the ps output field(s).
 If the point is at a blank, then the header line with all field names
-is displayed. Otherwise only the name of the field at the point is 
+is displayed.  Otherwise only the name of the field at the point is 
 displayed."
   (interactive)
   (if (looking-at " ")
 		  (View-process-get-field-name-description field-name)))))))
 
 (defun View-process-get-field-name-description (field-name)
-  "Returns a string with a description of the ps output field FIELD-NAME."
+  "Return a string with a description of the ps output field FIELD-NAME."
   (let ((description 
 	 (or (car (cdr (assoc field-name
 			      View-process-field-name-descriptions)))
 	       (cdr description))))))
 
 (defun View-process-get-value-description (values value-descriptions)
-  "Returns a string with the description of the VALUES.
+  "Return a string with the description of the VALUES.
 VALUE-DESCRIPTIONS is an alist with the possible values and its
 descriptions."
   (cond ((string= values "") "")
 ;;; sort functions
 
 (defun View-process-current-field-number ()
-  "Returns the field number of the point. 
+  "Return the field number of the point. 
 The functions fails with an error message if the character under
 the point is a blank."
   (View-process-replaces-blanks-in-fields-if-necessary)
 ;    (goto-char (+ point (- column (current-column))))))
 
 (defun View-process-remove-sorter (sorter alist)
-  "Removes the SORTER entry from the ALIST."
+  "Remove the SORTER entry from the ALIST."
   (cond ((not alist) nil)
 	((eq sorter (car (car alist))) (cdr alist))
 	(t (cons (car alist) 
 (defun View-process-reverse-g ()
   "Reverses the output lines.
 It is a generic interface to `View-process-reverse-region'
-and `View-process-reverse-output'. The first will be called
+and `View-process-reverse-output'.  The first will be called
 if a region is active and the other one if not."
   (interactive)
   (if (View-process-region-active-p)
 					     end
 					     &optional exclude)
   "Filters a region with a REGEXP in the field FIELD-NO.
-The region start is at BEG and the end at END. If FIELD-NO
-is nil, then the whole line is used. All lines which passes
+The region start is at BEG and the end at END.  If FIELD-NO
+is nil, then the whole line is used.  All lines which passes
 not the filter are deleted in the buffer if EXCLUDE is nil.
 Otherwise only these lines are not deleted."
   (save-restriction
 					    dont-remember)
   "Filter the whole output by the field FIELD-NAME with REGEXP.
 The matching lines are deleted if EXCLUDE is t. The non matching
-lines are deleted if EXCLUDE is nil. If you call this function
-interactive, then you can give a prefix arg to set EXCLUDE to non nil.
+lines are deleted if EXCLUDE is nil.  If you call this function
+interactive, then you can give a prefix arg to set EXCLUDE to non-nil.
 If DONT-REMEMBER is t, then the filter command isn't inserted 
 in the `View-process-actual-sorter-and-filter' list."
   (interactive 
 						    dont-remember)
   "Filter the whole output by the field under the point with REGEXP.
 The matching lines are deleted if EXCLUDE is t. The non matching
-lines are deleted if EXCLUDE is nil. If you call this function
-interactive, then you can give a prefix arg to set EXCLUDE to non nil.
+lines are deleted if EXCLUDE is nil.  If you call this function
+interactive, then you can give a prefix arg to set EXCLUDE to non-nil.
 If DONT-REMEMBER is t, then the filter command isn't inserted 
 in the `View-process-actual-sorter-and-filter' list."
 ;  (interactive "sRegexp for filtering the output in the current field: \nP")
 (defun View-process-filter-region-by-current-field (regexp &optional exclude)
   "Filter the region by the field under the point with REGEXP.
 The matching lines are deleted if EXCLUDE is t. The non matching
-lines are deleted if EXCLUDE is nil. If you call this function
-interactive, then you can give a prefix arg to set EXCLUDE to non nil."
+lines are deleted if EXCLUDE is nil.  If you call this function
+interactive, then you can give a prefix arg to set EXCLUDE to non-nil."
 ;  (interactive "sRegexp for filtering the region in the current field: \nP")
   (interactive 
    (let* ((View-process-stop-motion-help t)
 (defun View-process-filter-by-current-field-g (&optional exclude)
   "Filter the whole output by the field under the point with an Regexp.
 It is a generic interface to `View-process-filter-region-by-current-field'
-and `View-process-filter-output-by-current-field'. The first will be called
+and `View-process-filter-output-by-current-field'.  The first will be called
 if a region is active and the other one if not. 
 The matching lines are deleted if EXCLUDE is t. The non matching
-lines are deleted if EXCLUDE is nil. If you call this function
-interactive, then you can give a prefix arg to set EXCLUDE to non nil."
+lines are deleted if EXCLUDE is nil.  If you call this function
+interactive, then you can give a prefix arg to set EXCLUDE to non-nil."
   (interactive "P")
   (setq prefix-arg current-prefix-arg)
   (if (View-process-region-active-p)
 (defun View-process-filter-output (regexp &optional exclude dont-remember)
   "Filter the whole output with REGEXP.
 The matching lines are deleted if EXCLUDE is t. The non matching
-lines are deleted if EXCLUDE is nil. If you call this function
-interactive, then you can give a prefix arg to set EXCLUDE to non nil.
+lines are deleted if EXCLUDE is nil.  If you call this function
+interactive, then you can give a prefix arg to set EXCLUDE to non-nil.
 If DONT-REMEMBER is t, then the filter command isn't inserted 
 in the `View-process-actual-sorter-and-filter' list."
 ;  (interactive "sRegexp for filtering the output: \nP")
 (defun View-process-filter-region (regexp &optional exclude)
   "Filter the region with REGEXP.
 The matching lines are deleted if EXCLUDE is t. The non matching
-lines are deleted if EXCLUDE is nil. If you call this function
-interactive, then you can give a prefix arg to set EXCLUDE to non nil."
+lines are deleted if EXCLUDE is nil.  If you call this function
+interactive, then you can give a prefix arg to set EXCLUDE to non-nil."
 ;  (interactive "sRegexp for filtering the region: \nP")
   (interactive 
    (let* ((View-process-stop-motion-help t)
 (defun View-process-filter-g (&optional exclude)
   "Filters the output by the field under the point with an Regexp.
 It is a generic interface to `View-process-filter-region'
-and `View-process-filter-output'. The first will be called
+and `View-process-filter-output'.  The first will be called
 if a region is active and the other one if not.
 The matching lines are deleted if EXCLUDE is t. The non matching
-lines are deleted if EXCLUDE is nil. If you call this function
-interactive, then you can give a prefix arg to set EXCLUDE to non nil."
+lines are deleted if EXCLUDE is nil.  If you call this function
+interactive, then you can give a prefix arg to set EXCLUDE to non-nil."
   (interactive "P")
   (setq prefix-arg current-prefix-arg)
   (if (View-process-region-active-p)
 		 )))))
 
 (defun View-process-get-child-process-list (pid pid-ppid-alist)
-  "Returns a list with all direct children of the processes with the PID.
+  "Return a list with all direct children of the processes with PID.
 The list PID-PPID-ALIST is an alist with the PIDs as cars 
 and PPIDs as cdrs.
 Example list: (\"0\" \"10\" \"20\")
   (cons pid (View-process-get-child-process-list-1 pid pid-ppid-alist)))
 
 (defun View-process-get-child-process-tree (pid)
-  "Returns a list with all children and subchildren of the processes with the PID.
+  "Return a list with all children and subchildren of the processes with PID.
 Example list:  (\"0\" (\"10\") (\"20\" (\"30\" \"40\")))
 With \"0\" eq PID as the parent of the direct children \"10\" and \"20\" 
 and with \"20\" as the parent of the direct children \"30\" and \"40\"."
 ;  (interactive "sParent PID: ")
 ;  (if (not
 ;       (View-process-field-name-exists-p View-process-ppid-field-name))
-;      (error "ERROR: No field `%s' in the output. Try `M-x ps -j' to get it."
+;      (error "ERROR: No field `%s' in the output, try `M-x ps -j' to get it"
 ;	     View-process-ppid-field-name)
 ;    (View-process-highlight-line-with-pid pid 
 ;					  'View-process-parent-line-face
        View-process-pid-mark-alist
        t
        signal)
-    (error "ERROR: There is no marked process!.")))
+    (error "ERROR: There is no marked process!")))
 
 (defun View-process-send-signal-to-processes-in-region (signal)
   "Sends a SIGNAL to all processes in the current region."
 							  dont-ask
 							  dont-update)
   "Sends a SIGNAL to all processes with a pid in PID-LIST.
-If DONT-ASK is non nil, then no confirmation question will be asked.
-If DONT-UPDATE is non nil, then the command `View-process-status-update'
+If DONT-ASK is non-nil, then no confirmation question will be asked.
+If DONT-UPDATE is non-nil, then the command `View-process-status-update'
 will not be run after sending a signal."
   (if (not pid-list)
       t
 (defun View-process-send-signal-to-processes-g ()
   "Sends a signal to processes.
 It is a generic interface to `View-process-send-signal-to-processes-in-region'
-and `View-process-send-signal-to-process-in-line'. The first will be called
-if a region is active and the other one if not. If the region isn't
+and `View-process-send-signal-to-process-in-line'.  The first will be called
+if a region is active and the other one if not.  If the region isn't
 active, but marks are set, then the function is called on every 
 marked process."
   (interactive)
 					    dont-ask
 					    dont-update)
   "Sends the SIGNAL to the process with the PID.
-If DONT-ASK is non nil, then no confirmation question will be asked.
-If DONT-UPDATE is non nil, then the command `View-process-status-update'
+If DONT-ASK is non-nil, then no confirmation question will be asked.
+If DONT-UPDATE is non-nil, then the command `View-process-status-update'
 will not be run after sending the signal."
   (interactive 
    (let* ((View-process-stop-motion-help t)
       (if (or dont-ask
 	      (if (string= signal-number signal)
 		  (y-or-n-p (format 
-			     "Do you really want to send signal %s to PID %s "
+			     "Do you really want to send signal %s to PID %s? "
 			     signal
 			     pid))
 		(y-or-n-p 
-		 (format "Do you really want to send signal %s (%s) to PID %s "
+		 (format "Do you really want to send signal %s (%s) to PID %s? "
 			 signal
 			 signal-number
 			 pid))))
 ;;; renice processes
 
 (defun View-process-read-nice-value ()
-  "Reads and returns a valid nice value."
+  "Read and return a valid nice value."
   (let ((nice-value nil)
 	(min-value (if (string= (user-real-login-name) "root") -20 1))
 	(prompt "Add nice value [%d ... 20]: "))
 				    dont-update)
   "Alter priority of the process with the PID.
 NICE-VALUE is the value, which will be added to the old nice value.
-If DONT-ASK is non nil, then no confirmation question will be asked.
-If DONT-UPDATE is non nil, then the command `View-process-status-update'
+If DONT-ASK is non-nil, then no confirmation question will be asked.
+If DONT-UPDATE is non-nil, then the command `View-process-status-update'
 will not be run after renicing."
   (interactive 
    (let* ((View-process-stop-motion-help t)
   (View-process-mark-line-with-pid pid View-process-renice-line-mark)
   (if (or dont-ask
 	  (y-or-n-p (format 
-		     "Do you really want to renice PID %s with %s "
+		     "Do you really want to renice PID %s with %s? "
 		     pid
 		     nice-value)))
       (progn
        View-process-pid-mark-alist
        t
        nice-value)
-    (error "ERROR: There is no marked process!.")))  
+    (error "ERROR: There is no marked process!")))  
 
 (defun View-process-renice-processes-in-region (nice-value)
   "Alter priority of  all processes in the current region.
 						  dont-update)
   "Alter priority all processes with a pid in PID-LIST.
 NICE-VALUE is the value, which will be added to the old nice value.
-If DONT-ASK is non nil, then no confirmation question will be asked.
-If DONT-UPDATE is non nil, then the command `View-process-status-update'
+If DONT-ASK is non-nil, then no confirmation question will be asked.
+If DONT-UPDATE is non-nil, then the command `View-process-status-update'
 will not be run after renicing"
   (if (not pid-list)
       t
 (defun View-process-renice-processes-g ()
   "Alter priority of processes.
 It is a generic interface to `View-process-renice-processes-in-region'
-and `View-process-renice-process-in-line'. The first will be called
-if a region is active and the other one if not. If the region isn't
+and `View-process-renice-process-in-line'.  The first will be called
+if a region is active and the other one if not.  If the region isn't
 active, but marks are set, then the function is called on every 
 marked process."
   (interactive)
 ;;; Returning field values
 
 (defun View-process-get-pid-from-current-line ()
-  "Returns a string with the pid of the process in the current line."
+  "Return a string with the pid of the process in the current line."
   (View-process-get-field-value-from-current-line
    (View-process-translate-field-name-to-position View-process-pid-field-name)
    View-process-max-fields)
   )
 
 (defun View-process-get-ppid-from-current-line ()
-  "Returns a string with the ppid of the process in the current line."
+  "Return a string with the ppid of the process in the current line."
   (View-process-get-field-value-from-current-line
    (View-process-translate-field-name-to-position View-process-ppid-field-name)
    View-process-max-fields)
   )
 
 (defun View-process-get-pid-list-from-region (begin end)
-  "Returns a list with all PIDs in the region from BEGIN to END."
+  "Return a list with all PIDs in the region from BEGIN to END."
   (goto-char begin)
   (if (>= (point) end)
       nil
 		 (View-process-get-pid-list-from-region (point) end)))))
 
 (defun View-process-get-pid-ppid-list-from-region (begin end)
-  "Returns a list with all PIDs and their PPIDs in the region 
+  "Return a list with all PIDs and their PPIDs in the region 
 from BEGIN to END. END must be greater than BEGIN."
   (goto-char begin)
   (if (>= (point) end)
 		 (View-process-get-pid-ppid-list-from-region (point) end)))))
 
 (defun View-process-get-field-value-from-current-line (field-no max-fields)
-  "Returns the value of the field FIELD-NO from the current line as string.
-If the FIELD-NO is >= max-fields, then the rest of the line after the
+  "Return the value of the field FIELD-NO from the current line as string.
+If FIELD-NO is >= MAX-FIELDS, then the rest of the line after the
 start of the field FIELD-NO will be returned."
   (save-excursion
     (View-process-jump-to-field field-no max-fields)
   )
 
 (defun View-process-jump-to-field (field-no max-fields)
-  "Sets the point at the start of field FIELD-NO in the current line.
-MAX_FIELDS is used instead of FIELD-NO if FIELD-NO > MAX_FIELDS."
+  "Set the point at the start of field FIELD-NO in the current line.
+MAX-FIELDS is used instead of FIELD-NO if FIELD-NO > MAX-FIELDS."
   (View-process-replaces-blanks-in-fields-if-necessary)  
   (beginning-of-line)
   (skip-chars-forward " ")
     (View-process-jump-to-field-1  (1- field-no))))
 
 (defun View-process-jump-to-field-1 (field-no)
-  "Internal function of View-process-jump-to-field"
+  "Internal function of `View-process-jump-to-field'."
   (if (= field-no 1)
       (point)
     (skip-chars-forward "^ ")
 
 
 (defun View-process-display-emacs-pid ()
-  "Sets the point to the line with the emacs process."
+  "Set the point to the line with the emacs process."
   (interactive)
   (message (format "This emacs has the PID `%d'!" (emacs-pid))))
 
 ;;; Highlighting functions
 
 (defun View-process-highlight-current-line (face)
-  "Highlights the current line with the FACE."
+  "Highlight the current line with the FACE."
   (let ((read-only buffer-read-only))
     (setq buffer-read-only nil)
     (let ((extent (make-extent (View-process-return-beginning-of-line)
     ))
 
 (defun View-process-goto-line-with-pid (pid)
-  "Sets the point in the line with the PID.
+  "Set the point in the line with the PID.
 It returns nil if there is no line with the PID in the output."
   (if (string= pid (View-process-get-pid-from-current-line))
       t
 ;;; mark functions
 
 (defun View-process-save-pid-and-mark (pid mark)
-  "Saves the PID and the MARK in a special alist.
+  "Save the PID and the MARK in a special alist.
 The name of the alist is `View-process-pid-mark-alist'."
   (if (assoc pid View-process-pid-mark-alist)
       (setcdr (assoc pid View-process-pid-mark-alist) (list mark ))
 	 )))
 
 (defun View-process-remove-pid-and-mark (pid)
-  "Removes the PID from the alist `View-process-pid-mark-alist'."
+  "Remove the PID from the alist `View-process-pid-mark-alist'."
   (setq View-process-pid-mark-alist 
 	(View-process-remove-pid-and-mark-1 pid View-process-pid-mark-alist))
   )
 	
 (defun View-process-set-mark-in-current-line (mark)
-  "Sets the MARK at the start of the current line."
+  "Set the MARK at the start of the current line."
   (let ((buffer-read-only nil))
     (save-excursion
       (beginning-of-line)
       (insert mark))))
 
 (defun View-process-mark-line-with-pid (pid &optional mark)
-  "Sets the MARK in the line with the PID.
-It uses the 'View-process-single-line-mark' if mark is nil."
+  "Set the MARK in the line with the PID.
+Uses 'View-process-single-line-mark' if mark is nil."
 ;  (interactive "sPID: ")
   (interactive (let ((View-process-stop-motion-help t))
 		 (list (read-string "PID: "))))
     ))
 
 (defun View-process-mark-current-line (&optional mark)
-  "Sets a mark in the current line.
+  "Set a mark in the current line.
 It uses the 'View-process-single-line-mark' if MARK is nil."
   (interactive)
   (if (or (< (point) View-process-output-start)
 	(t (error "Bug in 'View-process-mark-process-tree' !"))))
 
 (defun View-process-mark-children (pid)
-  "Marks all children of the process with the PID."
+  "Mark all children of the process with the PID."
 ;  (interactive "sParent PID: ")
   (interactive (let ((View-process-stop-motion-help t))
 		 (list (read-string "Parent PID: "))))
   (if (not
        (View-process-field-name-exists-p View-process-ppid-field-name))
-      (error "ERROR: No field `%s' in the output. Try `M-x ps -j' to get it."
+      (error "ERROR: No field `%s' in the output, try `M-x ps -j' to get it"
 	     View-process-ppid-field-name)
     (View-process-mark-line-with-pid pid View-process-parent-line-mark)
     (View-process-mark-process-tree
      (cdr (View-process-get-child-process-tree pid)))))
 
 (defun View-process-mark-children-in-current-line ()
-  "Marks all the child processes of the process in the current line."
+  "Mark all the child processes of the process in the current line."
   (interactive)
   (View-process-mark-children
    (View-process-get-pid-from-current-line)))
 							not-interactive
 							&rest
 							non-interactive-args)
-  "Calls the FUNCTION on every process in the PID-MARK-ALIST.
+  "Call FUNCTION on every process in the PID-MARK-ALIST.
 FUNCTION must be an interactive function, which works on the 
-process in the current line, if INTERACTIVE is nil.
-If INTERACTIVE is t, then the function will be called non interactive
-with the NON-INTERACTIVE-ARGS."
+process in the current line, if NOT-INTERACTIVE is nil.
+If NOT-INTERACTIVE is t, then the function will be called non interactively
+with NON-INTERACTIVE-ARGS."
   (cond ((not pid-mark-alist))
 	((View-process-goto-line-with-pid (car (car pid-mark-alist)))
 	 (if not-interactive
 	 ))
 
 (defun View-process-set-marks-from-pid-mark-alist (pid-mark-alist)
-  "Sets the marks of the PID-MARK-ALIST to the pids of the PID-MARK-ALIST."
+  "Set the marks of the PID-MARK-ALIST to the pids of the PID-MARK-ALIST."
   (cond ((not pid-mark-alist))
 	((View-process-goto-line-with-pid (car (car pid-mark-alist)))
 	 (View-process-mark-current-line (car (cdr (car pid-mark-alist))))
 	 (View-process-set-marks-from-pid-mark-alist (cdr pid-mark-alist)))))
 
 (defun View-process-reset-last-marks ()
-  "Resets the last marks."
+  "Reset the last marks."
   (interactive)
   (View-process-set-marks-from-pid-mark-alist View-process-last-pid-mark-alist)
   )
 
 (defun View-process-unmark-all ()
-  "Unmarks all processes."
+  "Unmark all processes."
   (interactive)
   (View-process-call-function-on-pid-and-mark-list 
    'View-process-unmark-current-line
   )
 
 (defun View-process-top-window-p (&optional window)
-  "Returns t if the WINDOW is the top one.
+  "Return t if the WINDOW is the top one.
 If WINDOW is nil, then the current window is tested."
   (eq 0 (car (cdr (window-pixel-edges window)))))
 
 (defun View-process-change-display-type (display-with-2-windows)
-  "If DISPLAY-WITH-2-WINDOWS is non nil, then a 2 windows display is used."
+  "If DISPLAY-WITH-2-WINDOWS is non-nil, then a 2 windows display is used."
   (if display-with-2-windows
       (let ((window-size View-process-ps-header-window-size))
 	(cond ((eq (count-windows 'NO-MINI) 1)
 (defun View-process-toggle-display-with-2-windows (&optional arg)
   "Change whether the view process output is displayed with two windows.
 With ARG, set `View-process-display-with-2-windows' to t if ARG is 
-positive. ARG is a prefix arg."
+positive.  ARG is a prefix arg."
   (interactive "P")
   (if arg
       (if (>= (prefix-numeric-value arg) 0)
     (View-process-toggle-hide-header '(-1))))
 
 (defun View-process-save-old-window-configuration ()
-  "Saves the window configuration before the first call of view process."
+  "Save the window configuration before the first call of view process."
   (if (not View-process-old-window-configuration)
       (setq View-process-old-window-configuration 
 	    (current-window-configuration))
 ;;; Misc. commands
 
 (defun View-process-quit ()
-  "Kills the *ps* buffer."
+  "Kill the *ps* buffer."
   (interactive)
   (if (y-or-n-p 
        "Do you want really want to quit the view process mode? ") 
 	(set-buffer buffer))))
 
 (defun View-process-return-beginning-of-line ()
-  "Returns the beginning of the current line.
+  "Return the beginning of the current line.
 The point isn't changed."
   (save-excursion
     (beginning-of-line)
     (point)))
 
 (defun View-process-return-end-of-line  ()
-  "Returns the end of the current line.
+  "Return the end of the current line.
 The point isn't changed."
   (save-excursion
     (end-of-line)
 
 (defun View-process-toggle-digit-bindings (&optional arg)
   "Change whether the digit keys sends signals to the processes.
- With ARG, set `View-process-digit-bindings-send-signal' to t, 
-if ARG is positive. ARG is a prefix arg."  
+With ARG, set `View-process-digit-bindings-send-signal' to t, 
+if ARG is positive.  ARG is a prefix arg."  
   (interactive "P")
   (if arg
       (if (>= (prefix-numeric-value arg) 0)
 			View-process-header-line-underline-p))
 
 (defun View-process-highlight-header-line ()
-  "Highlights the header line with the face `View-process-header-line-face'."
+  "Highlight the header line with the face `View-process-header-line-face'."
   (let ((extent 
 	 (make-extent View-process-header-start View-process-header-end)
 	 ))

view-process-system-specific.el

 ;;	an entry in this file, because there are default values which
 ;;	are used if no entry exists.
 
-;; Installation: 
+;; Installation:
 ;;   
 ;;	Put this file in one of your lisp load path directories.
 ;;
      View-process-field-name-descriptions-hpux
      View-process-kill-signals-hpux)
     )
-  "This is a list with all systems for which specific information about 
-allowed signals and about the ps output exists. Set it to nil if you don't 
+  "This is a list with all systems for which specific information about
+allowed signals and about the ps output exists. Set it to nil if you don't
 want to use this specific information.
-The first string of each sublist is the name of the system.  The second 
+The first string of each sublist is the name of the system.  The second
 string is the mayor version number or nil. The third one determines
-whether the ps command is BSD or System V like. The major version is only 
-necessary if there are BSD and System V versions with the same system 
+whether the ps command is BSD or System V like. The major version is only
+necessary if there are BSD and System V versions with the same system
 names (SUN has done such a system naming), otherwise it is nil.
-The fifth entry is nil or the name of a special list with field name 
-descriptions. The sixth entry is nil or the name of a special list with 
+The fifth entry is nil or the name of a special list with field name
+descriptions. The sixth entry is nil or the name of a special list with
 kill signals.")
 
 ;;; signals
 it is not in the `View-process-specific-system-list'.")
 
 (defvar View-process-kill-signals-sunos4
-  '(("SIGHUP" "1") ("SIGINT" "2") ("SIGQUIT" "3") ("SIGILL" "4") 
-    ("SIGTRAP" "5") ("SIGIOT" "6") ("SIGABRT" "6") ("SIGEMT" "7") 
-    ("SIGFPE" "8") ("SIGKILL" "9") ("SIGBUS" "10") ("SIGSEGV" "11") 
-    ("SIGSYS" "12") ("SIGPIPE" "13") ("SIGALRM" "14") ("SIGTERM" "15") 
-    ("SIGURG" "16") ("SIGSTOP" "17") ("SIGTSTP" "18") ("SIGCONT" "19") 
+  '(("SIGHUP" "1") ("SIGINT" "2") ("SIGQUIT" "3") ("SIGILL" "4")
+    ("SIGTRAP" "5") ("SIGIOT" "6") ("SIGABRT" "6") ("SIGEMT" "7")
+    ("SIGFPE" "8") ("SIGKILL" "9") ("SIGBUS" "10") ("SIGSEGV" "11")
+    ("SIGSYS" "12") ("SIGPIPE" "13") ("SIGALRM" "14") ("SIGTERM" "15")
+    ("SIGURG" "16") ("SIGSTOP" "17") ("SIGTSTP" "18") ("SIGCONT" "19")
     ("SIGCHLD" "20") ("SIGCLD" "20") ("SIGTTIN" "21") ("SIGTTOU" "22")
-    ("SIGIO" "23") ("SIGPOLL" "23") ("SIGXCPU" "24") ("SIGXFSZ" "25") 
-    ("SIGVTALRM" "26") ("SIGPROF" "27") ("SIGWINCH" "28") 
-    ("SIGLOST" "29") ("SIGUSR1" "30") ("SIGUSR2" "31") 
-    ("1" "1") ("2" "2") ("3" "3") ("4" "4") ("5" "5") ("6" "6") ("7" "7") 
-    ("8" "8") ("9" "9") ("10" "10") ("11" "11") ("12" "12") ("13" "13") 
-    ("14" "14") ("15" "15") ("16" "16") ("17" "17") ("18" "18") 
-    ("19" "19") ("20" "20") ("21" "21") ("22" "22") ("23" "23") 
-    ("24" "24") ("25" "25") ("26" "26") ("27" "27") ("28" "28") 
+    ("SIGIO" "23") ("SIGPOLL" "23") ("SIGXCPU" "24") ("SIGXFSZ" "25")
+    ("SIGVTALRM" "26") ("SIGPROF" "27") ("SIGWINCH" "28")
+    ("SIGLOST" "29") ("SIGUSR1" "30") ("SIGUSR2" "31")
+    ("1" "1") ("2" "2") ("3" "3") ("4" "4") ("5" "5") ("6" "6") ("7" "7")
+    ("8" "8") ("9" "9") ("10" "10") ("11" "11") ("12" "12") ("13" "13")
+    ("14" "14") ("15" "15") ("16" "16") ("17" "17") ("18" "18")
+    ("19" "19") ("20" "20") ("21" "21") ("22" "22") ("23" "23")
+    ("24" "24") ("25" "25") ("26" "26") ("27" "27") ("28" "28")
     ("29" "29") ("30" "30") ("31" "31"))
   "An alist with the possible signals for the kill command for SunOS 4.
-It may be that you have other signals on your system. Try to test
+It may be that you have other signals on your system.  Try to test
 it with \"kill -l\" in a shell.")
   
 (defvar View-process-kill-signals-sunos5
-  '(("SIGHUP" "1") ("SIGINT" "2") ("SIGQUIT" "3") ("SIGILL" "4") 
-    ("SIGTRAP" "5") ("SIGIOT" "6") ("SIGABRT" "6") ("SIGEMT" "7") 
-    ("SIGFPE" "8") ("SIGKILL" "9") ("SIGBUS" "10") ("SIGSEGV" "11") 
-    ("SIGSYS" "12") ("SIGPIPE" "13") ("SIGALRM" "14") ("SIGTERM" "15") 
+  '(("SIGHUP" "1") ("SIGINT" "2") ("SIGQUIT" "3") ("SIGILL" "4")
+    ("SIGTRAP" "5") ("SIGIOT" "6") ("SIGABRT" "6") ("SIGEMT" "7")
+    ("SIGFPE" "8") ("SIGKILL" "9") ("SIGBUS" "10") ("SIGSEGV" "11")
+    ("SIGSYS" "12") ("SIGPIPE" "13") ("SIGALRM" "14") ("SIGTERM" "15")
     ("SIGUSR1" "16") ("SIGUSR2" "17") ("SIGCHLD" "18") ("SIGCLD" "18")
     ("SIGPWR" "19") ("SIGWINCH" "20") ("SIGURG" "21") ("SIGPOLL" "22")
-    ("SIGIO" "22") ("SIGSTOP" "23") ("SIGTSTP" "24") ("SIGCONT" "25") 
+    ("SIGIO" "22") ("SIGSTOP" "23") ("SIGTSTP" "24") ("SIGCONT" "25")
     ("SIGTTIN" "26") ("SIGTTOU" "27") ("SIGVTALRM" "28") ("SIGPROF" "29")
     ("SIGXCPU" "30") ("SIGXFSZ" "31") ("SIGWAITING" "32") ("SIGLWP" "33")
     ("SIGFREEZE" "34") ("SIGTHAW" "36") ("SIGRTMIN" "36") ("SIGRTMAX" "43")
-    ("1" "1") ("2" "2") ("3" "3") ("4" "4") ("5" "5") ("6" "6") ("7" "7") 
-    ("8" "8") ("9" "9") ("10" "10") ("11" "11") ("12" "12") ("13" "13") 
-    ("14" "14") ("15" "15") ("16" "16") ("17" "17") ("18" "18") 
-    ("19" "19") ("20" "20") ("21" "21") ("22" "22") ("23" "23") 
-    ("24" "24") ("25" "25") ("26" "26") ("27" "27") ("28" "28") 
+    ("1" "1") ("2" "2") ("3" "3") ("4" "4") ("5" "5") ("6" "6") ("7" "7")
+    ("8" "8") ("9" "9") ("10" "10") ("11" "11") ("12" "12") ("13" "13")
+    ("14" "14") ("15" "15") ("16" "16") ("17" "17") ("18" "18")
+    ("19" "19") ("20" "20") ("21" "21") ("22" "22") ("23" "23")
+    ("24" "24") ("25" "25") ("26" "26") ("27" "27") ("28" "28")
     ("29" "29") ("30" "30") ("31" "31") ("32" "32") ("33" "33")
     ("34" "34") ("36" "36") ("43" "43"))
   "An alist with the possible signals for the kill command for SunOS 5.
-It may be that you have other signals on your system. Try to test
+It may be that you have other signals on your system.  Try to test
 it with \"kill -l\" in a shell.")
   
 (defvar View-process-kill-signals-irix
-  '(("SIGHUP" "1") ("SIGINT" "2") ("SIGQUIT" "3") ("SIGILL" "4") 
-    ("SIGTRAP" "5") ("SIGIOT" "6") ("SIGABRT" "6") ("SIGEMT" "7") 
-    ("SIGFPE" "8") ("SIGKILL" "9") ("SIGBUS" "10") ("SIGSEGV" "11") 
-    ("SIGSYS" "12") ("SIGPIPE" "13") ("SIGALRM" "14") ("SIGTERM" "15") 
-    ("SIGUSR1" "16") ("SIGUSR2" "17") ("SIGCLD" "18") ("SIGCHLD" "18") 
+  '(("SIGHUP" "1") ("SIGINT" "2") ("SIGQUIT" "3") ("SIGILL" "4")
+    ("SIGTRAP" "5") ("SIGIOT" "6") ("SIGABRT" "6") ("SIGEMT" "7")
+    ("SIGFPE" "8") ("SIGKILL" "9") ("SIGBUS" "10") ("SIGSEGV" "11")
+    ("SIGSYS" "12") ("SIGPIPE" "13") ("SIGALRM" "14") ("SIGTERM" "15")
+    ("SIGUSR1" "16") ("SIGUSR2" "17") ("SIGCLD" "18") ("SIGCHLD" "18")
     ("SIGPWR" "19") ("SIGWINCH" "20") ("SIGURG" "21") ("SIGPOLL" "22")
     ("SIGIO" "22") ("SIGSTOP" "23") ("SIGTSTP" "24") ("SIGCONT" "25")
-    ("SIGTTIN" "26") ("SIGTTOU" "27") ("SIGVTALRM" "28") ("SIGPROF" "29") 
+    ("SIGTTIN" "26") ("SIGTTOU" "27") ("SIGVTALRM" "28") ("SIGPROF" "29")
     ("SIGXCPU" "30") ("SIGXFSZ" "31") ("SIG32" "32")
-    ("1" "1") ("2" "2") ("3" "3") ("4" "4") ("5" "5") ("6" "6") ("7" "7") 
-    ("8" "8") ("9" "9") ("10" "10") ("11" "11") ("12" "12") ("13" "13") 
-    ("14" "14") ("15" "15") ("16" "16") ("17" "17") ("18" "18") 
-    ("19" "19") ("20" "20") ("21" "21") ("22" "22") ("23" "23") 
-    ("24" "24") ("25" "25") ("26" "26") ("27" "27") ("28" "28") 
+    ("1" "1") ("2" "2") ("3" "3") ("4" "4") ("5" "5") ("6" "6") ("7" "7")
+    ("8" "8") ("9" "9") ("10" "10") ("11" "11") ("12" "12") ("13" "13")
+    ("14" "14") ("15" "15") ("16" "16") ("17" "17") ("18" "18")
+    ("19" "19") ("20" "20") ("21" "21") ("22" "22") ("23" "23")
+    ("24" "24") ("25" "25") ("26" "26") ("27" "27") ("28" "28")
     ("29" "29") ("30" "30") ("31" "31") ("32" "32"))
   "An alist with the possible signals for the kill command for IRIX.
-It may be that you have other signals on your system. Try to test
+It may be that you have other signals on your system.  Try to test
 it with \"kill -l\" in a shell.")
   
 (defvar View-process-kill-signals-linux
-  '(("SIGHUP" "1") ("SIGINT" "2") ("SIGQUIT" "3") ("SIGILL" "4") 
-    ("SIGTRAP" "5") ("SIGIOT" "6") ("SIGBUS" "7") ("SIGFPE" "8") 
-    ("SIGKILL" "9") ("SIGUSR1" "10") ("SIGSEGV" "11") ("SIGUSR2" "12") 
+  '(("SIGHUP" "1") ("SIGINT" "2") ("SIGQUIT" "3") ("SIGILL" "4")
+    ("SIGTRAP" "5") ("SIGIOT" "6") ("SIGBUS" "7") ("SIGFPE" "8")
+    ("SIGKILL" "9") ("SIGUSR1" "10") ("SIGSEGV" "11") ("SIGUSR2" "12")
     ("SIGPIPE" "13") ("SIGALRM" "14") ("SIGTERM" "15") ("SIGSTKFLT" "16")
     ("SIGCHLD" "17") ("SIGCONT" "18") ("SIGSTOP" "19") ("SIGTSTP" "20")
     ("SIGTTIN" "21") ("SIGTTOU" "22") ("SIGURG" "23") ("SIGXCPU" "24")
     ("SIGXFSZ" "25") ("SIGVTALRM" "26") ("SIGPROF" "27") ("SIGWINCH" "28")
-    ("SIGIO" "29") ("SIGPWR" "30") 
-    ("1" "1") ("2" "2") ("3" "3") ("4" "4") ("5" "5") ("6" "6") ("7" "7") 
-    ("8" "8") ("9" "9") ("10" "10") ("11" "11") ("12" "12") ("13" "13") 
-    ("14" "14") ("15" "15") ("16" "16") ("17" "17") ("18" "18") ("19" "19") 
-    ("20" "20") ("21" "21") ("22" "22") ("23" "23") ("24" "24") 
+    ("SIGIO" "29") ("SIGPWR" "30")
+    ("1" "1") ("2" "2") ("3" "3") ("4" "4") ("5" "5") ("6" "6") ("7" "7")
+    ("8" "8") ("9" "9") ("10" "10") ("11" "11") ("12" "12") ("13" "13")
+    ("14" "14") ("15" "15") ("16" "16") ("17" "17") ("18" "18") ("19" "19")
+    ("20" "20") ("21" "21") ("22" "22") ("23" "23") ("24" "24")
     ("25" "25") ("26" "26") ("27" "27") ("28" "28") ("29" "29") ("30" "30"))
   "An alist with the possible signals for the kill command for linux.
-It may be that you have other signals on your system. Try to test
+It may be that you have other signals on your system.  Try to test
 it with \"kill -l\" in a shell, or better, see <asm/signal.h>")
 
 ;; all Linux signals
 ;(defvar View-process-kill-signals
-;  '(("SIGHUP" "1") ("SIGINT" "2") ("SIGQUIT" "3") ("SIGILL" "4") 
-;    ("SIGTRAP" "5") ("SIGIOT" "6") ("SIGBUS" "7") ("SIGFPE" "8") 
-;    ("SIGKILL" "9") ("SIGUSR1" "10") ("SIGSEGV" "11") ("SIGUSR2" "12") 
-;    ("SIGPIPE" "13") ("SIGALRM" "14") ("SIGTERM" "15") ("SIGCHLD" "17") 
-;    ("SIGCONT" "18") ("SIGSTOP" "19") ("SIGTSTP" "20") ("SIGTTIN" "21") 
-;    ("SIGTTOU" "22") ("SIGIO" "23") ("SIGXCPU" "24") ("SIGXFSZ" "25") 
-;    ("SIGVTALRM" "26") ("SIGPROF" "27") ("SIGWINCH" "28") ("SIGPWR" "30") 
-;    ("1" "1") ("2" "2") ("3" "3") ("4" "4") ("5" "5") ("6" "6") ("7" "7") 
-;    ("8" "8") ("9" "9") ("10" "10") ("11" "11") ("12" "12") ("13" "13") 
-;    ("14" "14") ("15" "15") ("17" "17") ("18" "18") ("19" "19") 
-;    ("20" "20") ("21" "21") ("22" "22") ("23" "23") ("24" "24") 
+;  '(("SIGHUP" "1") ("SIGINT" "2") ("SIGQUIT" "3") ("SIGILL" "4")
+;    ("SIGTRAP" "5") ("SIGIOT" "6") ("SIGBUS" "7") ("SIGFPE" "8")
+;    ("SIGKILL" "9") ("SIGUSR1" "10") ("SIGSEGV" "11") ("SIGUSR2" "12")
+;    ("SIGPIPE" "13") ("SIGALRM" "14") ("SIGTERM" "15") ("SIGCHLD" "17")
+;    ("SIGCONT" "18") ("SIGSTOP" "19") ("SIGTSTP" "20") ("SIGTTIN" "21")
+;    ("SIGTTOU" "22") ("SIGIO" "23") ("SIGXCPU" "24") ("SIGXFSZ" "25")
+;    ("SIGVTALRM" "26") ("SIGPROF" "27") ("SIGWINCH" "28") ("SIGPWR" "30")
+;    ("1" "1") ("2" "2") ("3" "3") ("4" "4") ("5" "5") ("6" "6") ("7" "7")
+;    ("8" "8") ("9" "9") ("10" "10") ("11" "11") ("12" "12") ("13" "13")
+;    ("14" "14") ("15" "15") ("17" "17") ("18" "18") ("19" "19")
+;    ("20" "20") ("21" "21") ("22" "22") ("23" "23") ("24" "24")
 ;    ("25" "25") ("26" "26") ("27" "27") ("28" "28") ("30" "30"))
 ;  "An alist with the possible signals for the kill command.
 ;It may be that you have other signals on your system. Try to test
 ;it with \"kill -l\" in a shell.")
 
 (defvar View-process-kill-signals-hpux
-  '(("SIGHUP" "1") ("SIGINT" "2") ("SIGQUIT" "3") ("SIGILL" "4") 
-    ("SIGTRAP" "5") ("SIGIOT" "6") ("SIGABRT" "6") ("SIGEMT" "7") 
-    ("SIGFPE" "8") ("SIGKILL" "9") ("SIGBUS" "10") ("SIGSEGV" "11") 
-    ("SIGSYS" "12") ("SIGPIPE" "13") ("SIGALRM" "14") ("SIGTERM" "15") 
-    ("SIGUSR1" "16") ("SIGUSR2" "17") ("SIGCLD" "18") ("SIGCHLD" "18") 
+  '(("SIGHUP" "1") ("SIGINT" "2") ("SIGQUIT" "3") ("SIGILL" "4")
+    ("SIGTRAP" "5") ("SIGIOT" "6") ("SIGABRT" "6") ("SIGEMT" "7")
+    ("SIGFPE" "8") ("SIGKILL" "9") ("SIGBUS" "10") ("SIGSEGV" "11")
+    ("SIGSYS" "12") ("SIGPIPE" "13") ("SIGALRM" "14") ("SIGTERM" "15")
+    ("SIGUSR1" "16") ("SIGUSR2" "17") ("SIGCLD" "18") ("SIGCHLD" "18")
     ("SIGPWR" "19") ("SIGVTALRM" "20") ("SIGPROF" "21") ("SIGIO" "22")
     ("SIGWINCH" "23") ("SIGSTOP" "24") ("SIGTSTP" "25") ("SIGCONT" "26")
     ("SIGTTIN" "27") ("SIGTTOU" "28") ("SIGURG" "29") ("SIGLOST" "30")
-    ("1" "1") ("2" "2") ("3" "3") ("4" "4") ("5" "5") ("6" "6") ("7" "7") 
-    ("8" "8") ("9" "9") ("10" "10") ("11" "11") ("12" "12") ("13" "13") 
-    ("14" "14") ("15" "15") ("16" "16") ("17" "17") ("18" "18") 
-    ("19" "19") ("20" "20") ("21" "21") ("22" "22") ("23" "23") 
-    ("24" "24") ("25" "25") ("26" "26") ("27" "27") ("28" "28") 
+    ("1" "1") ("2" "2") ("3" "3") ("4" "4") ("5" "5") ("6" "6") ("7" "7")
+    ("8" "8") ("9" "9") ("10" "10") ("11" "11") ("12" "12") ("13" "13")
+    ("14" "14") ("15" "15") ("16" "16") ("17" "17") ("18" "18")
+    ("19" "19") ("20" "20") ("21" "21") ("22" "22") ("23" "23")
+    ("24" "24") ("25" "25") ("26" "26") ("27" "27") ("28" "28")
     ("29" "29") ("30" "30") ("31" "31") ("32" "32"))
   "An alist with the possible signals for the kill command for HP-UX.
-It may be that you have other signals on your system. Try to test
+It may be that you have other signals on your system.  Try to test
 it with \"kill -l\" in a shell.")
 
 ;;; process field descriptions
 	     ("I" "I=idle, sleeping > 20s. ")
 	     ("P" "P=Page Wait." )
 	     ("N" "N=started with nice. ")
-	     (">" ">=exceeded memory limit. ") 
+	     (">" ">=exceeded memory limit. ")
 	     ("SW" "S=sleeping. W=waiting on an event. ")
 	     ("IW" "I=intermediate status. W=waiting on an event. ")))
     ("SZ" "Virtual image size, size data+stack (in KByte). ")
 	     ("I" "I=idle, sleeping > 20s. ")
 	     ("P" "P=Page Wait." )
 	     ("N" "N=started with nice. ")
-	     (">" ">=exceeded memory limit. ") 
+	     (">" ">=exceeded memory limit. ")
 	     ("SW" "S=sleeping. W=waiting on an event. ")
 	     ("IW" "I=intermediate status. W=waiting on an event. ")))
     ("SZ" "Virtual image size, size data+stack (in KByte). ")
 	  ("02" "01=Process is a system process. ")
 	  ("04" "04=Process is locked in core (e.g., for physical I/O). ")
 	  ("10" "10=Process is being traced by another process. ")
-	  ("20" "20=Process is being traced by another process. ") 
+	  ("20" "20=Process is being traced by another process. ")
 	  ;; another tracing flag
 	  ))
-    ("UID" 
+    ("UID"
  "Real user ID number of the process owner.  Login name under the -f option. ")
     ("PID" "The process ID of the process. ")
     ("PPID" "The process ID of the parent process. ")
     ("ADDR" "Memory address of the process, if resident, or disk address. ")
     ("TTY" "The controlling terminal for the process. ")
     ("TIME" "The cumulative execution time for the process [min:sec]. ")
-    ("STIME" 
+    ("STIME"
      "Starting time of the process, or starting date if elapsed > 24h. ")
     ("C" "Processor utilization for scheduling. ")
     ("COMD" "The command name. ")

view-process-xemacs.el

 
 ;;	This file contains lisp code which works only in the XEmacs.
 
-;; Installation: 
+;; Installation:
 
 ;;	Put this file in one of your lisp load directories.
 ;;
        ["Submit Bug Report" View-process-submit-bug-report t]
        ["Quit" View-process-quit t]
        ("Options"
-	["Truncate Lines" 
-	 View-process-toggle-truncate-lines 
+	["Truncate Lines"
+	 View-process-toggle-truncate-lines
 	 :style toggle
 	 :selected truncate-lines]
 	["Motion Help"
 
 
 (if (not View-process-region-menu)
-    (setq 
+    (setq
      View-process-region-menu
      '("PS Region Menu"
        ["View Processes" view-processes nil]
        ["New PS" View-process-status nil]
        ["Update" View-process-status-update nil]
        ("Periodic Output"
-	["Start " 
-	 View-process-start-itimer 
-	 :style radio 
+	["Start "
+	 View-process-start-itimer
+	 :style radio
 	 :selected (not (get-itimer View-process-itimer-name))
-	 :active nil]	
-	["Stop" 
-	 View-process-delete-itimer 
-	 :style radio 
+	 :active nil]
+	["Stop"
+	 View-process-delete-itimer
+	 :style radio
 	 :selected (get-itimer View-process-itimer-name)
 	 :active nil]
 	)
        ("Send Signal"
-	["SIGHUP" 
+	["SIGHUP"
 	 (View-process-send-signal-to-processes-in-region "SIGHUP") t]
-	["SIGTERM" 
+	["SIGTERM"
 	 (View-process-send-signal-to-processes-in-region "SIGTERM") t]
-	["SIGKILL" 
+	["SIGKILL"
 	 (View-process-send-signal-to-processes-in-region "SIGKILL") t]
-	["SIGSTOP" 
+	["SIGSTOP"
 	 (View-process-send-signal-to-processes-in-region "SIGSTOP") t]
-	["SIGCONT" 
+	["SIGCONT"
 	 (View-process-send-signal-to-processes-in-region "SIGCONT") t]
-	["SIGQUIT" 
+	["SIGQUIT"
 	 (View-process-send-signal-to-processes-in-region "SIGQUIT") t]
 	"----"
 	["Any Signal..." View-process-send-signal-to-processes-in-region t]
        "----"
        ["Sort" View-process-sort-region-by-current-field (looking-at "[^ ]")]
        ["Reverse" View-process-reverse-region t]
-       ["Field Filter..." 
-	View-process-filter-region-by-current-field 
+       ["Field Filter..."
+	View-process-filter-region-by-current-field
 	(looking-at "[^ ]")]
-       ["Exclude Field Filter..." 
+       ["Exclude Field Filter..."
 	(progn (setq current-prefix-arg '(-1))
-	       (call-interactively 
+	       (call-interactively
 		'View-process-filter-region-by-current-field))
 	:keys "C-u -1 M-c f"
-	:active (looking-at "[^ ]")]	    
+	:active (looking-at "[^ ]")]
        ["Line Filter..." View-process-filter-region t]
-       ["Exclude Line Filter..." 
+       ["Exclude Line Filter..."
 	(progn (setq current-prefix-arg '(-1))
-	       (call-interactively 
+	       (call-interactively
 		'View-process-filter-region))
 	:keys "C-u -1 M-c g"
 	:active t]
   )
 
 (if (not View-process-marked-menu)
-    (setq 
+    (setq
      View-process-marked-menu
      '("PS Marked Menu"
        ["View Processes" view-processes t]
        ["New PS" View-process-status t]
        ["Update" View-process-status-update t]
        ("Periodic Output"
-	["Start " 
-	 View-process-start-itimer 
-	 :style radio 
+	["Start "
+	 View-process-start-itimer
+	 :style radio
 	 :selected (not (get-itimer View-process-itimer-name))
 	 :active nil]
-	["Stop" 
-	 View-process-delete-itimer 
-	 :style radio 
+	["Stop"
+	 View-process-delete-itimer
+	 :style radio
 	 :selected (get-itimer View-process-itimer-name)
 	 :active nil]
 	)
        ("Send Signal"
 	["SIGHUP" (View-process-send-signal-to-processes-with-mark "SIGHUP") t]
-	["SIGTERM" 
-	 (View-process-send-signal-to-processes-with-mark "SIGTERM") 
+	["SIGTERM"
+	 (View-process-send-signal-to-processes-with-mark "SIGTERM")
 	 t]
-	["SIGKILL" 
-	 (View-process-send-signal-to-processes-with-mark "SIGKILL") 
+	["SIGKILL"
+	 (View-process-send-signal-to-processes-with-mark "SIGKILL")
 	 t]
-	["SIGSTOP" 
-	 (View-process-send-signal-to-processes-with-mark "SIGSTOP") 
+	["SIGSTOP"
+	 (View-process-send-signal-to-processes-with-mark "SIGSTOP")
 	 t]
-	["SIGCONT" 
-	 (View-process-send-signal-to-processes-with-mark "SIGCONT") 
+	["SIGCONT"
+	 (View-process-send-signal-to-processes-with-mark "SIGCONT")
 	 t]
-	["SIGQUIT" 
-	 (View-process-send-signal-to-processes-with-mark "SIGQUIT") 
+	["SIGQUIT"
+	 (View-process-send-signal-to-processes-with-mark "SIGQUIT")
 	 t]
 	"----"
 	["Any Signal..." View-process-send-signal-to-processes-with-mark t]
        "----"
        ["Sort" View-process-sort-output-by-current-field (looking-at "[^ ]")]
        ["Reverse" View-process-reverse-output t]
-       ["Field Filter..." 
+       ["Field Filter..."
 	View-process-filter-output-by-current-field (looking-at "[^ ]")]
-       ["Exclude Field Filter..." 
+       ["Exclude Field Filter..."
 	(progn (setq current-prefix-arg '(-1))
-	       (call-interactively 
+	       (call-interactively
 		'View-process-filter-output-by-current-field))
 	:keys "C-u -1 F"
-	:active (looking-at "[^ ]")]	    
+	:active (looking-at "[^ ]")]
        ["Line Filter..." View-process-filter-output t]
-       ["Exclude Line Filter..." 
+       ["Exclude Line Filter..."
 	(progn (setq current-prefix-arg '(-1))
-	       (call-interactively 
+	       (call-interactively
 		'View-process-filter-output))
 	:keys "C-u -1 G"
-	:active t]	    
+	:active t]
        "----"
        ("Help"
 	["PID and Command" View-process-show-pid-and-command t]
   )
 
 (if (not View-process-non-region-menu)
-    (setq 
+    (setq
      View-process-non-region-menu
      '("PS Non Region Menu"
        ["View Processes" view-processes t]
        ["New PS" View-process-status t]
        ["Update" View-process-status-update t]
        ("Periodic Output"
-	["Start " 
-	 View-process-start-itimer 
-	 :style radio 
+	["Start "
+	 View-process-start-itimer
+	 :style radio
 	 :selected (not (get-itimer View-process-itimer-name))]
-	["Stop" 
-	 View-process-delete-itimer 
-	 :style radio 
+	["Stop"
+	 View-process-delete-itimer
+	 :style radio
 	 :selected (get-itimer View-process-itimer-name)]
 	)
        ("Send Signal"
        "----"
        ["Sort" View-process-sort-output-by-current-field (looking-at "[^ ]")]
        ["Reverse" View-process-reverse-output t]
-       ["Field Filter..." 
-	View-process-filter-output-by-current-field 
+       ["Field Filter..."
+	View-process-filter-output-by-current-field
 	(looking-at "[^ ]")]
-       ["Exclude Field Filter..." 
+       ["Exclude Field Filter..."
 	(progn (setq current-prefix-arg '(-1))
-	       (call-interactively 
+	       (call-interactively
 		'View-process-filter-output-by-current-field))
 	:keys "C-u -1 F"
-	:active (looking-at "[^ ]")]	    
+	:active (looking-at "[^ ]")]
        ["Line Filter..." View-process-filter-output t]
-       ["Exclude Line Filter..." 
+       ["Exclude Line Filter..."
 	(progn (setq current-prefix-arg '(-1))
-	       (call-interactively 
+	       (call-interactively
 		'View-process-filter-output))
 	:keys "C-u -1 G"
-	:active t]	    
+	:active t]
        "----"
        ("Help"
 	["PID and Command" View-process-show-pid-and-command t]
   )
 
 (defun View-process-popup-menu (event)
-  "Pops up a menu for the `View-process-mode'."
+  "Pop up a menu for `View-process-mode'."
   (interactive "e")
   (mouse-set-point event)
   (popup-menu
 	 (t View-process-non-region-menu))))
 
 (defun View-process-install-pulldown-menu ()
-  "Installs a pulldown menu for the `View-process-mode'."
+  "Install a pulldown menu for the `View-process-mode'."
   (if (and (featurep 'menubar)
-	   current-menubar 
+	   current-menubar
 	   (not (assoc View-process-pulldown-menu-name current-menubar)))
       (progn
 	(set-buffer-menubar (copy-sequence current-menubar))
     ))
 
 (defun View-process-install-mode-motion ()
-  "Installs the `mode-motion-hook'."
+  "Install the `mode-motion-hook'."
   (make-local-variable 'mode-motion-hook)
   (setq mode-motion-hook 'View-process-mode-motion-highlight-line))
 
 ;;; timer functions
 
 (defun View-process-start-itimer ()
-  "Starts or restarts the itimer for updating the process output."
+  "Start or restart the itimer for updating the process output."
   (interactive)
   (if (get-itimer View-process-itimer-name)
-      (progn 
-	(set-itimer-value (get-itimer View-process-itimer-name) 
+      (progn
+	(set-itimer-value (get-itimer View-process-itimer-name)
 			  View-process-itimer-value)
 	(set-itimer-restart (get-itimer View-process-itimer-name)
 			    View-process-itimer-value))
 ;;; region
 
 (defun View-process-region-active-p ()
-  "Returns t, if a region is active.
+  "Return t, if a region is active.
 If `zmacs-regions' is nil, then this return always nil."
   (if zmacs-regions
       (mark)))
 ;;; Misc
 
 (defun View-process-return-current-command-key-as-string ()
-  "Returns the key, which invokes the current command as string."
+  "Return the key, which invokes the current command as string."
   (events-to-keys (this-command-keys)))
 
 (defun View-process-redraw ()
-  "Dummy function. It does nothing in XEmacs."
+  "Dummy function.  It does nothing in XEmacs."
   )
 
 
 ;;; font-lock and colors
 
 (defun View-process-install-font-lock ()
-  "Installs the `font-lock-mode', if `View-process-use-font-lock' is t."
+  "Install `font-lock-mode', if `View-process-use-font-lock' is t."
   (if View-process-use-font-lock
       (font-lock-mode 1)))
 
     (defalias 'valid-color-name-p 'x-valid-color-name-p))
 
 (defun View-process-search-color-in-color-list (color-list)
-  "Searches a valid color in the COLOR-LIST."
+  "Search a valid color in the COLOR-LIST."
   (cond ((not color-list) nil)
 	((listp color-list)
 	 (if (valid-color-name-p (car color-list))
 	   (View-process-search-color-in-color-list (cdr color-list))))))
 
 (defun View-process-search-color (color)
-  "It returns a color, which could be displayed by the window manager.
+  "Return a color, which can be displayed by the window manager.
 COLOR is either a string with a color or a list with possible
 colors."
   (cond ((not color) nil)
 	 (View-process-search-color-in-color-list color))
 	(t nil)))
   
-;;; missing function window-pixel-edges in XEmacs < 19.12
-;;; Attention: This emulation is only valid, to test if a value 
-;;; is 0 or not.
+;; missing function window-pixel-edges in XEmacs < 19.12
+;; Attention: This emulation is only valid, to test if a value
+;; is 0 or not.
 (if (not (fboundp 'window-pixel-edges))
     (defalias 'window-pixel-edges 'window-edges))
 
 
-;;; Modeline 
+;;; Modeline
 
 (if (fboundp 'set-specifier)
 
 (defun view-process-switch-buffer-modeline (modeline-on)
-  "Switches the current modeline on, if MODELINE-ON is t.
+  "Switch the current modeline on, if MODELINE-ON is t.
 Otherwise the modeline is switched off."
   (set-specifier has-modeline-p (cons (current-buffer) modeline-on)))
 
 
 (defun view-process-switch-buffer-modeline (modeline-on)
-  "Dummy function. 
+  "Dummy function.
 Sorry, the modeline can't be switched off in this emacs version.
 You have to update at least to XEmacs 19.12."
   )
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.