Mercurial > emacs

view lisp/obsolete/auto-show.el @ 79688:f82034083629

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Copyright and version headers update. Remove some outdated comments through the whole file. (vc-bzr-program-args): Remove because unused. (vc-bzr-log-switches): New customization option. (vc-bzr-command): Use LC_MESSAGES=C instead of LC_ALL=C. No longer use `vc-bzr-program-args'. (vc-bzr-register): Fix for working with both 22.1 and CVS version of `vc-find-root' (patch by Andreas Hoenen). (vc-bzr-status): Update regex to match latest Bzr output. Remove redundant test. (vc-bzr-init-version): New function. (vc-bzr-unregister): Must not delete file. (vc-bzr-find-version): New function. (vc-bzr-checkout): Argument `rev' is explicit revision only if it's a non-empty string, otherwise take head revision. (vc-bzr-print-log): Pass `vc-bzr-log-switches' to "bzr log". (vc-bzr-diff): Simpler build of the revision spec string. (vc-annotate-convert-time, vc-bzr-annotate-difference): Remove: compatibility hacks for Emacs21, not needed in Emacs 22. (vc-bzr-dir-state): Add code comments. Removed redundant statement. (vc-bzr-dired-state-info): Only provide custom strings for overloaded VC state 'edited; otherwise fallback to `vc-default-dired-state-info'.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 04 Jan 2008 19:20:59 +0000
parents 695cf19ef79e
children 375f2633d815 1e3a407766b9
line wrap: on
line source

;;; auto-show.el --- perform automatic horizontal scrolling as point moves
;;; This file is in the public domain.

;; This file is part of GNU Emacs.

;; Keywords: scroll display convenience
;; Author: Pete Ware <ware@cis.ohio-state.edu>
;; Maintainer: FSF

;;; Commentary:

;; This file contains dummy variables and functions only because Emacs
;; does hscrolling automatically, now.

;;; Code:

(defgroup auto-show nil
  "This customization group is kept for compatibility only.
Emacs now does hscrolling automatically.  Please remove references
to auto-show from your init file and code."
  :group 'editing)

;;;###autoload
(defcustom auto-show-mode nil
  "Obsolete."
  :version "20.4"
  :type 'boolean
  :group 'auto-show)

(defcustom auto-show-shift-amount 8
  "*Obsolete."
  :type 'integer
  :group 'auto-show)

(defcustom auto-show-show-left-margin-threshold 50
  "*Obsolete."
  :type 'integer
  :group 'auto-show)

;;;###autoload
(defun auto-show-mode (arg)
  "This command is obsolete."
  (interactive "P"))

(defun auto-show-make-point-visible (&optional ignore-arg)
  "This command is obsolete."
  (interactive))

(provide 'auto-show)

;;; arch-tag: 49587cbf-95cc-4061-b564-274aaec37469
;;; auto-show.el ends here