# HG changeset patch # User Stefan Monnier # Date 1104789912 0 # Node ID 03306a6707b9d11a652a87ce521396289a6fb992 # Parent 75e5456e5a434e87d0603d919d9d66855b1190bf (find-variable-regexp): Avoid defface. diff -r 75e5456e5a43 -r 03306a6707b9 lisp/ChangeLog --- 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 + * 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 . diff -r 75e5456e5a43 -r 03306a6707b9 lisp/emacs-lisp/find-func.el --- 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 ;; 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