;;; Commentary:
;;
-;; Automatically scroll horizontally when the point moves off the
-;; left or right edge of the window.
-;;
-;; - Type "M-x hscroll-mode" to enable it in the current buffer.
-;; - Type "M-x hscroll-global-mode" to enable it in every buffer.
-;; - "turn-on-hscroll" is useful in mode hooks as in:
-;; (add-hook 'text-mode-hook 'turn-on-hscroll)
-;;
-;; - hscroll-margin controls how close the cursor can get to the edge
-;; of the window.
-;; - hscroll-step-percent controls how far to jump once we decide to do so.
-;;
-;; Most users won't want to mess with the other variables defined
-;; here. But they're all documented, and they all start with
-;; "hscroll-" if you're curious.
-;;
-;; Oh, you should also know that if you set the hscroll-margin and
-;; hscroll-step-percent large enough, you can get an interesting, but
-;; undesired ping-pong effect as the point bounces from one edge to
-;; the other.
-;;
-;; wmesard@sgi.com
+;; This file contains dummy variables and functions only because Emacs
+;; does hscrolling automatically, now.
;;; Code:
;;; PUBLIC VARIABLES
;;;
-(defvar hscroll-version "2.2")
+(defvar hscroll-version "0.0")
(defgroup hscroll nil
- "Minor mode to automatically scroll truncated lines horizontally."
+ "This customization group is kept for compatibilry only.
+Emacs now does hscrolling automatically. Please remove references
+to hscroll from your init file and code."
:group 'editing)
(defcustom hscroll-global-mode nil
- "Toggle horizontal scrolling.
-Setting this variable directly does not take effect;
-use either \\[customize] or the function `hscroll-global-mode'."
- :set (lambda (symbol value)
- (hscroll-global-mode (if value 1 -1)))
- :initialize 'custom-initialize-default
+ "*Obsolete."
:group 'hscroll
:type 'boolean
:require 'hscroll
:version "20.3")
(defcustom hscroll-margin 5
- "*How many columns away from the edge of the window point is allowed to get
-before HScroll will horizontally scroll the window."
+ "*Obsolete."
:group 'hscroll
:type 'integer)
(defcustom hscroll-snap-threshold 30
- "*When point is this many columns (or less) from the left edge of the document,
-don't do any horizontal scrolling. In other words, be biased towards the left
-edge of the document.
- Set this variable to zero to disable this bias."
+ "*Obsolete."
:group 'hscroll
:type 'integer)
(defcustom hscroll-step-percent 25
- "*How far away to place the point from the window's edge when scrolling.
-Expressed as a percentage of the window's width."
+ "*Obsolete."
:group 'hscroll
:type 'integer)
(defcustom hscroll-mode-name " Hscr"
- "*Horizontal scrolling mode line indicator.
-Set this to nil to conserve valuable mode line space."
+ "*Obsolete."
:group 'hscroll
:type 'string)
-(or (assq 'hscroll-mode minor-mode-alist)
- (setq minor-mode-alist
- (cons '(hscroll-mode hscroll-mode-name) minor-mode-alist)))
-
-
-;;;
-;;; PRIVATE VARIABLES
-;;;
-
-(defvar hscroll-mode nil
- "Non-nil if HScroll mode is enabled.")
-(make-variable-buffer-local 'hscroll-mode)
-;; Make it a permanent local
-;; so it will only turn off when WE turn it off.
-(put 'hscroll-mode 'permanent-local t)
-
-(defvar hscroll-timer nil
- "Timer used by HScroll mode.")
-
-(defvar hscroll-old-truncate-local nil)
-(defvar hscroll-old-truncate-was-global nil)
-(make-variable-buffer-local 'hscroll-old-truncate)
-(make-variable-buffer-local 'hscroll-old-truncate-was-global)
-
-(defvar hscroll-old-truncate-default nil)
-
;;;
;;; PUBLIC COMMANDS
;;;
;;;###autoload
(defun turn-on-hscroll ()
- "Unconditionally turn on Hscroll mode in the current buffer."
- (hscroll-mode 1))
+ "This function is obsolete.")
;;;###autoload
(defun hscroll-mode (&optional arg)
- "Toggle HScroll mode in the current buffer.
-With ARG, turn HScroll mode on if ARG is positive, off otherwise.
-In HScroll mode, truncated lines will automatically scroll left or
-right when point gets near either edge of the window.
- See also \\[hscroll-global-mode]."
- (interactive "P")
- (let ((newmode (if (null arg)
- (not hscroll-mode)
- (> (prefix-numeric-value arg) 0))))
-
- (if newmode
- ;; Turn it on.
- (if (not hscroll-mode)
- ;; It was off.
- (let ((localp (local-variable-p 'truncate-lines)))
- (if localp
- (setq hscroll-old-truncate-local truncate-lines))
- (setq hscroll-old-truncate-was-global (not localp))
- (setq truncate-lines t)
- (setq hscroll-timer
- (run-with-idle-timer 0 t 'hscroll-window-maybe))))
- ;; Turn it off.
- (if hscroll-mode
- ;; It was on.
- (progn
- (if hscroll-old-truncate-was-global
- (kill-local-variable 'truncate-lines)
- (setq truncate-lines hscroll-old-truncate-local))
- (if (not truncate-lines)
- (set-window-hscroll (selected-window) 0))
- ;; If hscroll is not enabled in any buffer now,
- ;; turn off the timer.
- (unless (memq t (mapcar (lambda (buffer)
- (with-current-buffer buffer
- hscroll-mode))
- (buffer-list)))
- (cancel-timer hscroll-timer)))))
-
- (setq hscroll-mode newmode)
- (force-mode-line-update nil)))
-
+ "This function is absolete."
+ (interactive "P"))
;;;###autoload
(defun hscroll-global-mode (&optional arg)
- "Toggle HScroll mode in all buffers (excepting minibuffers).
-With ARG, turn HScroll mode on if ARG is positive, off otherwise.
-If a buffer ever has HScroll mode set locally (via \\[hscroll-mode]),
-it will forever use the local value (i.e., \\[hscroll-global-mode]
-will have no effect on it).
- See also \\[hscroll-mode]."
- (interactive "P")
- (let* ((oldmode (default-value 'hscroll-mode))
- (newmode (if (null arg)
- (not oldmode)
- (> (prefix-numeric-value arg) 0))))
- (setq hscroll-global-mode newmode)
- (if newmode
- ;; turn it on
- (if (not hscroll-mode)
- ;; it was off
- (progn
- (setq hscroll-old-truncate-default (default-value truncate-lines))
- (setq-default hscroll-old-truncate-was-global t)
- (setq-default truncate-lines t)
- (add-hook 'minibuffer-setup-hook 'hscroll-minibuffer-hook)
- (setq hscroll-timer
- (run-with-idle-timer 0 t 'hscroll-window-maybe))))
- ;; turn it off
- (if hscroll-mode
- ;; it was on
- (progn
- (remove-hook 'minibuffer-setup-hook 'hscroll-minibuffer-hook)
- (setq-default truncate-lines hscroll-old-truncate-default)
- (cancel-timer hscroll-timer))))
-
- (setq-default hscroll-mode newmode)
- (force-mode-line-update t)))
-
-(defun hscroll-minibuffer-hook ()
- (setq truncate-lines hscroll-old-truncate-default))
+ "This function is absolete."
+ (interactive "P"))
(defun hscroll-window-maybe ()
- "Scroll horizontally if point is off or nearly off the edge of the window.
-This is called automatically when in HScroll mode, but it can be explicitly
-invoked as well (i.e., it can be bound to a key).
-This does nothing in the minibuffer."
- (interactive)
- ;; Only consider scrolling if truncate-lines is true,
- ;; the window is already scrolled or partial-widths is true and this is
- ;; a partial width window. See display_text_line in xdisp.c.
- (if (and hscroll-mode
- (not (window-minibuffer-p (selected-window)))
- (or truncate-lines
- (not (zerop (window-hscroll)))
- (and truncate-partial-width-windows
- (< (window-width) (frame-width)))))
- (let ((linelen (save-excursion (end-of-line) (current-column)))
- (rightmost-char (+ (window-width) (window-hscroll))))
- (if (< (current-column) hscroll-snap-threshold)
- (set-window-hscroll
- (selected-window)
- (- (window-hscroll)))
- (if (>= (current-column)
- (- rightmost-char hscroll-margin
- ;; Off-by-one if the left edge is scrolled
- (if (not (zerop (window-hscroll))) 1 0)
- ;; Off by one if the right edge is scrolled
- (if (> linelen rightmost-char) 1 0)
- ))
- ;; Scroll to the left a proportion of the window's width.
- (set-window-hscroll
- (selected-window)
- (- (+ (current-column)
- (/ (* (window-width) hscroll-step-percent) 100))
- (window-width)))
- (if (< (current-column) (+ (window-hscroll) hscroll-margin))
- ;; Scroll to the right a proportion of the window's width.
- (set-window-hscroll
- (selected-window)
- (- (current-column) (/ (* (window-width) hscroll-step-percent) 100)))))))))
-
-;;;
-;;; It's not a bug, it's a *feature*
-;;;
-
-(if hscroll-global-mode
- (hscroll-global-mode 1))
+ "This function is obsolete."
+ (interactive))
(provide 'hscroll)
projects / emacs.git / commitdiff