aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuanma Barranquero2005-08-31 10:25:00 +0000
committerJuanma Barranquero2005-08-31 10:25:00 +0000
commit0ba9849024cb6f3dd7461d00f6851524d1a44b02 (patch)
treeaa64c88d3d0b8d9c10d06a021ba6b4fda6449912
parentfe6e86dbab5cf7f1eeb9e79ae0591f3cac1d4a31 (diff)
downloademacs-0ba9849024cb6f3dd7461d00f6851524d1a44b02.tar.gz
emacs-0ba9849024cb6f3dd7461d00f6851524d1a44b02.zip
(outline-heading-end-regexp): Add defvar.
(conf-align-assignments): "?\ " -> "?\s".
-rw-r--r--lisp/textmodes/conf-mode.el12
1 files changed, 7 insertions, 5 deletions
diff --git a/lisp/textmodes/conf-mode.el b/lisp/textmodes/conf-mode.el
index 1a73465467a..8c009921d09 100644
--- a/lisp/textmodes/conf-mode.el
+++ b/lisp/textmodes/conf-mode.el
@@ -33,6 +33,8 @@
33 33
34(require 'newcomment) 34(require 'newcomment)
35 35
36(defvar outline-heading-end-regexp)
37
36;; Variables: 38;; Variables:
37 39
38(defgroup conf nil 40(defgroup conf nil
@@ -229,15 +231,15 @@ whitespace.")
229 (if (>= arg 0) 231 (if (>= arg 0)
230 (progn 232 (progn
231 (indent-to-column arg) 233 (indent-to-column arg)
232 (or (not conf-assignment-space) (memq (char-before (point)) '(? ?\t)) (insert ? )) 234 (or (not conf-assignment-space) (memq (char-before (point)) '(?\s ?\t)) (insert ?\s))
233 (insert conf-assignment-sign (if (and conf-assignment-space (not (eolp))) ?\ ""))) 235 (insert conf-assignment-sign (if (and conf-assignment-space (not (eolp))) ?\s "")))
234 (insert (if conf-assignment-space ?\ "") conf-assignment-sign) 236 (insert (if conf-assignment-space ?\s "") conf-assignment-sign)
235 (unless (eolp) 237 (unless (eolp)
236 (indent-to-column (- arg)) 238 (indent-to-column (- arg))
237 (or (not conf-assignment-space) (memq (char-before (point)) '(? ?\t)) (insert ? )))) 239 (or (not conf-assignment-space) (memq (char-before (point)) '(?\s ?\t)) (insert ?\s))))
238 (unless (eolp) 240 (unless (eolp)
239 (if (>= (current-column) (abs arg)) 241 (if (>= (current-column) (abs arg))
240 (insert ? ) 242 (insert ?\s)
241 (indent-to-column (abs arg)))))) 243 (indent-to-column (abs arg))))))
242 (forward-line)))) 244 (forward-line))))
243 245