summaryrefslogtreecommitdiff
path: root/lisp/cus-edit.el
diff options
context:
space:
mode:
authorMiles Bader <miles@gnu.org>2007-02-26 23:03:45 +0000
committerMiles Bader <miles@gnu.org>2007-02-26 23:03:45 +0000
commita73d7753f965734247be482efa125da5235996da (patch)
tree56af26fb1a12a2c93c146aac923947968c4c9d76 /lisp/cus-edit.el
parent55a5664de23c07003d4d2584fc065619609500b6 (diff)
parentf6f3d0b9133d06b29523c7bc744130cddc5c8d6b (diff)
downloademacs-a73d7753f965734247be482efa125da5235996da.tar.gz
emacs-a73d7753f965734247be482efa125da5235996da.tar.bz2
emacs-a73d7753f965734247be482efa125da5235996da.zip
Merge from emacs--devo--0
Patches applied: * emacs--devo--0 (patch 638-652) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 202) - Update from CVS Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-177
Diffstat (limited to 'lisp/cus-edit.el')
-rw-r--r--lisp/cus-edit.el12
1 files changed, 7 insertions, 5 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index ce429a40823..c49328ac40d 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -4192,11 +4192,13 @@ if only the first line of the docstring is shown."))
(when (and (null custom-file) init-file-had-error)
(error "Cannot save customizations; init file was not fully loaded"))
(let* ((filename (custom-file))
- (recentf-exclude (if recentf-mode
- (cons (concat "\\`"
- (regexp-quote (custom-file))
- "\\'")
- recentf-exclude)))
+ (recentf-exclude
+ (if recentf-mode
+ (cons (concat "\\`"
+ (regexp-quote
+ (recentf-expand-file-name (custom-file)))
+ "\\'")
+ recentf-exclude)))
(old-buffer (find-buffer-visiting filename)))
(with-current-buffer (let ((find-file-visit-truename t))
(or old-buffer (find-file-noselect filename)))