🚀 go-pugleaf

Epoch, which is based on Emacs version 18.55, tends to allow one to
open up a file in multiple buffers if there are symbolic links in its
pathname.  For instance, if /usr/tsf/foo is a symlink to the directory
/usr/tsf/bar, I can visit both of the files /usr/tsf/foo/x and
/usr/tsf/bar/x, and they get separate buffers which I can then edit
independently.  One fix for this is to canonicalize all filenames
before visiting the file.  Here's a function that does that for unix:

(defun canonicalize-filename (file)
  "Return the absolute pathname of FILE's ultimate target."
  ;(debug "File is %s." file)
  (let* ((tfile (expand-file-name file))
	 (sfile (file-symlink-p tfile)))
    (if sfile
	(canonicalize-filename
	 (expand-file-name sfile (file-name-directory tfile)))
	(let ((dir (file-name-directory tfile)))
	  (if (equal dir "/")
	      tfile
	      (concat
	       (canonicalize-filename
		(substring dir 0 -1))
	       "/"
	       (file-name-nondirectory tfile)))))))

A call to this function in the appropriate place in find-file could
easily be inserted.

In the above example, (canonicalize-filename "/usr/tsf/foo/x") =
(canonicalize-filename "/usr/tsf/bar/x") = "/usr/tsf/bar/x".

Tim