diff options
| -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." | |||
| 3102 | (goto-char (point-min)) | 3102 | (goto-char (point-min)) |
| 3103 | (catch 'found | 3103 | (catch 'found |
| 3104 | (while t | 3104 | (while t |
| 3105 | (let ((sexp (condition-case nil | 3105 | (let ((start (point)) |
| 3106 | (sexp (condition-case nil | ||
| 3106 | (read (current-buffer)) | 3107 | (read (current-buffer)) |
| 3107 | (end-of-file (throw 'found nil))))) | 3108 | (end-of-file (throw 'found nil))))) |
| 3108 | (when (and (listp sexp) | 3109 | (when (and (listp sexp) |
| 3109 | (eq (car sexp) symbol)) | 3110 | (eq (car sexp) symbol)) |
| 3110 | (delete-region (save-excursion | 3111 | (delete-region start (point)) |
| 3111 | (backward-sexp) | ||
| 3112 | (point)) | ||
| 3113 | (point)) | ||
| 3114 | (throw 'found nil)))))) | 3112 | (throw 'found nil)))))) |
| 3115 | 3113 | ||
| 3116 | (defun custom-save-variables () | 3114 | (defun custom-save-variables () |