procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Avoid deleting closing quotation mark in checkdoc

Browse source 
* lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine):
Remove calls to delete-region to avoid deleting final " (bug#26328).
This commit is contained in:
Alex Branham 2019-08-16 13:55:27 -07:00 • committed by Lars Ingebrigtsen
parent a9d7ccfa56
commit 91c7c6a602
1 changed files with 5 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/emacs-lisp/checkdoc.el
View file

@ -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)