]> code.delx.au - gnu-emacs/commitdiff
(outline-heading-end-regexp): Add defvar.
authorJuanma Barranquero <lekktu@gmail.com>
Wed, 31 Aug 2005 10:25:00 +0000 (10:25 +0000)
committerJuanma Barranquero <lekktu@gmail.com>
Wed, 31 Aug 2005 10:25:00 +0000 (10:25 +0000)
(conf-align-assignments): "?\ " -> "?\s".

lisp/textmodes/conf-mode.el

index 1a73465467a5e8598d4758d078e1c77d3b11f1e6..8c009921d09ca07ea0ca7a38ce1e272b8f9e8819 100644 (file)
@@ -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))))