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