Re: Long subjects

[Per Abrahamsen <abraham@dina.kvl.dk>]

>>>>> "SLB" == Steven L Baur <steve@miranova.com> writes:

SLB> How do you all on Emacs see the right side of long subjects without a
SLB> horizontal scrollbar?

`C-e' and this little gem:

;;  LCD Archive Entry:
;;  auto-show|Pete Ware|ware@cis.ohio-state.edu|
;;  Automatically scroll horizontally|
;;  95-02-07|1.4|~/misc/auto-show.el|
;;
;;;
;;; Author:
;;;
;;;	Pete Ware					ware@cis.ohio-state.edu
;;;	CIS Dept, Ohio State University			w/ (614) 292-8501
;;;	774 Dreese, 2015 Neil Ave.			h/ (614) 791-1347
;;;	Columbus, OH 43210		http://www.cis.ohio-state.edu/~ware
;;;
;;;
;;; Modification history:
;;; 02/07/95	Rewrote for emacs 19: much, much cleaner.  Renamed auto-show
;;; 8/6/90	Make next-line/previous-line do better job following movement.
;;; 3/21/90         better calculation of w-width in e-make-point-visible
;;;                 test for truncated windows
;;;                 added substitute-in-keymap
;;;                 renamed to auto-horizontal
;;;                 added backward-delete-char
;;; 8/13/88	Created

;;;
;;; This is a rewrite of auto-horizontal.  It is comparable in functionality
;;; hscroll.el except it is not a minor mode and does not use any timers.
;;;
;;; This file provides functions that automatically scroll the window
;;; horizontally when the point moves off the left or right side of
;;; the window.  To enable, the variable truncate-lines must be
;;; non-nil -- truncate-lines becomes buffer-local whenever it is set..
;;; This causes long lines to disappear off the end of the screen instead of
;;; wrapping to the beginning of the next line.  To cause this to be the
;;; default for all buffers and to load this package, add the following lines
;;; to your .emacs (sans ;;;):
;;;
;;; (setq default-truncate-lines t)
;;; (require 'auto-show)

;;; I've found that I only want this when I'm editing C code.  Accordingly
;;; I have something like the following in my .emacs:
;;;
;;; (load-library "auto-show")
;;; (defun my-c-mode-hook ()
;;;   "Run when C-mode starts up.  Changes the comment column to be 40"
;;;   ... set various personal preferences ...
;;;   (setq truncate-lines t))
;;; (add-hook 'c-mode-hook 'my-c-mode-hook)

(provide 'auto-show)

;;;************************************************************
;;;*
;;;*  Define Automatic Horizontal Scrolling Functions
;;;*
;;;************************************************************

(add-hook 'post-command-hook 'auto-show-make-point-visible)

(defvar auto-show-shift-amount 8 
  "extra amount to shift a line when point is not visible")

(defun auto-show-truncationp ()
  "True if truncation is on for current window"
  (or truncate-lines 
      (and truncate-partial-width-windows
	   (< (window-width) (screen-width)))))
  
(defun auto-show-make-point-visible ()
  "Scrolls the screen horizontally to make point visible"
  (interactive)
  (if (auto-show-truncationp)
      (progn
	(let ((col (current-column))	;column on line point is at
	      (scroll (window-hscroll))	;how far window is scrolled
	      (w-width (- (window-width) 
			  (if (> (window-hscroll) 0)
			      2 1))))	;how wide window is on the screen
	  (if (< col scroll)		;to the left of the screen
	      (scroll-right (+ (- scroll col) auto-show-shift-amount))
	      (if (>= col (+ scroll w-width)) ;to the right of the screen
		  (scroll-left (+ auto-show-shift-amount 
				  (- col (+ scroll w-width))))))))))