- (setq default-directory Info-dir-contents-directory)
- (setq buffer-file-name (caar Info-dir-file-attributes)))
+ (setq default-directory (file-name-as-directory Info-dir-contents-directory))
+ (setq buffer-file-name (caar Info-dir-file-attributes)
+ buffer-file-truename (file-truename buffer-file-name)))