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) |
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 |