[xyzzy:04576] filer-read-link

[YAMAMOTO Shinji <sinj@xxxxxxxxxxxx>]

亀井さん、こんにちは。

どうでもいいところですが、こうしていただけると嬉しいです。


*** filer.l.1~	Tue Apr 25 23:08:26 2000
--- filer.l	Thu Jun  1 13:09:12 2000
***************
*** 128,134 ****
    (si:*activate-toplevel))
  
  (defun filer-read-link (file)
!   (or (ignore-errors (resolve-shortcut file)) file))
  
  (defun filer-ok ()
    (let ((file (filer-get-text)))
--- 128,139 ----
    (si:*activate-toplevel))
  
  (defun filer-read-link (file)
!   (or (and (let ((len (length file)))
! 	     (string-equal ".lnk" file
! 			   :start2 (if (> len 4) (- len 4) 0)
! 			   :end2 len))
! 	   (ignore-errors (resolve-shortcut file)))
!       file))
  
  (defun filer-ok ()
    (let ((file (filer-get-text)))


-- 
山本真二           sinj@xxxxxxxxxxxx