Commit 50bfa18a authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(beginning-of-defun-raw): Pass `arg' down to beginning-of-defun-function.

parent a352dec1
......@@ -383,6 +383,9 @@ because they clash with commands provided by dirtrack.el. Use
* Lisp Changes in Emacs 23.1
** `beginning-of-defun-function' now takes one argument, the count
given to `beginning-of-defun'.
** New function `match-substitute-replacement' returns the result of
`replace-match' without actually using it in the buffer.
2007-11-22 Stefan Monnier <>
* emacs-lisp/lisp.el (beginning-of-defun-raw): Pass `arg' down to
2007-11-22 Reiner Steib <>
* mail/hashcash.el: Move from ../gnus. Add hashcash payments to email.
......@@ -175,9 +175,10 @@ normal recipe (see `beginning-of-defun'). Major modes can define this
if defining `defun-prompt-regexp' is not sufficient to handle the mode's
The function (of no args) should go to the line on which the current
defun starts, and return non-nil, or should return nil if it can't
find the beginning.")
The function takes the same argument as `beginning-of-defun' and should
behave similarly, returning non-nil if it found the beginning of a defun.
Ideally it should move to a point right before an open-paren which encloses
the body of the defun.")
(defun beginning-of-defun (&optional arg)
"Move backward to the beginning of a defun.
......@@ -218,12 +219,22 @@ is called as a function to find the defun's beginning."
(unless arg (setq arg 1))
(condition-case nil
(funcall beginning-of-defun-function arg)
;; We used to define beginning-of-defun-function as taking no argument
;; but that makes it impossible to implement correct forward motion:
;; we used to use end-of-defun for that, but it's not supposed to do
;; the same thing (it moves to the end of a defun not to the beginning
;; of the next).
;; In case the beginning-of-defun-function uses the old calling
;; convention, fallback on the old implementation.
(if (> arg 0)
(dotimes (i arg)
(funcall beginning-of-defun-function))
;; Better not call end-of-defun-function directly, in case
;; it's not defined.
(end-of-defun (- arg))))
(end-of-defun (- arg))))))
((or defun-prompt-regexp open-paren-in-column-0-is-defun-start)
(and (< arg 0) (not (eobp)) (forward-char 1))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment