Mercurial > emacs
changeset 100440:345d5a2d04d5
(c-defun-name): Handle DEFFOO(name,...),
mostly for CLISP modules, but could also be useful elsewhere.
| author | Sam Steingold <sds@gnu.org> |
|---|---|
| date | Mon, 15 Dec 2008 18:31:59 +0000 |
| parents | 5de002dfa264 |
| children | cb67ce776400 |
| files | lisp/ChangeLog lisp/progmodes/cc-cmds.el |
| diffstat | 2 files changed, 10 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Dec 15 16:45:55 2008 +0000 +++ b/lisp/ChangeLog Mon Dec 15 18:31:59 2008 +0000 @@ -1,3 +1,8 @@ +2008-12-15 Sam Steingold <sds@gnu.org> + + * 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 <lekktu@gmail.com> * face-remap.el (text-scale-mode-step, buffer-face-mode-face):
--- a/lisp/progmodes/cc-cmds.el Mon Dec 15 16:45:55 2008 +0000 +++ b/lisp/progmodes/cc-cmds.el Mon Dec 15 18:31:59 2008 +0000 @@ -1732,6 +1732,11 @@ (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)