Mercurial > emacs
comparison lisp/emacs-lisp/lisp-mode.el @ 57393:3493253e6b69
(lisp-fill-paragraph): Change
paragraph-start regexp so we don't fill code starting with #'(
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Fri, 08 Oct 2004 17:54:43 +0000 |
| parents | 5418c6e288fc |
| children | b1bdc11085c9 |
comparison
equal
deleted
inserted
replaced
| 57392:0c5a04846b58 | 57393:3493253e6b69 |
|---|---|
| 1180 ;; and a quotation mark and ends with a period or (rarely) a comma. | 1180 ;; and a quotation mark and ends with a period or (rarely) a comma. |
| 1181 ;; | 1181 ;; |
| 1182 ;; The `fill-column' is temporarily bound to | 1182 ;; The `fill-column' is temporarily bound to |
| 1183 ;; `emacs-lisp-docstring-fill-column' if that value is an integer. | 1183 ;; `emacs-lisp-docstring-fill-column' if that value is an integer. |
| 1184 (let ((paragraph-start (concat paragraph-start | 1184 (let ((paragraph-start (concat paragraph-start |
| 1185 "\\|\\s-*\\([\(;:\"]\\|`\(\\)")) | 1185 "\\|\\s-*\\([\(;:\"]\\|`\(\\|#'\(\\)")) |
| 1186 (paragraph-separate | 1186 (paragraph-separate |
| 1187 (concat paragraph-separate "\\|\\s-*\".*[,\\.]$")) | 1187 (concat paragraph-separate "\\|\\s-*\".*[,\\.]$")) |
| 1188 (fill-column (if (integerp emacs-lisp-docstring-fill-column) | 1188 (fill-column (if (integerp emacs-lisp-docstring-fill-column) |
| 1189 emacs-lisp-docstring-fill-column | 1189 emacs-lisp-docstring-fill-column |
| 1190 fill-column))) | 1190 fill-column))) |