Mercurial > hg > xemacs-beta

diff lisp/modeline.el @ 288:e11d67e05968 r21-0b42

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b42
author cvs
date Mon, 13 Aug 2007 10:35:54 +0200
parents 57709be46d1b
children c9fe270a4101
line wrap: on
line diff
--- a/lisp/modeline.el	Mon Aug 13 10:35:07 2007 +0200
+++ b/lisp/modeline.el	Mon Aug 13 10:35:54 2007 +0200
@@ -65,9 +65,10 @@
   (or (event-over-modeline-p event)
       (error "not over a modeline"))
   ;; Give the modeline a "pressed" look.  --hniksic
-  (with-specifier-instance modeline-shadow-thickness
-      (- (specifier-instance modeline-shadow-thickness (event-window event)))
-      (event-window event)
+  (let-specifier ((modeline-shadow-thickness
+		   (- (specifier-instance modeline-shadow-thickness
+					  (event-window event)))
+		   (event-window event)))
     (let ((done nil)
 	  (depress-line (event-y event))
 	  (start-event-frame (event-frame event))