fixed C-k

This commit is contained in:
Thomas von Dein
2017-06-26 13:16:07 +02:00
parent eff9af093e
commit f2897bc96a

View File

@@ -283,7 +283,9 @@ The flag `kill-whole-line' will be followed."
(let* ((savepos (point))
(end (line-end-position))
(onblock (save-excursion
(backward-char 1) ;; required since re-search-forward ignores 1st char
(when (not (bobp))
;; required since re-search-forward ignores 1st char
(backward-char 1))
(re-search-forward "^\s*<\\([a-zA-Z0-9]+\\)>" end t)))
(block nil))
(if onblock