Ignore:
Timestamp:
Sep 11, 2010, 4:10:55 AM (9 years ago)
Author:
jaj
Message:

Clean up search files

File:
1 edited

Legend:

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

    r14248 r14249  
    25822582      (hemlock-buffer ts))))
    25832583
     2584(defmethod window-document ((w ns:ns-window))
     2585  (let* ((sc (#/sharedDocumentController ns:ns-document-controller))
     2586         (doc (#/documentForWindow: sc w)))
     2587    (if (%null-ptr-p doc)
     2588      nil
     2589      doc)))
     2590
     2591(defmethod window-pathname ((w ns:ns-window))
     2592  (document-pathname (window-document w)))
     2593
     2594(defmethod document-pathname ((doc NULL))
     2595  nil)
     2596
     2597(defmethod document-pathname ((doc hemlock-editor-document))
     2598  (hi:buffer-pathname (hemlock-buffer doc)))
     2599
    25842600(defmethod assume-not-editing ((doc hemlock-editor-document))
    25852601  (assume-not-editing (slot-value doc 'textstorage)))
Note: See TracChangeset for help on using the changeset viewer.