diff options
| -rw-r--r-- | lisp/cus-edit.el | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 54d648f7ec0..19449afbd2b 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el | |||
| @@ -4970,13 +4970,10 @@ if only the first line of the docstring is shown.")) | |||
| 4970 | ;; can cause problems when read back, so print them | 4970 | ;; can cause problems when read back, so print them |
| 4971 | ;; readably. (Bug#52554) | 4971 | ;; readably. (Bug#52554) |
| 4972 | (print-escape-control-characters t)) | 4972 | (print-escape-control-characters t)) |
| 4973 | ;; Insert lexical cookie, but only if the buffer is empty. | ||
| 4973 | (save-restriction | 4974 | (save-restriction |
| 4974 | (widen) | 4975 | (widen) |
| 4975 | (atomic-change-group | 4976 | (atomic-change-group |
| 4976 | ;; The previous test `eobp' was written with an appalling | ||
| 4977 | ;; lack of forethought or testing, being easily misled if | ||
| 4978 | ;; the user should have left point at eob in a buffer | ||
| 4979 | ;; visiting the custom file. | ||
| 4980 | (when (eq (point-min) (point-max)) | 4977 | (when (eq (point-min) (point-max)) |
| 4981 | (save-excursion | 4978 | (save-excursion |
| 4982 | (goto-char (point-min)) | 4979 | (goto-char (point-min)) |