[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp-mode.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp-mode.el |
Date: |
Sat, 09 Oct 2004 10:35:31 -0400 |
Index: emacs/lisp/emacs-lisp/lisp-mode.el
diff -c emacs/lisp/emacs-lisp/lisp-mode.el:1.166
emacs/lisp/emacs-lisp/lisp-mode.el:1.167
*** emacs/lisp/emacs-lisp/lisp-mode.el:1.166 Fri Oct 8 17:54:43 2004
--- emacs/lisp/emacs-lisp/lisp-mode.el Sat Oct 9 14:28:12 2004
***************
*** 1,6 ****
;;; lisp-mode.el --- Lisp mode, and its idiosyncratic commands
! ;; Copyright (C) 1985,86,1999,2000,01,03,2004 Free Software Foundation, Inc.
;; Maintainer: FSF
;; Keywords: lisp, languages
--- 1,7 ----
;;; lisp-mode.el --- Lisp mode, and its idiosyncratic commands
! ;; Copyright (C) 1985, 1986, 1999, 2000, 2001, 2003, 2004
! ;; Free Software Foundation, Inc.
;; Maintainer: FSF
;; Keywords: lisp, languages
***************
*** 1153,1159 ****
and initial semicolons."
(interactive "P")
(or (fill-comment-paragraph justify)
! ;; Point is on a program line (a line no comment); we are interested
;; particularly in docstring lines.
;;
;; We bind `paragraph-start' and `paragraph-separate' temporarily. They
--- 1154,1161 ----
and initial semicolons."
(interactive "P")
(or (fill-comment-paragraph justify)
! ;; Since fill-comment-paragraph returned nil, that means we're not in
! ;; a comment: Point is on a program line; we are interested
;; particularly in docstring lines.
;;
;; We bind `paragraph-start' and `paragraph-separate' temporarily. They
***************
*** 1182,1188 ****
;; The `fill-column' is temporarily bound to
;; `emacs-lisp-docstring-fill-column' if that value is an integer.
(let ((paragraph-start (concat paragraph-start
! "\\|\\s-*\\([\(;:\"]\\|`\(\\|#'\(\\)"))
(paragraph-separate
(concat paragraph-separate "\\|\\s-*\".*[,\\.]$"))
(fill-column (if (integerp emacs-lisp-docstring-fill-column)
--- 1184,1190 ----
;; The `fill-column' is temporarily bound to
;; `emacs-lisp-docstring-fill-column' if that value is an integer.
(let ((paragraph-start (concat paragraph-start
! "\\|\\s-*\\([(;:\"]\\|`(\\|#'(\\)"))
(paragraph-separate
(concat paragraph-separate "\\|\\s-*\".*[,\\.]$"))
(fill-column (if (integerp emacs-lisp-docstring-fill-column)
***************
*** 1227,1231 ****
(provide 'lisp-mode)
! ;;; arch-tag: 414c7f93-c245-4b77-8ed5-ed05ef7ff1bf
;;; lisp-mode.el ends here
--- 1229,1233 ----
(provide 'lisp-mode)
! ;; arch-tag: 414c7f93-c245-4b77-8ed5-ed05ef7ff1bf
;;; lisp-mode.el ends here