(down-arrow): New function. Uses next-line-add-newlines to suppress

addition of new lines at end of buffer.
(up-arrow): Alias of previous-line, added for consistency.
These changes complete terminal-type-independent support for arrow keys.

1 files changed, 14 insertions, 0 deletions

diff --git a/lisp/simple.el b/lisp/simple.el
index 1662127fe57..3731fbebb13 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1387,6 +1387,11 @@ The goal column is stored in the variable `goal-column'."
              goal-column))
   nil)
 
+;;; Make arrow keys do the right thing for improved terminal support
+;;; When we implement true horizontal autoscrolling, right-arrow and
+;;; left-arrow can lose the (if truncate-lines ...) clause and become
+;;; aliases.
+
 (defun right-arrow (arg)
   "Move right one character on the screen (with prefix ARG, that many chars).
 Scroll right if needed to keep point horizontally onscreen."
@@ -1404,6 +1409,15 @@ Scroll left if needed to keep point horizontally onscreen."
   (if truncate-lines
       (let ((x (current-column)) (w (- (window-width) 2)))
         (set-window-hscroll (selected-window) (- x (% x w)) ))))
+
+(defun down-arrow (arg)
+  "Move down one line on the screen (with prefix ARG, that many lines).
+If doing so would add lines to the end of the buffer, raise an error."
+  (interactive "P")
+  (let ((next-line-add-newlines nil))
+    (next-line 1)))
+
+(defalias 'up-arrow 'previous-line)
 
 (defun transpose-chars (arg)
   "Interchange characters around point, moving forward one character.