/[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.188 by monnier, Mon Oct 24 16:47:53 2005 UTC revision 1.189 by monnier, Tue Nov 8 01:46:36 2005 UTC
# Line 233  Line 233 
233    (setq comment-column 40)    (setq comment-column 40)
234    ;; Don't get confused by `;' in doc strings when paragraph-filling.    ;; Don't get confused by `;' in doc strings when paragraph-filling.
235    (set (make-local-variable 'comment-use-global-state) t)    (set (make-local-variable 'comment-use-global-state) t)
   (make-local-variable 'comment-indent-function)  
   (setq comment-indent-function 'lisp-comment-indent)  
236    (make-local-variable 'imenu-generic-expression)    (make-local-variable 'imenu-generic-expression)
237    (setq imenu-generic-expression lisp-imenu-generic-expression)    (setq imenu-generic-expression lisp-imenu-generic-expression)
238    (make-local-variable 'multibyte-syntax-as-symbol)    (make-local-variable 'multibyte-syntax-as-symbol)
# Line 746  which see." Line 744  which see."
744               (unless (eq old-value new-value)               (unless (eq old-value new-value)
745                 (setq debug-on-error new-value))                 (setq debug-on-error new-value))
746               value)))))               value)))))
747    
748  ;; Used for comment-indent-function in Lisp modes.  ;; May still be used by some external Lisp-mode variant.
749  (defun lisp-comment-indent ()  (define-obsolete-function-alias 'lisp-comment-indent 'comment-indent-default)
   (if (looking-at "\\s<\\s<\\s<")  
       (current-column)  
     (if (looking-at "\\s<\\s<")  
         (let ((tem (or (calculate-lisp-indent) (current-column))))  
           (if (listp tem) (car tem) tem))  
       (skip-chars-backward " \t")  
       (max (if (bolp) 0 (1+ (current-column)))  
            comment-column))))  
750    
751  ;; This function just forces a more costly detection of comments (using  ;; This function just forces a more costly detection of comments (using
752  ;; parse-partial-sexp from beginning-of-defun).  I.e. It avoids the problem of  ;; parse-partial-sexp from beginning-of-defun).  I.e. It avoids the problem of

Legend:
Removed from v.1.188  
changed lines
  Added in v.1.189

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