Use locate-user-emacs-file.

* lisp/type-break.el (type-break-file-name):
* lisp/textmodes/remember.el (remember-data-file):
* lisp/strokes.el (strokes-file):
* lisp/shadowfile.el (shadow-initialize):
* lisp/saveplace.el (save-place-file):
* lisp/ps-bdf.el (bdf-cache-file):
* lisp/progmodes/idlwave.el (idlwave-config-directory):
* lisp/net/quickurl.el (quickurl-url-file):
* lisp/international/kkc.el (kkc-init-file-name):
* lisp/ido.el (ido-save-directory-list-file):
* lisp/emulation/viper.el (viper-custom-file-name):
* lisp/emulation/vip.el (vip-startup-file):
* lisp/calendar/todo-mode.el (todo-file-do, todo-file-done, todo-file-top):
* lisp/calendar/timeclock.el (timeclock-file): Use locate-user-emacs-file.

diff --git a/etc/NEWS b/etc/NEWS
index f7b986f6bfbfc85426e07cf28787f3eedb4ae77d..a4691f7f181995439b67e69d08b73daf1038fa44 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -85,7 +85,25 @@ Eg View mode, etc.
 \f
 * Changes in Specialized Modes and Packages in Emacs 24.4
 
-** Recentf looks for ~/.emacs.d/recentf additionally to ~/.recentf.
+** More packages look for ~/.emacs.d/<foo> additionally to ~/.<foo>.
+Affected files:
+~/.emacs.d/timelog     replaces  ~/.timelog
+~/.emacs.d/todo-do     replaces  ~/.todo-do
+~/.emacs.d/todo-done   replaces  ~/.todo-done
+~/.emacs.d/todo-top    replaces  ~/.todo-top
+~/.emacs.d/vip         replaces  ~/.vip
+~/.emacs.d/viper       replaces  ~/.viper
+~/.emacs.d/ido.last    replaces  ~/.ido.last
+~/.emacs.d/kkcrc       replaces  ~/.kkcrc
+~/.emacs.d/quickurls   replaces  ~/.quickurls
+~/.emacs.d/idlwave     replaces  ~/.idlwave
+~/.emacs.d/bdfcache.el replaces  ~/.bdfcache.el
+~/.emacs.d/places      replaces  ~/.emacs-places
+~/.emacs.d/shadows     replaces  ~/.shadows
+~/.emacs.d/shadow_todo replaces  ~/.shadow_todo
+~/.emacs.d/strokes     replaces  ~/.strokes
+~/.emacs.d/notes       replaces  ~/.notes
+~/.emacs.d/type-break  replaces  ~/.type-break
 
 ** Delphi mode is now called OPascal mode.
 *** All delphi-* variables and functions have been renamed to opascal-*.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e24b7198f5389503383e8a3bf284f57901663cf5..a1a75d2b5aa71b27aca6fafc8acbbcbcacc958e5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,20 @@
+2013-03-12  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * type-break.el (type-break-file-name):
+       * textmodes/remember.el (remember-data-file):
+       * strokes.el (strokes-file):
+       * shadowfile.el (shadow-initialize):
+       * saveplace.el (save-place-file):
+       * ps-bdf.el (bdf-cache-file):
+       * progmodes/idlwave.el (idlwave-config-directory):
+       * net/quickurl.el (quickurl-url-file):
+       * international/kkc.el (kkc-init-file-name):
+       * ido.el (ido-save-directory-list-file):
+       * emulation/viper.el (viper-custom-file-name):
+       * emulation/vip.el (vip-startup-file):
+       * calendar/todo-mode.el (todo-file-do, todo-file-done, todo-file-top):
+       * calendar/timeclock.el (timeclock-file): Use locate-user-emacs-file.
+
 2013-03-12  Paul Eggert  <eggert@cs.ucla.edu>
 
        Switch encodings of tutorials, thai-word to UTF-8 (Bug#13880).

diff --git a/lisp/calendar/timeclock.el b/lisp/calendar/timeclock.el
index a872e86dcf233165613c26515e2e993fbc731ae8..70d064143dccf01d29bbfdd3e76b96a9684dc378 100644 (file)
--- a/lisp/calendar/timeclock.el
+++ b/lisp/calendar/timeclock.el
@@ -81,7 +81,7 @@
 
 ;;; User Variables:
 
-(defcustom timeclock-file (convert-standard-filename "~/.timelog")
+(defcustom timeclock-file (locate-user-emacs-file "timelog" ".timelog")
   "The file used to store timeclock data in."
   :type 'file
   :group 'timeclock)

diff --git a/lisp/calendar/todo-mode.el b/lisp/calendar/todo-mode.el
index fdbcb04c9dbe54f349dbf1f0bf099ee6aba5a4af..c109ecefb7d08f080362bedd5bbc2b1c6a7f6e56 100644 (file)
--- a/lisp/calendar/todo-mode.el
+++ b/lisp/calendar/todo-mode.el
@@ -281,11 +281,11 @@ show and mark todo entries for today, but may slow down processing of
 the diary file somewhat."
   :type 'string
   :group 'todo)
-(defcustom todo-file-do    (convert-standard-filename "~/.todo-do")
+(defcustom todo-file-do    (locate-user-emacs-file "todo-do" ".todo-do")
   "TODO mode list file."
   :type 'file
   :group 'todo)
-(defcustom todo-file-done  (convert-standard-filename "~/.todo-done")
+(defcustom todo-file-done  (locate-user-emacs-file "todo-done" ".todo-done")
   "TODO mode archive file."
   :type 'file
   :group 'todo)
@@ -315,7 +315,7 @@ window."
   :group 'todo)
 (defvar todo-edit-buffer " *TODO Edit*"
   "TODO Edit buffer name.")
-(defcustom todo-file-top (convert-standard-filename "~/.todo-top")
+(defcustom todo-file-top (locate-user-emacs-file "todo-top" ".todo-top")
   "TODO mode top priorities file.
 
 Not in TODO format, but diary compatible.

diff --git a/lisp/emulation/vip.el b/lisp/emulation/vip.el
index e086f26e8ab401e4786acd49b67009f312f3c365..ce131b854f56662d160a4a0d30d61d175f9cce38 100644 (file)
--- a/lisp/emulation/vip.el
+++ b/lisp/emulation/vip.el
@@ -159,7 +159,7 @@ If nil then it is bound to `delete-backward-char'."
 
 (defvar vip-inhibit-startup-message nil)
 
-(defvar vip-startup-file (convert-standard-filename "~/.vip")
+(defvar vip-startup-file (locate-user-emacs-file "vip" ".vip")
   "Filename used as startup file for vip.")
 \f
 ;; key bindings

diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el
index 3813c304de19ae27a335884561afc76a42992b61..d0c0a4b4019b91e3161f6b4cad9b45b93270c32b 100644 (file)
--- a/lisp/emulation/viper-cmd.el
+++ b/lisp/emulation/viper-cmd.el
@@ -1009,9 +1009,9 @@ as a Meta key and any number of multiple escapes are allowed."
        (inhibit-quit t))
     (if (viper-ESC-event-p event)
        (progn
-         ;; Some versions of Emacs (eg., 22.50.8 have a bug, which makes even
-         ;; a single ESC into ;; a fast keyseq. To guard against this, we
-         ;; added a check if there are other events as well. Keep the next
+         ;; Some versions of Emacs (eg., 22.50.8 (?)) have a bug, which makes
+          ;; even a single ESC into a fast keyseq. To guard against this, we
+         ;; added a check if there are other events as well.  Keep the next
          ;; line for the next time the bug reappears, so that will remember to
          ;; report it.
          ;;(if (and (viper-fast-keysequence-p) unread-command-events)

diff --git a/lisp/emulation/viper.el b/lisp/emulation/viper.el
index df419420bd4d65c40793723a6126d3884cbc716d..7f432cdc143c41d3a07ef08e165fa407a1e5ca89 100644 (file)
--- a/lisp/emulation/viper.el
+++ b/lisp/emulation/viper.el
@@ -313,7 +313,7 @@
 (require 'viper-keym)
 
 ;; better be defined before Viper custom group.
-(defvar viper-custom-file-name (convert-standard-filename "~/.viper")
+(defvar viper-custom-file-name (locate-user-emacs-file "viper" ".viper")
   "Viper customization file.
 If set by the user, this must be done _before_ Viper is loaded in `~/.emacs'.")
 

diff --git a/lisp/ido.el b/lisp/ido.el
index 066d8276af5c9582174e769e2071d9547798f331..589f44175ebe6f82c25efee5025d4e73d6acfcdd 100644 (file)
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -927,7 +927,8 @@ ido is running.  Copied from `icomplete-minibuffer-setup-hook'."
   :type 'hook
   :group 'ido)
 
-(defcustom ido-save-directory-list-file (convert-standard-filename "~/.ido.last")
+(defcustom ido-save-directory-list-file
+  (locate-user-emacs-file "ido.last" ".ido.last")
   "File in which the ido state is saved between invocations.
 Variables stored are: `ido-last-directory-list', `ido-work-directory-list',
 `ido-work-file-list', and `ido-dir-file-cache'.

diff --git a/lisp/international/kkc.el b/lisp/international/kkc.el
index 03576442ed878198e18343e0b56943147ee05d71..a7d3ac5d017f2d1e73cf1d6e7881952530c6f550 100644 (file)
--- a/lisp/international/kkc.el
+++ b/lisp/international/kkc.el
@@ -40,7 +40,7 @@
   "String denoting KKC input method.
 This string is shown at mode line when users are in KKC mode.")
 
-(defvar kkc-init-file-name (convert-standard-filename "~/.kkcrc")
+(defvar kkc-init-file-name (locate-user-emacs-file "kkcrc" ".kkcrc")
   "Name of a file which contains user's initial setup code for KKC.")
 
 ;; A flag to control a file specified by `kkc-init-file-name'.

diff --git a/lisp/net/quickurl.el b/lisp/net/quickurl.el
index 1de9feb1341980e5399ab4966eabb017e7021692..1e05d8db33620be855a221b60a235582c31ad355 100644 (file)
--- a/lisp/net/quickurl.el
+++ b/lisp/net/quickurl.el
@@ -94,7 +94,8 @@
   :group  'abbrev
   :prefix "quickurl-")
 
-(defcustom quickurl-url-file (convert-standard-filename "~/.quickurls")
+(defcustom quickurl-url-file
+  (locate-user-emacs-file "quickurls" ".quickurls")
   "File that contains the URL list."
   :type  'file
   :group 'quickurl)

diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el
index ab65933416b0f45c3b9670b37b5a811945edbcd1..aeaf1acb2ac66c7ef80d8c28e5692e99bf5aa776 100644 (file)
--- a/lisp/progmodes/idlwave.el
+++ b/lisp/progmodes/idlwave.el
@@ -27,7 +27,7 @@
 ;;; Commentary:
 
 ;; IDLWAVE enables feature-rich development and interaction with IDL,
-;; the Interactive Data Language. It provides a compelling,
+;; the Interactive Data Language.  It provides a compelling,
 ;; full-featured alternative to the IDLDE development environment
 ;; bundled with IDL.
 
@@ -447,7 +447,7 @@ value of `!DIR'.  See also `idlwave-library-path'."
 
 ;; Configuration files
 (defcustom idlwave-config-directory
-  (convert-standard-filename "~/.idlwave")
+  (locate-user-emacs-file "idlwave" ".idlwave")
   "Directory for configuration files and user-library catalog."
   :group 'idlwave-routine-info
   :type 'file)

diff --git a/lisp/ps-bdf.el b/lisp/ps-bdf.el
index 832d1cf55bcc829f897bf2c5d1e9cc4d464d0ce5..98dd2800b776f48ff0808436ffec1a176aad7937 100644 (file)
--- a/lisp/ps-bdf.el
+++ b/lisp/ps-bdf.el
@@ -91,12 +91,7 @@ If BDFNAME doesn't exist, return nil."
           (insert-file-contents bdfname)
           buf))))
 
-(defvar bdf-cache-file (if (eq system-type 'ms-dos)
-                          ;; convert-standard-filename doesn't
-                          ;; guarantee that the .el extension will be
-                          ;; preserved.
-                          "~/_bdfcache.el"
-                        (convert-standard-filename "~/.bdfcache.el"))
+(defvar bdf-cache-file (locate-user-emacs-file "bdfcache.el" ".bdfcache.el")
   "Name of cache file which contains information of `BDF' font files.")
 
 (defvar bdf-cache nil

diff --git a/lisp/saveplace.el b/lisp/saveplace.el
index baa6b794fc4d3643f3b136cfc8a4e499a4275bb7..ef2f5469e29ecea4fdc1cdc44bae906f9b973a62 100644 (file)
--- a/lisp/saveplace.el
+++ b/lisp/saveplace.el
@@ -68,7 +68,7 @@ following code in your init file:
 
 (make-variable-buffer-local 'save-place)
 
-(defcustom save-place-file (convert-standard-filename "~/.emacs-places")
+(defcustom save-place-file (locate-user-emacs-file "places" ".emacs-places")
   "Name of the file that records `save-place-alist' value."
   :type 'file
   :group 'save-place)

diff --git a/lisp/shadowfile.el b/lisp/shadowfile.el
index d10ea99afb1f1f59d2d517a3d5491efbca8d233c..ec6e6e7ff107a87dd17a4ae9901feef446ee1df4 100644 (file)
--- a/lisp/shadowfile.el
+++ b/lisp/shadowfile.el
@@ -651,7 +651,7 @@ Return t unless files were locked; then return nil."
        (beep)
        (sit-for 3)
        nil)
-    (save-excursion
+    (save-current-buffer
       (when shadow-info-file
        (set-buffer (setq shadow-info-buffer
                          (find-file-noselect shadow-info-file)))
@@ -683,7 +683,7 @@ Also clear `shadow-hashtable', since when there are new shadows
 defined, the old hashtable info is invalid."
   (shadow-invalidate-hashtable)
   (if shadow-info-file
-      (save-excursion
+      (save-current-buffer
        (if (not shadow-info-buffer)
            (setq shadow-info-buffer (find-file-noselect shadow-info-file)))
        (set-buffer shadow-info-buffer)
@@ -802,11 +802,13 @@ look for files that have been changed and need to be copied to other systems."
            (file-name-as-directory (shadow-expand-file-name "~"))))
   (if (null shadow-info-file)
       (setq shadow-info-file
-           (shadow-expand-file-name (convert-standard-filename "~/.shadows"))))
+            ;; FIXME: Move defaults to their defcustom.
+           (shadow-expand-file-name
+             (locate-user-emacs-file "shadows" ".shadows"))))
   (if (null shadow-todo-file)
       (setq shadow-todo-file
            (shadow-expand-file-name
-            (convert-standard-filename "~/.shadow_todo"))))
+            (locate-user-emacs-file "shadow_todo" ".shadow_todo"))))
   (if (not (shadow-read-files))
       (progn
        (message "Shadowfile information files not found - aborting")

diff --git a/lisp/strokes.el b/lisp/strokes.el
index 5acd0dc01203ce356c78adc04ac738c69be3c30d..2c3c3bc6dd4bdd59ee4bb0bdfcb67b17eb6f0366 100644 (file)
--- a/lisp/strokes.el
+++ b/lisp/strokes.el
@@ -260,7 +260,7 @@ WARNING: Changing the value of this variable will gravely affect the
   :type 'integer
   :group 'strokes)
 
-(defcustom strokes-file (convert-standard-filename "~/.strokes")
+(defcustom strokes-file (locate-user-emacs-file "strokes" ".strokes")
   "File containing saved strokes for Strokes mode (default is ~/.strokes)."
   :type 'file
   :group 'strokes)

diff --git a/lisp/textmodes/remember.el b/lisp/textmodes/remember.el
index eeb04ef250fb5793fdaf030c22693931c1d85ae6..16b99627400aeb53eed06d1b3c0f1c58e49b681f 100644 (file)
--- a/lisp/textmodes/remember.el
+++ b/lisp/textmodes/remember.el
@@ -380,7 +380,7 @@ Subject: %s\n\n"
 
 ;; Remembering to plain files
 
-(defcustom remember-data-file (convert-standard-filename "~/.notes")
+(defcustom remember-data-file (locate-user-emacs-file "notes" ".notes")
   "The file in which to store unprocessed data."
   :type 'file
   :group 'remember)

diff --git a/lisp/type-break.el b/lisp/type-break.el
index 212ac392e01914c92ae16ae7b11c4c18c9eb15b4..3ddf2e2d20a5fd942d40e780a2a58dc47d217c75 100644 (file)
--- a/lisp/type-break.el
+++ b/lisp/type-break.el
@@ -204,11 +204,11 @@ key is pressed."
   :type 'boolean
   :group 'type-break)
 
-(defcustom type-break-file-name (convert-standard-filename "~/.type-break")
+(defcustom type-break-file-name
+  (locate-user-emacs-file "type-break" ".type-break")
   "Name of file used to save state across sessions.
 If this is nil, no data will be saved across sessions."
-  :type 'file
-  :group 'type-break)
+  :type 'file)
 
 (defvar type-break-post-command-hook '(type-break-check)
   "Hook run indirectly by `post-command-hook' for typing break functions.