Mercurial > emacs

comparison lisp/info.el @ 75271:1841eb88b38a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Info-default-dirs): Change default info dir to share/info.
author Chong Yidong <cyd@stupidchicken.com>
date Thu, 18 Jan 2007 16:09:06 +0000
parents 220431f80579
children e3694f1cb928
comparison
equal deleted inserted replaced
75270:8a31ac700630 75271:1841eb88b38a
461 (let ((source (expand-file-name "info/" source-directory)) 461 (let ((source (expand-file-name "info/" source-directory))
462 (sibling (if installation-directory 462 (sibling (if installation-directory
463 (expand-file-name "info/" installation-directory) 463 (expand-file-name "info/" installation-directory)
464 (if invocation-directory 464 (if invocation-directory
465 (let ((infodir (expand-file-name 465 (let ((infodir (expand-file-name
466 "../info/" 466 "../share/info/"
467 invocation-directory))) 467 invocation-directory)))
468 (if (file-exists-p infodir) 468 (if (file-exists-p infodir)
469 infodir 469 infodir
470 (setq infodir (expand-file-name 470 (setq infodir (expand-file-name
471 "../../../info/" 471 "../../../share/info/"
472 invocation-directory)) 472 invocation-directory))
473 (and (file-exists-p infodir) 473 (and (file-exists-p infodir)
474 infodir)))))) 474 infodir))))))
475 alternative) 475 alternative)
476 (setq alternative 476 (setq alternative