Index: /branches/ide-1.0/ccl/hemlock/src/lispmode.lisp
===================================================================
--- /branches/ide-1.0/ccl/hemlock/src/lispmode.lisp	(revision 6703)
+++ /branches/ide-1.0/ccl/hemlock/src/lispmode.lisp	(revision 6704)
@@ -1727,65 +1727,4 @@
 
 
-;;;; 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,5 +1750,5 @@
   :mode "Lisp")
 
-(defun string-to-arglist (string buffer)  
+(defun string-to-arglist (string buffer &optional quiet-if-unknown)  
   (let* ((name
           (let* ((*package* (or
@@ -1818,8 +1757,9 @@
                              *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,5 +1794,5 @@
                   (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))))