|
From: | August Karlstrom |
Subject: | Re: Finding Unused Identifiers |
Date: | Sun, 05 Mar 2006 03:15:38 GMT |
User-agent: | Mozilla Thunderbird 1.0.7 (X11/20051013) |
August Karlstrom wrote:
(defun my-elisp-list-unused-globals () "Display the list returned by `my-elisp-unused-globals'. Output is written to a separate buffer." (interactive) (let ((unused-globals (my-elisp-unused-globals)) (buffer nil)) (setq buffer (get-buffer-create "*Elisp Unused Globals*")) (when (= (count-windows) 1) (split-window)) (other-window 1) (switch-to-buffer buffer) (erase-buffer) (if (null unused-globals) (insert "No unused global identifiers found.") (insert "Found unused global identifier(s):\n\n") (mapc '(lambda (x) (insert x) (newline)) unused-globals) (switch-to-buffer buffer))))
The last line is (of course) incorrect. Should be (defun my-elisp-list-unused-globals () (interactive) (let ((unused-globals (my-elisp-unused-globals)) (buffer nil)) (setq buffer (get-buffer-create "*Elisp Unused Globals*")) (when (= (count-windows) 1) (split-window)) (other-window 1) (switch-to-buffer buffer) (erase-buffer) (if (null unused-globals) (insert "No unused global identifiers found.") (insert "Found unused global identifier(s):\n\n") (mapc '(lambda (x) (insert x) (newline)) unused-globals)) (other-window -1))) August -- I am the "ILOVEGNU" signature virus. Just copy me to your signature. This email was infected under the terms of the GNU General Public License.
[Prev in Thread] | Current Thread | [Next in Thread] |