Mercurial > emacs
changeset 18028:89f6e1e17d2d
(follow-submit-feedback, follow-mode): Doc fix.
(follow-generic-filter): Don't restore the original buffer if it's
dead, or if the filter explicitly selected a new buffer.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 29 May 1997 17:56:52 +0000 |
| parents | da252e5249cd |
| children | 82a56bdb2381 |
| files | lisp/follow.el |
| diffstat | 1 files changed, 12 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/follow.el Thu May 29 17:48:38 1997 +0000 +++ b/lisp/follow.el Thu May 29 17:56:52 1997 +0000 @@ -5,9 +5,9 @@ ;; Author: Anders Lindgren <andersl@csd.uu.se> ;; Maintainer: Anders Lindgren <andersl@csd.uu.se> ;; Created: 25 May 1995 -;; Version: 1.6 +;; Version: 1.7 ;; Keywords: display, window, minor-mode -;; Date: 20 Feb 1996 +;; Date: 27 May 1997 ;; This file is part of GNU Emacs. @@ -49,7 +49,7 @@ ;; side-by-side window are used. The user can, with the help of Follow ;; mode, use two full-height windows as though they would have been ;; one. Imagine yourself editing a large function, or section of text, -;; and beeing able to use 144 lines instead of the normal 72... (your +;; and being able to use 144 lines instead of the normal 72... (your ;; mileage may vary). ;; The latest version, and a demonstration, are avaiable at: @@ -467,7 +467,7 @@ (eval-when-compile (require 'reporter)) (defun follow-submit-feedback () - "Sumbit feedback on Follow mode to the author: andersl@csd.uu.se" + "Submit feedback on Follow mode to the author: andersl@csd.uu.se" (interactive) (require 'reporter) (and (y-or-n-p "Do you really want to submit a report on Follow mode? ") @@ -729,7 +729,7 @@ side-by-side window are used. The user can, with the help of Follow mode, use two full-height windows as though they would have been one. Imagine yourself editing a large function, or section of text, -and beeing able to use 144 lines instead of the normal 72... (your +and being able to use 144 lines instead of the normal 72... (your mileage may vary). To split one large window into two side-by-side windows, the commands @@ -2206,7 +2206,11 @@ ;; return to the original window. (if return-to-orig-win (select-window orig-win)) - (set-buffer old-buffer)) + ;; Restore the orignal buffer, unless the filter explicitly + ;; changed buffer or killed the old buffer. + (if (and (eq buf (current-buffer)) + (buffer-name old-buffer)) + (set-buffer old-buffer))) (follow-invalidate-cache) @@ -2340,8 +2344,8 @@ ;;; called from other places, e.g. `post-command-hook' and ;;; `post-command-idle-hook'. -;; If this function is called it is to late for this window, but -;; we might save other windows from beeing recentered. +;; If this function is called it is too late for this window, but +;; we might save other windows from being recentered. (if (and follow-avoid-tail-recenter-p (boundp 'window-scroll-functions)) (add-hook 'window-scroll-functions 'follow-avoid-tail-recenter t))