🚀 go-pugleaf

>>>>> On Sat, 12 Oct 91 12:22:07 -0400, kyle@uunet.UU.NET (Kyle Jones) said:

Kyle> The function you should be fixing is make-auto-save-file-name.
Kyle> VM is not responsible for creating palatable auto-save file
Kyle> names.

OK, I'll try this for a while...

(defun make-auto-save-file-name ()
  "Return file name to use for auto-saves of current buffer.
Does not consider auto-save-visited-file-name; that is checked
before calling this function.
You can redefine this for customization.
See also auto-save-file-name-p.
For buffers not associated with a file: if filename will be longer then
our guess as to what the filesystem can handle, then an autosave name is
made with a random number, instead of the buffer name. [For 14 char.
filename limit machines]"
  (if buffer-file-name
      (concat (file-name-directory buffer-file-name)
	      "#"
	      (file-name-nondirectory buffer-file-name)
	      "#")
;;  (expand-file-name (concat "#%" (buffer-name) "#"))
    (expand-file-name
     (concat
      "#%"
      (or
       (and (memq system-type '(usg-unix-v)) ;all of them?
	    (> (length (buffer-name)) 11)
	    (int-to-string (random t)))
       (buffer-name))
      "#"))))