Mercurial > hg > xemacs-beta

comparison lisp/simple.el @ 408:501cfd01ee6d r21-2-34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-34
author cvs
date Mon, 13 Aug 2007 11:18:11 +0200
parents b8cc9ab3f761
children de805c49cfc1
comparison
equal deleted inserted replaced
407:ed6218a7d4d3 408:501cfd01ee6d
1999 (condition-case nil 1999 (condition-case nil
2000 (backward-char arg buffer) 2000 (backward-char arg buffer)
2001 (beginning-of-buffer nil) 2001 (beginning-of-buffer nil)
2002 (end-of-buffer nil)))) 2002 (end-of-buffer nil))))
2003 2003
2004 (defun scroll-up-one ()
2005 "Scroll text of current window upward one line.
2006 On attempt to scroll past end of buffer, `end-of-buffer' is signaled.
2007 On attempt to scroll past beginning of buffer, `beginning-of-buffer' is
2008 signaled.
2009
2010 If `signal-error-on-buffer-boundary' is nil, attempts to scroll past buffer
2011 boundaries do not cause an error to be signaled."
2012 (interactive "_")
2013 (scroll-up-command 1))
2014
2004 (defun scroll-up-command (&optional n) 2015 (defun scroll-up-command (&optional n)
2005 "Scroll text of current window upward ARG lines; or near full screen if no ARG. 2016 "Scroll text of current window upward ARG lines; or near full screen if no ARG.
2006 A near full screen is `next-screen-context-lines' less than a full screen. 2017 A near full screen is `next-screen-context-lines' less than a full screen.
2007 Negative ARG means scroll downward. 2018 Negative ARG means scroll downward.
2008 When calling from a program, supply a number as argument or nil. 2019 When calling from a program, supply a number as argument or nil.
2017 (scroll-up n) 2028 (scroll-up n)
2018 (condition-case nil 2029 (condition-case nil
2019 (scroll-up n) 2030 (scroll-up n)
2020 (beginning-of-buffer nil) 2031 (beginning-of-buffer nil)
2021 (end-of-buffer nil)))) 2032 (end-of-buffer nil))))
2033
2034 (defun scroll-down-one ()
2035 "Scroll text of current window downward one line.
2036 On attempt to scroll past end of buffer, `end-of-buffer' is signaled.
2037 On attempt to scroll past beginning of buffer, `beginning-of-buffer' is
2038 signaled.
2039
2040 If `signal-error-on-buffer-boundary' is nil, attempts to scroll past buffer
2041 boundaries do not cause an error to be signaled."
2042 (interactive "_")
2043 (scroll-down-command 1))
2022 2044
2023 (defun scroll-down-command (&optional n) 2045 (defun scroll-down-command (&optional n)
2024 "Scroll text of current window downward ARG lines; or near full screen if no ARG. 2046 "Scroll text of current window downward ARG lines; or near full screen if no ARG.
2025 A near full screen is `next-screen-context-lines' less than a full screen. 2047 A near full screen is `next-screen-context-lines' less than a full screen.
2026 Negative ARG means scroll upward. 2048 Negative ARG means scroll upward.