info-lookup delay on missing file

[Kevin Ryde <user42@zip.com.au>]

[-- Attachment #1: Type: text/plain, Size: 1344 bytes --]

When an info file specified in info-lookup-alist doesn't exit,
info-lookup has a message and sit-for every time it goes across that
file in doing a lookup.

For instance in sh-mode, diff.info is after coreutils.info.  If you
don't have coreutils.info and you try "C-h C-i diff" there's a message
and delay

	Cannot access Info node (coreutils)Index

every time before going on to bring up the diff manual.  During the
delay an unrelated index is shown in the info window, which I also
think is quite disconcerting.

I'd like to propose quietly ignoring such inaccessible files,

        * info-look.el (info-lookup): Don't sit-for and message on
        inaccessible info file.  This was done on every lookup going past that
        file's entry and was too annoying.  Leave it to happen just once on
        building the cache.

There's still a message while first loading up info-lookup-cache,
ie. the first lookup in a mode, hopefully that's enough of a warning.

I struck this when appending further manuals to the c-mode setups.  I
don't have a termcap.info for that entry in the default setups and so
got a delay on every lookup of one of my additions.

Obviously it's not too hard to delete info-lookup-alist bits for
things you doesn't have, but it seems to me friendlier to give just
one warning and thereafter ignore missing stuff.



[-- Attachment #2: info-look.el.message.diff --]
[-- Type: text/plain, Size: 656 bytes --]

*** info-look.el.~1.34.~	Thu Jan  1 10:00:01 1970
--- info-look.el	Thu Aug 21 14:53:47 2003
*************** (defun info-lookup (topic item mode)
*** 351,360 ****
  		  (progn
  		    (Info-goto-node node)
  		    (setq doc-found t))
! 		(error
! 		 (message "Cannot access Info node %s" node)
! 		 (sit-for 1)
! 		 nil))
  	  (condition-case nil
  	      (progn
                  ;; Don't use Info-menu, it forces case-fold-search to t
--- 351,357 ----
  		  (progn
  		    (Info-goto-node node)
  		    (setq doc-found t))
! 		(error nil))
  	  (condition-case nil
  	      (progn
                  ;; Don't use Info-menu, it forces case-fold-search to t

[-- Attachment #3: Type: text/plain, Size: 142 bytes --]

_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://mail.gnu.org/mailman/listinfo/emacs-devel