[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp proced.el
From: |
Roland Winkler |
Subject: |
[Emacs-diffs] emacs/lisp proced.el |
Date: |
Mon, 20 Apr 2009 20:41:37 +0000 |
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 ()
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp proced.el,
Roland Winkler <=