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
2bd88a1
..
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)