ryuslash/emacs-config
1
0
Fork 0
Code Activity

[oni-core] Go to the end of the line if a comment isn't found

Browse source
This commit is contained in:
Tom Willemse 2022-02-24 01:55:05 -08:00
parent ace4d24a7e
commit 04bc3f3b7e
1 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
oni-core.el
View file

@ -79,12 +79,14 @@
(if (and comment-start
(not (looking-at (regexp-quote comment-start)))
(comment-search-forward eolpos t))
(progn
(search-backward-regexp (concat "[^ \t" comment-start "]"))
(forward-char)
(when (or (bolp)
(= start (point)))
(end-of-line)))
(condition-case _
(progn
(search-backward-regexp (concat "[^ \t" comment-start "]"))
(forward-char)
(when (or (bolp)
(= start (point)))
(end-of-line)))
(search-failed (end-of-line)))
(end-of-line))))
;;; From Bastien Guerry’s Emacs configuraiton: