From 55d150f329baeda983b8caed1e8e18be32899dcd Mon Sep 17 00:00:00 2001 From: Sam Steingold Date: Mon, 15 Dec 2008 18:31:59 +0000 Subject: [PATCH] (c-defun-name): Handle DEFFOO(name,...), mostly for CLISP modules, but could also be useful elsewhere. --- lisp/ChangeLog | 5 +++++ lisp/progmodes/cc-cmds.el | 5 +++++ 2 files changed, 10 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 722ff6b63bf..5d96307e73f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2008-12-15 Sam Steingold + + * progmodes/cc-cmds.el (c-defun-name): Handle DEFFOO(name,...), + mostly for CLISP modules, but could also be useful elsewhere. + 2008-12-15 Juanma Barranquero * face-remap.el (text-scale-mode-step, buffer-face-mode-face): diff --git a/lisp/progmodes/cc-cmds.el b/lisp/progmodes/cc-cmds.el index d0c60452a91..fc0d5334ee5 100644 --- a/lisp/progmodes/cc-cmds.el +++ b/lisp/progmodes/cc-cmds.el @@ -1732,6 +1732,11 @@ with a brace block." (c-backward-syntactic-ws) (point)))) + ((looking-at "DEF[a-zA-Z0-9_]* *( *\\([^, ]*\\) *,") + ;; DEFCHECKER(sysconf_arg,prefix=_SC,default=, ...) ==> sysconf_arg + ;; DEFFLAGSET(syslog_opt_flags,LOG_PID ...) ==> syslog_opt_flags + (match-string-no-properties 1)) + (t ;; Normal function or initializer. (when (c-syntactic-re-search-forward "[{(]" nil t) -- 2.39.2