(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)
(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)
(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")