mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-05 07:01:11 -08:00
Code Issues Projects Releases Wiki Activity

Restore compatibility with legacy comment-start-skip values

Browse source 
* lisp/newcomment.el (comment-beginning): If `comment-start-skip'
doesn't match, move back one char and try again.

Fixes: debbugs:16971
This commit is contained in:
Dmitry Gutov 2014-03-17 08:48:09 +02:00
parent 4f8aeb84b6
commit 218feefcc0
2 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
2014-03-17 Dmitry Gutov <dgutov@yandex.ru>
* newcomment.el (comment-beginning): If `comment-start-skip'
doesn't match, move back one char and try again. (Bug#16971)
* emacs-lisp/lisp-mode.el (lisp-mode-variables): Set
`comment-use-syntax' to t to avoid the unnecessary runtime check.
Set `comment-start-skip' to a simpler value that doesn't try to

7
lisp/newcomment.el
View file

@ -523,7 +523,12 @@ the same as `comment-search-backward'."
(when (nth 4 state)
(goto-char (nth 8 state))
(prog1 (point)
(when (looking-at comment-start-skip)
(when (or (looking-at comment-start-skip)
;; Some older modes use regexps that check the
;; char before the comment for quoting. (Bug#16971)
(save-excursion
(forward-char -1)
(looking-at comment-start-skip)))
(goto-char (match-end 0))))))
;; Can't rely on the syntax table, let's guess based on font-lock.
(unless (eq (get-text-property (point) 'face) 'font-lock-string-face)