/[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.59 by jurta, Mon Dec 13 03:09:59 2004 UTC revision 1.60 by kfstorm, Tue Dec 14 12:18:11 2004 UTC
# Line 192  open-parenthesis, and point ends up at t Line 192  open-parenthesis, and point ends up at t
192  If variable `beginning-of-defun-function' is non-nil, its value  If variable `beginning-of-defun-function' is non-nil, its value
193  is called as a function to find the defun's beginning."  is called as a function to find the defun's beginning."
194    (interactive "p")    (interactive "p")
195    (or inhibit-mark-movement    (or (not (eq this-command 'beginning-of-defun))
       (not (eq this-command 'beginning-of-defun))  
196        (eq last-command 'beginning-of-defun)        (eq last-command 'beginning-of-defun)
197        (and transient-mark-mode mark-active)        (and transient-mark-mode mark-active)
198        (push-mark))        (push-mark))
# Line 245  matches the open-parenthesis that starts Line 244  matches the open-parenthesis that starts
244  If variable `end-of-defun-function' is non-nil, its value  If variable `end-of-defun-function' is non-nil, its value
245  is called as a function to find the defun's end."  is called as a function to find the defun's end."
246    (interactive "p")    (interactive "p")
247    (or inhibit-mark-movement    (or (not (eq this-command 'end-of-defun))
       (not (eq this-command 'end-of-defun))  
248        (eq last-command 'end-of-defun)        (eq last-command 'end-of-defun)
249        (and transient-mark-mode mark-active)        (and transient-mark-mode mark-active)
250        (push-mark))        (push-mark))

Legend:
Removed from v.1.59  
changed lines
  Added in v.1.60

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