/[emacs]/emacs/lisp/emacs-lisp/lisp-mode.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/lisp-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.149.2.6 by miles, Thu Sep 9 09:36:32 2004 UTC revision 1.149.2.7 by miles, Thu Oct 14 08:50:01 2004 UTC
# Line 1  Line 1 
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
# Line 1153  paragraph of it that point is in, preser Line 1154  paragraph of it that point is in, preser
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
# Line 1182  and initial semicolons." Line 1184  and initial semicolons."
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)
# Line 1227  means don't indent that line." Line 1229  means don't indent that line."
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

Legend:
Removed from v.1.149.2.6  
changed lines
  Added in v.1.149.2.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26