Changeset 12545

Timestamp:

Aug 6, 2009, 6:04:32 PM (10 years ago)

Author:

rme

Message:

In send-input-region-to-lisp: re-indent an IF form. Add a call to
set-charprop-value to make the input region bold after it is entered.
(This will only be visible when using the experimental
xhemlock-text-storage subclass.)

File:

• trunk/source/cocoa-ide/hemlock/src/listener.lisp (modified) (1 diff)

trunk/source/cocoa-ide/hemlock/src/listener.lisp

@@ -236 +236 @@
                (top-listener-input-stream))
               (balanced-expressions-in-region input-region))
-          ;; complete expression: send it to lisp
-          (let* ((string (region-to-string input-region))
-                 (ring (value interactive-history)))
-            (when (and (or (zerop (ring-length ring))
-                           (string/= string (region-to-string (ring-ref ring 0))))
-                       (> (length string) (value minimum-interactive-input-length)))
-              (ring-push (copy-region input-region) ring))
-            (insert-character (region-end input-region) #\NewLine)
-            (push (cons r nil) (value input-regions))
-            (move-mark (value buffer-input-mark) (current-point))
-            (append-font-regions (current-buffer))
-            (hemlock-ext:send-string-to-listener (current-buffer) (concatenate 'string string '(#\Newline)))
-            (buffer-end (current-point)))
-          ;; incomplete expression: enter a newline
-          (progn
-            (insert-character (current-point-for-insertion) #\NewLine))))))
+        ;; complete expression: send it to lisp
+        (let* ((string (region-to-string input-region))
+               (ring (value interactive-history)))
+          (when (and (or (zerop (ring-length ring))
+                         (string/= string (region-to-string (ring-ref ring 0))))
+                     (> (length string) (value minimum-interactive-input-length)))
+            (ring-push (copy-region input-region) ring))
+          (insert-character (region-end input-region) #\NewLine)
+          (push (cons r nil) (value input-regions))
+          (set-charprop-value (region-start input-region) :font-weight :bold
+                              :end (region-end input-region))
+          (move-mark (value buffer-input-mark) (current-point))
+          (append-font-regions (current-buffer))
+          (hemlock-ext:send-string-to-listener (current-buffer) (concatenate 'string string '(#\Newline)))
+          (buffer-end (current-point)))
+        ;; incomplete expression: enter a newline
+        (progn
+          (insert-character (current-point-for-insertion) #\NewLine))))))
 
 (defun copy-region-to-input (region)