procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
beginning-of-defun, and avoid moving point during the test.
This commit is contained in:
Chong Yidong 2008-08-11 21:38:04 +00:00
parent 6af4083913
commit 14e10fb314
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/progmodes/cc-defs.el
View file

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