Commit 49116ac0 authored by Jim Blandy's avatar Jim Blandy

*** empty log message ***

parent 3b4a6e27
;; List one abbrev table alphabetically ordered.
;; Copyright (C) 1986 Free Software Foundation, Inc.
;; Copyright (C) 1986, 1992 Free Software Foundation, Inc.
;; Suggested by a previous version by Gildea.
;; This file is part of GNU Emacs.
......@@ -19,8 +19,6 @@
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
(provide 'abbrevlist)
(defun list-one-abbrev-table (abbrev-table output-buffer)
"Display alphabetical listing of ABBREV-TABLE in buffer OUTPUT-BUFFER."
(with-output-to-temp-buffer output-buffer
......@@ -43,3 +41,6 @@
(insert (symbol-value (car abbrev-list)))
(setq first-column (+ first-column 40))
(setq abbrev-list (cdr abbrev-list)))))))
(provide 'abbrevlist)
......@@ -33,8 +33,6 @@
;; pages 899-928.
(require 'calendar)
(provide 'holidays)
(defun holidays ()
"Display the holidays for last month, this month, and next month.
This function is suitable for execution in a .emacs file."
......@@ -585,3 +583,6 @@ checked. If nil, the holiday (car (cdr (cdr X))), if there, is checked."
(setq visible (append (list (car p)) visible)))
(setq p (cdr p)))
visible))
(provide 'holidays)
......@@ -46,7 +46,7 @@
(defun invert-case (count)
"Change the case of the character just after point and move over it.
With arg, applies to that many chars.
With prefix arg, applies to that many chars.
Negative arg inverts characters before point but does not move."
(interactive "p")
(if (< count 0)
......@@ -63,9 +63,8 @@ Negative arg inverts characters before point but does not move."
(defun set-case-syntax-delims (l r table)
"Make characters L and R a matching pair of non-case-converting delimiters.
Sets the entries for L and R in standard-case-table,
standard-syntax-table, and text-mode-syntax-table to indicate
left and right delimiters."
Sets the entries for L and R in `standard-case-table', `standard-syntax-table',
and `text-mode-syntax-table' to indicate left and right delimiters."
(aset (car table) l l)
(aset (car table) r r)
(modify-syntax-entry l (concat "(" (char-to-string r) " ")
......@@ -79,10 +78,10 @@ left and right delimiters."
(defun set-case-syntax-pair (uc lc table)
"Make characters UC and LC a pair of inter-case-converting letters.
Sets the entries for characters UC and LC in
standard-case-table, standard-syntax-table, and
text-mode-syntax-table to indicate an (uppercase, lowercase)
pair of letters."
Sets the entries for characters UC and LC in `standard-case-table',
`standard-syntax-table' and `text-mode-syntax-table' to indicate an
(uppercase, lowercase) pair of letters."
(aset (car table) uc lc)
(modify-syntax-entry lc "w " (standard-syntax-table))
(modify-syntax-entry lc "w " text-mode-syntax-table)
......@@ -91,8 +90,8 @@ pair of letters."
(defun set-case-syntax (c syntax table)
"Make characters C case-invariant with syntax SYNTAX.
Sets the entries for character C in standard-case-table,
standard-syntax-table, and text-mode-syntax-table to indicate this.
Sets the entries for character C in `standard-case-table',
`standard-syntax-table' and `text-mode-syntax-table' to indicate this.
SYNTAX should be \" \", \"w\", \".\" or \"_\"."
(aset (car table) c c)
(modify-syntax-entry c syntax (standard-syntax-table))
......
......@@ -19,8 +19,6 @@
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
(provide 'chistory)
;; This really has nothing to do with list-command-history per se, but
;; its a nice alternative to C-x ESC (repeat-complex-command) and
;; functions as a lister if given no pattern. It's not important
......@@ -165,3 +163,6 @@ The Command History listing is recomputed each time this mode is invoked."
(list-command-history)
(pop-to-buffer "*Command History*")
(run-hooks 'command-history-hook))
(provide 'chistory)
......@@ -43,7 +43,6 @@
;;;; Bug reports, suggestions and comments,
;;;; to quiroz@cs.rochester.edu
(provide 'cl)
(defvar cl-version "2.0 beta 29 October 1989")
......@@ -3135,3 +3134,5 @@ Common-Lisp codes."
form)
;;;; end of cl.el
(provide 'cl)
......@@ -84,7 +84,6 @@
;;; *or* just delete the autoload declaration from scheme.el altogether,
;;; which will allow the autoload in your .emacs to have its say.
(provide 'cmuscheme)
(require 'scheme)
(require 'comint)
......@@ -428,3 +427,5 @@ This is a good place to put keybindings.")
;;; 3/12/90 Olin
;;; - scheme-load-file and scheme-compile-file no longer switch-to-scheme.
;;; Tale suggested this.
(provide 'cmuscheme)
This diff is collapsed.
......@@ -17,8 +17,6 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
(provide 'compare-w)
(defvar compare-windows-whitespace " \t\n"
"*String of characters considered whitespace for \\[compare-windows].
Changes in whitespace are optionally ignored.
......@@ -127,3 +125,6 @@ If `compare-ignore-case' is non-nil, changes in case are also ignored."
(set-window-point w2 p2)
(if (= (point) opoint1)
(ding))))
(provide 'compare-w)
......@@ -38,8 +38,6 @@
;; (interactive)
;; (&info "emacs" "dabbrevs") ; Select the specific info node.
;; )
(provide 'dabbrevs)
(defvar dabbrevs-limit nil
"*Limits region searched by `dabbrevs-expand' to this many chars away.")
(make-variable-buffer-local 'dabbrevs-limit)
......@@ -256,3 +254,6 @@ with the next possible expansion not yet tried."
(= (point) beg))
(setq result (downcase result))))))
result)))
(provide 'dabbrevs)
......@@ -28,8 +28,6 @@
;; Urbana, Illinois 61801
(require 'calendar)
(provide 'diary)
(defun diary (&optional arg)
"Generate the diary window for ARG days starting with the current date.
If no argument is provided, the number of days of diary entries is governed
......@@ -2125,3 +2123,6 @@ to the date indicated by point. Prefix arg will make the entry nonmarking."
(or (calendar-cursor-to-date)
(error "Cursor is not on a date!"))))))
arg)))
(provide 'diary)
......@@ -31,7 +31,7 @@
(setq i (1+ i)))))
(defun describe-display-table (DT)
"Describe the display-table DT in a help buffer."
"Describe the display table DT in a help buffer."
(with-output-to-temp-buffer "*Help*"
(princ "\nTruncation glyf: ")
(prin1 (aref dt 256))
......@@ -56,7 +56,7 @@
(print-help-return-message)))
(defun describe-current-display-table ()
"Describe the display-table in use in the selected window and buffer."
"Describe the display table in use in the selected window and buffer."
(interactive)
(describe-display-table
(or (window-display-table (selected-window))
......@@ -67,7 +67,7 @@
(make-vector 261 nil))
(defun standard-display-8bit (l h)
"Display characters in the range [L, H] literally."
"Display characters in the range L to H literally."
(while (<= l h)
(if (and (>= l ?\ ) (< l 127))
(if standard-display-table (aset standard-display-table l nil))
......
......@@ -17,8 +17,6 @@
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
(require 'electric)
(provide 'ehelp)
(defvar electric-help-map ()
"Keymap defining commands available in `electric-help-mode'.")
......@@ -305,3 +303,6 @@ will select it.)"
(fset 'ehelp-command map)))
;; Do (define-key global-map "\C-h" 'ehelp-command) if you want to win
(provide 'ehelp)
......@@ -19,7 +19,7 @@
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
(provide 'electric) ; zaaaaaaap
; zaaaaaaap
;; perhaps this should be in subr.el...
(defun shrink-window-if-larger-than-buffer (window)
......@@ -179,3 +179,5 @@
(enlarge-window (- target-height (window-height win)))))
(goto-char (point-min))
win)))
(provide 'electric)
\ No newline at end of file
......@@ -57,8 +57,6 @@
;;; this or changing the syntax to ... ,(<form>). RMS: opinion?
(provide 'backquote)
;;; a raft of general-purpose macros follows. See the nearest
;;; Commonlisp manual.
(defmacro bq-push (v l)
......@@ -353,3 +351,6 @@ for making the list so far."
(defun bq-splicenil (form)
(setq state 'append
tailmaker (list form)))
(provide 'backquote)
......@@ -46,8 +46,6 @@
;; June 20, 1986
;;
(provide 'float)
;; fundamental implementation constants
(defconst exp-base 2
"Base of exponent in this floating point representation.")
......@@ -446,3 +444,6 @@ are recognized."
(funcall func exponent (aref powers-of-10 tens)))))
_f0)) ; if invalid, return 0
(provide 'float)
......@@ -21,7 +21,7 @@
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
(provide 'helper) ; hey, here's a helping hand.
; hey, here's a helping hand.
;; Bind this to a string for <blank> in "... Other keys <blank>".
;; Helper-help uses this to construct help string when scrolling.
......@@ -147,3 +147,4 @@
(ding)
(setq continue nil))))))
(provide 'helper)
\ No newline at end of file
......@@ -17,8 +17,6 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
(provide 'lisp-mode)
(defvar lisp-mode-syntax-table nil "")
(defvar emacs-lisp-mode-syntax-table nil "")
(defvar lisp-mode-abbrev-table nil "")
......@@ -613,3 +611,6 @@ means don't indent that line."
(progn
(forward-line 1) (point))
nil nil state))))))
(provide 'lisp-mode)
......@@ -18,8 +18,6 @@
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
(provide 'mlsupport)
(defmacro ml-defun (&rest defs)
(list 'ml-defun-1 (list 'quote defs)))
......@@ -403,3 +401,6 @@
(if (< from 0) (setq from (+ from length)))
(if (< to 0) (setq to (+ to length)))
(substring string from (+ from to))))
(provide 'mlsupport)
......@@ -17,8 +17,6 @@
;;; along with GNU Emacs; see the file COPYING. If not, write to
;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
(provide 'setenv)
(defun setenv (variable value)
"Set the value of the environment variable named VARIABLE to VALUE.
VARIABLE and VALUE should both be strings.
......@@ -35,3 +33,6 @@ This function works by modifying process-environment."
((null (setq scan (cdr scan)))
(setq process-environment
(cons (concat variable "=" value) process-environment))))))))
(provide 'setenv)
......@@ -46,8 +46,6 @@
;; in your ~/.emacs.
(require 'dired)
(provide 'find-dired)
;;;###autoload
(defvar find-ls-option (if (eq system-type 'berkeley-unix) "-ls"
"-exec ls -ldi {} \\;")
......@@ -200,3 +198,5 @@ Wildcards and redirection are handle as usual in the shell."
(start-process name buffer shell-file-name "-c"
(concat "exec " (mapconcat 'identity args " "))))))
(provide 'find-dired)
......@@ -27,8 +27,6 @@
(error "Floating point was disabled at compile time"))
;; provide an easy hook to tell if we are running with floats or not.
(provide 'lisp-float-type)
;; define pi and e via math-lib calls. (much less prone to killer typos.)
(defconst pi (* 4 (atan 1)) "The value of Pi (3.1415926...)")
(defconst e (exp 1) "The value of e (2.7182818...)")
......@@ -50,3 +48,6 @@
(defmacro radians-to-degrees (x)
"Convert ARG from radians to degrees."
(list '* (/ 180.0 pi) x))
(provide 'lisp-float-type)
......@@ -80,7 +80,7 @@ and C-q characters to OS."
(and (memstr= term losing-terminal-types) (evade-flow-control)))
)
(provide 'flow-ctrl)
;;; flow-ctrl.el ends here
(provide 'flow-ctrl)
;;;; Multi-screen management that is independent of window systems.
;;;; Copyright (C) 1990 Free Software Foundation, Inc.
;;;; Copyright (C) 1990, 1992 Free Software Foundation, Inc.
;;; This file is part of GNU Emacs.
;;;
......@@ -17,8 +17,6 @@
;;; along with GNU Emacs; see the file COPYING. If not, write to
;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
(provide 'screen)
(defvar screen-creation-function nil
"Window-system dependent function to call to create a new screen.
The window system startup file should set this to its screen creation
......@@ -270,3 +268,5 @@ under the X Window System."
(define-key ctl-x-3-map "2" 'new-screen)
(define-key ctl-x-3-map "0" 'delete-screen)
(provide 'screen)
......@@ -48,7 +48,6 @@
;; (3) Multi-GNUS (Talking to many hosts same time).
;; (4) Asynchronous transmission of large messages.
(provide 'gnus)
(require 'nntp)
(require 'mail-utils)
......@@ -6079,3 +6078,5 @@ Range of OBJ is expressed as `((beg1 . end1) (beg2 . end2) ...)."
;;Local variables:
;;eval: (put 'gnus-eval-in-buffer-window 'lisp-indent-function 1)
;;end:
(provide 'gnus)
......@@ -19,7 +19,6 @@
;; file named COPYING. Among other things, the copyright notice
;; and this notice must be preserved on all copies.
(provide 'gnusmail)
(require 'gnus)
;; Provides mail reply and mail other window command using usual mail
......@@ -146,3 +145,5 @@ The command \\[mh-yank-cur-msg] yanks the original message into current buffer."
(mh-send-other-window to cc subject)
(setq mh-sent-from-folder (current-buffer))
(setq mh-sent-from-msg 1)))
(provide 'gnusmail)
......@@ -20,7 +20,6 @@
;; file named COPYING. Among other things, the copyright notice
;; and this notice must be preserved on all copies.
(provide 'gnusmisc)
(require 'gnus)
;;;
......@@ -212,3 +211,5 @@ inserting it before the newsgroup on the line containging point."
(forward-line -1)
(search-forward ":" nil t)
))
(provide 'gnusmisc)
......@@ -20,7 +20,6 @@
;; file named COPYING. Among other things, the copyright notice
;; and this notice must be preserved on all copies.
(provide 'gnuspost)
(require 'gnus)
(defvar gnus-organization-file "/usr/lib/news/organization"
......@@ -670,3 +669,5 @@ containing the organization."
)))
(t organization))
))
(provide 'gnuspost)
......@@ -17,8 +17,6 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
(provide 'info)
(defvar Info-history nil
"List of info nodes user has visited.
Each element of list is a list (FILENAME NODENAME BUFFERPOS).")
......@@ -994,3 +992,6 @@ Interactively, if the binding is execute-extended-command, a command is read."
(Info-goto-emacs-command-node command)))))
;;;###autoload
(define-key help-map "\C-k" 'Info-goto-emacs-key-command-node)
(provide 'info)
......@@ -18,8 +18,6 @@
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
(provide 'mail-utils)
;;; We require lisp-mode to make sure that lisp-mode-syntax-table has
;;; been initialized.
(require 'lisp-mode)
......@@ -199,3 +197,6 @@ If third arg ALL is non-nil, concatenate all such fields with commas between."
"\\|"
(substring labels (match-end 0))))))
labels)
(provide 'mail-utils)
......@@ -427,6 +427,6 @@ mail-mode-syntax-table is used when the cursor is not in an address header.")
t))))
(setq mail-aliases nil)
(build-mail-aliases file))
(provide 'mail-abbrevs)
......@@ -18,8 +18,6 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
(provide 'rfc822)
;; uses address-start free, throws to address
(defun rfc822-bad-address (reason)
(save-restriction
......@@ -304,3 +302,5 @@
(nreverse list)))
(and buf (kill-buffer buf))))))
(provide 'rfc822)
......@@ -24,8 +24,6 @@
;; expunging by dispatch table, sticky options for file commands.
(require 'mail-utils)
(provide 'rmail)
; These variables now declared paths.el
;(defvar rmail-spool-directory "/usr/spool/mail/"
; "This is the name of the directory used by the system mailer for\n\
......@@ -1605,3 +1603,6 @@ buffer visiting that file."
"Break up a digest message into its constituent messages.
Leaves original message, deleted, before the undigestified messages."
t)
(provide 'rmail)
......@@ -19,7 +19,6 @@
;; file named COPYING. Among other things, the copyright notice
;; and this notice must be preserved on all copies.
(provide 'rmailsort)
(require 'rmail)
(require 'sort)
......@@ -201,3 +200,5 @@ Arguments are MSG and FIELD."
(if (<= (length year-string) 2)
(concat "19" year-string)
year-string))
(provide 'rmailsort)
......@@ -42,8 +42,7 @@
;; tower@prep Oct 29 1986
;; added caesar-region, rename news-caesar-buffer-body, hacked accordingly
;; tower@prep Nov 21 1986
;; added (provide 'rnews) tower@prep 22 Apr 87
(provide 'rnews)
;; added tower@prep 22 Apr 87
(require 'mail-utils)
(autoload 'rmail-output "rmailout"
......@@ -977,3 +976,5 @@ Mail and USENET news headers are not rotated."
(goto-char (point-max))
(caesar-region rotnum)
(setq buffer-read-only buffer-status))))
(provide 'rnews) (provide 'rnews)
......@@ -18,8 +18,6 @@
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
(provide 'sendmail)
;;;###autoload
(defconst mail-self-blind nil "\
Non-nil means insert BCC to self in messages to be sent.
......@@ -660,3 +658,6 @@ The seventh argument ACTIONS is a list of actions to take
;;; Do not add anything but external entries on this page.
(provide 'sendmail)
......@@ -20,7 +20,6 @@
;; file named COPYING. Among other things, the copyright notice
;; and this notice must be preserved on all copies.
(provide 'mhspool)
(require 'nntp)
;; This package enables you to read mail or articles in MH folders, or
......@@ -402,3 +401,5 @@ If the stream is opened, return T, otherwise return NIL."
(setq idx (1+ idx)))
string
))
(provide 'mhspool)
......@@ -19,8 +19,6 @@
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
(provide 'mim-mode)
(autoload 'fast-syntax-check-mim "mim-syntax"
"Checks Mim syntax quickly.
Answers correct or incorrect, cannot point out the error context."
......@@ -839,3 +837,6 @@ You need type only enough of the name to be unambiguous."
(defun next-char (direction)
"Returns preceding-char if DIRECTION < 0, otherwise following-char."
(if (>= direction 0) (following-char) (preceding-char)))
(provide 'mim-mode)
......@@ -17,8 +17,6 @@
;;; along with GNU Emacs; see the file COPYING. If not, write to
;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
(provide 'mouse)
;;; Utility functions.
......@@ -454,3 +452,6 @@ This does not delete the region; it acts like \\[kill-ring-save]."
(global-set-key [mouse-1] 'mouse-set-point)
(global-set-key [S-mouse-1] 'mouse-set-mark)
(global-set-key [mouse-3] 'mouse-delete-other-windows)
(provide 'mouse)
......@@ -20,7 +20,6 @@
;; file named COPYING. Among other things, the copyright notice
;; and this notice must be preserved on all copies.
(provide 'nnspool)
(require 'nntp)
(defvar nnspool-inews-program news-inews-program
......@@ -372,3 +371,5 @@ If the stream is opened, return T, otherwise return NIL."
(setq idx (1+ idx)))
string
))
(provide 'nnspool)
......@@ -42,8 +42,6 @@
;; system, please send me the diffs. I'll include some of them in the
;; future releases.
(provide 'nntp)
(defvar nntp-server-hook nil
"*Hooks for the NNTP server.
If the kanji code of the NNTP server is different from the local kanji
......@@ -665,3 +663,6 @@ defining this function as macro."
(signal (car errorcode) (cdr errorcode))))
))
))
(provide 'nntp)
......@@ -23,9 +23,6 @@
;;; with precious advices from J.-F. Rit.
;;; This has been tested with GNU Emacs 18.50.
(provide 'gomoku)