Commit 14e10fb3 authored by Chong Yidong's avatar Chong Yidong

(c-emacs-features): Check beginning-of-defun-raw instead of

beginning-of-defun, and avoid moving point during the test.
parent 6af40839
......@@ -1440,13 +1440,14 @@ non-nil, a caret is prepended to invert the set."
'1-bit)
list)))
;; In Emacs >= 23, beginning-of-defun will passes its parameter to
;; beginning-of-defun-function. Assume end-of-defun does the same.
;; In Emacs >= 23, beginning-of-defun-raw passes its argument to
;; beginning-of-defun-function. Assume end-of-defun does likewise.
(let ((beginning-of-defun-function
(lambda (&optional arg)
(not (eq arg nil)))))
(if (beginning-of-defun 1)
(setq list (cons 'argumentative-bod-function list))))
(save-excursion
(if (beginning-of-defun-raw 1)
(setq list (cons 'argumentative-bod-function list)))))
(let ((buf (generate-new-buffer " test"))
parse-sexp-lookup-properties
......
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