Mercurial > emacs
comparison lisp/emacs-lisp/lisp-mode.el @ 90182:f042e7c0fe20
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-53
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 302-319)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 69)
- Update from CVS
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Fri, 20 May 2005 04:22:05 +0000 |
| parents | 4da4a09e8b1b 6a0ab1c93beb |
| children | 173dee4e2611 |
comparison
equal
deleted
inserted
replaced
| 90181:0c828e2b0b6f | 90182:f042e7c0fe20 |
|---|---|
| 190 (setq comment-start ";") | 190 (setq comment-start ";") |
| 191 (make-local-variable 'comment-start-skip) | 191 (make-local-variable 'comment-start-skip) |
| 192 ;; Look within the line for a ; following an even number of backslashes | 192 ;; Look within the line for a ; following an even number of backslashes |
| 193 ;; after either a non-backslash or the line beginning. | 193 ;; after either a non-backslash or the line beginning. |
| 194 (setq comment-start-skip "\\(\\(^\\|[^\\\\\n]\\)\\(\\\\\\\\\\)*\\);+ *") | 194 (setq comment-start-skip "\\(\\(^\\|[^\\\\\n]\\)\\(\\\\\\\\\\)*\\);+ *") |
| 195 (make-local-variable 'font-lock-comment-start-skip) | |
| 196 ;; Font lock mode uses this only when it KNOWS a comment is starting. | |
| 197 (setq font-lock-comment-start-skip ";+ *") | |
| 195 (make-local-variable 'comment-add) | 198 (make-local-variable 'comment-add) |
| 196 (setq comment-add 1) ;default to `;;' in comment-region | 199 (setq comment-add 1) ;default to `;;' in comment-region |
| 197 (make-local-variable 'comment-column) | 200 (make-local-variable 'comment-column) |
| 198 (setq comment-column 40) | 201 (setq comment-column 40) |
| 199 ;; Don't get confused by `;' in doc strings when paragraph-filling. | 202 ;; Don't get confused by `;' in doc strings when paragraph-filling. |