Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 10:27:41 +00:00
Code Issues Projects Releases Packages Wiki Activity

Comment changes.

Browse source
This commit is contained in:
Richard M. Stallman 2005-06-08 15:35:05 +00:00
parent 8135a25a77
commit 03ceda9edd
1 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/simple.el
View file

@ -3342,10 +3342,15 @@ Outline mode sets this."
(or (memq prop buffer-invisibility-spec)
(assq prop buffer-invisibility-spec)))))
;; Perform vertical scrolling of tall images if necessary.
;; Don't vscroll in a keyboard macro.
;; This is like line-move-1 except that it also performs
;; vertical scrolling of tall images if appropriate.
;; That is not really a clean thing to do, since it mixes
;; scrolling with cursor motion. But so far we don't have
;; a cleaner solution to the problem of making C-n do something
;; useful given a tall image.
(defun line-move (arg &optional noerror to-end try-vscroll)
(if (and auto-window-vscroll try-vscroll
;; But don't vscroll in a keyboard macro.
(not defining-kbd-macro)
(not executing-kbd-macro))
(let ((forward (> arg 0))
@ -3368,6 +3373,8 @@ Outline mode sets this."
;; Update display before calling pos-visible-in-window-p,
;; because it depends on window-start being up-to-date.
(sit-for 0)
;; If the current line is partly hidden at the bottom,
;; scroll it partially up so as to unhide the bottom.
(if (and (setq part (nth 2 (pos-visible-in-window-p
(line-beginning-position) nil t)))
(> (cdr part) 0))