diff options
| author | Chong Yidong <[email protected]> | 2011-04-06 17:55:08 -0400 |
|---|---|---|
| committer | Chong Yidong <[email protected]> | 2011-04-06 17:55:08 -0400 |
| commit | e67a13abd8584d05dbac22496adb3cfb9256d8d8 (patch) | |
| tree | 01df0d85bb9f5ad9b68922280104b426fc80ddc5 /lisp/emacs-lisp/cconv.el | |
| parent | 7d668f2c1873456ec81ae9a481189fd318b3b5d2 (diff) | |
Remove list-processes C function; misc fixes to last change.
* src/process.c (Flist_processes): Removed to Lisp.
(list_processes_1): Deleted.
* lisp/emacs-lisp/cconv.el (cconv--analyse-use): Ignore "ignored" when
issuing unused warnings.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-print): Use lambda
macro directly.
Diffstat (limited to 'lisp/emacs-lisp/cconv.el')
| -rw-r--r-- | lisp/emacs-lisp/cconv.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cconv.el b/lisp/emacs-lisp/cconv.el index 5cc9ecb4cf..38584c437b 100644 --- a/lisp/emacs-lisp/cconv.el +++ b/lisp/emacs-lisp/cconv.el @@ -536,7 +536,9 @@ FORM is the parent form that binds this var." ;; it is often non-trivial for the programmer to avoid such ;; unused vars. (not (intern-soft var)) - (eq ?_ (aref (symbol-name var) 0))) + (eq ?_ (aref (symbol-name var) 0)) + ;; As a special exception, ignore "ignore". + (eq var 'ignored)) (byte-compile-log-warning (format "Unused lexical %s `%S'" varkind var)))) ;; If it's unused, there's no point converting it into a cons-cell, even if |