From 0ba9849024cb6f3dd7461d00f6851524d1a44b02 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 31 Aug 2005 10:25:00 +0000 Subject: [PATCH] (outline-heading-end-regexp): Add defvar. (conf-align-assignments): "?\ " -> "?\s". --- lisp/textmodes/conf-mode.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) 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)))) -- 2.39.2