1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00

*** empty log message ***

This commit is contained in:
Eric S. Raymond 1992-05-30 22:12:04 +00:00
parent c88ab9ce4a
commit 6594deb0dc
40 changed files with 145 additions and 50 deletions

View File

@ -1,4 +1,5 @@
;; Lisp mode, and its idiosyncratic commands.
;;; lisp-mode.el --- Lisp mode, and its idiosyncratic commands.
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
@ -614,3 +615,4 @@ means don't indent that line."
(provide 'lisp-mode)
;;; lisp-mode.el ends here

View File

@ -1,4 +1,5 @@
;; Lisp editing commands for Emacs
;;; lisp.el --- Lisp editing commands for Emacs
;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
@ -260,3 +261,5 @@ function definitions, values or properties are considered."
(with-output-to-temp-buffer " *Completions*"
(display-completion-list list)))
(message "Making completion list...%s" "done")))))
;;; lisp.el ends here

View File

@ -1,4 +1,5 @@
;; Convert buffer of Mocklisp code to real lisp.
;;; mlconvert.el --- convert buffer of Mocklisp code to real lisp.
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
@ -271,3 +272,4 @@
;Variable pause-writes-files
;;; mlconvert.el ends here

View File

@ -1,4 +1,5 @@
;; Run-time support for mocklisp code.
;;; mlsupport.el --- run-time support for mocklisp code.
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
@ -404,3 +405,4 @@
(provide 'mlsupport)
;;; mlsupport.el ends here

View File

@ -1,4 +1,5 @@
;; Emacs side of ledit interface
;;; ledit.el --- Emacs side of ledit interface
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
@ -141,3 +142,5 @@ do (setq lisp-mode-hook 'ledit-from-lisp-mode)"
(setq mode-name "Ledit")
(setq major-mode 'ledit-mode)
(run-hooks 'ledit-mode-hook))
;;; ledit.el ends here

View File

@ -1,4 +1,5 @@
;;Load up standardly loaded Lisp files for Emacs.
;;; loadup.el --- load up standardly loaded Lisp files for Emacs.
;; This is loaded into a bare Emacs to make a dumpable one.
;; Copyright (C) 1985, 1986, 1992 Free Software Foundation, Inc.
@ -147,3 +148,5 @@
(or (fboundp 'dump-emacs)
(eval top-level))
;;; loadup.el ends here

View File

@ -1,4 +1,5 @@
;; Print Emacs buffer on line printer.
;;; lpr.el --- print Emacs buffer on line printer.
;; Copyright (C) 1985, 1988, 1992 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
@ -94,3 +95,5 @@ See definition of `print-region-1' for calling conventions.")
(widen) (erase-buffer)
(insert-buffer-substring oldbuf start end)
(setq start (point-min) end (point-max)))))
;;; lpr.el ends here

View File

@ -1,4 +1,5 @@
;; Non-primitive commands for keyboard macros.
;;; macros.el --- non-primitive commands for keyboard macros.
;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
@ -173,3 +174,5 @@ and then select the region of un-tablified names and use
;;;###autoload
(define-key ctl-x-map "q" 'kbd-macro-query)
;;; macros.el ends here

View File

@ -1,4 +1,5 @@
;; Utility functions used both by rmail and rnews
;;; mail-utils.el --- utility functions used both by rmail and rnews
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
@ -200,3 +201,4 @@ If third arg ALL is non-nil, concatenate all such fields with commas between."
(provide 'mail-utils)
;;; mail-utils.el ends here

View File

@ -1,4 +1,5 @@
;;; Abbrev-expansion of mail aliases.
;;; mailabbrev.el --- abbrev-expansion of mail aliases.
;;; Copyright (C) 1985, 1986, 1987, 1992 Free Software Foundation, Inc.
;;; Created: 19 oct 90, Jamie Zawinski <jwz@lucid.com>
;;; Modified: 5 apr 92, Roland McGrath <roland@gnu.ai.mit.edu>
@ -613,3 +614,5 @@ end of line."
(t ; v19
(fmakunbound 'expand-mail-aliases)))
;;; mailabbrev.el ends here

View File

@ -1,4 +1,5 @@
;; Expand mailing address aliases defined in ~/.mailrc.
;;; mailalias.el --- expand mailing address aliases defined in ~/.mailrc.
;; Copyright (C) 1985, 1987 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
@ -167,3 +168,5 @@ DEFINITION can be one or more mail addresses separated by commas."
(if tem
(rplacd tem definition)
(setq mail-aliases (cons (cons name definition) mail-aliases)))))
;;; mailalias.el ends here

View File

@ -1,6 +1,5 @@
;;
;; P O S T . E L
;;
;;; post.el --- RMAIL coupler to /usr/uci/post mailer
;; Yet another mail interface. this for the rmail system to provide
;; the missing sendmail interface on systems without /usr/lib/sendmail,
;; but with /usr/uci/post.
@ -90,3 +89,5 @@ site-init."
(kill-buffer tembuf)
(if (bufferp errbuf)
(switch-to-buffer errbuf)))))
;;; mailpost.el ends here

View File

@ -1,4 +1,5 @@
;; Generate key binding summary for Emacs
;;; makesum.el --- generate key binding summary for Emacs
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
@ -99,3 +100,5 @@ Previous contents of that buffer are killed first."
(forward-line 1)
(setq lines (cdr lines))))
(goto-char (- (point-max) from-end))))
;;; makesum.el ends here

View File

@ -1,4 +1,5 @@
;; Read in and display parts of Unix manual.
;;; man.el --- read in and display parts of Unix manual.
;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
@ -165,3 +166,5 @@ where SECTION is the desired section of the manual, as in \"tty(4)\"."
(if (equal (substring name -2) ".z")
(call-process "pcat" nil t nil name)
(insert-file-contents name))))
;;; man.el ends here

View File

@ -1,4 +1,5 @@
;;; map-ynp.el -- General-purpose boolean question-asker.
;;; map-ynp.el --- General-purpose boolean question-asker.
;;; Copyright (C) 1991, 1992 Free Software Foundation, Inc.
;;; Written by Roland McGrath.
;;;
@ -149,3 +150,5 @@ Returns the number of actions taken."
(message "")
;; Return the number of actions that were taken.
actions))
;;; map-ynp.el ends here

View File

@ -1,4 +1,6 @@
;; Lisp interface between GNU Emacs and MEDIT package. Emacs under MDL.
;;; medit.el --- Lisp interface between GNU Emacs and MEDIT package.
;; Emacs under MDL.
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; Principal author K. Shane Hartman
@ -113,4 +115,4 @@ Like Mim mode, plus these special commands:
(mim-mode)
;;; medit.el ends here

View File

@ -1,4 +1,5 @@
;;; MH folder access using NNTP for GNU Emacs
;;; mhspool.el --- MH folder access using NNTP for GNU Emacs
;; Copyright (C) 1988, 1989 Fujitsu Laboratories LTD.
;; Copyright (C) 1988, 1989, 1990 Masanobu UMEDA
;; $Header: mhspool.el,v 1.5 90/03/23 13:25:23 umerin Locked $
@ -403,3 +404,5 @@ If the stream is opened, return T, otherwise return NIL."
))
(provide 'mhspool)
;;; mhspool.el ends here

View File

@ -1,4 +1,5 @@
;; Mim (MDL in MDL) mode.
;;; mim-mode.el --- Mim (MDL in MDL) mode.
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; Principal author K. Shane Hartman
@ -840,3 +841,4 @@ You need type only enough of the name to be unambiguous."
(provide 'mim-mode)
;;; mim-mode.el ends here

View File

@ -1,4 +1,5 @@
;; Syntax checker for Mim (MDL).
;;; mim-syntax.el --- syntax checker for Mim (MDL).
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; Principal author K. Shane Hartman
@ -87,5 +88,4 @@ Answers correct or incorrect, cannot point out the error context."
(message "Syntax correct")
(error "Syntax incorrect")))))
;;; mim-syntax.el ends here

View File

@ -1,4 +1,5 @@
;; Basic editing commands for Emacs
;;; misc.el --- basic editing commands for Emacs
;; Copyright (C) 1989 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
@ -49,3 +50,5 @@ The characters copied are inserted in the buffer before point."
(min (save-excursion (end-of-line) (point))
(+ n (point)))))))
(insert string)))
;;; misc.el ends here

View File

@ -1,4 +1,5 @@
;;; Window system-independent mouse support.
;;; mouse.el --- window system-independent mouse support.
;;; Copyright (C) 1988 Free Software Foundation, Inc.
;;; This file is part of GNU Emacs.
@ -455,3 +456,4 @@ This does not delete the region; it acts like \\[kill-ring-save]."
(provide 'mouse)
;;; mouse.el ends here

View File

@ -1,4 +1,5 @@
;; HP-UX RFA Commands
;;; netunam.el --- HP-UX RFA Commands
;; Copyright (C) 1988 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
@ -150,3 +151,5 @@ NODE is the network node for the remote machine."
(delete-char -1)
(setq rfa-password-accumulator
(substring rfa-password-accumulator 0 -1)))
;;; netunam.el ends here

View File

@ -1,4 +1,5 @@
;;; Spool access using NNTP for GNU Emacs
;;; nnspool.el --- spool access using NNTP for GNU Emacs
;; Copyright (C) 1988, 1989 Fujitsu Laboratories LTD.
;; Copyright (C) 1988, 1989, 1990 Masanobu UMEDA
;; $Header: nnspool.el,v 1.10 90/03/23 13:25:25 umerin Locked $
@ -373,3 +374,5 @@ If the stream is opened, return T, otherwise return NIL."
))
(provide 'nnspool)
;;; nnspool.el ends here

View File

@ -1,4 +1,5 @@
;;; NNTP (RFC977) Interface for GNU Emacs
;;; nntp.el --- NNTP (RFC977) Interface for GNU Emacs
;; Copyright (C) 1987, 1988, 1989 Fujitsu Laboratories LTD.
;; Copyright (C) 1987, 1988, 1989, 1990 Masanobu UMEDA
;; $Header: nntp.el,v 3.10 90/03/23 13:25:27 umerin Locked $
@ -666,3 +667,4 @@ defining this function as macro."
(provide 'nntp)
;;; nntp.el ends here

View File

@ -1,4 +1,5 @@
;; Handling of disabled commands ("novice mode") for Emacs.
;;; novice.el --- handling of disabled commands ("novice mode") for Emacs.
;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
@ -109,3 +110,4 @@ to future sessions."
(insert "(put '" (symbol-name command) " 'disabled t)\n")
(save-buffer)))
;;; novice.el ends here

View File

@ -1,4 +1,5 @@
;; Edit Options command for Emacs.
;;; options.el --- edit Options command for Emacs.
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
@ -123,3 +124,4 @@ For convenience, the characters \\[backward-paragraph] and \\[forward-paragraph]
(kill-sexp 1)
(prin1 (symbol-value var) (current-buffer)))))
;;; options.el ends here

View File

@ -1,4 +1,5 @@
;; Define pathnames for use by various Emacs commands.
;;; paths.el --- define pathnames for use by various Emacs commands.
;; Copyright (C) 1986, 1988 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
@ -165,3 +166,5 @@ Append a section-number or section-name to get a directory name.")
"~/abbrev.def"
"~/.abbrev_defs")
"*Default name of file to read abbrevs from.")
;;; paths.el ends here

View File

@ -1,4 +1,5 @@
;; Conway's `Life' for GNU Emacs
;;; life.el --- John Horton Conway's `Life' game for GNU Emacs
;; Copyright (C) 1988 Free Software Foundation, Inc.
;; Contributed by Kyle Jones, talos!kjones@uunet.uu.net
@ -273,3 +274,4 @@ generations (this defaults to 1)."
(provide 'life)
;;; life.el ends here

View File

@ -1,3 +1,5 @@
;; meese.el --- protect the impressionable young minds of America...NOT!
(defun protect-innocence-hook ()
(if (and (equal (file-name-nondirectory buffer-file-name) "sex.6")
(not (y-or-n-p "Are you over 18? ")))
@ -12,3 +14,5 @@
(or (memq 'protect-innocence-hook find-file-hooks)
(setq find-file-hooks (cons 'protect-innocence-hook find-file-hooks)))
;;; meese.el ends here

View File

@ -1,4 +1,5 @@
;;; Multiplication puzzle for GNU Emacs
;;; mpuz.el --- multiplication puzzle for GNU Emacs
;;; by Philippe Schnoebelen <phs@lifia.imag.fr>
;;; Last modified on 11 Nov 1990
;;; Copyright (C) 1990 Free Software Foundation, Inc.
@ -444,5 +445,4 @@ You may abort a game by hitting \\[keyboard-quit]."
(setq list (cons digit list))))
(mapcar 'mpuz-correct-guess list)))
;;; End of mult-puzzle
;;; mpuz.el ends here

View File

@ -1,4 +1,5 @@
; Modula-2 editing support package
;;; modula2.el --- Modula-2 editing support package
; Author Mick Jordan
; amended Peter Robinson
; ported to GNU Michael Schmidt
@ -437,3 +438,5 @@ FROM SysStreams IMPORT sysIn, sysOut, sysErr;
((string-equal (substring (buffer-name) -3) ".md")
(find-file-other-window
(concat (substring (buffer-name) 0 -3) ".mi")))))
;;; modula2.el ends here

View File

@ -1,4 +1,5 @@
;; Major mode for editing Prolog, and for running Prolog under Emacs
;;; prolog.el --- major mode for editing and running Prolog under Emacs
;; Copyright (C) 1986, 1987 Free Software Foundation, Inc.
;; Author Masanobu UMEDA (umerin@flab.flab.fujitsu.junet)
@ -256,3 +257,5 @@ If COMPILE (prefix arg) is not nil, use compile mode rather than consult mode."
(interactive "P\nr")
(prolog-consult-region compile beg end)
(switch-to-buffer "*prolog*"))
;;; prolog.el ends here

View File

@ -1,4 +1,5 @@
;; Rectangle functions for GNU Emacs.
;;; rect.el --- rectangle functions for GNU Emacs.
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
@ -210,3 +211,5 @@ When called from a program, requires two args which specify the corners."
(delete-char -1)
(indent-to aftercol)
(backward-char (- aftercol column))))
;;; rect.el ends here

View File

@ -1,4 +1,4 @@
;; GNU Emacs major mode for editing nroff source
;;; nroff-mode.el --- GNU Emacs major mode for editing nroff source
;; Copyright (C) 1985, 1986 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.
(defvar nroff-mode-abbrev-table nil
"Abbrev table used while in nroff mode.")
@ -34,6 +32,7 @@
(define-key nroff-mode-map "\en" 'forward-text-line)
(define-key nroff-mode-map "\ep" 'backward-text-line)))
;;;###autoload
(defun nroff-mode ()
"Major mode for editing text intended for nroff to format.
\\{nroff-mode-map}
@ -200,3 +199,4 @@ turns it on iff arg is positive, otherwise off."
(cond ((null arg) (null nroff-electric-mode))
(t (> (prefix-numeric-value arg) 0)))))
;;; nroff-mode.el ends here

View File

@ -1,4 +1,5 @@
;; Outline mode commands for Emacs
;;; outline.el --- outline mode commands for Emacs
;; Copyright (C) 1986 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
@ -395,3 +396,4 @@ and return that position or nil if it cannot be found."
nil
(point))))
;;; outline.el ends here

View File

@ -1,6 +1,5 @@
;;;; page-ext.el
;;; page-ext.el --- page handling commands
;;; Page handling commands
;;; by Robert J. Chassell
;;; You may use these commands to handle an address list or other
@ -742,4 +741,5 @@ to the same line in the pages buffer."
(make-local-variable 'pages-pos-list)
(make-local-variable 'pages-directory-buffer-narrowing-p))
;;;;;;;;;;;;;;;; end of page-ext.el ;;;;;;;;;;;;;;;;
;;; page-ext.el ends here

View File

@ -1,4 +1,5 @@
;; Page motion commands for emacs.
;;; page.el --- page motion commands for emacs.
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
@ -89,6 +90,7 @@ thus showing a page other than the one point was originally in."
(if (and (eolp) (not (bobp)))
(forward-line 1))
(point)))))
(put 'narrow-to-page 'disabled t)
(defun count-lines-page ()
"Report number of lines on current page, and how many are before or after point."
@ -123,3 +125,5 @@ thus showing a page other than the one point was originally in."
(message "Page %d, line %d"
count
(1+ (count-lines (point) opoint)))))))
;;; page.el ends here

View File

@ -1,4 +1,5 @@
;; Paragraph and sentence parsing.
;;; paragraphs.el --- paragraph and sentence parsing.
;; Copyright (C) 1985-1991 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
@ -228,3 +229,5 @@ With arg, repeat, or kill forward to Nth end of sentence if negative arg -N."
"Interchange this (next) and previous sentence."
(interactive "*p")
(transpose-subr 'forward-sentence arg))
;;; paragraphs.el ends here

View File

@ -1,4 +1,5 @@
;; "Picture mode" -- editing using quarter-plane screen model.
;;; picture.el --- "Picture mode" -- editing using quarter-plane screen model.
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; Principal author K. Shane Hartman
@ -559,3 +560,4 @@ With no argument strips whitespace from end of every line in Picture buffer
(provide 'picture)
;;; picture.el ends here

View File

@ -1,4 +1,5 @@
;; Convert refer-style bibliographic entries to ones usable by latex bib
;;; refbib.el --- convert refer-style references to ones usable by Latex bib
;; Copyright (C) 1989 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
@ -709,3 +710,5 @@ To see this message again, perform
(message "r2b loaded")
(provide 'refer-to-bibtex)
;;; refbib.el ends here