/[climacs]/climacs/gui.lisp
ViewVC logotype

Diff of /climacs/gui.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.34 by abridgewater, Thu Dec 30 05:37:34 2004 UTC revision 1.35 by ejohnson, Thu Dec 30 10:42:45 2004 UTC
# Line 220  Line 220 
220    (let ((item (accept 'command :prompt "Extended Command")))    (let ((item (accept 'command :prompt "Extended Command")))
221      (execute-frame-command *application-frame* item)))      (execute-frame-command *application-frame* item)))
222    
223  (define-presentation-type completable-pathname ()  (eval-when (:compile-toplevel)
224    :inherit-from 'pathname)    (define-presentation-type completable-pathname ()
225      :inherit-from 'pathname))
226    
227  (defun filename-completer (so-far mode)  (defun filename-completer (so-far mode)
228    (flet ((remove-trail (s)    (flet ((remove-trail (s)

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35

  ViewVC Help
Powered by ViewVC 1.1.5