;;; tilde.el - setup tilde abbreviation for file names in mode line
;;;
;;; Bugs: set-visited-file-name needs fixing
;;;
;;;  by Tim Gonsalves, last modified 3-Jul-90
;;;

(defvar home-directory (getenv "HOME")
  "Path name of your home directory")

(defun make-tilde-file-name ()
  (let ((fname buffer-file-name)
	(bname (current-buffer)))
    (progn  (make-local-variable 'tilde-buffer-file-name)
	    (or (get-buffer "*tilde temp*")
		(generate-new-buffer "*tilde temp*"))
	    (set-buffer "*tilde temp*")
	    (erase-buffer)
	    (insert fname)
	    (goto-char (point-min))
	    (if (looking-at home-directory)
		(progn
		  (delete-char (length home-directory))
		  (insert "~")
		  (setq fname (buffer-string))))
	    (set-buffer bname)
	    (setq tilde-buffer-file-name fname)
	    nil)))