scip/config-general-mode
1
0
Fork 0
mirror of https://codeberg.org/scip/config-general-mode.git synced 2025-12-18 04:50:57 +01:00
Code Issues Packages Projects Releases Wiki Activity

fixed C-k

Browse Source
This commit is contained in:
Thomas von Dein
2017-06-26 13:16:07 +02:00
parent eff9af093e
commit f2897bc96a
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
config-general-mode.el
View File

@@ -283,7 +283,9 @@ The flag `kill-whole-line' will be followed."
(let* ((savepos (point)) (let* ((savepos (point))
(end (line-end-position)) (end (line-end-position))
(onblock (save-excursion (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))) (re-search-forward "^\s*<\\([a-zA-Z0-9]+\\)>" end t)))
(block nil)) (block nil))
(if onblock (if onblock