X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/5bc6ddff00c50acf546530ef0e08a27140614d27..0daa080405affe9ab085c4375227fa5ca1ded151:/lisp/term/sun.el?ds=sidebyside

diff --git a/lisp/term/sun.el b/lisp/term/sun.el
index 54bb45a5c1..4fc035191c 100644
--- a/lisp/term/sun.el
+++ b/lisp/term/sun.el
@@ -1,17 +1,16 @@
 ;;; sun.el --- keybinding for standard default sunterm keys
 
-;; Copyright (C) 1987, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+;; Copyright (C) 1987, 2001-2013 Free Software Foundation, Inc.
 
 ;; Author: Jeff Peck <peck@sun.com>
 ;; Keywords: terminals
 
 ;; This file is part of GNU Emacs.
 
-;; GNU Emacs is free software; you can redistribute it and/or modify
+;; GNU Emacs is free software: you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
@@ -19,9 +18,7 @@
 ;; GNU General Public License for more details.
 
 ;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
-;; Boston, MA 02110-1301, USA.
+;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
 
 ;;; Commentary:
 
@@ -126,6 +123,7 @@
 
 (defvar sun-raw-prefix-hooks nil
   "List of forms to evaluate after setting sun-raw-prefix.")
+(make-obsolete-variable 'sun-raw-prefix-hooks 'term-setup-hook "21.1")
 
 
 
@@ -136,10 +134,10 @@
   (global-set-key [r3]	'backward-page)
   (global-set-key [r6]	'forward-page)
   (global-set-key [r7]	'beginning-of-buffer)
-  (global-set-key [r9]	'scroll-down)
+  (global-set-key [r9]	'scroll-down-command)
   (global-set-key [r11]	'recenter)
   (global-set-key [r13]	'end-of-buffer)
-  (global-set-key [r15]	'scroll-up)
+  (global-set-key [r15]	'scroll-up-command)
   (global-set-key [redo]	'redraw-display) ;FIXME: collides with default.
   (global-set-key [props]	'list-buffers)
   (global-set-key [put]	'sun-select-region)
@@ -157,5 +155,4 @@
 	(eval (car hooks))
 	(setq hooks (cdr hooks))))))
 
-;; arch-tag: db761d47-fd7d-42b4-aae1-04fa116b6ba6
 ;;; sun.el ends here