diff options
| author | Lars Ingebrigtsen | 2021-10-09 13:12:33 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2021-10-09 13:12:33 +0200 |
| commit | f43a3a7cd7cfae10d7c29b1f84eb3b842ca0a83a (patch) | |
| tree | 3be2c89756875626c331b7d8d04b06e94640914e | |
| parent | f35246db1934fa06c96ed8533641a55c899b7a01 (diff) | |
| download | emacs-f43a3a7cd7cfae10d7c29b1f84eb3b842ca0a83a.tar.gz emacs-f43a3a7cd7cfae10d7c29b1f84eb3b842ca0a83a.zip | |
Simplify `clean-mode'
* lisp/simple.el (clean-mode): Simplify the property exclusion.
| -rw-r--r-- | lisp/simple.el | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index f7e62e06ce1..841983a3b60 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -534,10 +534,7 @@ Other major modes are defined by comparison with this one." | |||
| 534 | (dolist (overlay (overlays-in (point-min) (point-max))) | 534 | (dolist (overlay (overlays-in (point-min) (point-max))) |
| 535 | (delete-overlay overlay)) | 535 | (delete-overlay overlay)) |
| 536 | (set-text-properties (point-min) (point-max) nil) | 536 | (set-text-properties (point-min) (point-max) nil) |
| 537 | (setq-local after-change-functions | 537 | (setq-local yank-excluded-properties t))) |
| 538 | (list | ||
| 539 | (lambda (begin end _length) | ||
| 540 | (set-text-properties begin end nil)))))) | ||
| 541 | 538 | ||
| 542 | ;; Special major modes to view specially formatted data rather than files. | 539 | ;; Special major modes to view specially formatted data rather than files. |
| 543 | 540 | ||