find-tag-default not available yet

[Walter C. Pelissero]

M-x grep within a Lisp buffer causes find-tag-default to be called in
lisp-find-tag-default (lisp-mode.el line 362) because of the put at
line 359.  Code excerpt:

(put 'lisp-mode 'find-tag-default-function 'lisp-find-tag-default)

(defun lisp-find-tag-default ()
  (let ((default (find-tag-default)))
    (when (stringp default)
      (if (string-match ":+" default)
          (substring default (match-end 0))
          default))))

Unfortunately find-tag-default is defined in etags.el.  If I don't
require 'etags in advance I get an error:

lisp-find-tag-default: Symbol's function definition is void: find-tag-default

-- 
walter pelissero
http://www.pelissero.de


In GNU Emacs 21.3.50.1 (i386-unknown-freebsd5.2.1, X toolkit, Xaw3d scroll bars)
 of 2004-08-23 on hyde.home.loc
Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: en_GB.ISO8859-15
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: en_GB.ISO8859-15
  locale-coding-system: iso-latin-9
  default-enable-multibyte-characters: t

Major mode: Lisp

Minor modes in effect:
  slime-mode: t
  auto-compression-mode: t
  iswitchb-mode: t
  show-paren-mode: t
  mouse-wheel-mode: t
  menu-bar-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
<up> <up> <up> <up> <up> <up> <up> <up> M-x g r e p 
<return> M-x e m a c s - r e <tab> <M-backspace> <M-backspace> 
r e p o <tab> r t <tab> <return>

Recent messages:
setting up indent stuff
Indentation variable are now local.
Indentation setup for shell type sh
Note: file is write protected [2 times]
Desktop loaded.
Loading composite...done
Loading grep...done
lisp-find-tag-default: Symbol's function definition is void: find-tag-default
Making completion list...
Loading emacsbug...done