diff options
| author | João Távora <joaotavora@gmail.com> | 2014-02-03 00:28:57 +0000 |
|---|---|---|
| committer | João Távora <joaotavora@gmail.com> | 2014-02-03 00:28:57 +0000 |
| commit | 5dca7759a78e8b2a50308a9d5f276799ec46c975 (patch) | |
| tree | b5cecfc8e810b2adb8947a1cddcabdd4120b3508 /lisp/elec-pair.el | |
| parent | 709085b93dab36c23e36502242a1e40806f8d1cf (diff) | |
| download | emacs-5dca7759a78e8b2a50308a9d5f276799ec46c975.tar.gz emacs-5dca7759a78e8b2a50308a9d5f276799ec46c975.tar.bz2 emacs-5dca7759a78e8b2a50308a9d5f276799ec46c975.zip | |
Fix `electric-pair-backward-delete-char' error at bob
* lisp/elec-pair.el (electric-pair-backward-delete-char): Don't error
when at beginning of (possibly narrowed) buffer.
Diffstat (limited to 'lisp/elec-pair.el')
| -rw-r--r-- | lisp/elec-pair.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/elec-pair.el b/lisp/elec-pair.el index a2d637e2aea..bf02e5fa273 100644 --- a/lisp/elec-pair.el +++ b/lisp/elec-pair.el @@ -174,13 +174,14 @@ non-nil, `backward-delete-char-untabify'." (interactive "*p\nP") (let* ((prev (char-before)) (next (char-after)) - (syntax-info (electric-pair-syntax-info prev)) + (syntax-info (and prev + (electric-pair-syntax-info prev))) (syntax (car syntax-info)) (pair (cadr syntax-info))) - (when (and (if (functionp electric-pair-delete-adjacent-pairs) + (when (and next pair + (if (functionp electric-pair-delete-adjacent-pairs) (funcall electric-pair-delete-adjacent-pairs) electric-pair-delete-adjacent-pairs) - next (memq syntax '(?\( ?\" ?\$)) (eq pair next)) (delete-char 1 killflag)) |