desktop.el (desktop-buffer-info): Use `pushnew'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d810ee8ce59f3c0de08e547310a6b0ec63d90793..ef010d46093393a33b71eba0d001f7259ad98095 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,8 @@
 2015-03-05  Artur Malabarba  <bruce.connor.am@gmail.com>
 
        * desktop.el (desktop-buffer-info): Write docstring.
+       (desktop-buffer-info): Use `pushnew' instead of `add-to-list' and
+       unquote lamda.
 
        * emacs-lisp/package.el (package-refresh-contents): Update doc.
 

diff --git a/lisp/desktop.el b/lisp/desktop.el
index 8d151a74698908e445be9afd5c687f2e3f26f191..3eca5a6a7749d9342974288ec77b7e507fff3830 100644 (file)
--- a/lisp/desktop.el
+++ b/lisp/desktop.el
@@ -784,16 +784,13 @@ buffer, which is (in order):
    major-mode
    ;; minor modes
    (let (ret)
-     (mapc
-      #'(lambda (minor-mode)
-         (and (boundp minor-mode)
-              (symbol-value minor-mode)
-              (let* ((special (assq minor-mode desktop-minor-mode-table))
-                     (value (cond (special (cadr special))
-                                  ((functionp minor-mode) minor-mode))))
-                (when value (add-to-list 'ret value)))))
-      (mapcar #'car minor-mode-alist))
-     ret)
+     (dolist (minor-mode (mapcar #'car minor-mode-alist) ret)
+       (and (boundp minor-mode)
+            (symbol-value minor-mode)
+            (let* ((special (assq minor-mode desktop-minor-mode-table))
+                   (value (cond (special (cadr special))
+                                ((functionp minor-mode) minor-mode))))
+              (when value (cl-pushnew value ret))))))
    ;; point and mark, and read-only status
    (point)
    (list (mark t) mark-active)