Show
Ignore:
Timestamp:
11/26/05 08:33:26 (3 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • vendor/emacs-CVS_HEAD/lisp/emacs-lisp/lisp-mode.el

    r3939 r3988  
    234234  ;; Don't get confused by `;' in doc strings when paragraph-filling. 
    235235  (set (make-local-variable 'comment-use-global-state) t) 
    236   (make-local-variable 'comment-indent-function) 
    237   (setq comment-indent-function 'lisp-comment-indent) 
    238236  (make-local-variable 'imenu-generic-expression) 
    239237  (setq imenu-generic-expression lisp-imenu-generic-expression) 
    …… 
    747745               (setq debug-on-error new-value)) 
    748746             value))))) 
    749   
    750 ;; Used for comment-indent-function in Lisp modes. 
    751 (defun lisp-comment-indent () 
    752   (if (looking-at "\\s<\\s<\\s<") 
    753       (current-column) 
    754     (if (looking-at "\\s<\\s<") 
    755         (let ((tem (or (calculate-lisp-indent) (current-column)))) 
    756           (if (listp tem) (car tem) tem)) 
    757       (skip-chars-backward " \t") 
    758       (max (if (bolp) 0 (1+ (current-column))) 
    759            comment-column)))) 
     747 
     748;; May still be used by some external Lisp-mode variant. 
     749(define-obsolete-function-alias 'lisp-comment-indent 'comment-indent-default) 
    760750 
    761751;; This function just forces a more costly detection of comments (using