[Emacs-diffs] trunk r113661: lisp/emacs-lisp/lisp-mode.el: Support cl-def* expressions in imenu.

[Juanma Barranquero]

------------------------------------------------------------
revno: 113661
revision-id: address@hidden
parent: address@hidden
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Fri 2013-08-02 18:29:16 +0200
message:
  lisp/emacs-lisp/lisp-mode.el: Support cl-def* expressions in imenu.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/emacs-lisp/lisp-mode.el   lispmode.el-20091113204419-o5vbwnq5f7feedwu-205

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-08-02 16:03:13 +0000
+++ b/lisp/ChangeLog    2013-08-02 16:29:16 +0000
@@ -1,5 +1,8 @@
 2013-08-02  Juanma Barranquero  <address@hidden>
 
+       * emacs-lisp/lisp-mode.el (lisp-imenu-generic-expression):
+       Add cl-def* expressions.
+
        * frameset.el (frameset-filter-params): Fix order of arguments.
 
 2013-08-02  Juanma Barranquero  <address@hidden>

=== modified file 'lisp/emacs-lisp/lisp-mode.el'
--- a/lisp/emacs-lisp/lisp-mode.el      2013-06-18 22:13:25 +0000
+++ b/lisp/emacs-lisp/lisp-mode.el      2013-08-02 16:29:16 +0000
@@ -110,7 +110,9 @@
                                "define-compiler-macro" "define-modify-macro"
                                "defsetf" "define-setf-expander"
                                "define-method-combination"
-                               "defgeneric" "defmethod") t))
+                               "defgeneric" "defmethod"
+                               "cl-defun" "cl-defsubst" "cl-defmacro"
+                               "cl-define-compiler-macro") t))
                           "\\s-+\\(\\(\\sw\\|\\s_\\)+\\)"))
         2)
    (list (purecopy "Variables")
@@ -132,7 +134,8 @@
                             (regexp-opt
                              '("defgroup" "deftheme" "deftype" "defstruct"
                                "defclass" "define-condition" "define-widget"
-                               "defface" "defpackage") t))
+                               "defface" "defpackage" "cl-deftype"
+                               "cl-defstruct") t))
                           "\\s-+'?\\(\\(\\sw\\|\\s_\\)+\\)"))
         2))