Changeset 7537


Ignore:
Timestamp:
Oct 28, 2007, 3:16:51 PM (14 years ago)
Author:
gz
Message:

Add buffer-package, returns package object or nil

Location:
trunk/ccl/cocoa-ide/hemlock/src
Files:
2 edited

Legend:

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

    r7107 r7537  
    18901890            (buffer-first-in-package-form buffer))))
    18911891
    1892 
    1893 
    1894    
     1892(defun buffer-package (buffer)
     1893  (when (hemlock-bound-p 'current-package :buffer buffer)
     1894    (let ((package-name (variable-value 'current-package :buffer buffer)))
     1895      (find-package package-name))))
     1896
    18951897(defun setup-lisp-mode (buffer)
    18961898  (unless (hemlock-bound-p 'current-package :buffer buffer)
  • trunk/ccl/cocoa-ide/hemlock/src/package.lisp

    r7528 r7537  
    8787   #:buffer-windows
    8888   #:buffer-delete-hook
     89   #:buffer-package
    8990   #:delete-buffer
    9091   #:delete-buffer-if-possible
Note: See TracChangeset for help on using the changeset viewer.