From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 4 Nov 2013 20:04:25 +0000 (-0500)
Subject: * lisp/electric.el (electric-indent-post-self-insert-function):
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~980
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0ade65b530469a4c6a7d22d3be14f62f0ae8a790;p=emacs.git

* lisp/electric.el (electric-indent-post-self-insert-function):
Only delete trailing whitepsace if it is indeed trailing.

Fixes: debbugs:15767
---

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)