Re: where-is fails on undefined functions

[Christoph Conrad]

In GNU Emacs 21.3.50.1 (i386-msvc-nt4.0.1381)
 of 2003-01-08 on CLI119
configured using `configure --with-msvc (12.00)'

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: DEU
  locale-coding-system: iso-latin-1
  default-enable-multibyte-characters: nil

In ps-print.el there are several aliases for XEmacs defined, e.g.

,----
|   (defalias 'ps-x-color-name                    'color-name)
`----

So in a GNU Emacs color-name isn't defined.

so e.g. where-is comment-dwim fails cause:

Debugger entered--Lisp error: (void-function ps-x-color-name)
  indirect-function(ps-x-color-name)
  (eq func (indirect-function symbol))
  (and (fboundp symbol) (not (eq symbol definition)) (eq func 
(indirect-function symbol)) (push symbol defs))
  (lambda (symbol) (and (fboundp symbol) (not ...) (eq func ...) (push symbol 
defs)))(ps-x-color-name)
  mapatoms((lambda (symbol) (and (fboundp symbol) (not ...) (eq func ...) (push 
symbol defs))))
  (let ((func ...) (defs nil) (standard-output ...)) (mapatoms (lambda ... 
...)) (princ (mapconcat ... ... ";\nand ")))
  where-is(comment-dwim nil)
* call-interactively(where-is)