🚀 go-pugleaf

i fix that with this.

;;;
;;;autosave and backup redefinitions with supporting variables and
;;;functions
;;;

(defvar my-auto-save-directory "/dev/null/badfile/" 
  "*See the redefinition of make-auto-save-file-name; try $TRASHDIR.")

(defun make-auto-save-file-name ()
  
  "Redefinition of files.el function.
This version puts the autosave file in my-autosave-directory.  If the
filename or file is bad, you'll see a cryptic error message.

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."
  
  (let ((dirname my-auto-save-directory)
        (prefix (if buffer-file-name "#" "#%"))
	(suffix "#")
	(basename (clean-basename
		   (if buffer-file-name
		       (file-name-nondirectory buffer-file-name)
		     (buffer-name)))))
    (expand-file-name (concat dirname prefix basename suffix))))

;;put this in functions
(defun clean-basename (name)
  
  "Fix unix-incompatible file basenames by substituting characters."
  
  ;;from functions.el
  (setq name (string-subst-char ?- ?/  name)) ;comma for virgule
  (setq name (string-subst-char ?- ?\  name))
  (setq name (string-subst-char ?- ?\n name))
  (setq name (string-subst-char ?- ?\" name))
  (setq name (string-subst-char ?- ?\' name))
  )
--
o i seek a housemate to share 1ac ~1200sf 2.5br in los altos hills.  email me.