Fix lisp-comment-indent for single-semicolon case
* lisp/emacs-lisp/lisp-mode.el (lisp-comment-indent): Only check for open paren if we're looking at multiple comment characters. * test/lisp/emacs-lisp/lisp-mode-tests.el (lisp-comment-indent-1) (lisp-comment-indent-2): New tests.
This commit is contained in:
parent
20e9a00fb5
commit
386918f0b8
2 changed files with 34 additions and 6 deletions
|
@ -738,12 +738,14 @@ or to switch back to an existing one."
|
|||
|
||||
(defun lisp-comment-indent ()
|
||||
"Like `comment-indent-default', but don't put space after open paren."
|
||||
(let ((pt (point)))
|
||||
(skip-syntax-backward " ")
|
||||
(if (eq (preceding-char) ?\()
|
||||
(cons (current-column) (current-column))
|
||||
(goto-char pt)
|
||||
(comment-indent-default))))
|
||||
(or (when (looking-at "\\s<\\s<")
|
||||
(let ((pt (point)))
|
||||
(skip-syntax-backward " ")
|
||||
(if (eq (preceding-char) ?\()
|
||||
(cons (current-column) (current-column))
|
||||
(goto-char pt)
|
||||
nil)))
|
||||
(comment-indent-default)))
|
||||
|
||||
(define-obsolete-function-alias 'lisp-mode-auto-fill 'do-auto-fill "23.1")
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue