+2013-02-15 Glenn Morris <rgm@gnu.org>
+
+ * play/fortune.el (fortune-compile): Simplify and fix previous change.
+
2013-02-14 Michael Albinus <michael.albinus@gmx.de>
* net/tramp.el (tramp-debug-message): Add
(let* ((fortune-file (expand-file-name (substitute-in-file-name file)))
(fortune-dat (expand-file-name
(substitute-in-file-name
- (concat fortune-file fortune-database-extension))))
- (fortune-dat-exist (file-exists-p fortune-dat)))
- (cond ((file-exists-p fortune-file)
- (if (or (not fortune-dat-exist)
- (and fortune-dat-exist
- (file-newer-than-file-p fortune-file fortune-dat)))
- (message "Compiling new fortune database %s" fortune-dat)
- (shell-command
- (concat fortune-strfile fortune-strfile-options
- " " fortune-file fortune-quiet-strfile-options))))
- (t (error "Can't compile fortune file %s" fortune-file)))))
+ (concat fortune-file fortune-database-extension)))))
+ (cond ((file-exists-p fortune-file)
+ (cond ((file-newer-than-file-p fortune-file fortune-dat)
+ (message "Compiling new fortune database %s" fortune-dat)
+ (shell-command
+ (concat fortune-strfile fortune-strfile-options
+ " " fortune-file fortune-quiet-strfile-options)))))
+ (t (error "Can't compile fortune file %s" fortune-file)))))
;;; **************