From 61e06b6cb23a719ad77ab3924beb3a0c21e9c2e9 Mon Sep 17 00:00:00 2001 From: Artur Malabarba Date: Thu, 5 Mar 2015 13:43:27 +0000 Subject: desktop.el (desktop-buffer-info): Use `pushnew'. --- lisp/desktop.el | 17 +++++++---------- 1 file changed, 7 insertions(+), 10 deletions(-) (limited to 'lisp/desktop.el') diff --git a/lisp/desktop.el b/lisp/desktop.el index 8d151a74698..3eca5a6a774 100644 --- 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) -- cgit v1.2.1