[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-goto-source-location-buffer-and-file): Delete
unused function.

--- /project/slime/cvsroot/slime/ChangeLog	2012/10/14 12:56:21	1.2352
+++ /project/slime/cvsroot/slime/ChangeLog	2012/10/14 12:56:47	1.2353
@@ -1,5 +1,9 @@
 2012-10-14  Helmut Eller  <heller at common-lisp.net>
 
+	* slime.el (slime-goto-source-location-buffer-and-file): Delete
+	unused function.
+
+2012-10-14  Helmut Eller  <heller at common-lisp.net>
 	Avoid flet.
 
 	* slime.el (with-struct, slime-compute-policy)
--- /project/slime/cvsroot/slime/slime.el	2012/10/14 12:56:21	1.1412
+++ /project/slime/cvsroot/slime/slime.el	2012/10/14 12:56:47	1.1413
@@ -487,23 +487,24 @@
   ;; Avoid a needless runtime funcall on GNU Emacs:
   (and (featurep 'xemacs) `(slime-xemacs-recompute-modelines)))
 
-(defun slime-xemacs-recompute-modelines ()
-  (let (redraw-modeline)
-    (walk-windows
-     (lambda (object)
-       (setq object (window-buffer object))
-       (when (or (symbol-value-in-buffer 'slime-mode object)
-                 (symbol-value-in-buffer 'slime-popup-buffer-mode object))
-         ;; Only do the unwind-protect of #'with-current-buffer if we're
-         ;; actually interested in this buffer
-         (with-current-buffer object
-           (setq redraw-modeline
-                 (or (not (equal slime-modeline-string
-                                 (setq slime-modeline-string
-                                       (slime-modeline-string))))
-                     redraw-modeline)))))
-     'never 'visible)
-    (and redraw-modeline (redraw-modeline t))))
+(when (featurep 'xemacs)
+  (defun slime-xemacs-recompute-modelines ()
+    (let (redraw-modeline)
+      (walk-windows
+       (lambda (object)
+         (setq object (window-buffer object))
+         (when (or (symbol-value-in-buffer 'slime-mode object)
+                   (symbol-value-in-buffer 'slime-popup-buffer-mode object))
+           ;; Only do the unwind-protect of #'with-current-buffer if we're
+           ;; actually interested in this buffer
+           (with-current-buffer object
+             (setq redraw-modeline
+                   (or (not (equal slime-modeline-string
+                                   (setq slime-modeline-string
+                                         (slime-modeline-string))))
+                       redraw-modeline)))))
+       'never 'visible)
+      (and redraw-modeline (redraw-modeline t)))))
 
 (and (featurep 'xemacs)
      (pushnew 'slime-xemacs-recompute-modelines pre-idle-hook))
@@ -3461,21 +3462,6 @@
          (slime-message "%s" message)
        (error "%s" message)))))
 
-(defun slime-goto-source-location-buffer-and-file (buffer position hints
-                                                   noerror)
-  (destructuring-bind (type buffer file) buffer
-    (slime-goto-source-location
-     (if (get-buffer buffer)
-         (list :location
-               (list :buffer buffer)
-               (getf position :buffer-position)
-               (getf hints :buffer-hints))
-         (list :location
-               (list :file file)
-               (getf position :file-position)
-               (getf hints :file-hints)))
-     noerror)))
-
 (defun slime-location-offset (location)
   "Return the position, as character number, of LOCATION."
   (save-restriction