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 |
|
|
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) |