*** empty log message ***

[gnu-emacs] / lisp / recentf.el

diff --git a/lisp/recentf.el b/lisp/recentf.el
index 461edf069f0b65eb14af02e9f92864b0e24d4745..72e026ab2dbde0a9f78eecc8cf5b3c9a2c3a7dd6 100644 (file)
--- a/lisp/recentf.el
+++ b/lisp/recentf.el
@@ -1,6 +1,6 @@
 ;;; recentf.el --- setup a menu of recently opened files
 
-;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
+;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.
 
 ;; Author: David Ponce <david@dponce.com>
 ;; Created: July 19 1999
@@ -108,7 +108,7 @@ If nil add it at top level (see also `easy-menu-change')."
                  (sexp :tag "Menu Path"))
   :set 'recentf-menu-customization-changed)
 
-(defcustom recentf-menu-before "open-file"
+(defcustom recentf-menu-before "Open File..."
   "*Name of the menu before which the recentf menu will be added.
 If nil add it at end of menu (see also `easy-menu-change')."
   :group 'recentf
@@ -135,7 +135,7 @@ list of recently opened files."
 
 (defcustom recentf-menu-filter nil
   "*Function used to filter files displayed in the recentf menu.
-Nil means no filter.  The following functions are predefined:
+nil means no filter.  The following functions are predefined:
 
 - `recentf-sort-ascending' to sort menu items in ascending order.
 - `recentf-sort-descending' to sort menu items in descending order.
@@ -562,7 +562,7 @@ defined."
 
 (defcustom recentf-arrange-by-rule-subfilter nil
   "*Function used by `recentf-arrange-by-rule' to filter sub-menu elements.
-Nil means no filter.  See also `recentf-menu-filter'.  You can't use
+nil means no filter.  See also `recentf-menu-filter'.  You can't use
 `recentf-arrange-by-rule' itself here!"
   :group 'recentf-filters
   :type '(choice (const nil) function)
@@ -793,7 +793,7 @@ unchanged."
 Used by `recentf-edit-list' and `recentf-open-files' dialogs."
   (interactive)
   (kill-buffer (current-buffer))
-  (message "Dialog canceled."))
+  (message "Dialog canceled"))
 
 (defvar recentf-dialog-mode-map nil
   "`recentf-dialog-mode' keymap.")
@@ -846,18 +846,14 @@ These are the special commands of `recentf-dialog-mode' mode:
 Optional argument LIMIT specifies a maximum length when VARIABLE value
 is a list (default to the full list)."
   (let ((value (symbol-value variable)))
-    (insert (format "(setq %S\n      '(\n" variable))
-    (cond ((consp value)
-           (if (and (integerp limit) (> limit 0))
-               (setq value (recentf-trunc-list value limit)))
-           (mapc (function
-                  (lambda (e)
-                    (insert (format "        %S\n" e))))
-                 value))
-          (t
-           (insert (format "        %S\n" value))))
-    (insert "        ))\n")
-    ))
+    (if (listp value)
+       (progn
+         (when (and (integerp limit) (> limit 0))
+           (setq value (recentf-trunc-list value limit)))
+         (insert (format "(setq %S '(" variable))
+         (mapc (lambda (e) (insert (format "\n%S" e))) value)
+         (insert "))\n"))
+      (insert (format "(setq %S %S)\n" variable value)))))
 
 ;;;###autoload
 (defun recentf-save-list ()