diff options
| author | João Távora | 2013-12-28 19:26:54 +0000 |
|---|---|---|
| committer | João Távora | 2013-12-28 19:26:54 +0000 |
| commit | e9d6c46ab556fc08101b51dc11d82e2a1f0a42c4 (patch) | |
| tree | f7edccae1f3c30986bddbc3b0a998f6819a98b4f | |
| parent | 8962d4b30037c223af0026707fa35c9cf85c7e57 (diff) | |
| download | emacs-e9d6c46ab556fc08101b51dc11d82e2a1f0a42c4.tar.gz emacs-e9d6c46ab556fc08101b51dc11d82e2a1f0a42c4.zip | |
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.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/elec-pair.el | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3c9356fbd7c..910d35afc4b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2013-12-28 João Távora <joaotavora@gmail.com> | ||
| 2 | |||
| 3 | * elec-pair.el (electric-pair-post-self-insert-function): Don't | ||
| 4 | open extra newlines at beginning of buffer. (Bug#16272) | ||
| 5 | |||
| 1 | 2013-12-28 Eli Zaretskii <eliz@gnu.org> | 6 | 2013-12-28 Eli Zaretskii <eliz@gnu.org> |
| 2 | 7 | ||
| 3 | * frame.el (window-system-for-display): Don't allow to create a | 8 | * frame.el (window-system-for-display): Don't allow to create a |
diff --git a/lisp/elec-pair.el b/lisp/elec-pair.el index 1691fbbfec3..729132651db 100644 --- a/lisp/elec-pair.el +++ b/lisp/elec-pair.el | |||
| @@ -513,7 +513,7 @@ happened." | |||
| 513 | (funcall electric-pair-open-newline-between-pairs) | 513 | (funcall electric-pair-open-newline-between-pairs) |
| 514 | electric-pair-open-newline-between-pairs) | 514 | electric-pair-open-newline-between-pairs) |
| 515 | (eq last-command-event ?\n) | 515 | (eq last-command-event ?\n) |
| 516 | (not (eobp)) | 516 | (< (1+ (point-min)) (point) (point-max)) |
| 517 | (eq (save-excursion | 517 | (eq (save-excursion |
| 518 | (skip-chars-backward "\t\s") | 518 | (skip-chars-backward "\t\s") |
| 519 | (char-before (1- (point)))) | 519 | (char-before (1- (point)))) |