comparison lisp/simple.el @ 2577:b28675709d41

(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.

2576:48318133e7a6

    (message (substitute-command-keys
	      "Goal column %d (use \\[set-goal-column] with an arg to unset it)")
	     goal-column))
  nil)

(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."
  (interactive "P")
  (forward-char arg)

  (interactive "P")
  (backward-char arg)
  (if truncate-lines
      (let ((x (current-column)) (w (- (window-width) 2)))
	(set-window-hscroll (selected-window) (- x (% x w)) ))))

(defun transpose-chars (arg)
  "Interchange characters around point, moving forward one character.
With prefix arg ARG, effect is to take character before point
and drag it forward past ARG other characters (backward if ARG negative).

2577:b28675709d41

    (message (substitute-command-keys
	      "Goal column %d (use \\[set-goal-column] with an arg to unset it)")
	     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."
  (interactive "P")
  (forward-char arg)

  (interactive "P")
  (backward-char arg)
  (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.
With prefix arg ARG, effect is to take character before point
and drag it forward past ARG other characters (backward if ARG negative).