emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix overaggressive backspace

Browse source 
delete-backward-char would kill adjacent delimited regions:

1. |
   (...)
2. (|...)
This commit is contained in:
Henrik Lissner 2018-02-14 16:18:55 -05:00
parent fa19eaf8e0
commit 0f404a513a
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 16 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

23
core/autoload/editor.el
View file

@ -10,18 +10,20 @@ whitespace is balanced on either side of the cursor.
If INLINE is nil, returns t if the opening and closing braces are on adjacent
lines, above and below, with only whitespace in between."
(when-let* ((pair (or pair (sp-get-thing))))
(let ((op (plist-get pair :op))
(cl (plist-get pair :cl)))
(and op cl
(not (string-empty-p op))
(not (string-empty-p cl))
(let ((beg (+ (length op) (plist-get pair :beg)))
(end (- (plist-get pair :end) (length cl)))
(let ((beg (plist-get pair :beg))
(end (plist-get pair :end))
(pt (point)))
(let ((content (buffer-substring-no-properties beg end)))
(when (and (> pt beg) (< pt end))
(when-let* ((cl (plist-get pair :cl))
(op (plist-get pair :op)))
(and (not (string-empty-p op))
(not (string-empty-p cl))
(let ((nbeg (+ (length op) beg))
(nend (- end (length cl))))
(let ((content (buffer-substring-no-properties nbeg nend)))
(and (string-match-p (format "[ %s]*" (if inline "" "\n")) content)
(or (not balanced)
(= (- pt beg) (- end pt))))))))))
(= (- pt nbeg) (- nend pt))))))))))))
;;
@ -181,13 +183,14 @@ possible, or just one char if that's not possible."
(insert-char ?\s (- ocol (current-column)) nil))))
;;
((and (= n 1) (not (minibufferp)))
;; TODO Refactor; abstract with doom-surrounded-p more
(let* ((pair (sp-get-thing))
(op (plist-get pair :op))
(cl (plist-get pair :cl))
(beg (plist-get pair :beg))
(end (plist-get pair :end)))
(cond ((and end beg (= end (+ beg (length op) (length cl))))
(sp-backward-delete-char 0))
(sp-backward-delete-char 1))
((doom-surrounded-p pair :inline :balanced)
(delete-char -1 killflag)
(delete-char 1)