Mercurial > emacs
view lisp/obsolete/auto-show.el @ 66477:117f8e71b37a
* mh-customize.el (mh-adaptive-cmd-note-flag)
(mh-scan-format-file, mh-scan-prog): Sync docstrings with manual.
* mh-e.el (mh-scan-format-mh, mh-note-deleted, mh-note-refiled)
(mh-note-cur, mh-scan-good-msg-regexp)
(mh-scan-deleted-msg-regexp, mh-scan-refiled-msg-regexp)
(mh-scan-valid-regexp, mh-scan-cur-msg-number-regexp)
(mh-scan-date-regexp, mh-scan-rcpt-regexp, mh-scan-body-regexp)
(mh-scan-subject-regexp, mh-scan-format-regexp)
(mh-folder-font-lock-keywords, mh-set-cmd-note): Sync docstrings with
manual.
* mh-funcs.el (mh-note-copied): Sync docstrings with manual.
* mh-utils.el (mh-goto-msg): Use mh-scan-msg-search-regexp instead of
hard-coded string.
(mh-mail-header-separator, mh-signature-separator-regexp): Use
"regular expression" in docstring instead of regexp.
(mh-scan-msg-number-regexp)
(mh-scan-msg-overflow-regexp, mh-scan-msg-format-regexp)
(mh-scan-msg-format-string, mh-scan-msg-search-regexp)
(mh-cmd-note): Sync docstrings with manual.
author | Bill Wohler <wohler@newt.com> |
---|---|
date | Fri, 28 Oct 2005 01:59:12 +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