unofficial mirror of emacs-devel@gnu.org 
 help / color / mirror / code / Atom feed
From: martin rudalics <rudalics@gmx.at>
Subject: lisp-imenu-generic-expression
Date: Fri, 02 Dec 2005 14:21:07 +0100	[thread overview]
Message-ID: <43904A43.1030201@gmx.at> (raw)

`lisp-imenu-generic-expression' doesn't return names of length one or
names starting with a symbol constituent.  The patch below should take
care of them.


*** lisp-mode.el	Fri Dec  2 10:16:24 2005
--- lisp-mode.el	Fri Dec  2 14:10:04 2005
***************
*** 102,108 ****
   				"defsetf" "define-setf-expander"
   				"define-method-combination"
   				"defgeneric" "defmethod") t))
! 			   "\\s-+\\(\\sw\\(\\sw\\|\\s_\\)+\\)"))
   	 2)
      (list (purecopy "Variables")
   	 (purecopy (concat "^\\s-*("
--- 102,108 ----
   				"defsetf" "define-setf-expander"
   				"define-method-combination"
   				"defgeneric" "defmethod") t))
! 			   "\\s-+\\(\\(\\sw\\|\\s_\\)+\\)"))
   	 2)
      (list (purecopy "Variables")
   	 (purecopy (concat "^\\s-*("
***************
*** 110,116 ****
   			     (regexp-opt
   			      '("defvar" "defconst" "defconstant" "defcustom"
   				"defparameter" "define-symbol-macro") t))
! 			   "\\s-+\\(\\sw\\(\\sw\\|\\s_\\)+\\)"))
   	 2)
      (list (purecopy "Types")
   	 (purecopy (concat "^\\s-*("
--- 110,116 ----
   			     (regexp-opt
   			      '("defvar" "defconst" "defconstant" "defcustom"
   				"defparameter" "define-symbol-macro") t))
! 			   "\\s-+\\(\\(\\sw\\|\\s_\\)+\\)"))
   	 2)
      (list (purecopy "Types")
   	 (purecopy (concat "^\\s-*("
***************
*** 119,125 ****
   			      '("defgroup" "deftheme" "deftype" "defstruct"
   				"defclass" "define-condition" "define-widget"
   				"defface" "defpackage") t))
! 			   "\\s-+'?\\(\\sw\\(\\sw\\|\\s_\\)+\\)"))
   	 2))

     "Imenu generic expression for Lisp mode.  See `imenu-generic-expression'.")
--- 119,125 ----
   			      '("defgroup" "deftheme" "deftype" "defstruct"
   				"defclass" "define-condition" "define-widget"
   				"defface" "defpackage") t))
! 			   "\\s-+'?\\(\\(\\sw\\|\\s_\\)+\\)"))
   	 2))

     "Imenu generic expression for Lisp mode.  See `imenu-generic-expression'.")

                 reply	other threads:[~2005-12-02 13:21 UTC|newest]

Thread overview: [no followups] expand[flat|nested]  mbox.gz  Atom feed

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.gnu.org/software/emacs/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=43904A43.1030201@gmx.at \
    --to=rudalics@gmx.at \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).