/[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.55 by jurta, Fri May 28 21:12:25 2004 UTC revision 1.56 by jurta, Thu Sep 2 09:43:38 2004 UTC
# Line 176  If variable `beginning-of-defun-function Line 176  If variable `beginning-of-defun-function
176  is called as a function to find the defun's beginning."  is called as a function to find the defun's beginning."
177    (interactive "p")    (interactive "p")
178    (and (eq this-command 'beginning-of-defun)    (and (eq this-command 'beginning-of-defun)
179         (or (eq last-command 'beginning-of-defun) (push-mark)))         (or inhibit-mark-movement (eq last-command 'beginning-of-defun)
180               (push-mark)))
181    (and (beginning-of-defun-raw arg)    (and (beginning-of-defun-raw arg)
182         (progn (beginning-of-line) t)))         (progn (beginning-of-line) t)))
183    
# Line 226  If variable `end-of-defun-function' is n Line 227  If variable `end-of-defun-function' is n
227  is called as a function to find the defun's end."  is called as a function to find the defun's end."
228    (interactive "p")    (interactive "p")
229    (and (eq this-command 'end-of-defun)    (and (eq this-command 'end-of-defun)
230         (or (eq last-command 'end-of-defun) (push-mark)))         (or inhibit-mark-movement (eq last-command 'end-of-defun)
231               (push-mark)))
232    (if (or (null arg) (= arg 0)) (setq arg 1))    (if (or (null arg) (= arg 0)) (setq arg 1))
233    (if end-of-defun-function    (if end-of-defun-function
234        (if (> arg 0)        (if (> arg 0)

Legend:
Removed from v.1.55  
changed lines
  Added in v.1.56

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