diff options
| author | Alex Branham <alex.branham@gmail.com> | 2019-08-16 13:55:27 -0700 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-08-16 13:55:34 -0700 |
| commit | 91c7c6a60260e3820d8f4bac1e17dbec382968f9 (patch) | |
| tree | 30e6a931ca35ec9880bc10c024fb0617c6240bd3 /lisp/emacs-lisp | |
| parent | a9d7ccfa56cf5985a9f4485b4d8b935871b721f9 (diff) | |
| download | emacs-91c7c6a60260e3820d8f4bac1e17dbec382968f9.tar.gz emacs-91c7c6a60260e3820d8f4bac1e17dbec382968f9.tar.bz2 emacs-91c7c6a60260e3820d8f4bac1e17dbec382968f9.zip | |
Avoid deleting closing quotation mark in checkdoc
* lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine):
Remove calls to delete-region to avoid deleting final " (bug#26328).
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/checkdoc.el | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el index 830743f5f89..3c699750215 100644 --- a/lisp/emacs-lisp/checkdoc.el +++ b/lisp/emacs-lisp/checkdoc.el @@ -1494,16 +1494,11 @@ may require more formatting") (if (and (re-search-forward "[.!?:\"]\\([ \t\n]+\\|\"\\)" (line-end-position) t) (< (current-column) numc)) - (if (checkdoc-autofix-ask-replace - p (1+ p) - "1st line not a complete sentence. Join these lines? " - " " t) - (progn - ;; They said yes. We have more fill work to do... - (goto-char (match-beginning 1)) - (delete-region (point) (match-end 1)) - (insert "\n") - (setq msg nil)))))) + (when (checkdoc-autofix-ask-replace + p (1+ p) + "1st line not a complete sentence. Join these lines? " + " " t) + (setq msg nil))))) (if msg (checkdoc-create-error msg s (save-excursion (goto-char s) |