[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp-mode.el [lexbind]

[Miles Bader]

Index: emacs/lisp/emacs-lisp/lisp-mode.el
diff -c emacs/lisp/emacs-lisp/lisp-mode.el:1.134.4.12 
emacs/lisp/emacs-lisp/lisp-mode.el:1.134.4.13
*** emacs/lisp/emacs-lisp/lisp-mode.el:1.134.4.12       Thu Sep 16 00:12:21 2004
--- emacs/lisp/emacs-lisp/lisp-mode.el  Mon Oct 25 04:19:40 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
***************
*** 1161,1167 ****
  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
--- 1162,1169 ----
  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
***************
*** 1190,1196 ****
        ;; 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)
--- 1192,1198 ----
        ;; 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)
***************
*** 1235,1239 ****
  
  (provide 'lisp-mode)
  
! ;;; arch-tag: 414c7f93-c245-4b77-8ed5-ed05ef7ff1bf
  ;;; lisp-mode.el ends here
--- 1237,1241 ----
  
  (provide 'lisp-mode)
  
! ;; arch-tag: 414c7f93-c245-4b77-8ed5-ed05ef7ff1bf
  ;;; lisp-mode.el ends here