Changeset 8504


Ignore:
Timestamp:
Feb 17, 2008, 4:21:58 PM (12 years ago)
Author:
gz
Message:

in cocoa-edit, try .lisp file

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/cocoa-editor.lisp

    r8464 r8504  
    29532953             (typep arg 'string)
    29542954             (typep arg 'pathname))
     2955         (when arg
     2956           (unless (probe-file arg)
     2957             (let ((lpath (merge-pathnames arg *.lisp-pathname*)))
     2958               (when (probe-file lpath) (setq arg lpath)))))
    29552959         (execute-in-gui #'(lambda () (find-or-make-hemlock-view arg))))
    29562960        ((ccl::valid-function-name-p arg)
Note: See TracChangeset for help on using the changeset viewer.