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 |
1162 |
and initial semicolons." |
and initial semicolons." |
1163 |
(interactive "P") |
(interactive "P") |
1164 |
(or (fill-comment-paragraph justify) |
(or (fill-comment-paragraph justify) |
1165 |
;; 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 |
1166 |
|
;; a comment: Point is on a program line; we are interested |
1167 |
;; particularly in docstring lines. |
;; particularly in docstring lines. |
1168 |
;; |
;; |
1169 |
;; We bind `paragraph-start' and `paragraph-separate' temporarily. They |
;; We bind `paragraph-start' and `paragraph-separate' temporarily. They |
1192 |
;; The `fill-column' is temporarily bound to |
;; The `fill-column' is temporarily bound to |
1193 |
;; `emacs-lisp-docstring-fill-column' if that value is an integer. |
;; `emacs-lisp-docstring-fill-column' if that value is an integer. |
1194 |
(let ((paragraph-start (concat paragraph-start |
(let ((paragraph-start (concat paragraph-start |
1195 |
"\\|\\s-*\\([\(;:\"]\\|`\(\\)")) |
"\\|\\s-*\\([(;:\"]\\|`(\\|#'(\\)")) |
1196 |
(paragraph-separate |
(paragraph-separate |
1197 |
(concat paragraph-separate "\\|\\s-*\".*[,\\.]$")) |
(concat paragraph-separate "\\|\\s-*\".*[,\\.]$")) |
1198 |
(fill-column (if (integerp emacs-lisp-docstring-fill-column) |
(fill-column (if (integerp emacs-lisp-docstring-fill-column) |
1237 |
|
|
1238 |
(provide 'lisp-mode) |
(provide 'lisp-mode) |
1239 |
|
|
1240 |
;;; arch-tag: 414c7f93-c245-4b77-8ed5-ed05ef7ff1bf |
;; arch-tag: 414c7f93-c245-4b77-8ed5-ed05ef7ff1bf |
1241 |
;;; lisp-mode.el ends here |
;;; lisp-mode.el ends here |