Mercurial > emacs

comparison lisp/obsolete/hscroll.el @ 49598:0d8b17d428b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Trailing whitepace deleted.
author Juanma Barranquero <lekktu@gmail.com>
date Tue, 04 Feb 2003 13:24:35 +0000
parents 6c79e7c27d9b
children 695cf19ef79e d7ddb3e565de
comparison
equal deleted inserted replaced
49597:e88404e8f2cf 49598:0d8b17d428b5
26 ;; This file contains dummy variables and functions only because Emacs 26 ;; This file contains dummy variables and functions only because Emacs
27 ;; does hscrolling automatically, now. 27 ;; does hscrolling automatically, now.
28 28
29 ;;; Code: 29 ;;; Code:
30 30
31 ;;; 31 ;;;
32 ;;; PUBLIC VARIABLES 32 ;;; PUBLIC VARIABLES
33 ;;; 33 ;;;
34 34
35 (defvar hscroll-version "0.0") 35 (defvar hscroll-version "0.0")
36 36
37 (defgroup hscroll nil 37 (defgroup hscroll nil
38 "This customization group is kept for compatibility only. 38 "This customization group is kept for compatibility only.
46 :group 'hscroll 46 :group 'hscroll
47 :type 'boolean 47 :type 'boolean
48 :require 'hscroll 48 :require 'hscroll
49 :version "20.3") 49 :version "20.3")
50 50
51 (defcustom hscroll-margin 5 51 (defcustom hscroll-margin 5
52 "*Obsolete." 52 "*Obsolete."
53 :group 'hscroll 53 :group 'hscroll
54 :type 'integer) 54 :type 'integer)
55 55
56 (defcustom hscroll-snap-threshold 30 56 (defcustom hscroll-snap-threshold 30
66 (defcustom hscroll-mode-name " Hscr" 66 (defcustom hscroll-mode-name " Hscr"
67 "*Obsolete." 67 "*Obsolete."
68 :group 'hscroll 68 :group 'hscroll
69 :type 'string) 69 :type 'string)
70 70
71 ;;; 71 ;;;
72 ;;; PUBLIC COMMANDS 72 ;;; PUBLIC COMMANDS
73 ;;; 73 ;;;
74 74
75 ;;;###autoload 75 ;;;###autoload
76 (defun turn-on-hscroll () 76 (defun turn-on-hscroll ()
77 "This function is obsolete. 77 "This function is obsolete.
78 Emacs now does hscrolling automatically, if `truncate-lines' is non-nil. 78 Emacs now does hscrolling automatically, if `truncate-lines' is non-nil.