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

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

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

revision 1.47 by lektu, Thu Oct 17 16:50:28 2002 UTC revision 1.48 by monnier, Sun May 18 21:51:01 2003 UTC
# Line 192  is called as a function to find the defu Line 192  is called as a function to find the defu
192      (and (re-search-backward (if defun-prompt-regexp      (and (re-search-backward (if defun-prompt-regexp
193                                   (concat (if open-paren-in-column-0-is-defun-start                                   (concat (if open-paren-in-column-0-is-defun-start
194                                               "^\\s(\\|" "")                                               "^\\s(\\|" "")
195                                           "\\(" defun-prompt-regexp "\\)\\s(")                                           "\\(?:" defun-prompt-regexp "\\)\\s(")
196                                 "^\\s(")                                 "^\\s(")
197                               nil 'move (or arg 1))                               nil 'move (or arg 1))
198           (progn (goto-char (1- (match-end 0)))) t)))           (progn (goto-char (1- (match-end 0)))) t)))

Legend:
Removed from v.1.47  
changed lines
  Added in v.1.48

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