comparison lisp/info.el @ 747:9f953fdc1394

[xemacs-hg @ 2002-02-11 12:43:21 by michaels] 2002-02-11 Mike Sperber <mike@xemacs.org> * info.el (Info-maybe-update-dir): Regenerate dir if we're regenerating outdated dir files and dir is non-existent.
author michaels
date Mon, 11 Feb 2002 12:43:23 +0000
parents a65ddffa00a5
children 943eaba38521
comparison
equal deleted inserted replaced
746:b13b1b7b11f1 747:9f953fdc1394
1087 "Rebuild dir or localdir according to `Info-auto-generate-directory'." 1087 "Rebuild dir or localdir according to `Info-auto-generate-directory'."
1088 (unless (or (not (file-exists-p (file-name-directory file))) 1088 (unless (or (not (file-exists-p (file-name-directory file)))
1089 (null (Info-directory-files file 'all))) 1089 (null (Info-directory-files file 'all)))
1090 (if (not (find-buffer-visiting file)) 1090 (if (not (find-buffer-visiting file))
1091 (if (not (file-exists-p file)) 1091 (if (not (file-exists-p file))
1092 (if (or (eq Info-auto-generate-directory 'always) 1092 (if (or (memq Info-auto-generate-directory
1093 (eq Info-auto-generate-directory 'if-missing)) 1093 '(always if-missing if-outdated)))
1094 (Info-build-dir-anew (file-name-directory file))) 1094 (Info-build-dir-anew (file-name-directory file)))
1095 (if (or (eq Info-auto-generate-directory 'always) 1095 (if (or (eq Info-auto-generate-directory 'always)
1096 (and (eq Info-auto-generate-directory 'if-outdated) 1096 (and (eq Info-auto-generate-directory 'if-outdated)
1097 (Info-dir-outdated-p file))) 1097 (Info-dir-outdated-p file)))
1098 (Info-rebuild-dir file)))))) 1098 (Info-rebuild-dir file))))))