From: Juanma Barranquero <lekktu@gmail.com>
Date: Wed, 31 Aug 2005 10:25:00 +0000 (+0000)
Subject: (outline-heading-end-regexp): Add defvar.
X-Git-Tag: emacs-pretest-22.0.90~7329
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/0ba9849024cb6f3dd7461d00f6851524d1a44b02

(outline-heading-end-regexp): Add defvar.
(conf-align-assignments): "?\ " -> "?\s".
---

diff --git a/lisp/textmodes/conf-mode.el b/lisp/textmodes/conf-mode.el
index 1a73465467..8c009921d0 100644
--- a/lisp/textmodes/conf-mode.el
+++ b/lisp/textmodes/conf-mode.el
@@ -33,6 +33,8 @@
 
 (require 'newcomment)
 
+(defvar outline-heading-end-regexp)
+
 ;; Variables:
 
 (defgroup conf nil
@@ -229,15 +231,15 @@ whitespace.")
 	    (if (>= arg 0)
 		(progn
 		  (indent-to-column arg)
-		  (or (not conf-assignment-space) (memq (char-before (point)) '(?  ?\t)) (insert ? ))
-		  (insert conf-assignment-sign (if (and conf-assignment-space (not (eolp))) ?\  "")))
-	      (insert (if conf-assignment-space ?\  "") conf-assignment-sign)
+		  (or (not conf-assignment-space) (memq (char-before (point)) '(?\s ?\t)) (insert ?\s))
+		  (insert conf-assignment-sign (if (and conf-assignment-space (not (eolp))) ?\s "")))
+	      (insert (if conf-assignment-space ?\s "") conf-assignment-sign)
 	      (unless (eolp)
 		(indent-to-column (- arg))
-		(or (not conf-assignment-space) (memq (char-before (point)) '(?  ?\t)) (insert ? ))))
+		(or (not conf-assignment-space) (memq (char-before (point)) '(?\s ?\t)) (insert ?\s))))
 	  (unless (eolp)
 	    (if (>= (current-column) (abs arg))
-		(insert ? )
+		(insert ?\s)
 	      (indent-to-column (abs arg))))))
       (forward-line))))