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