Changeset 6704

Timestamp:

Jun 12, 2007, 12:46:41 PM (17 years ago)

Author:

Gary Byers

Message:

Remove some old stuff; be quieter about unknown function arglists
in arglist-on-space.

File:

• branches/ide-1.0/ccl/hemlock/src/lispmode.lisp (modified) (4 diffs)

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

@@ -1727 +1727 @@
 
 
-;;;; Matching parenthesis display.
-
-(defhvar "Paren Pause Period"
-  "This is how long commands that deal with \"brackets\" shows the cursor at
-   the matching \"bracket\" for this number of seconds."
-  :value 0.5)
-
-(defcommand "Lisp Insert )" (p)
-  "Inserts a \")\" and briefly positions the cursor at the matching \"(\"."
-  "Inserts a \")\" and briefly positions the cursor at the matching \"(\"."
-  (declare (ignore p))
-  (let ((point (current-point)))
-    (insert-character point #\))
-    (pre-command-parse-check point)
-    (when (valid-spot point nil) 
-      (with-mark ((m point))
-        (if (list-offset m -1)
-            (let ((pause (value paren-pause-period))
-                  (win (current-window)))
-              (if pause
-                  (unless (show-mark m win pause)
-                    (clear-echo-area)
-                    (message "~A" (line-string (mark-line m))))
-                  (unless (displayed-p m (current-window))
-                    (clear-echo-area)
-                    (message "~A" (line-string (mark-line m))))))
-            (editor-error))))))
-
-;;; Since we use paren highlighting in Lisp mode, we do not want paren
-;;; flashing too.
-;;; 
-(defhvar "Paren Pause Period"
-  "This is how long commands that deal with \"brackets\" shows the cursor at
-   the matching \"bracket\" for this number of seconds."
-  :value nil
-  :mode "Lisp")
-;;;
-(defhvar "Highlight Open Parens"
-  "When non-nil, causes open parens to be displayed in a different font when
-   the cursor is directly to the right of the corresponding close paren."
-  :value t
-  :mode "Lisp")
-
-
-(defhvar "Open Paren Finder Function"
-  "Should be a function that takes a mark for input and returns either NIL
-   if the mark is not after a close paren, or two (temporary) marks
-   surrounding the corresponding open paren."
-  :mode "Lisp"
-  :value 'lisp-open-paren-finder-function)
-
-(defun lisp-open-paren-finder-function (mark)
-  (when (eq (character-attribute :lisp-syntax (previous-character mark))
-            :close-paren)
-    (with-mark ((mark mark))
-      (pre-command-parse-check mark)
-      (if (not (and (valid-spot mark nil) (list-offset mark -1)))
-          (values nil nil)
-          (values mark (mark-after (copy-mark mark)))))))
-
-
 
 
@@ -1811 +1750 @@
   :mode "Lisp")
 
-(defun string-to-arglist (string buffer)  
+(defun string-to-arglist (string buffer &optional quiet-if-unknown)  
   (let* ((name
           (let* ((*package* (or
@@ -1818 +1757 @@
                              *package*)))
             (read-from-string string))))
-    (when (and (typep name 'symbol))
+    (when (typep name 'symbol)
       (multiple-value-bind (arglist win)
           (ccl::arglist-string name)
-        (format nil "~S : ~A" name (if win (or arglist "()") "(unknown)"))))))
+        (if (or win (not quiet-if-unknown))
+          (format nil "~S : ~A" name (if win (or arglist "()") "(unknown)")))))))
 
 (defcommand "Current Function Arglist" (p)
@@ -1854 +1794 @@
                   (let* ((fun-name (region-to-string (region mark1 mark2)))
                          (arglist-string
-                          (string-to-arglist fun-name (current-buffer))))
+                          (string-to-arglist fun-name (current-buffer) t)))
                     (when arglist-string
                       (message arglist-string))))