Changeset 7617


Ignore:
Timestamp:
Nov 9, 2007, 6:12:47 PM (12 years ago)
Author:
rme
Message:

Implement very naive Show Callers command.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/cocoa-ide/hemlock/src/lispmode.lisp

    r7583 r7617  
    19841984                (return nil)))))))))
    19851985
     1986;;; need to be able to mouse on the caller and go there
     1987;;; (or at least make the text in the pop-up selectable
     1988;;; so that we can use meta-.)
     1989(hi:defcommand "Show Callers" (p)
     1990  "Show the callers of the symbol at point."
     1991  (declare (ignore p))
     1992  (with-mark ((mark1 (current-point))
     1993              (mark2 (current-point)))
     1994    (mark-symbol mark1 mark2)
     1995    (with-input-from-region (s (region mark1 mark2))
     1996      (let* ((symbol (read s)))
     1997        (with-pop-up-display (*standard-output*
     1998                              :title (format nil "Callers of ~s" symbol))
     1999          (format t "~{~&~s~}" (ccl::callers symbol)))))))
     2000
    19862001#||
    19872002(defcommand "Set Package Name" (p)
Note: See TracChangeset for help on using the changeset viewer.