? .emacs_andyp
? f.patch
? fl.el
? font-lock.el.new
? gserv.patch
? mule
? prim
? sel.patch
Index: gnuserv.el
===================================================================
RCS file: /usr/CVSroot/XEmacs/xemacs/lisp/gnuserv.el,v
retrieving revision 1.7.2.1
diff -u -r1.7.2.1 gnuserv.el
--- gnuserv.el	1998/12/05 16:54:39	1.7.2.1
+++ gnuserv.el	1999/09/18 08:35:01
@@ -440,6 +440,7 @@
 	   (client (make-gnuclient :id gnuserv-current-client
 				   :device device
 				   :frame new-frame)))
+      (select-frame frame)
       (setq gnuserv-current-client nil)
       ;; If the device was created by this client, push it to the list.
       (and (/= old-device-num (length (device-list)))
Index: gutter-items.el
===================================================================
RCS file: /usr/CVSroot/XEmacs/xemacs/lisp/Attic/gutter-items.el,v
retrieving revision 1.1.2.16
diff -u -r1.1.2.16 gutter-items.el
--- gutter-items.el	1999/09/07 14:48:20	1.1.2.16
+++ gutter-items.el	1999/09/18 08:35:03
@@ -242,24 +242,25 @@
 
 (defun update-tab-in-gutter (&optional frame-or-buffer)
   "Update the tab control in the gutter area."
-  (unless gutter-buffers-tab
-    (add-tab-to-gutter))
-  (when (valid-image-instantiator-format-p 'tab-control)
-    (let ((inst (glyph-image-instance 
-		 gutter-buffers-tab
-		 (when (framep frame-or-buffer)
-		   (frame-selected-window frame-or-buffer)))))
-      (set-image-instance-property inst :items 
-				   (buffers-tab-items 
-				    nil
-				    (and (framep frame-or-buffer)
-					 frame-or-buffer)))
-      (resize-subwindow inst (gutter-pixel-width) nil))
-    ))
+  (let ((locale (if (framep frame-or-buffer) frame-or-buffer)))
+    (when (specifier-instance default-gutter-visible-p locale)
+      (unless gutter-buffers-tab 
+	(add-tab-to-gutter))
+      (when (valid-image-instantiator-format-p 'tab-control)
+	(let ((inst (glyph-image-instance 
+		     gutter-buffers-tab
+		     (when (framep frame-or-buffer)
+		       (frame-selected-window frame-or-buffer)))))
+	  (set-image-instance-property inst :items 
+				       (buffers-tab-items 
+					nil locale))
+	  (resize-subwindow inst (gutter-pixel-width) nil))
+	))))
 
 (defun remove-buffer-from-gutter-tab ()
   "Remove the current buffer from the tab control in the gutter area."
-  (when (valid-image-instantiator-format-p 'tab-control)
+  (when (and (valid-image-instantiator-format-p 'tab-control)
+	     (specifier-instance default-gutter-visible-p))
     (let ((inst (glyph-image-instance gutter-buffers-tab))
 	  (buffers (buffers-tab-items t)))
       (unless buffers
@@ -308,6 +309,11 @@
 (defvar progress-text-glyph
   (make-glyph [string :data ""]))
 
+;; a limitation of the layout glyph is that the glyph is redisplayed
+;; as a unit, this means that if you change the text in the glyph
+;; everything else gets redisplayed, including subwindows. This has
+;; the knock on effect that if it is happening very quickly then
+;; subwindows will not get redisplayed until things have settled down.
 (defvar progress-layout-glyph
   (make-glyph
    (vector 'layout
@@ -395,11 +401,13 @@
 	      (set-image-instance-property 
 	       (glyph-image-instance progress-gauge-glyph)
 	       :percent value)
-	    (raw-append-progress message value frame))
+	    (raw-append-progress message value frame)
+	    (redisplay-gutter-area)
+	    (sit-for 0.1))
 	  (redisplay-gutter-area))
       (push (cons label message) progress-stack)
       (raw-append-progress message value frame))
-    (when (eq value 100)
+    (when (eq value 100) 
       (sit-for 0.5)
       (clear-progress label))))
 
Index: subr.el
===================================================================
RCS file: /usr/CVSroot/XEmacs/xemacs/lisp/subr.el,v
retrieving revision 1.8.2.9
diff -u -r1.8.2.9 subr.el
--- subr.el	1999/09/07 00:18:48	1.8.2.9
+++ subr.el	1999/09/18 08:35:06
@@ -223,6 +223,12 @@
 The value of this variable may be buffer-local.
 The buffer about to be killed is current when this hook is run.")
 
+;; called by Frecord_buffer()
+(defvar record-buffer-hook nil
+  "Function or functions to be called when a buffer is recorded.
+The value of this variable may be buffer-local.
+The buffer being recorded is passed as an argument to the hook.")
+
 ;; in C in FSFmacs
 (defvar kill-emacs-hook nil
   "Function or functions to be called when `kill-emacs' is called,