diff options
| author | Juanma Barranquero | 2005-08-31 10:25:00 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2005-08-31 10:25:00 +0000 |
| commit | 0ba9849024cb6f3dd7461d00f6851524d1a44b02 (patch) | |
| tree | aa64c88d3d0b8d9c10d06a021ba6b4fda6449912 | |
| parent | fe6e86dbab5cf7f1eeb9e79ae0591f3cac1d4a31 (diff) | |
| download | emacs-0ba9849024cb6f3dd7461d00f6851524d1a44b02.tar.gz emacs-0ba9849024cb6f3dd7461d00f6851524d1a44b02.zip | |
(outline-heading-end-regexp): Add defvar.
(conf-align-assignments): "?\ " -> "?\s".
| -rw-r--r-- | lisp/textmodes/conf-mode.el | 12 |
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 | ||