/[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.134.4.12 by miles, Thu Sep 16 00:12:21 2004 UTC revision 1.134.4.13 by miles, Mon Oct 25 04:19:40 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 1161  paragraph of it that point is in, preser Line 1162  paragraph of it that point is in, preser
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
# Line 1190  and initial semicolons." Line 1192  and initial semicolons."
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)
# Line 1235  means don't indent that line." Line 1237  means don't indent that line."
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

Legend:
Removed from v.1.134.4.12  
changed lines
  Added in v.1.134.4.13

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