Changeset 6773 for branches

Timestamp:

Jun 20, 2007, 11:33:32 AM (17 years ago)

Author:

Gary Byers

Message:

no IN-LISP in describe-symbol.

File:

• branches/ide-1.0/ccl/hemlock/src/listener.lisp (modified) (1 diff)

branches/ide-1.0/ccl/hemlock/src/listener.lisp

@@ -692 +692 @@
     (mark-symbol mark1 mark2)
     (with-input-from-region (s (region mark1 mark2))
-      (in-lisp
-       (let ((thing (read s)))
-         (if (symbolp thing)
-             (with-pop-up-display (*standard-output*)
-               (describe thing))
-             (if (and (consp thing)
-                      (or (eq (car thing) 'quote)
-                          (eq (car thing) 'function))
-                      (symbolp (cadr thing)))
-                 (with-pop-up-display (*standard-output*)
-                   (describe (cadr thing)))
-                 (editor-error "~S is not a symbol, or 'symbol, or #'symbol."
-                               thing))))))))
+      (let ((thing (read s)))
+        (if (symbolp thing)
+          (with-pop-up-display (*standard-output*)
+            (describe thing))
+          (if (and (consp thing)
+                   (or (eq (car thing) 'quote)
+                       (eq (car thing) 'function))
+                   (symbolp (cadr thing)))
+            (with-pop-up-display (*standard-output*)
+              (describe (cadr thing)))
+            (editor-error "~S is not a symbol, or 'symbol, or #'symbol."
+                          thing)))))))
 
 ;;; MARK-SYMBOL moves mark1 and mark2 around the previous or current symbol.