From: Gerd Moellmann Date: Thu, 2 Aug 2001 10:54:51 +0000 (+0000) Subject: (recentf-dump-variable): Handle a value of nil X-Git-Tag: emacs-pretest-21.0.105~308 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7f7d5b9ec49cf106b372e5ec3bd1852088a77691;p=emacs.git (recentf-dump-variable): Handle a value of nil correctly. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 854d1722cef..58c4e8d70f9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2001-08-02 Gerd Moellmann + * recentf.el (recentf-dump-variable): Handle a value of nil + correctly. + * custom.el (custom-set-variables): Set options with :require clauses last. diff --git a/lisp/recentf.el b/lisp/recentf.el index 461edf069f0..dc79e6c0bc9 100644 --- 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 ;; Created: July 19 1999 @@ -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 ()