/[slime]/slime/swank.lisp
ViewVC logotype

Diff of /slime/swank.lisp

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

revision 1.213 by crhodes, Tue Jul 13 18:14:03 2004 UTC revision 1.214 by pseibel, Thu Jul 15 05:02:32 2004 UTC
# Line 1323  change, then send Emacs an update." Line 1323  change, then send Emacs an update."
1323                             (return (values values -)))))                             (return (values values -)))))
1324        (when (and package-update-p (not (eq *package* *buffer-package*)))        (when (and package-update-p (not (eq *package* *buffer-package*)))
1325          (send-to-emacs          (send-to-emacs
1326           (list :new-package (package-string-for-prompt *package*)))))))           (list :new-package (package-name *package*) (package-string-for-prompt *package*)))))))
1327    
1328  (defun package-string-for-prompt (package)  (defun package-string-for-prompt (package)
1329    "Return the shortest nickname (or canonical name) of PACKAGE."    "Return the shortest nickname (or canonical name) of PACKAGE."

Legend:
Removed from v.1.213  
changed lines
  Added in v.1.214

  ViewVC Help
Powered by ViewVC 1.1.5