Index: gui.lisp
===================================================================
RCS file: /project/climacs/cvsroot/climacs/gui.lisp,v
retrieving revision 1.201
diff -r1.201 gui.lisp
212,215c212,217
< 	 (buffer (buffer master-pane))
< 	 (size (size buffer))
< 	 (top (top master-pane))
< 	 (bot (bot master-pane)))
---
>          (buffer (buffer master-pane))
>          (size (size buffer))
>          (top (top master-pane))
>          (bot (bot master-pane))
>          (point (point master-pane))
> 	 (pcnt-buffer (if (= size 0) 0 (round (* 100 (/ (offset point) size))))))
226,237c228,237
<       (format pane "~25A" (name buffer)))
<     (format pane "  ~A  "
< 	    (cond ((and (mark= size bot)
< 			(mark= 0 top))
< 		   "")
< 		  ((mark= size bot)
< 		   "Bot")
< 		  ((mark= 0 top)
< 		   "Top")
< 		  (t (format nil "~a%"
< 			     (round (* 100 (/ (offset top)
< 					      size)))))))
---
> 		    (format pane "~25A" (name buffer)))
>     (when (> size 0)
>       (format pane "~A"
> 	      (cond ((or (= (offset point) 0) (= pcnt-buffer 0))
> 		     "Top")
> 		    ((or (= (offset point) size) (= pcnt-buffer 100))
> 		     "Bot")
> 		    (t
> 		     (format nil "~A%" pcnt-buffer)))))
>     (format pane "(~A,~A)     " (1+ (line-number point)) (column-number point))
239,248c239,248
<       (princ #\( pane)
<       (princ (name-for-info-pane (syntax buffer)) pane)
<       (format pane "~{~:[~*~; ~A~]~}" (list
< 				       (slot-value master-pane 'overwrite-mode)
< 				       "Ovwrt"
< 				       (auto-fill-mode master-pane)
< 				       "Fill"
< 				       (isearch-mode master-pane)
< 				       "Isearch"))
<       (princ #\) pane))
---
> 		      (princ #\( pane)
> 		      (princ (name-for-info-pane (syntax buffer)) pane)
> 		      (format pane "~{~:[~*~; ~A~]~}" (list
> 						       (slot-value master-pane 'overwrite-mode)
> 						       "Ovwrt"
> 						       (auto-fill-mode master-pane)
> 						       "Fill"
> 						       (isearch-mode master-pane)
> 						       "Isearch"))
> 		      (princ #\) pane))
250,253c250,253
<       (princ (if (recordingp *application-frame*)
< 		 "Def"
< 		 "")
< 	     pane))))
---
> 		    (princ (if (recordingp *application-frame*)
> 			       "Def"
> 			       "")
> 			   pane))))