procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove list-processes C function; misc fixes to last change.

Browse source 
* 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.
This commit is contained in:
Chong Yidong 2011-04-06 17:55:08 -04:00
parent 7d668f2c18
commit e67a13abd8
5 changed files with 19 additions and 245 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/cconv.el
View file

@ -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

10
lisp/emacs-lisp/tabulated-list.el
View file

@ -229,11 +229,11 @@ to the entry with the same ID element as the current line."
(setq sorter (nth 2 (aref tabulated-list-format n)))
(when (eq sorter t)
(setq sorter ; Default sorter checks column N:
`(lambda (A B)
(setq A (aref (cadr A) ,n))
(setq B (aref (cadr B) ,n))
(string< (if (stringp A) A (car A))
(if (stringp B) B (car B))))))
(lambda (A B)
(setq A (aref (cadr A) n))
(setq B (aref (cadr B) n))
(string< (if (stringp A) A (car A))
(if (stringp B) B (car B))))))
(setq entries (sort entries sorter))
(if (cdr tabulated-list-sort-key)
(setq entries (nreverse entries)))