[Emacs-diffs] /srv/bzr/emacs/trunk r111697: * lisp/simple.el (end-of-buffer): Don't touch unrelated windows.

[Stefan Monnier]

------------------------------------------------------------
revno: 111697
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=13466
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Fri 2013-02-08 10:53:49 -0500
message:
  * lisp/simple.el (end-of-buffer): Don't touch unrelated windows.
  (fundamental-mode): Use run-mode-hooks.
modified:
  lisp/ChangeLog
  lisp/simple.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-02-08 15:47:07 +0000
+++ b/lisp/ChangeLog    2013-02-08 15:53:49 +0000
@@ -1,5 +1,8 @@
 2013-02-08  Stefan Monnier  <address@hidden>
 
+       * simple.el (end-of-buffer): Don't touch unrelated windows (bug#13466).
+       (fundamental-mode): Use run-mode-hooks.
+
        * eshell/esh-proc.el (eshell/kill): Fix last change.
        * eshell/em-ls.el (eshell-ls-dir): Fix use of CL in last change.
 

=== modified file 'lisp/simple.el'
--- a/lisp/simple.el    2013-02-02 06:04:06 +0000
+++ b/lisp/simple.el    2013-02-08 15:53:49 +0000
@@ -349,8 +349,7 @@
 Other major modes are defined by comparison with this one."
   (interactive)
   (kill-all-local-variables)
-  (unless delay-mode-hooks
-    (run-hooks 'after-change-major-mode-hook)))
+  (run-mode-hooks))
 
 ;; Special major modes to view specially formatted data rather than files.
 
@@ -868,7 +867,8 @@
   ;; If we went to a place in the middle of the buffer,
   ;; adjust it to the beginning of a line.
   (cond ((and arg (not (consp arg))) (forward-line 1))
-       ((> (point) (window-end nil t))
+       ((and (eq (current-buffer) (window-buffer))
+              (> (point) (window-end nil t)))
         ;; If the end of the buffer is not already on the screen,
         ;; then scroll specially to put it near, but not at, the bottom.
         (overlay-recenter (point))