projects
/
chise
/
xemacs-chise.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(U+5FB0): Add `<-ancient@r060' for U+5F81; add `<-ancient@r162' for
[chise/xemacs-chise.git-]
/
lisp
/
info.el
diff --git
a/lisp/info.el
b/lisp/info.el
index
f9e74d0
..
41cfc46
100644
(file)
--- a/
lisp/info.el
+++ b/
lisp/info.el
@@
-1033,7
+1033,7
@@
actually get any text from."
(setq lbuffers (cdr lbuffers)))
(message "Composing main Info directory...done"))
(setq Info-dir-contents (buffer-string)))
(setq lbuffers (cdr lbuffers)))
(message "Composing main Info directory...done"))
(setq Info-dir-contents (buffer-string)))
- (setq default-directory Info-dir-contents-directory)
+ (setq default-directory (file-name-as-directory Info-dir-contents-directory))
(setq buffer-file-name (caar Info-dir-file-attributes)))
(defmacro Info-directory-files (dir-file &optional all full nosort files-only)
(setq buffer-file-name (caar Info-dir-file-attributes)))
(defmacro Info-directory-files (dir-file &optional all full nosort files-only)
@@
-1510,7
+1510,7
@@
versions of NAME. Only the suffixes are tried."
(format (cdr (car suff)) file)
(concat (cdr (car suff)) " < " file))))
(message "%s..." command)
(format (cdr (car suff)) file)
(concat (cdr (car suff)) " < " file))))
(message "%s..." command)
- (call-process shell-file-name nil t nil "-c" command)
+ (call-process shell-file-name nil t nil shell-command-switch command)
(message "")
(when visit
(setq buffer-file-name file)
(message "")
(when visit
(setq buffer-file-name file)
@@
-2268,7
+2268,7
@@
Give a blank topic name to go to the Index node itself."
(interactive "sIndex topic: ")
(let ((pattern (format "\n\\* \\([^\n:]*%s[^\n:]*\\):[ \t]*%s"
(regexp-quote topic)
(interactive "sIndex topic: ")
(let ((pattern (format "\n\\* \\([^\n:]*%s[^\n:]*\\):[ \t]*%s"
(regexp-quote topic)
- "\\(.*\\)\\.[ t]*\\([0-9]*\\)$"))
+ "\\(.*\\)\\.[ \t]*\\([0-9]*\\)$"))
node)
(message "Searching index for `%s'..." topic)
(Info-goto-node "Top")
node)
(message "Searching index for `%s'..." topic)
(Info-goto-node "Top")