changeset 33770:4408efb1d628

(recentf-menu-items-for-commands) (recentf-make-menu-items, recentf-make-menu-item) (recentf-filter-changer): Added :help and :active menu-item properties. (recentf-build-dir-rules, recentf-dump-variable) (recentf-edit-list, recentf-open-files-item) (recentf-open-files): Replaced unnecessary `mapcar' with new built-in `mapc'.
author Gerd Moellmann <gerd@gnu.org>
date Wed, 22 Nov 2000 17:05:02 +0000
parents 7596dea75d6b
children 1681bda84ed2
files lisp/recentf.el
diffstat 1 files changed, 60 insertions(+), 42 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/recentf.el	Wed Nov 22 16:46:52 2000 +0000
+++ b/lisp/recentf.el	Wed Nov 22 17:05:02 2000 +0000
@@ -321,10 +321,23 @@
     l))
 
 (defvar recentf-menu-items-for-commands
-  (list ["Cleanup list" recentf-cleanup t]
-        ["Edit list..." recentf-edit-list t]
-        ["Save list now" recentf-save-list t]
-        (vector "Recentf Options..." '(customize-group "recentf") t))
+  (list ["Cleanup list"
+         recentf-cleanup
+         :help "Remove all non-readable and excluded files from the recent list"
+         :active t]
+        ["Edit list..."
+         recentf-edit-list
+         :help "Edit the files that are kept in the recent list"
+         :active t]
+        ["Save list now"
+         recentf-save-list
+         :help "Save the list of recently opened files now"
+         :active t]
+        ["Options..."
+         (customize-group "recentf")
+         :help "Customize recently opened files menu and options"
+         :active t]
+        )
   "List of menu items for recentf commands.")
 
 (defvar recentf-menu-filter-commands nil
@@ -342,9 +355,13 @@
                  (recentf-apply-menu-filter
                   recentf-menu-filter
                   (recentf-menu-elements recentf-max-menu-items)))))
-    (append (or file-items (list ["No files" t nil]))
+    (append (or file-items (list ["No files" t
+                                  :help "No recent file to open"
+                                  :active nil]))
             (and (< recentf-max-menu-items (length recentf-list))
-                 (list ["More..." recentf-open-more-files t]))
+                 (list ["More..." recentf-open-more-files
+                        :help "Open files that are not in the menu"
+                        :active t]))
             (and recentf-menu-filter-commands
                  (cons "---"
                        recentf-menu-filter-commands))
@@ -360,7 +377,8 @@
         (cons menu-item (mapcar 'recentf-make-menu-item menu-value))
       (vector menu-item
               (list recentf-menu-action menu-value)
-              t))))
+              :help (concat "Open " menu-value)
+              :active t))))
 
 ;;;;
 ;;;; Predefined menu filter functions
@@ -653,13 +671,13 @@
 (defun recentf-build-dir-rules (l)
   "Convert directories in menu-elements L to rules in `recentf-arrange-rules' format."
   (let (dirs)
-    (mapcar (function
-             (lambda (e)
-               (let ((dir (file-name-directory
-                           (recentf-menu-element-value e))))
-                 (or (member dir dirs)
-                     (setq dirs (cons dir dirs))))))
-            l)
+    (mapc (function
+           (lambda (e)
+             (let ((dir (file-name-directory
+                         (recentf-menu-element-value e))))
+               (or (member dir dirs)
+                   (setq dirs (cons dir dirs))))))
+          l)
     (mapcar (function
              (lambda (d)
                (cons (concat d " (%d)")
@@ -748,7 +766,7 @@
           (setq recentf-menu-filter-commands
                 (list (vector (cdr next-filter-item)
                               '(recentf-filter-changer-goto-next)
-                              t)))))
+                              :active t)))))
     l))
 
 ;;;;
@@ -817,10 +835,10 @@
     (cond ((consp value)
            (if (and (integerp limit) (> limit 0))
                (setq value (recentf-trunc-list value limit)))
-           (mapcar (function
-                    (lambda (e)
-                      (insert (format "        %S\n" e))))
-                   value))
+           (mapc (function
+                  (lambda (e)
+                    (insert (format "        %S\n" e))))
+                 value))
           (t
            (insert (format "        %S\n" value))))
     (insert "        ))\n")
@@ -871,33 +889,33 @@
       (erase-buffer))
     (let ((all (overlay-lists)))
       ;; Delete all the overlays.
-      (mapcar 'delete-overlay (car all))
-      (mapcar 'delete-overlay (cdr all)))
+      (mapc 'delete-overlay (car all))
+      (mapc 'delete-overlay (cdr all)))
     (setq recentf-edit-selected-items nil)
     ;; Insert the dialog header
     (widget-insert "Select the files to be deleted from the 'recentf-list'.\n\n")
     (widget-insert "Click on Ok to update the list. ")
     (widget-insert "Click on Cancel or type \"q\" to quit.\n")
     ;; Insert the list of files as checkboxes
-    (mapcar (function
-             (lambda (item)
-               (widget-create 'checkbox
-                              :value nil ; unselected checkbox
-                              :format "\n %[%v%]  %t"
-                              :tag item
-                              :notify 'recentf-edit-list-action)))
-            recentf-list)
+    (mapc (function
+           (lambda (item)
+             (widget-create 'checkbox
+                            :value nil  ; unselected checkbox
+                            :format "\n %[%v%]  %t"
+                            :tag item
+                            :notify 'recentf-edit-list-action)))
+          recentf-list)
     (widget-insert "\n\n")
     ;; Insert the Ok button
     (widget-create 'push-button
                    :notify (lambda (&rest ignore)
                              (if recentf-edit-selected-items
                                  (progn (kill-buffer (current-buffer))
-                                        (mapcar (function
-                                                 (lambda (item)
-                                                   (setq recentf-list
-                                                         (delq item recentf-list))))
-                                                recentf-edit-selected-items)
+                                        (mapc (function
+                                               (lambda (item)
+                                                 (setq recentf-list
+                                                       (delq item recentf-list))))
+                                              recentf-edit-selected-items)
                                         (message "%S file(s) removed from the list"
                                                  (length recentf-edit-selected-items))
                                         (setq recentf-update-menu-p t))
@@ -951,8 +969,8 @@
                          :tag menu-item
                          :sample-face 'bold
                          :format (concat shift "%{%t%}:\n"))
-          (mapcar 'recentf-open-files-item
-                  file-path)
+          (mapc 'recentf-open-files-item
+                file-path)
           (widget-insert "\n"))
       (widget-create 'push-button
                      :button-face 'default
@@ -981,17 +999,17 @@
       (erase-buffer))
     (let ((all (overlay-lists)))
       ;; Delete all the overlays.
-      (mapcar 'delete-overlay (car all))
-      (mapcar 'delete-overlay (cdr all)))
+      (mapc 'delete-overlay (car all))
+      (mapc 'delete-overlay (cdr all)))
     ;; Insert the dialog header
     (widget-insert "Click on a file to open it. ")
     (widget-insert "Click on Cancel or type \"q\" to quit.\n\n" )
     ;; Insert the list of files as buttons
     (let ((recentf-open-files-item-shift ""))
-      (mapcar 'recentf-open-files-item
-              (recentf-apply-menu-filter
-               recentf-menu-filter
-               (mapcar 'recentf-make-default-menu-element files))))
+      (mapc 'recentf-open-files-item
+            (recentf-apply-menu-filter
+             recentf-menu-filter
+             (mapcar 'recentf-make-default-menu-element files))))
     (widget-insert "\n")
     ;; Insert the Cancel button
     (widget-create 'push-button