[Emacs-diffs] emacs/lisp proced.el

[Roland Winkler]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Roland Winkler <winkler>        09/04/20 20:41:37

Modified files:
        lisp           : proced.el 

Log message:
        (proced-sort): Declare it buffer-local.
        (proced-send-signal): Handle non-nil signals.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/proced.el?cvsroot=emacs&r1=1.35&r2=1.36

Patches:
Index: proced.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/proced.el,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -b -r1.35 -r1.36
--- proced.el   23 Feb 2009 05:06:40 -0000      1.35
+++ proced.el   20 Apr 2009 20:41:37 -0000      1.36
@@ -317,7 +317,7 @@
   :group 'proced
   :type '(choice (symbol :tag "Sort Scheme")
                  (repeat :tag "Key List" (symbol :tag "Key"))))
-(make-variable-buffer-local 'proced-format)
+(make-variable-buffer-local 'proced-sort)
 
 (defcustom proced-descend t
   "Non-nil if proced listing is sorted in descending order."
@@ -1737,7 +1737,7 @@
                                          proced-signal-list
                                          nil nil nil nil "TERM")))
               (setq signal (if (string-match "^\\(\\S-+\\)\\s-" tmp)
-                               (match-string 1 tmp) tmp))))))
+                               (match-string 1 tmp) tmp)))))))
       ;; send signal
       (let ((count 0)
             failures)
@@ -1789,7 +1789,7 @@
                      (if (= 1 (length process-alist)) "" "s")))
           (proced-success-message "Sent signal to" count)))
       ;; final clean-up
-      (run-hooks 'proced-after-send-signal-hook))))
+    (run-hooks 'proced-after-send-signal-hook)))
 
 ;; similar to `dired-why'
 (defun proced-why ()