- (cond
- ;; Backward compatibility with previous versions of savehist.
- ((file-exists-p "~/.emacs-history") "~/.emacs-history")
- ((and (not (featurep 'xemacs)) (file-directory-p user-emacs-directory))
- (concat user-emacs-directory "history"))
- ((and (featurep 'xemacs) (file-directory-p "~/.xemacs/"))
- "~/.xemacs/history")
- ;; For users without `~/.emacs.d/' or `~/.xemacs/'.
- (t "~/.emacs-history"))
- "*File name where minibuffer history is saved to and loaded from.
+ (locate-user-emacs-file "history" ".emacs-history")
+ "File name where minibuffer history is saved to and loaded from.