🚀 go-pugleaf

Thanks for the bug note for my `fix' to dired (won't work with `->'
links).

I have fixed this by making special provision for `->' (see below).
Do you know of other cases which might cause problems?

Thanks again.

	-s

(defun dired-get-filename (&optional localp no-error-if-not-filep)
  "In dired, return name of file mentioned on this line.
Value returned normally includes the directory name.
A non-nil 1st argument means do not include it.  A non-nil 2nd argument
says return nil if no filename on this line, otherwise an error occurs."
    (save-excursion
      (end-of-line)
      (let ((eol (point)))
	(beginning-of-line)
	(if (re-search-forward
	     "\\(Jan\\|Feb\\|Mar\\|Apr\\|May\\|Jun\\|Jul\\|Aug\\|Sep\\|Oct\\|Nov\\|Dec\\)[ ]+[0-9]+"
	     eol t)
	    (progn (skip-chars-forward " ")
		   (skip-chars-forward "^ " eol)
		   (skip-chars-forward " " eol)
		   (let* ((beg (point)))
		     (if (search-forward " -> " eol t) 
			 (setq eol (match-beginning 0)))
		   ;; >> uses default-directory, could lose on cd, multiple.
		     (concat (if localp "" default-directory)
			     (buffer-substring beg eol))))
	  (if no-error-if-not-filep nil
	    (error "No file on this line"))))))