Mercurial > hg > xemacs-beta

comparison lisp/info.el @ 294:4b85ae5eabfb r21-0b45

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b45
author cvs
date Mon, 13 Aug 2007 10:38:01 +0200
parents 6cb5e14cd98e
children afd57c14dfc8
comparison
equal deleted inserted replaced
293:403535bfea94 294:4b85ae5eabfb
867 867
868 ;; ensure that the localdir files are inserted last, and reverse 868 ;; ensure that the localdir files are inserted last, and reverse
869 ;; the list of them so that when they get pushed in, they appear 869 ;; the list of them so that when they get pushed in, they appear
870 ;; in the same order they got specified in the path, from top to 870 ;; in the same order they got specified in the path, from top to
871 ;; bottom. 871 ;; bottom.
872 (nconc buffers (nreverse lbuffers)) 872 (nconc buffers (reverse lbuffers))
873 873
874 (or buffers 874 (or buffers
875 (error "Can't find the Info directory node")) 875 (error "Can't find the Info directory node"))
876 ;; Distinguish the dir file that comes with Emacs from all the 876 ;; Distinguish the dir file that comes with Emacs from all the
877 ;; others. Yes, that is really what this is supposed to do. 877 ;; others. Yes, that is really what this is supposed to do.
878 ;; If it doesn't work, fix it. 878 ;; If it doesn't work, fix it.
879 (setq buffer (car buffers) 879 (setq buffer (car buffers)
880 ;; reverse it since they are pushed down from the top. the 880 ;; reverse it since they are pushed down from the top. the
881 ;; `Info-directory-list can be specified in natural order 881 ;; `Info-directory-list can be specified in natural order
882 ;; this way. 882 ;; this way.
883 others (nreverse (cdr buffers))) 883 others (reverse (cdr buffers)))
884 884
885 ;; Insert the entire original dir file as a start; note that we've 885 ;; Insert the entire original dir file as a start; note that we've
886 ;; already saved its default directory to use as the default 886 ;; already saved its default directory to use as the default
887 ;; directory for the whole concatenation. 887 ;; directory for the whole concatenation.
888 (insert-buffer buffer) 888 (insert-buffer buffer)