diff options
| author | Matt Armstrong | 2021-02-09 09:10:45 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2021-02-09 09:10:45 +0100 |
| commit | 9c1e89a32c65244a992a8a1ff73fd606f94a8a15 (patch) | |
| tree | 05cc2f9a9ea2e772049af33418403a563e6cfa35 | |
| parent | 0cc35e14319d6b113049f5389629dc693541a14c (diff) | |
| download | emacs-9c1e89a32c65244a992a8a1ff73fd606f94a8a15.tar.gz emacs-9c1e89a32c65244a992a8a1ff73fd606f94a8a15.zip | |
Preserve leading whitespace in `lm-commentary'.
* lisp/emacs-lisp/lisp-mnt.el (lm-commentary): Preserve leading
whitespace (bug#46364).
| -rw-r--r-- | lisp/emacs-lisp/lisp-mnt.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/lisp-mnt.el b/lisp/emacs-lisp/lisp-mnt.el index adb9cb2372c..6d9c8c32794 100644 --- a/lisp/emacs-lisp/lisp-mnt.el +++ b/lisp/emacs-lisp/lisp-mnt.el | |||
| @@ -495,7 +495,7 @@ absent, return nil." | |||
| 495 | (concat "^;;;[[:blank:]]*\\(" | 495 | (concat "^;;;[[:blank:]]*\\(" |
| 496 | lm-commentary-header | 496 | lm-commentary-header |
| 497 | "\\):[[:blank:]\n]*") | 497 | "\\):[[:blank:]\n]*") |
| 498 | "^;;[[:blank:]]*" ; double semicolon prefix | 498 | "^;;[[:blank:]]?" ; double semicolon prefix |
| 499 | "[[:blank:]\n]*\\'") ; trailing new-lines | 499 | "[[:blank:]\n]*\\'") ; trailing new-lines |
| 500 | "" (buffer-substring-no-properties | 500 | "" (buffer-substring-no-properties |
| 501 | start (lm-commentary-end)))))))) | 501 | start (lm-commentary-end)))))))) |