[Emacs-diffs] trunk r115798: Fix bug #16272 when inserting newline at point-min in electric-pair-mode.

[João Távora]

------------------------------------------------------------
revno: 115798
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/16272
committer: João Távora <address@hidden>
branch nick: trunk
timestamp: Sat 2013-12-28 19:26:54 +0000
message:
  Fix bug #16272 when inserting newline at point-min in electric-pair-mode. 
  
  * elec-pair.el (electric-pair-post-self-insert-function): Don't
  open extra newlines at beginning of buffer.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/elec-pair.el              elecpair.el-20131227124533-yaq8recs0j0ggt67-1

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-12-28 11:47:26 +0000
+++ b/lisp/ChangeLog    2013-12-28 19:26:54 +0000
@@ -1,3 +1,8 @@
+2013-12-28  João Távora  <address@hidden>
+
+       * elec-pair.el (electric-pair-post-self-insert-function): Don't
+       open extra newlines at beginning of buffer.  (Bug#16272)
+
 2013-12-28  Eli Zaretskii  <address@hidden>
 
        * frame.el (window-system-for-display): Don't allow to create a

=== modified file 'lisp/elec-pair.el'
--- a/lisp/elec-pair.el 2013-12-28 06:37:35 +0000
+++ b/lisp/elec-pair.el 2013-12-28 19:26:54 +0000
@@ -513,7 +513,7 @@
                       (funcall electric-pair-open-newline-between-pairs)
                     electric-pair-open-newline-between-pairs)
                   (eq last-command-event ?\n)
-                  (not (eobp))
+                  (< (1+ (point-min)) (point) (point-max))
                   (eq (save-excursion
                         (skip-chars-backward "\t\s")
                         (char-before (1- (point))))