[Emacs-diffs] Changes to emacs/lisp/proced.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       08/11/19 08:08:28

Index: proced.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/proced.el,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -b -r1.21 -r1.22
--- proced.el   20 Sep 2008 03:01:50 -0000      1.21
+++ proced.el   19 Nov 2008 08:08:28 -0000      1.22
@@ -583,7 +583,7 @@
 If invoked with optional ARG the window displaying the process
 information will be displayed but not selected.
 
-See `proced-mode' for a descreption of features available in Proced buffers."
+See `proced-mode' for a description of features available in Proced buffers."
   (interactive "P")
   (let ((buffer (get-buffer-create "*Proced*")) new)
     (set-buffer buffer)
@@ -1074,7 +1074,7 @@
 ;;; Formating
 
 (defun proced-format-time (time)
-  "Format time intervall TIME."
+  "Format time interval TIME."
   (let* ((ftime (float-time time))
          (days (truncate ftime 86400))
          (ftime (mod ftime 86400))
@@ -1233,6 +1233,8 @@
 (defun proced-process-attributes ()
   "Return alist of attributes for each system process.
 This alist can be customized via `proced-custom-attributes'."
+  (let ((procs (list-system-processes)))
+    (if procs
   (mapcar (lambda (pid)
             (let* ((attributes (system-process-attributes pid))
                    (utime (cdr (assq 'utime attributes)))
@@ -1251,7 +1253,8 @@
                 (if (setq attr (funcall fun attributes))
                     (push attr attributes)))
               (cons pid attributes)))
-          (list-system-processes)))
+                procs)
+      (error "Proced is not available on this system"))))
 
 (defun proced-update (&optional revert quiet)
   "Update the `proced' process information.  Preserves point and marks.