diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-11-04 15:04:25 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-11-04 15:04:25 -0500 |
| commit | 0ade65b530469a4c6a7d22d3be14f62f0ae8a790 (patch) | |
| tree | be52705202e5ce47fd236c0f76f9705863d2131a | |
| parent | ef9dd188afe8f2bb8837e8be90a8c7d8c357320b (diff) | |
| download | emacs-0ade65b530469a4c6a7d22d3be14f62f0ae8a790.tar.gz | |
* lisp/electric.el (electric-indent-post-self-insert-function):
Only delete trailing whitepsace if it is indeed trailing.
Fixes: debbugs:15767
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/electric.el | 12 |
2 files changed, 9 insertions, 8 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b5aa974c10c..c4f5efd371e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-11-04 Stefan Monnier <monnier@iro.umontreal.ca> + + * electric.el (electric-indent-post-self-insert-function): + Only delete trailing whitepsace if it is indeed trailing (bug#15767). + 2013-11-04 Helmut Eller <eller.helmut@gmail.com> * emacs-lisp/cl-indent.el (with-compilation-unit): Add rule (bug#15782). diff --git a/lisp/electric.el b/lisp/electric.el index b62de874b93..1f95e68dbf5 100644 --- a/lisp/electric.el +++ b/lisp/electric.el @@ -251,9 +251,10 @@ Python does not lend itself to fully automatic indentation.") ;; whereas we need `move after insertion', so we do the ;; save/restore by hand. (goto-char before) - ;; Remove the trailing whitespace after indentation because - ;; indentation may (re)introduce the whitespace. - (delete-horizontal-space t)))) + (when (eolp) + ;; Remove the trailing whitespace after indentation because + ;; indentation may (re)introduce the whitespace. + (delete-horizontal-space t))))) (unless (or (memq indent-line-function '(indent-to-left-margin)) (and electric-indent-inhibit (> pos (line-beginning-position)))) @@ -270,7 +271,6 @@ This is a global minor mode. When enabled, it reindents whenever the hook `electric-indent-functions' returns non-nil, or you insert a character from `electric-indent-chars'." :global t - :group 'electricity (if (not electric-indent-mode) (remove-hook 'post-self-insert-hook #'electric-indent-post-self-insert-function) @@ -294,7 +294,6 @@ insert a character from `electric-indent-chars'." (defcustom electric-pair-pairs '((?\" . ?\")) "Alist of pairs that should be used regardless of major mode." - :group 'electricity :version "24.1" :type '(repeat (cons character character))) @@ -304,7 +303,6 @@ When inserting a closing paren character right before the same character, just skip that character instead, so that hitting ( followed by ) results in \"()\" rather than \"())\". This can be convenient for people who find it easier to hit ) than C-f." - :group 'electricity :version "24.1" :type 'boolean) @@ -410,7 +408,6 @@ closing parenthesis. \(Likewise for brackets, etc.) See options `electric-pair-pairs' and `electric-pair-skip-self'." :global t - :group 'electricity (if electric-pair-mode (progn (add-hook 'post-self-insert-hook @@ -463,7 +460,6 @@ positive, and disable it otherwise. If called from Lisp, enable the mode if ARG is omitted or nil. The variable `electric-layout-rules' says when and how to insert newlines." :global t - :group 'electricity (if electric-layout-mode (add-hook 'post-self-insert-hook #'electric-layout-post-self-insert-function) |