/[emacs]/emacs/lisp/cus-edit.el
ViewVC logotype

Diff of /emacs/lisp/cus-edit.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.229 by ttn, Sat Aug 6 22:13:42 2005 UTC revision 1.230 by eliz, Fri Aug 12 11:17:57 2005 UTC
# Line 141  Line 141 
141  (require 'cus-face)  (require 'cus-face)
142  (require 'wid-edit)  (require 'wid-edit)
143  (eval-when-compile  (eval-when-compile
144    (defvar custom-versions-load-alist))  ; from cus-load    (defvar custom-versions-load-alist)   ; from cus-load
145      (defvar recentf-exclude))             ; from recentf.el
146    
147  (condition-case nil  (condition-case nil
148      (require 'cus-load)      (require 'cus-load)
# Line 3901  if only the first line of the docstring Line 3902  if only the first line of the docstring
3902    "Visit `custom-file' and delete all calls to SYMBOL from it.    "Visit `custom-file' and delete all calls to SYMBOL from it.
3903  Leave point at the old location of the first such call,  Leave point at the old location of the first such call,
3904  or (if there were none) at the end of the buffer."  or (if there were none) at the end of the buffer."
3905    (let ((default-major-mode 'emacs-lisp-mode))    (let ((default-major-mode 'emacs-lisp-mode)
3906            (recentf-exclude (if recentf-mode
3907                                 (cons (concat "\\`"
3908                                               (regexp-quote (custom-file))
3909                                               "\\'")
3910                                       recentf-exclude))))
3911      (set-buffer (find-file-noselect (custom-file))))      (set-buffer (find-file-noselect (custom-file))))
3912    (goto-char (point-min))    (goto-char (point-min))
3913    ;; Skip all whitespace and comments.    ;; Skip all whitespace and comments.
# Line 4130  or (if there were none) at the end of th Line 4136  or (if there were none) at the end of th
4136      (custom-save-variables)      (custom-save-variables)
4137      (custom-save-faces)      (custom-save-faces)
4138      (save-excursion      (save-excursion
4139        (let ((default-major-mode nil))        (let ((default-major-mode nil)
4140                (recentf-exclude (if recentf-mode
4141                                     (cons (concat "\\`"
4142                                                   (regexp-quote (custom-file))
4143                                                   "\\'")
4144                                           recentf-exclude))))
4145          (set-buffer (find-file-noselect (custom-file))))          (set-buffer (find-file-noselect (custom-file))))
4146        (let ((file-precious-flag t))        (let ((file-precious-flag t))
4147          (save-buffer)))))          (save-buffer)))))

Legend:
Removed from v.1.229  
changed lines
  Added in v.1.230

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26