/[emacs]/emacs/lisp/emacs-lisp/lisp-mode.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/lisp-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.177 by jurta, Tue Jun 21 15:59:33 2005 UTC revision 1.178 by rms, Sat Jun 25 14:10:23 2005 UTC
# Line 202  Line 202 
202    (setq comment-column 40)    (setq comment-column 40)
203    ;; Don't get confused by `;' in doc strings when paragraph-filling.    ;; Don't get confused by `;' in doc strings when paragraph-filling.
204    (set (make-local-variable 'comment-use-global-state) t)    (set (make-local-variable 'comment-use-global-state) t)
205      (make-local-variable 'comment-indent-function)
206      (setq comment-indent-function 'lisp-comment-indent)
207    (make-local-variable 'imenu-generic-expression)    (make-local-variable 'imenu-generic-expression)
208    (setq imenu-generic-expression lisp-imenu-generic-expression)    (setq imenu-generic-expression lisp-imenu-generic-expression)
209    (make-local-variable 'multibyte-syntax-as-symbol)    (make-local-variable 'multibyte-syntax-as-symbol)
# Line 714  which see." Line 716  which see."
716                 (setq debug-on-error new-value))                 (setq debug-on-error new-value))
717               value)))))               value)))))
718    
719    ;; Used for comment-indent-function in Lisp modes.
720  (defun lisp-comment-indent ()  (defun lisp-comment-indent ()
721    (if (looking-at "\\s<\\s<\\s<")    (if (looking-at "\\s<\\s<\\s<")
722        (current-column)        (current-column)

Legend:
Removed from v.1.177  
changed lines
  Added in v.1.178

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26