X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=lisp%2Fmodeline.el;h=ea16c567e7db41eb96f151e2ef1ca4cc92f9f174;hb=ea1ea793fe6e244ef5555ed983423a204101af13;hp=43da2ae225d96e9ad793f6d833d2e30906819a6e;hpb=6883ee56ec887c2c48abe5b06b5e66aa74031910;p=chise%2Fxemacs-chise.git

diff --git a/lisp/modeline.el b/lisp/modeline.el
index 43da2ae..ea16c56 100644
--- a/lisp/modeline.el
+++ b/lisp/modeline.el
@@ -81,7 +81,7 @@ make the clicked-on window taller or shorter."
 	  (start-nwindows (count-windows t))
 ;;	  (hscroll-delta (face-width 'modeline))
 ;;	  (start-hscroll (modeline-hscroll (event-window event)))
-	  (start-x-pixel (event-x-pixel event))
+;	  (start-x-pixel (event-x-pixel event))
 	  (last-timestamp 0)
 	  default-line-height
 	  modeline-height
@@ -220,7 +220,7 @@ make the clicked-on window taller or shorter."
   "Handle mouse clicks on modeline by switching buffers.
 If click on left half of a frame's modeline, bury current buffer.
 If click on right half of a frame's modeline, raise bottommost buffer.
-Arg EVENT is the button release event that occured on the modeline."
+Arg EVENT is the button release event that occurred on the modeline."
   (or (event-over-modeline-p event)
       (error "not over a modeline"))
   (or (button-release-event-p event)
@@ -595,13 +595,14 @@ Normally nil in most modes, since there is no process to display.")
   (purecopy "   ")
   'global-mode-string
   (purecopy "   %[(")
-  (cons modeline-minor-mode-extent (list "" 'mode-name 'minor-mode-alist))
-  (cons modeline-narrowed-extent "%n")
+  (cons modeline-minor-mode-extent
+	(list (purecopy "") 'mode-name 'minor-mode-alist))
+  (cons modeline-narrowed-extent (purecopy "%n"))
   'modeline-process
   (purecopy ")%]----")
-  (purecopy '(line-number-mode "L%l--"))
-  (purecopy '(column-number-mode "C%c--"))
-  (purecopy '(-3 . "%p"))
+  (list 'line-number-mode (purecopy "L%l--"))
+  (list 'column-number-mode (purecopy "C%c--"))
+  (cons -3 (purecopy "%p"))
   (purecopy "-%-")))
 
 ;;; Added for XEmacs 20.3.  Provide wrapper for vc since it may not always be