Mercurial > emacs

changeset 59330:03306a6707b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(find-variable-regexp): Avoid defface.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 03 Jan 2005 22:05:12 +0000
parents 75e5456e5a43
children 35ab85a2d8f2
files lisp/ChangeLog lisp/emacs-lisp/find-func.el
diffstat 2 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Mon Jan 03 21:00:07 2005 +0000
+++ b/lisp/ChangeLog	Mon Jan 03 22:05:12 2005 +0000
@@ -1,5 +1,7 @@
 2005-01-03  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* emacs-lisp/find-func.el (find-variable-regexp): Avoid defface.
+
 	* progmodes/perl-mode.el (perl-nochange, perl-calculate-indent):
 	Don't confuse module-prefixed identifiers for labels.
 	Reported by Juan-Leon Lahoz Garcia <juanleon1@gmail.com>.
--- a/lisp/emacs-lisp/find-func.el	Mon Jan 03 21:00:07 2005 +0000
+++ b/lisp/emacs-lisp/find-func.el	Mon Jan 03 22:05:12 2005 +0000
@@ -1,6 +1,6 @@
 ;;; find-func.el --- find the definition of the Emacs Lisp function near point
 
-;; Copyright (C) 1997, 1999, 2001, 2004  Free Software Foundation, Inc.
+;; Copyright (C) 1997, 1999, 2001, 2004, 2005  Free Software Foundation, Inc.
 
 ;; Author: Jens Petersen <petersen@kurims.kyoto-u.ac.jp>
 ;; Maintainer: petersen@kurims.kyoto-u.ac.jp
@@ -76,10 +76,10 @@
   :version "21.1")
 
 (defcustom find-variable-regexp
-  (concat"^\\s-*(def[^umag]\\(\\w\\|\\s_\\)+\\*?" find-function-space-re "%s\\(\\s-\\|$\\)")
+  (concat"^\\s-*(def[^fumag]\\(\\w\\|\\s_\\)+\\*?" find-function-space-re "%s\\(\\s-\\|$\\)")
   "The regexp used by `find-variable' to search for a variable definition.
 It should match right up to the variable name.  The default value
-avoids `defun', `defmacro', `defalias', `defadvice', `defgroup'.
+avoids `defun', `defmacro', `defalias', `defadvice', `defgroup', `defface'.
 
 Please send improvements and fixes to the maintainer."
   :type 'regexp
@@ -437,5 +437,5 @@
 
 (provide 'find-func)
 
-;;; arch-tag: 43ecd81c-74dc-4d9a-8f63-a61e55670d64
+;; arch-tag: 43ecd81c-74dc-4d9a-8f63-a61e55670d64
 ;;; find-func.el ends here