[slime-cvs] CVS update: slime/slime.el

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv13661

Modified Files:
	slime.el 
Log Message:
(slime-create-note-overlay, slime-sexp-depth): The priority property
is unused. Remove it.


Date: Mon Dec  1 17:15:03 2003
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.122 slime/slime.el:1.123
--- slime/slime.el:1.122	Mon Dec  1 15:16:55 2003
+++ slime/slime.el	Mon Dec  1 17:15:02 2003
@@ -1968,7 +1968,6 @@
   (let ((overlay (make-overlay start end)))
     (flet ((putp (name value) (overlay-put overlay name value)))
       (putp 'slime note)
-      (putp 'priority (slime-sexp-depth start))
       (putp 'face (slime-severity-face severity))
       (putp 'severity severity)
       (unless (emacs-20-p)
@@ -1976,17 +1975,6 @@
       (putp 'help-echo message)
       overlay)))
 
-(defun slime-sexp-depth (position)
-  "Return the number of sexps containing POSITION."
-  (let ((n 0))
-    (save-excursion
-      (goto-char position)
-      (ignore-errors
-        (while t
-          (backward-up-list 1)
-          (incf n))))
-    n))
-
 (defun slime-merge-note-into-overlay (overlay severity message)
   "Merge another compiler note into an existing overlay.
 The help text describes both notes, and the highest of the severities
@@ -2002,8 +1990,7 @@
 If the location's sexp is a list spanning multiple lines, then the
 region around the first element is used."
   (let ((location (getf note :location)))
-    (unless (equal location '(:null))
-      (slime-goto-source-location location)))
+    (slime-goto-source-location location))
   (let ((start (point)))
     (slime-forward-sexp)
     (if (slime-same-line-p start (point))
@@ -2541,7 +2528,7 @@
         (if (fboundp 'temp-minibuffer-message) ;; XEmacs
             (temp-minibuffer-message text)
           (minibuffer-message text))
-      (message text))))
+      (message "%s" text))))
 
 (defun slime-completing-read-internal (string default-package flag)
   ;; We misuse the predicate argument to pass the default-package.
@@ -3840,7 +3827,7 @@
           (with-current-buffer slime-test-buffer-name
             (goto-char (point-min))
             (insert summary "\n\n")))
-        (message summary)
+        (message "%s" summary)
         slime-failed-tests))))
 
 (defun slime-batch-test (results-file)