Mercurial > emacs
comparison lisp/add-log.el @ 4380:0c7aefc58e0f
(change-log-mode): Use \f for formfeed, to avoid syntax error.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 31 Jul 1993 18:41:53 +0000 |
| parents | d2316090d029 |
| children | c0ea0009268a |
comparison
equal
deleted
inserted
replaced
| 4379:36f6f4b28dde | 4380:0c7aefc58e0f |
|---|---|
| 237 mode-name "Change Log" | 237 mode-name "Change Log" |
| 238 left-margin 8 | 238 left-margin 8 |
| 239 fill-column 74) | 239 fill-column 74) |
| 240 (use-local-map change-log-mode-map) | 240 (use-local-map change-log-mode-map) |
| 241 ;; Let each entry behave as one paragraph: | 241 ;; Let each entry behave as one paragraph: |
| 242 (set (make-local-variable 'paragraph-start) "^\\s *$\\|^^L") | 242 (set (make-local-variable 'paragraph-start) "^\\s *$\\|^\f") |
| 243 (set (make-local-variable 'paragraph-separate) "^\\s *$\\|^^L\\|^\\sw") | 243 (set (make-local-variable 'paragraph-separate) "^\\s *$\\|^\f\\|^\\sw") |
| 244 ;; Let all entries for one day behave as one page. | 244 ;; Let all entries for one day behave as one page. |
| 245 ;; Match null string on the date-line so that the date-line | 245 ;; Match null string on the date-line so that the date-line |
| 246 ;; is grouped with what follows. | 246 ;; is grouped with what follows. |
| 247 (set (make-local-variable 'page-delimiter) "^\\<\\|^ ") | 247 (set (make-local-variable 'page-delimiter) "^\\<\\|^\f") |
| 248 (set (make-local-variable 'version-control) 'never) | 248 (set (make-local-variable 'version-control) 'never) |
| 249 (set (make-local-variable 'adaptive-fill-regexp) "\\s *") | 249 (set (make-local-variable 'adaptive-fill-regexp) "\\s *") |
| 250 (run-hooks 'change-log-mode-hook)) | 250 (run-hooks 'change-log-mode-hook)) |
| 251 | 251 |
| 252 (defvar change-log-mode-map nil | 252 (defvar change-log-mode-map nil |