Commits

Anonymous committed 83e014f

Added Charles G Waldman's patch from
<14554.40131.876145.414930@buffalo.fnal.gov>
with subject "fixes for view-process-mode".

Comments (0)

Files changed (4)

+2000-03-23  Charles G Waldman <cgw@alum.mit.edu>
+
+        * view-process-mode.el:  (doc-strings) correct spelling and
+	grammar
+	(View-process-mark-childs) rename to
+	View-process-mark-children
+	(View-process-mark-childs-in-current-line) rename to
+	View-process-mark-children-in-current-line
+	(View-process-highlight-recursive-all-childs) rename
+	to View-process-highlight-recursive-all-children (although
+	this function is commented out)
+
+	* view-process-xemacs.el (View-process-region-menu)
+	rename "Mark Childs" to "Mark Children", fix spelling of "exclude"
+	(View-process-marked-menu)  Ditto
+	(View-process-non-region-menu) Ditto
+
+	*view-process-system-specific.el (doc-strings) correct
+	spelling and grammar
+	(View-process-field-name-descriptions-linux) Add descriptions
+	for "RN", "R<", "S<", "SN".  Correct spelling of "privileged".
+	Reword akward description ot "STACKP".
+
 1998-01-24  SL Baur  <steve@altair.xemacs.org>
 
 	* Makefile (VERSION): Update to package standard 1.0.

view-process-mode.el

 
 ;;; Commentary:
 
-;; DollarId: view-process-mode.el,v 1.113 1996/08/17 15:12:01 muenkel Exp $
+;; $Id$
 ;;	This file defines the the view-process-mode, a mode for displaying
 ;;	the current processes with ps on UNIX systems. There are also
 ;;	commands to sort and filter the output and to send signals to the
 ;;	processes.
 
 ;;     You can display the processes with the command `view-processes'.
-;;	If you are familar with the UNIX ps command and its switches,
+;;	If you are familiar with the UNIX ps command and its switches,
 ;;	then you can also use the command `View-process-status' or
-;;	it's short cut `ps', which are asking for the command
+;;	its short cut `ps', which are asking for the command
 ;;	switches.  You can also run the commands on a remote system
 ;;	via rsh. For that you must give a prefix arg to the
 ;;	commands. This leads to a question for the remote host name.
 (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
-prodices header lines with strings, that are not in this list.") 
+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"
   "*Background color 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.")
+  "*t if the header line should be underlined.")
 
 (defvar View-process-no-mark ?_
-  "*A character with specifies, that a line isn't marked.")
+  "*A character which specifies that a line isn't marked.")
 
 (defvar View-process-signaled-line-background nil
   "*Background color of the line with a signaled or reniced process.")
   "*Font of the line with a signaled or reniced process.")
 
 (defvar View-process-signaled-line-underline-p nil
-  "*T, if the \"signaled line\" should be underlined.")
+  "*t if the \"signaled line\" should be underlined.")
 
 (defvar View-process-signaled-line-mark ?s
   "*A character, which is used as a mark for \"signaled lines\".")
   "*Font of the line with the process which should be signaled.")
 
 (defvar View-process-signal-line-underline-p nil
-  "*T, if the \"signal line\" should be underlined.")
+  "*t if the \"signal line\" should be underlined.")
 
 (defvar View-process-signal-line-mark ?K
-  "*A character, which is used as a mark for \"signal lines\".")
+  "*A character which is used as a mark for \"signal lines\".")
 
 (defvar View-process-renice-line-background nil
   "*Background color of the line with the process which should be reniced.")
   "*Font of the line with the process which should be reniced.")
 
 (defvar View-process-renice-line-underline-p nil
-  "*T, if the \"renice line\" should be underlined.")
+  "*t if the \"renice line\" should be underlined.")
 
 (defvar View-process-renice-line-mark ?N
-  "*A character, which is used as a mark for \"renice lines\".")
+  "*A character which is used as a mark for \"renice lines\".")
 
 (defvar View-process-child-line-background nil
   "*Background color of a line with a child process.")
   "*Font color of a line with a child process.")
 
 (defvar View-process-child-line-underline-p nil
-  "*T, if the \"line with a child process\" should be underlined.")
+  "*t if the \"line with a child process\" should be underlined.")
 
 (defvar View-process-child-line-mark ?C
   "*A character, which is used as a mark for child processes.")
   "*Font  color of a line with a parent process.")
 
 (defvar View-process-parent-line-underline-p t
-  "*T, if the \"line with a parent\" should be underlined.")
+  "*t if the \"line with a parent\" should be underlined.")
 
 (defvar View-process-parent-line-mark ?P
-  "*A character, which is used as a mark for parent processes.")
+  "*A character which is used as a mark for parent processes.")
 
 (defvar View-process-single-line-background nil
   "*Background color of a line with a single line mark.")
   "*Font  color of a line with a single line mark.")
 
 (defvar View-process-single-line-underline-p t
-  "*T, if the \"line with a single line mark\" should be underlined.")
+  "*t if the \"line with a single line mark\" should be underlined.")
 
 (defvar View-process-single-line-mark ?*
-  "*A character, which is used as a single line mark.")
+  "*A character which is used as a single line mark.")
 
 (defvar View-process-font-lock-keywords
   (list
 (make-variable-buffer-local 'View-process-pid-mark-alist)
 
 (defvar View-process-last-pid-mark-alist nil
-  "Internal variable. An alist withthe last marks and pids.")
+  "Internal variable. An alist with the last marks and pids.")
 
 (make-variable-buffer-local 'View-process-last-pid-mark-alist)
 
 (defvar View-process-sorter-and-filter nil
-  "*A list, which specifies sorter and filter commands.
-These commands will be run over the ps output, every time after
-ps has create a new output.
+  "*A list which specifies sorter and filter commands.
+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
 (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)
 
 (defvar View-process-kill-signals nil
   "An alist with the possible signals for the kill command.
 Don't change it by hand!
-The variable is initialised each time after running ps.
+The variable is initialized each time after running ps.
 The variable is buffer local.")
 
 (make-variable-buffer-local 'View-process-kill-signals)
 The string must be also in the alist `View-process-kill-signals'!")
 
 (defvar View-process-pid-field-name "PID"
-  "*The name of the field with the PID's.
-The name must be the same as in the first outputline of the
+  "*The name of the field with the PIDs.
+The name must be the same as in the first output line of the
 command `View-process-status-command' (ps).
 The variable is buffer local.")
 
 (make-variable-buffer-local 'View-process-pid-field-name)
 
 (defvar View-process-ppid-field-name "PPID"
-  "*The name of the field with the PPID's.
-The name must be the same as in the first outputline of the
+  "*The name of the field with the PPIDs.
+The name must be the same as in the first output line of the
 command `View-process-status-command' (ps).
 The variable is buffer local.")
 
            View-process-kill-signals-linux
            ))
   (\"cesar\" (nil nil \"bsd\"))
-The list will be anhanced by the program, each time you run ps on
+The list will be enhanced by the program, each time you run ps on
 a new system. But you can also set this variable by hand in your 
 .emacs. If the host name is found in this list, then the system 
 type will not be checked again." 
 (defvar View-process-field-name-descriptions nil
   "Help list with the descriptions of ps fields.
 Don't change it by hand!
-The variable is initialised each time after running ps.
+The variable is initialized each time after running ps.
 The variable is buffer local.")
 
 (make-variable-buffer-local 'View-process-field-name-descriptions)
     ("WCHAN" "Name of the kernel function where the process is sleeping.")
     )
   "Help list with the descriptions of ps fields.
-This is a general list, which should be true for many systems.
-This list will only be used, if there is no entry in a special 
+This is a general list which should be applicable for many systems.
+This list will only be used if there is no entry in a special 
 list for the system.")
 
 (defvar View-process-insert-blank-alist 
     ("SIZE" behind-predecessor 0)
     ("RSS" behind-predecessor 0)
     ("START" behind 1))
-  "Determines places in the output, where a blank should be inserted.
+  "Determines places in the output where a blank should be inserted.
 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.
       ))
 
 (defvar View-process-digit-bindings-send-signal nil
-  "The digits 1 to 9 will be bind to send signal commands, if t.")
+  "If t, the digit keys 1 to 9 will be bound to send signal commands.")
 
 (defvar View-process-mode-mark-map nil
   "Local subkeymap for View-process-mode buffers.")
   (define-key View-process-mode-mark-map "u" 'View-process-unmark-current-line)
   (define-key View-process-mode-mark-map "U" 'View-process-unmark-all)
   (define-key View-process-mode-mark-map "c" 
-    'View-process-mark-childs-in-current-line)
+    'View-process-mark-children-in-current-line)
   (define-key View-process-mode-mark-map "l" 'View-process-reset-last-marks)
   )
 
 
 (defvar View-process-marked-menu nil
   "Menu list for the `View-process-mode', used if marked lines exists.
-Not used, if a region is active.")
+Not used if a region is active.")
 
 (defvar View-process-non-region-menu nil
   "Menu list for the `View-process-mode', used if a region is not active.")
   (field-position-alist)
   "Replaces the blanks in the fields of this line with underscores.
 FIELD-POSITION-ALIST is an alist with the name and the 
-aproximated start and end positions of each field."
+approximated start and end positions of each field."
   (if (cdr field-position-alist) ; don't change the last field
       (let ((field-start (+ (View-process-return-beginning-of-line)
 			    (car (car field-position-alist))))
 	 (cdr field-position-alist)))))
 
 (defun View-process-replaces-blanks-in-fields ()
-  "Replaces the blanks in fields with underscrores."
+  "Replaces the blanks in fields with underscores."
   (save-excursion
     (save-window-excursion
       (let ((field-position-alist (View-process-make-field-postition-alist))
 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 insertation will only be done, if NOT-LOOKING-AT
+In the second case the insertion will only be done if NOT-LOOKING-AT
 isn't a string starting at the column."
   (save-excursion
     (let ((no-of-lines (count-lines begin end))
   "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.
 The optional argument NOT-LOOKING-AT is nil or a regular expression.
-In the second case the insertation will only be done, if NOT-LOOKING-AT
+In the second case the insertion will only be done if NOT-LOOKING-AT
 isn't a string starting at the column."
   (let ((read-only buffer-read-only))
     (setq buffer-read-only nil)
     (insert "m ")))
 
 (defun View-process-return-position (field-name position-descriptor)
-  "Returns a position deppending on the FIELD-NAME and the POSITION-DESCRIPTOR.
+  "Returns 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."
 	(t)))
 
 (defun View-process-replace-colons-with-blanks ()
-  "Replaces colons with blanks, if a colon is also in the header line.
-This fixes the output of the IRIX ps on SGI's."
+  "Replaces 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)
     (while (search-forward ":" (View-process-return-end-of-line) t)
 
 (defun View-process-mode ()
   "Mode for displaying and killing processes.
-The mode has the following keybindings: 
+The mode has the following key bindings: 
 \\{View-process-mode-map}.
 
-The first column of each outputline will be used to display marked lines.
+The first column of each output line will be used to display marked lines.
 The following mark signs are possible (one can change them by changing
 the variables in the second column of the following table):
 
       (forward-word 1))))
 
 (defun View-process-field-name-exists-p (field-name)
-  "Returns non nil, if the field FIELD_NAME exists."
+  "Returns 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)
 		  View-process-host-names-and-system-types))))
 
 (defun View-process-bsd-or-system-v (&optional remote-host)
-  "This function determines, if the system is a BSD or a System V.
+  "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 
 be tested."
 	"bsd")))
 
 (defun View-process-program-exists-p (program &optional remote-host)
-  "Returns t, if the PROGRAM exists.
+  "Returns t if the PROGRAM exists.
 If REMOTE_HOST is non nil, then the program will be searched remote
 on that host."
   (if remote-host
 
 (defun View-process-search-system-type-in-system-list (system-type system-list)
   "Searches the SYSTEM-TYPE in SYSTEM-LIST.
-It returns the entry or nil, if the SYSTEM-TYPE isn't in the 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 
 list, then nil is returned."
 
 (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'
+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 
 like the following: (<system-type> <version-no> <bsd-or-system-v>).
-The elements <system-type> and <version-no> are set to nil, if the 
+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 
 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
   "Returns 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
+    (if (not system-type)  ; t if the host isn't in the list
 	(progn
 	  (if (View-process-program-exists-p View-process-uname-command)
 	      (save-excursion
 		  (setq system-type 
 			(list system-type (downcase (current-word))))
 		  (kill-buffer buffer)
-		  ;; determine, if the system is in the
+		  ;; determine if the system is in the
 		  ;; View-process-specific-system-list and if it is 
 		  ;; a BSD or a System V system;
 		  ;; The system type will be set to nil, 
   "Returns 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
+    (if system-type  ; nil if the host isn't in the list
 	system-type
       (if (View-process-program-exists-p View-process-uname-command
 					 View-process-remote-host)
 	      (setq system-type 
 		    (list system-type (downcase (current-word))))
 	      (kill-buffer buffer)
-	      ;; determine, if the system is in the
+	      ;; determine if the system is in the
 	      ;; View-process-specific-system-list and if it is 
 	      ;; a BSD or a System V system;
 	      ;; The system type will be set to nil, 
 
 (defun View-process-get-field-name-description-list (system-type)
   "Returns a field name description list for the SYSTEM-TYPE.
-It returns nil, if no system specific list exists."
+It returns nil if no system specific list exists."
   (if (= 3 (length system-type))
       (if (string= "bsd" (nth 2 system-type))
 	  (if View-process-field-name-descriptions-bsd
 					use-last-sorter-and-filter)
   "Insert the title lines in the output lines.
 REMOTE-HOST is nil or the name of the host on which the 
-ps command was executed. USE-LAST-SORTER-AND-FILTER determines, if
+ps command was executed. USE-LAST-SORTER-AND-FILTER determines if
 the last sorter and filter (from `View-process-actual-sorter-and-filter')
 are used."
   (insert (or remote-host (system-name) "") 
 	       -1
 	     0))))
 
-(defun View-process-search-header-line-1 (header-dectection-list
+(defun View-process-search-header-line-1 (header-detection-list
 					  no-error-message)
-  "Internal funtion of `View-process-search-header-line'."
-  (cond (header-dectection-list
+  "Internal function of `View-process-search-header-line'."
+  (cond (header-detection-list
 	 (goto-char View-process-header-start)
-	 (if (search-forward (car header-dectection-list) nil t)
+	 (if (search-forward (car header-detection-list) nil t)
 	     (setq View-process-header-start 
 		   (View-process-return-beginning-of-line))
-	   (View-process-search-header-line-1 (cdr header-dectection-list)
+	   (View-process-search-header-line-1 (cdr header-detection-list)
 					      no-error-message)))
 	(t (setq mode-motion-hook nil) ; otherwise emacs hangs
 	   (if no-error-message
 	     
 
 (defun View-process-search-header-line (&optional no-error-message)
-  "Function searches the headerline and sets `View-process-header-start'.
+  "Function searches the header line and sets `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-goto-position (position)
   "Sets the point to the POSITION.
-POSITION is a cons cell with a linenumber and a column."
+POSITION is a cons cell with a line number and a column."
   (if position
       (save-restriction
 	(widen)
 		  (View-process-get-field-name-description field-name)))))))
 
 (defun View-process-get-field-name-description (field-name)
-  "Returns a string with a desciption of the ps output field FIELD-NAME."
+  "Returns 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)))
 
 (defun View-process-current-field-number ()
   "Returns the field number of the point. 
-The functions fails with an error message, if the character under
+The functions fails with an error message if the character under
 the point is a blank."
   (View-process-replaces-blanks-in-fields-if-necessary)
   (save-excursion
   "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
-not the filter are deleted in the buffer, if EXCLUDE is nil.
+not the filter are deleted in the buffer if EXCLUDE is nil.
 Otherwise only these lines are not deleted."
   (save-restriction
     (widen)
 					    &optional exclude
 					    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
+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.
 If DONT-REMEMBER is t, then the filter command isn't inserted 
 in the `View-process-actual-sorter-and-filter' list."
 						    &optional exclude
 						    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
+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.
 If DONT-REMEMBER is t, then the filter command isn't inserted 
 in the `View-process-actual-sorter-and-filter' list."
 
 (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
+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."
 ;  (interactive "sRegexp for filtering the region in the current field: \nP")
   (interactive 
 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
 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
+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."
   (interactive "P")
   (setq prefix-arg current-prefix-arg)
 
 (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
+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.
 If DONT-REMEMBER is t, then the filter command isn't inserted 
 in the `View-process-actual-sorter-and-filter' list."
 
 (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
+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."
 ;  (interactive "sRegexp for filtering the region: \nP")
   (interactive 
 It is a generic interface to `View-process-filter-region'
 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
+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."
   (interactive "P")
   (setq prefix-arg current-prefix-arg)
 		 )))))
 
 (defun View-process-get-child-process-list (pid pid-ppid-alist)
-  "Returns a list with all direct childs of the processes with the PID.
-The list PID-PPID-ALIST is an alist with the pid's as car's 
-and ppid's as cdr's.
+  "Returns a list with all direct children of the processes with the PID.
+The list PID-PPID-ALIST is an alist with the PIDs as cars 
+and PPIDs as cdrs.
 Example list: (\"0\" \"10\" \"20\")
-With \"0\" eq PID as the parent of the direct childs \"10\" and \"20\"."
+With \"0\" eq PID as the parent of the direct children \"10\" and \"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 childs and subchilds of the processes with the PID.
+  "Returns a list with all children and subchildren of the processes with the PID.
 Example list:  (\"0\" (\"10\") (\"20\" (\"30\" \"40\")))
-With \"0\" eq PID as the parent of the direct childs \"10\" and \"20\" 
-and with \"20\" as the parent of the direct childs \"30\" and \"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\"."
   (cons pid 
 	(mapcar 'View-process-get-child-process-tree
 		(cdr (View-process-get-child-process-list 
 ;	 (View-process-highlight-process-tree (cdr process-tree)))
 ;	(t (error "Bug in 'View-process-highlight-process-tree' !"))))
 
-;(defun View-process-highlight-recursive-all-childs (pid)
-;  "Highlights all childs of the process with the PID."
+;(defun View-process-highlight-recursive-all-children (pid)
+;  "Highlights all children of the process with the PID."
 ;  (interactive "sParent PID: ")
 ;  (if (not
 ;       (View-process-field-name-exists-p View-process-ppid-field-name))
 ;    (View-process-highlight-process-tree
 ;     (cdr (View-process-get-child-process-tree pid)))))
 
-;(defun View-process-highlight-recursive-all-childs-in-line ()
+;(defun View-process-highlight-recursive-all-children-in-line ()
 ;  "Highlights all the child processes of the process in the current line."
 ;  (interactive)
-;  (View-process-highlight-recursive-all-childs
+;  (View-process-highlight-recursive-all-children
 ;   (View-process-get-pid-from-current-line)))
 
 ;;; kill processes
 	(if (View-process-region-active-p)
 	    (View-process-send-signal-to-processes-in-region signal)
 	  (View-process-send-signal-to-process-in-line signal))
-      (error "ERROR: This command must be bind to and call by an integer!")
+      (error "ERROR: This command must be bound to and called by a number key!")
       )))
 
 (defun View-process-send-signal-to-processes-g ()
       (if (or dont-ask
 	      (if (string= signal-number signal)
 		  (y-or-n-p (format 
-			     "Do you realy 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 realy 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))))
   (View-process-mark-line-with-pid pid View-process-renice-line-mark)
   (if (or dont-ask
 	  (y-or-n-p (format 
-		     "Do you realy want to renice PID %s with %s "
+		     "Do you really want to renice PID %s with %s "
 		     pid
 		     nice-value)))
       (progn
   )
 
 (defun View-process-get-pid-list-from-region (begin end)
-  "Returns a list with all PID's in the region from BEGIN to END."
+  "Returns 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 PID's ant its PPID's in the region 
+  "Returns 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)
 
 (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."
+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 " ")
 
 (defun View-process-goto-line-with-pid (pid)
   "Sets the point in the line with the PID.
-It returns nil, if there is no line with the PID in the output."
+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
     (goto-char View-process-output-start)
 
 (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."
+It uses the 'View-process-single-line-mark' if mark is nil."
 ;  (interactive "sPID: ")
   (interactive (let ((View-process-stop-motion-help t))
 		 (list (read-string "PID: "))))
 	 (View-process-mark-process-tree (cdr process-tree)))
 	(t (error "Bug in 'View-process-mark-process-tree' !"))))
 
-(defun View-process-mark-childs (pid)
-  "Marks all childs of the process with the PID."
+(defun View-process-mark-children (pid)
+  "Marks all children of the process with the PID."
 ;  (interactive "sParent PID: ")
   (interactive (let ((View-process-stop-motion-help t))
 		 (list (read-string "Parent PID: "))))
     (View-process-mark-process-tree
      (cdr (View-process-get-child-process-tree pid)))))
 
-(defun View-process-mark-childs-in-current-line ()
+(defun View-process-mark-children-in-current-line ()
   "Marks all the child processes of the process in the current line."
   (interactive)
-  (View-process-mark-childs
+  (View-process-mark-children
    (View-process-get-pid-from-current-line)))
 
 (defun View-process-call-function-on-pid-and-mark-list (function
   )
 
 (defun View-process-top-window-p (&optional window)
-  "Returns t, if the WINDOW is the top one.
+  "Returns 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-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 
+With ARG, set `View-process-display-with-2-windows' to t if ARG is 
 positive. ARG is a prefix arg."
   (interactive "P")
   (if arg
     ))
 
 (defun View-process-hide-header (hide-header)
-  "Hides the header lines in the view processes buffer, if HIDE-HEADER is t."
+  "Hides the header lines in the view processes buffer if HIDE-HEADER is t."
   (if hide-header
       (if (<= View-process-output-start (point-max))
 	  (narrow-to-region View-process-output-start (point-max))
 
 (defun View-process-toggle-hide-header (&optional arg)
   "Change whether the header are hided.
-With ARG, set `View-process-hide-header' to t, if ARG is positive.
+With ARG, set `View-process-hide-header' to t if ARG is positive.
 ARG is a prefix arg."
   (interactive "P")
   (if arg
 
 (defun View-process-toggle-truncate-lines (&optional arg)
   "Change whether the lines in this buffer are truncated.
-With ARG, set `truncate-lines' to t, if ARG is positive.
+With ARG, set `truncate-lines' to t if ARG is positive.
 ARG is a prefix arg.
 It saves also the state of `truncate-lines' for the next
 view process command in `View-process-truncate-lines'.
 			View-process-header-line-underline-p))
 
 (defun View-process-highlight-header-line ()
-  "Highlights the headerline with the face `View-process-header-line-face'."
+  "Highlights 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

 ;;; Commentary:
 
 ;;	This file contains system specific stuff for the
-;;	view-process-mode. It isn't necessary, that each systems has
-;;	an entry in this file, because there are default values, which
-;;	are used, if no entry exists.
+;;	view-process-mode. It isn't necessary that each systems has
+;;	an entry in this file, because there are default values which
+;;	are used if no entry exists.
 
 ;; Installation: 
 ;;   
-;;	Put this file in one of you lisp load path directories.
+;;	Put this file in one of your lisp load path directories.
 ;;
 
 ;;; Code:
      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 
-string is the mayor version number or nil. The third one determines, 
-if the ps command is BSD or System V like. The mayor version is only 
-necessary, if there are BSD and System V versions with the same system 
-names (SUN has done such a stupid system naming.), otherwise it is nil.
+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 
+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 
 kill signals.")
     ("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've 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
     ("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've 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
     ("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've 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
     ("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've 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
 ;    ("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've 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-hpux
     ("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've 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
     ("%MEM" "Percentage of real memory, derived from RSS.")
     ("STAT" ("State: "
 	     ("R" "'R'=runnable. ")
-	     ("S" "'S'=sleeping. ")
+	     ("RN" "'R'=runnable. 'N'=Nice > 0 (lower priority). ")
+	     ("R<" "'R'=runnable. '<'=Nice < 0 (super privileged task). ")
+ 	     ("S" "'S'=sleeping. ")
 	     ("D" "'D'=un-interruptible wait (eg disk or NFS I/O). ")
 	     ("T" "'T'=stopped or traced. ")
 	     ("Z" "'Z'=zombie (terminated). ")
 	     ("W" "'W'=no resident pages. ")
 	     ("SW" "'S'=sleeping. 'W'=no resident pages. ")
-	     ("SW<" "'S'=sleeping. 'W'=no resident pages. '<'=Nice < 0 (super priveledged task) ")
+	     ("SW<" "'S'=sleeping. 'W'=no resident pages. '<'=Nice < 0 (super privileged task) ")
+	     ("S<" "'S'=sleeping. '<'=Nice < 0 (super privileged task). ")
+	     ("SN" "'S'=sleeping. 'N'=Nice > 0 (lower priority). ")
 	     ("N" "'N'=Nice > 0 (lower priority) ")
-	     ("<" "'<'=Nice < 0 (super priveledged task) ")
+	     ("<" "'<'=Nice < 0 (super privileged task) ")
 	     (">" "'>'=exceeded soft limit. ")))
     ("START" "Starting time.") ("FLAGS" "Process flags <linux/sched.h>.")
     ("MINFL" "Minor page faults.") ("MAJFL" "Major page faults.")
     ("TMOUT" "Timeout.") ("ALARM" "Alarm.")
     ("S_CODE" "Address of start of code segment.")
     ("E_CODE" "Address of end of code segment.")
-    ("STACKP" "Address of the process's stack bottom.")
+    ("STACKP" "Address of the stack bottom of the process.")
     ("ESP" "Stack pointer.") ("EIP" "Stack pointer.")
     ("WCHAN" "Wait channel in which process is sleeping. ")
     ("BLOCKED" "Blocked signals mask.")
     )
   "Help list with the descriptions of ps fields for System V.")
 
-;; for specifc systems
+;; for specific systems
 
 (defvar View-process-field-name-descriptions-sunos4
   '(

view-process-xemacs.el

 
 ;; Copyright (C) 1995, 1996 Heiko Muenkel
 
-;; AUthor: Heiko Muenkel
+;; Author: Heiko Muenkel
 ;; Keywords: processes
 
 ;; This file is part of XEmacs.
 
 ;;; Commentary:
 
-;;	This file contains lisp code, which works only in the XEmacs.
+;;	This file contains lisp code which works only in the XEmacs.
 
 ;; Installation: 
 
 ;;; variables
 
 (defvar View-process-itimer-name "view-process"
-  "Name of the view process itimer.")
+  "Name of the view-process itimer.")
 
 
 ;;; special keybindings
 	)
        ("Mark"
 	["Mark" View-process-mark-current-line nil]
-	["Mark Childs" View-process-mark-childs-in-current-line nil]
+	["Mark Children" View-process-mark-children-in-current-line nil]
 	["Remark Last Marks" View-process-reset-last-marks nil]
 	"----"
 	["Unmark" View-process-unmark-current-line nil]
        ["Field Filter..." 
 	View-process-filter-region-by-current-field 
 	(looking-at "[^ ]")]
-       ["Exlude Field Filter..." 
+       ["Exclude Field Filter..." 
 	(progn (setq current-prefix-arg '(-1))
 	       (call-interactively 
 		'View-process-filter-region-by-current-field))
 	)
        ("Mark"
 	["Mark" View-process-mark-current-line t]
-	["Mark Childs" View-process-mark-childs-in-current-line t]
+	["Mark Children" View-process-mark-children-in-current-line t]
 	["Remark Last Marks" View-process-reset-last-marks t]
 	"----"
 	["Unmark" View-process-unmark-current-line t]
        ["Reverse" View-process-reverse-output t]
        ["Field Filter..." 
 	View-process-filter-output-by-current-field (looking-at "[^ ]")]
-       ["Exlude Field Filter..." 
+       ["Exclude Field Filter..." 
 	(progn (setq current-prefix-arg '(-1))
 	       (call-interactively 
 		'View-process-filter-output-by-current-field))
 	)
        ("Mark"
 	["Mark" View-process-mark-current-line t]
-	["Mark Childs" View-process-mark-childs-in-current-line t]
+	["Mark Children" View-process-mark-children-in-current-line t]
 	["Remark Last Marks" View-process-reset-last-marks t]
 	"----"
 	["Unmark" View-process-unmark-current-line nil]
        ["Field Filter..." 
 	View-process-filter-output-by-current-field 
 	(looking-at "[^ ]")]
-       ["Exlude Field Filter..." 
+       ["Exclude Field Filter..." 
 	(progn (setq current-prefix-arg '(-1))
 	       (call-interactively 
 		'View-process-filter-output-by-current-field))
   (events-to-keys (this-command-keys)))
 
 (defun View-process-redraw ()
-  "Dummy function. It does nothing in the XEmacs."
+  "Dummy function. It does nothing in XEmacs."
   )
 
 
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.