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