Re: Finding Unused Identifiers

[August Karlstrom]

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.