diff options
| author | Karl Heuer <kwzh@gnu.org> | 1998-12-02 18:15:26 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1998-12-02 18:15:26 +0000 |
| commit | 3e36b84953110dc6cccaeb1133fed8fa78c1acdb (patch) | |
| tree | 6d62a35cae8fdc7e8b11fd65b8be35dea0b37c9b /lisp/cus-edit.el | |
| parent | 79f8634741bf456fcd2297fe23721942b05062cf (diff) | |
| download | emacs-3e36b84953110dc6cccaeb1133fed8fa78c1acdb.tar.gz | |
(custom-save-delete): Save point before
reading a sexp, rather than backing up.
Diffstat (limited to 'lisp/cus-edit.el')
| -rw-r--r-- | lisp/cus-edit.el | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index b6c60a4129c..7640f471d25 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -3102,15 +3102,13 @@ Leave point at the location of the call, or after the last expression." (goto-char (point-min)) (catch 'found (while t - (let ((sexp (condition-case nil + (let ((start (point)) + (sexp (condition-case nil (read (current-buffer)) (end-of-file (throw 'found nil))))) (when (and (listp sexp) (eq (car sexp) symbol)) - (delete-region (save-excursion - (backward-sexp) - (point)) - (point)) + (delete-region start (point)) (throw 'found nil)))))) (defun custom-save-variables () |