# HG changeset patch # User Juanma Barranquero # Date 1125483900 0 # Node ID 5e6a52548deb2544229a7dbc902c456e80184866 # Parent c1dcf33345ab083da02d3ad2e1417bd8e74b847d (outline-heading-end-regexp): Add defvar. (conf-align-assignments): "?\ " -> "?\s". diff -r c1dcf33345ab -r 5e6a52548deb lisp/textmodes/conf-mode.el --- a/lisp/textmodes/conf-mode.el Wed Aug 31 10:22:34 2005 +0000 +++ b/lisp/textmodes/conf-mode.el Wed Aug 31 10:25:00 2005 +0000 @@ -33,6 +33,8 @@ (require 'newcomment) +(defvar outline-heading-end-regexp) + ;; Variables: (defgroup conf nil @@ -229,15 +231,15 @@ (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))))