1 |
;;; lisp-mode.el --- Lisp mode, and its idiosyncratic commands |
;;; lisp-mode.el --- Lisp mode, and its idiosyncratic commands |
2 |
|
|
3 |
;; Copyright (C) 1985,86,1999,2000,01,03,2004 Free Software Foundation, Inc. |
;; Copyright (C) 1985, 1986, 1999, 2000, 2001, 2003, 2004 |
4 |
|
;; Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Maintainer: FSF |
;; Maintainer: FSF |
7 |
;; Keywords: lisp, languages |
;; Keywords: lisp, languages |
1154 |
and initial semicolons." |
and initial semicolons." |
1155 |
(interactive "P") |
(interactive "P") |
1156 |
(or (fill-comment-paragraph justify) |
(or (fill-comment-paragraph justify) |
1157 |
;; Point is on a program line (a line no comment); we are interested |
;; Since fill-comment-paragraph returned nil, that means we're not in |
1158 |
|
;; a comment: Point is on a program line; we are interested |
1159 |
;; particularly in docstring lines. |
;; particularly in docstring lines. |
1160 |
;; |
;; |
1161 |
;; We bind `paragraph-start' and `paragraph-separate' temporarily. They |
;; We bind `paragraph-start' and `paragraph-separate' temporarily. They |
1184 |
;; The `fill-column' is temporarily bound to |
;; The `fill-column' is temporarily bound to |
1185 |
;; `emacs-lisp-docstring-fill-column' if that value is an integer. |
;; `emacs-lisp-docstring-fill-column' if that value is an integer. |
1186 |
(let ((paragraph-start (concat paragraph-start |
(let ((paragraph-start (concat paragraph-start |
1187 |
"\\|\\s-*\\([\(;:\"]\\|`\(\\)")) |
"\\|\\s-*\\([(;:\"]\\|`(\\|#'(\\)")) |
1188 |
(paragraph-separate |
(paragraph-separate |
1189 |
(concat paragraph-separate "\\|\\s-*\".*[,\\.]$")) |
(concat paragraph-separate "\\|\\s-*\".*[,\\.]$")) |
1190 |
(fill-column (if (integerp emacs-lisp-docstring-fill-column) |
(fill-column (if (integerp emacs-lisp-docstring-fill-column) |
1229 |
|
|
1230 |
(provide 'lisp-mode) |
(provide 'lisp-mode) |
1231 |
|
|
1232 |
;;; arch-tag: 414c7f93-c245-4b77-8ed5-ed05ef7ff1bf |
;; arch-tag: 414c7f93-c245-4b77-8ed5-ed05ef7ff1bf |
1233 |
;;; lisp-mode.el ends here |
;;; lisp-mode.el ends here |