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

[Miles Bader]

Index: emacs/lisp/emacs-lisp/lisp.el
diff -c emacs/lisp/emacs-lisp/lisp.el:1.46.4.1 
emacs/lisp/emacs-lisp/lisp.el:1.46.4.2
*** emacs/lisp/emacs-lisp/lisp.el:1.46.4.1      Fri Apr  4 01:20:16 2003
--- emacs/lisp/emacs-lisp/lisp.el       Tue Oct 14 19:32:21 2003
***************
*** 157,164 ****
  if defining `defun-prompt-regexp' is not sufficient to handle the mode's
  needs.
  
! The function should go to the line on which the current defun starts,
! and return non-nil, or should return nil if it can't find the beginning.")
  
  (defun beginning-of-defun (&optional arg)
    "Move backward to the beginning of a defun.
--- 157,165 ----
  if defining `defun-prompt-regexp' is not sufficient to handle the mode's
  needs.
  
! The function (of no args) should go to the line on which the current
! defun starts, and return non-nil, or should return nil if it can't
! find the beginning.")
  
  (defun beginning-of-defun (&optional arg)
    "Move backward to the beginning of a defun.
***************
*** 192,198 ****
      (and (re-search-backward (if defun-prompt-regexp
                                 (concat (if 
open-paren-in-column-0-is-defun-start
                                             "^\\s(\\|" "")
!                                        "\\(" defun-prompt-regexp "\\)\\s(")
                               "^\\s(")
                             nil 'move (or arg 1))
         (progn (goto-char (1- (match-end 0)))) t)))
--- 193,199 ----
      (and (re-search-backward (if defun-prompt-regexp
                                 (concat (if 
open-paren-in-column-0-is-defun-start
                                             "^\\s(\\|" "")
!                                        "\\(?:" defun-prompt-regexp "\\)\\s(")
                               "^\\s(")
                             nil 'move (or arg 1))
         (progn (goto-char (1- (match-end 0)))) t)))
***************
*** 445,448 ****
--- 446,450 ----
                   (display-completion-list list)))
               (message "Making completion list...%s" "done")))))))
  
+ ;;; arch-tag: aa7fa8a4-2e6f-4e9b-9cd9-fef06340e67e
  ;;; lisp.el ends here