3649 |
"Visit `custom-file' and delete all calls to SYMBOL from it. |
"Visit `custom-file' and delete all calls to SYMBOL from it. |
3650 |
Leave point at the old location of the first such call, |
Leave point at the old location of the first such call, |
3651 |
or (if there were none) at the end of the buffer." |
or (if there were none) at the end of the buffer." |
3652 |
(let ((default-major-mode)) |
(let ((default-major-mode 'emacs-lisp-mode)) |
3653 |
(set-buffer (find-file-noselect (custom-file)))) |
(set-buffer (find-file-noselect (custom-file)))) |
3654 |
(goto-char (point-min)) |
(goto-char (point-min)) |
3655 |
;; Skip all whitespace and comments. |
;; Skip all whitespace and comments. |