mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(outline-heading-end-regexp): Add defvar.

Browse source 
(conf-align-assignments): "?\ " -> "?\s".
This commit is contained in:
Juanma Barranquero 2005-08-31 10:25:00 +00:00
parent fe6e86dbab
commit 0ba9849024
1 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/textmodes/conf-mode.el
View 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))))