🚀 go-pugleaf

I have a problem with strange scrolling of windows.  Here's the
situation.

Buffers A and B are each displayed in separate windows.
I have a function (foo) which performs a lot of operations involving
restricting, widening, inserting, etc.  The very last operation in
(foo) is (goto-char (point-min)).

So when the current window is A, I can execute (foo) and when it
finishes the current restriction is displayed beginning at the top of
A's window.

I have another function (bar), which is simply the following:
	(defun bar ()
		(interactive)
		(set-buffer "A")
		(foo))
Now when the current buffer is B, and I execute (bar), the result is
that the top of the current restriction of A is scrolled up off of the
top of A's window!

The following does NOT fix the problem:

	(defun bar ()
		(interactive)
		(save-window-excursion
			(set-buffer "A")	
			(foo)))

In fact, if I write

	(defun bar ()
		(interactive)
		(set-buffer "A")
		(foo)
		(goto-char (point-min))
		(setq xxx (point))
		)

Then indeed xxx is set to the proper value, the first character of the
current restriction of A, but then AFTER bar completes the window
scrolls and point is moved forward.

Any ideas about what is going on here, and what to do about it?

Please email as well as post possible sol'ns.  Thanks.
--
---- Henry Kautz

:internet: 	kautz@research.att.com
:uucp:		allegra!kautz