Lines Matching +defs:set +defs:line
67 ;; is on line 71):
78 ;; As you can see, the right-hand window starts at line 73, the line
84 ;; line of the left-hand window. Enter new lines into the
100 ;; (global-set-key [f8] 'follow-mode)
101 ;; (global-set-key [f7] 'follow-delete-other-windows-and-split)
116 ;; Since the display of XEmacs is pixel-oriented, a line could be
120 ;; following line in your init-file:
203 ;; (global-set-key [f8] 'follow-mode)
242 ;; by using `set', `symbol-value' and `symbol-function' rather than
247 ;; (set 'foo ...) <-- XEmacs doesn't fall for this one.
248 ;; (funcall (symbol-function 'set) 'bar ...)
264 (if (eq (get 'force-mode-line-update 'byte-compile)
266 (put 'force-mode-line-update 'byte-compile 'nil))
437 ;; Why not just `(set-buffer-menubar current-menubar)'? The
439 ;; Emacs, neither `set-buffer-menubar' nor
442 (funcall (symbol-function 'set-buffer-menubar)
458 (defcustom follow-mode-line-text " Follow"
459 "Text shown in the mode line when Follow mode is active.
485 Must be set before Follow Mode is loaded.
494 '(next-line previous-line forward-char backward-char)
503 To mark other commands as suitable for caching, set the symbol
536 ;; the variable is not set.
613 (force-mode-line-update)
618 (force-mode-line-update)
653 ;; We must sometimes set `follow-internal-force-redisplay', otherwise
684 (set-window-start (car windows) (point)))))))
713 (set-window-start win (point))
736 To bind this command to a hotkey, place the following line
738 (global-set-key [f7] 'follow-delete-other-windows-and-split)"
751 (set-window-start (selected-window) start)
786 To bind this command to a hotkey place the following line
788 (global-set-key [f7] 'follow-switch-to-current-buffer-all)"
836 With a positive argument, place the current line ARG lines
981 ;; coinside with the start of a line.
997 (set-window-start (car windows) pos 'noforce)
999 (set-window-start (car windows) start 'noforce)
1009 Note that this handles the case when the cache has been set to nil."
1065 ;; should start at a full screen line.
1099 ;; line. If WIN is not aligned the start is updated which probably
1109 "Make sure that the start of WIN starts at a full screen line."
1118 (set-window-start win (point) 'noforce)))))
1183 ;; Make sure the line start in the beginning of a real screen
1184 ;; line.
1192 (set-window-start (car windows) (point) 'noforce)
1235 (set-window-start (car windows) pos)
1245 ;; (set-window-start (car windows) pos)
1246 ;; (set-window-point (car windows) (max p pos))
1254 ;; have somewhere splited a line between windows) we try to enhance
1339 ;; a point on the same line as GUESS, or above.
1352 ;; Always calculate what happend when no line is displayed in the first
1415 (set-buffer (window-buffer win))
1421 ;; set the NOFORCE flag.
1422 (set-window-start win start))
1426 (set-buffer orig-buffer)))))
1458 (set-buffer (window-buffer win))
1544 (set-window-start (selected-window) (point-min))
1569 (set-window-start win (window-start win) nil)
1570 (set-window-point win p)))))
1598 ;; (When scrolling one line in a wide window which
1625 (set-buffer orig-buffer)))
1646 (set-window-point (car pred) (max (nth 1 data) (- (nth 2 data) 1)))
1649 (set-window-point (car succ) (nth 1 (assq (car succ) win-start-end)))
1685 scroll-bar-set-window-start)))
1723 ;; (defadvice scrollbar-line-down
1724 ;; (after follow-scrollbar-line-down activate)
1727 (let ((cmds '(scrollbar-line-down ; Window
1728 scrollbar-line-up
1779 ;; using `set-process-filter' are also intercepted. The reason is
1783 ;; Technically, we set the process filter to `follow-generic-filter'.
1791 ;; `set-process-filter'? (How often are processes created in a
1797 ;;{{{ Advice for `set-process-filter'
1802 (defadvice set-process-filter (before follow-set-process-filter activate)
1815 (ad-set-arg 1 'follow-generic-filter))
1820 (ad-set-arg 1 'follow-generic-filter))))))
1823 (defun follow-call-set-process-filter (proc filter)
1824 "Call original `set-process-filter' without the Follow mode advice."
1825 (ad-disable-advice 'set-process-filter 'before
1826 'follow-set-process-filter)
1827 (ad-activate 'set-process-filter)
1829 (set-process-filter proc filter)
1830 (ad-enable-advice 'set-process-filter 'before
1831 'follow-set-process-filter)
1832 (ad-activate 'set-process-filter)))
1871 ;; Normally, all new processed are intercepted by our `set-process-filter'.
1886 ;; The custom `set-process-filter' defined above.
1887 (set-process-filter (car list) (process-filter (car list))))
1909 (follow-call-set-process-filter
1954 (set-buffer buf)
1956 (set-marker (process-mark proc) (point-max)))
1965 (set-marker (process-mark proc) (point)))
1973 (set-buffer buf)
1998 (set-window-start win orig-window-start)
2005 (set-window-start win new-window-start))
2046 (set-buffer old-buffer)))
2105 (set-buffer buf)
2124 (set-buffer orig-buffer)
2152 (set-buffer buf)))))