From: Martin Stjernholm <mast@lysator.liu.se>
Date: Tue, 26 Aug 2003 11:50:03 +0000 (+0000)
Subject: (c-electric-brace): Work around for a misfeature in `expand-abbrev'
X-Git-Tag: ttn-vms-21-2-B4~8983
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0b966e89b353095562e29a4af5dff49e70c3a822;p=emacs.git

(c-electric-brace): Work around for a misfeature in `expand-abbrev'
which caused electric keywords like "else" to disappear if an open
brace was typed directly afterwards.
---

diff --git a/lisp/progmodes/cc-cmds.el b/lisp/progmodes/cc-cmds.el
index f254cf6b061..66da8b1e47e 100644
--- a/lisp/progmodes/cc-cmds.el
+++ b/lisp/progmodes/cc-cmds.el
@@ -498,10 +498,19 @@ This function does various newline cleanups based on the value of
 	(when (save-excursion
 		(skip-chars-backward " \t")
 		(not (bolp)))
-	  (setq delete-temp-newline
-		(list (point-marker)))
 	  (c-newline-and-indent)
-	  (setcdr delete-temp-newline (point-marker)))
+	  ;; Set markers around the newline and indention inserted
+	  ;; above.  We insert the start marker here and not before
+	  ;; the call to kludge around a misfeature in expand-abbrev:
+	  ;; If the line contains e.g. "else" then expand-abbrev will
+	  ;; be called when c-newline-and-indent inserts the newline.
+	  ;; That function first removes the abbrev "else" and then
+	  ;; inserts the expansion, which is an identical "else" in
+	  ;; this case.  So the marker that we put after "else" would
+	  ;; end up before it.
+	  (setq delete-temp-newline
+		(cons (copy-marker (c-point 'eopl) t)
+		      (point-marker))))
 	(unwind-protect
 	    (progn
 	      (if (eq last-command-char ?{)