(defun check-problem (id ext) (interactive) (setq ext (downcase ext)) (cond ((file-exists-p (make-name id ext)) (concat ”X”)) ((file-exists-p (temp-name id ext)) (concat ”?”)) (t ;; Otherwise create a link for a new file (concat ”_”))))
Created
November 24, 2009 13:03
-
-
Save AndreaCrotti/241859 to your computer and use it in GitHub Desktop.
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment