[Emacs-diffs] emacs/lisp ChangeLog progmodes/cc-cmds.el

[Sam Steingold]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Sam Steingold <sds>     08/12/15 18:32:05

Modified files:
        lisp           : ChangeLog 
        lisp/progmodes : cc-cmds.el 

Log message:
        (c-defun-name): Handle DEFFOO(name,...),
        mostly for CLISP modules, but could also be useful elsewhere.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.14951&r2=1.14952
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/cc-cmds.el?cvsroot=emacs&r1=1.76&r2=1.77

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.14951
retrieving revision 1.14952
diff -u -b -r1.14951 -r1.14952
--- ChangeLog   15 Dec 2008 16:45:55 -0000      1.14951
+++ ChangeLog   15 Dec 2008 18:31:59 -0000      1.14952
@@ -1,3 +1,8 @@
+2008-12-15  Sam Steingold  <address@hidden>
+
+       * 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  <address@hidden>
 
        * face-remap.el (text-scale-mode-step, buffer-face-mode-face):

Index: progmodes/cc-cmds.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/cc-cmds.el,v
retrieving revision 1.76
retrieving revision 1.77
diff -u -b -r1.76 -r1.77
--- progmodes/cc-cmds.el        7 Nov 2008 15:39:56 -0000       1.76
+++ progmodes/cc-cmds.el        15 Dec 2008 18:32:04 -0000      1.77
@@ -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)