Lines Matching +defs:current +defs:window
75 (or (current-local-map)
77 (define-key (current-local-map)
115 (if (null current-prefix-arg) 1
116 (if (listp current-prefix-arg) (car current-prefix-arg)
117 (if (eq current-prefix-arg '-) -1
118 current-prefix-arg))))
201 (let ((column (current-indentation)))
211 (defun ml-current-column ()
212 (1+ (current-column)))
214 (defun ml-current-indent ()
215 (1+ (current-indentation)))
300 (defun beginning-of-window ()
301 (goto-char (window-start)))
303 (defun end-of-window ()
304 (goto-char (window-start))
305 (vertical-motion (- (window-height) 2)))
345 (defun line-to-top-of-window ()
360 (defun page-next-window (&optional arg)
363 (scroll-other-window nil)
366 (scroll-other-window '-)
369 (defun ml-next-window ()
370 (select-window (next-window)))
372 (defun ml-previous-window ()
373 (select-window (previous-window)))
381 (defun split-current-window ()
382 (split-window (selected-window)))
390 (goto-char (window-start (selected-window)))