kyanagi · January 9, 2012 11:52
diff --git a/gistfile1.el b/gistfile1.el
 ;; find-fileで*Completions*バッファに`../'と`./'を出さない
 (defun find-file-read-args (prompt mustmatch)
  (list (read-file-name prompt nil default-directory mustmatch nil
                        (lambda (name)
                          (and (file-exists-p name)
                               (not (member name '("../" "./"))))
                          ))
        t))
	;; find-fileでCompletionsバッファに`../'と`./'を出さない
	(defun find-file-read-args (prompt mustmatch)
	(list (read-file-name prompt nil default-directory mustmatch nil
	(lambda (name)
	(and (file-exists-p name)
	(not (member name '("../" "./"))))
	))
	t))