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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9b692283d96a5f8578947a67a4d687586b8b7930..542e686dfe2bddd5503a19f58603b4f5c66d2cac 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-02-03  João Távora  <joaotavora@gmail.com>
+
+       * elec-pair.el (electric-pair-backward-delete-char): Don't error
+       when at beginning of (possibly narrowed) buffer.
+
 2014-02-02  Daniel Colascione  <dancol@dancol.org>
 
        * help-at-pt.el (help-at-pt-string,help-at-pt-maybe-display): Also

diff --git a/lisp/elec-pair.el b/lisp/elec-pair.el
index a2d637e2aea000b12656e9e65a0fc3882344c9f2..bf02e5fa2730daf2ffaaa4b4288e4bdb1f288a23 100644 (file)
--- 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))