aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorNiels Möller2014-10-21 11:59:11 +0200
committerNoam Postavsky2017-03-30 21:05:08 -0400
commitd1e113ee60a0750acbbc0da569f7cc1bab88f11c (patch)
treed7523c06b56743ce0f5c687a3f1c27c7dbc2edc5 /lisp
parent7a8ae233d1bdf538a99233e52f0d7dd0975df2d1 (diff)
downloademacs-d1e113ee60a0750acbbc0da569f7cc1bab88f11c.tar.gz
emacs-d1e113ee60a0750acbbc0da569f7cc1bab88f11c.zip
Stop `fixup-whitespace' adding trailing whitespace (Bug#18783)
* lisp/simple.el (fixup-whitespace): Insert no spaces if point is at end of line after deleting horizontal whitespace. Copyright-paperwork-exempt: yes
Diffstat (limited to 'lisp')
-rw-r--r--lisp/simple.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/simple.el b/lisp/simple.el
index 369fbf71923..48c1a9b15d6 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -833,7 +833,7 @@ Leave one space or none, according to the context."
833 (interactive "*") 833 (interactive "*")
834 (save-excursion 834 (save-excursion
835 (delete-horizontal-space) 835 (delete-horizontal-space)
836 (if (or (looking-at "^\\|\\s)") 836 (if (or (looking-at "^\\|$\\|\\s)")
837 (save-excursion (forward-char -1) 837 (save-excursion (forward-char -1)
838 (looking-at "$\\|\\s(\\|\\s'"))) 838 (looking-at "$\\|\\s(\\|\\s'")))
839 nil 839 nil