Hi. This is one small bit of user interface feedback that I really like to have in the Backtrace.
Thanks, Neil
cvs diff -u ChangeLog slime.el Index: ChangeLog =================================================================== RCS file: /project/slime/cvsroot/slime/ChangeLog,v retrieving revision 1.1076 diff -u -r1.1076 ChangeLog --- ChangeLog 26 Feb 2007 09:56:06 -0000 1.1076 +++ ChangeLog 1 Mar 2007 09:17:08 -0000 @@ -1,3 +1,10 @@ +2007-03-01 Neil Van Dyke neil@neilvandyke.org + + * slime.el (sldb-insert-frame): Added mouse-face to frame label + and expression in Backtrace. + (sldb-insert-frames): Added mouse-face to "--more--" label in + Backtrace. + 2007-02-26 Nikodemus Siivola nikodemus@random-state.net
* swank.lisp (inspect-for-emacs): Add support for inspecting Index: slime.el =================================================================== RCS file: /project/slime/cvsroot/slime/slime.el,v retrieving revision 1.766 diff -u -r1.766 slime.el --- slime.el 25 Feb 2007 15:59:34 -0000 1.766 +++ slime.el 1 Mar 2007 09:17:19 -0000 @@ -8303,7 +8303,8 @@ sldb-previous-frame-number ,num point-entered sldb-fetch-more-frames start-open t - face sldb-section-face) + face sldb-section-face + mouse-face highlight) " --more--") (insert "\n"))))
@@ -8313,10 +8314,11 @@ (destructuring-bind (number string) frame (let ((props `(frame ,frame sldb-default-action sldb-toggle-details))) (slime-propertize-region props - (insert " " (in-sldb-face frame-label (format "%2d:" number)) " ") - (slime-insert-possibly-as-rectangle - (slime-add-face (or face 'sldb-frame-line-face) - string)) + (slime-propertize-region '(mouse-face highlight) + (insert " " (in-sldb-face frame-label (format "%2d:" number)) " ") + (slime-insert-possibly-as-rectangle + (slime-add-face (or face 'sldb-frame-line-face) + string))) (insert "\n")))))
(defun sldb-fetch-more-frames (&rest ignore)
Neil Van Dyke neil@neilvandyke.org writes:
Hi. This is one small bit of user interface feedback that I really like to have in the Backtrace.
applied. thanks.