[Openmcl-cvs-notifications] r7537 - in /trunk/ccl/cocoa-ide/hemlock/src: lispmode.lisp package.lisp

[gz at clozure.com]

Author: gz
Date: Sun Oct 28 11:16:51 2007
New Revision: 7537

Log:
Add buffer-package, returns package object or nil

Modified:
    trunk/ccl/cocoa-ide/hemlock/src/lispmode.lisp
    trunk/ccl/cocoa-ide/hemlock/src/package.lisp

Modified: trunk/ccl/cocoa-ide/hemlock/src/lispmode.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/ccl/cocoa-ide/hemlock/src/lispmode.lisp (original)
+++ trunk/ccl/cocoa-ide/hemlock/src/lispmode.lisp Sun Oct 28 11:16:51 2007
@@ -1872,9 +1872,11 @@
       (setf (variable-value 'current-package :buffer buffer)
             (buffer-first-in-package-form buffer))))
 =

-
-
-    =

+(defun buffer-package (buffer)
+  (when (hemlock-bound-p 'current-package :buffer buffer)
+    (let ((package-name (variable-value 'current-package :buffer buffer)))
+      (find-package package-name))))
+
 (defun setup-lisp-mode (buffer)
   (unless (hemlock-bound-p 'current-package :buffer buffer)
     (defhvar "Current Package"

Modified: trunk/ccl/cocoa-ide/hemlock/src/package.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/ccl/cocoa-ide/hemlock/src/package.lisp (original)
+++ trunk/ccl/cocoa-ide/hemlock/src/package.lisp Sun Oct 28 11:16:51 2007
@@ -86,6 +86,7 @@
    #:buffer-modes
    #:buffer-windows
    #:buffer-delete-hook
+   #:buffer-package
    #:delete-buffer
    #:delete-buffer-if-possible
    #:make-modeline-field