diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-06-25 14:58:01 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-06-25 14:58:17 +0200 |
| commit | 040c03cae2db361d2e014a52d969a6b0ebc48f1c (patch) | |
| tree | a042ac462dbac1a7ec53b96a42749e2657c6f54f /lisp/emacs-lisp | |
| parent | bdf495f25fe38a151b96c4061fc0dffc121fcc14 (diff) | |
| download | emacs-040c03cae2db361d2e014a52d969a6b0ebc48f1c.tar.gz emacs-040c03cae2db361d2e014a52d969a6b0ebc48f1c.tar.bz2 emacs-040c03cae2db361d2e014a52d969a6b0ebc48f1c.zip | |
Make `M-q' work on the first line of a multi-line string again
* lisp/emacs-lisp/lisp-mode.el (lisp-fill-paragraph): Exclude the
quote marks from the region so that filling works (bug#56197).
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/lisp-mode.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index aaec13d1afc..781c80fd5a0 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el @@ -1481,8 +1481,8 @@ and initial semicolons." (progn (forward-sexp 1) t)) - (narrow-to-region (ppss-comment-or-string-start ppss) - (point)))) + (narrow-to-region (1+ (ppss-comment-or-string-start ppss)) + (1- (point))))) ;; Move back to where we were. (goto-char start) (fill-paragraph justify))))))) |