diff options
40 files changed, 280 insertions, 120 deletions
diff --git a/lisp/=sun-keys.el b/lisp/=sun-keys.el index 59fba2a5791..13ebee3a4d1 100644 --- a/lisp/=sun-keys.el +++ b/lisp/=sun-keys.el @@ -1,4 +1,5 @@ -;;; +;;; sun-keys.el --- support for Sun function keys + ;;; Support (cleanly) for Sun function keys. Provides help facilities, ;;; better diagnostics, etc. ;;; @@ -69,3 +70,5 @@ CCommand To Use:") (global-set-key "\e*" 'sun-function-keys-dispatch) (make-variable-buffer-local 'sun-function-keys-command-list) + +;;; sun-keys.el ends here diff --git a/lisp/=superyank.el b/lisp/=superyank.el index 6319f9078d6..6c4f0a0ee86 100644 --- a/lisp/=superyank.el +++ b/lisp/=superyank.el @@ -1,5 +1,5 @@ -;; superyank.el -- Version 1.1 -;; +;;; superyank.el --- smart message-yanking code for GNUS (Version 1.1) + ;; Inserts the message being replied to with various user controlled ;; citation styles. ;; @@ -1210,3 +1210,4 @@ inserts that many newlines." (provide 'superyank) +;;; superyank.el ends here diff --git a/lisp/emacs-lisp/ring.el b/lisp/emacs-lisp/ring.el index 95b993001fa..4b134801984 100644 --- a/lisp/emacs-lisp/ring.el +++ b/lisp/emacs-lisp/ring.el @@ -1,5 +1,23 @@ -;;; Ring Code -;;;============================================================================ +;;; ring.el --- handle rings of marks + +;; Copyright (C) 1992 Free Software Foundation, Inc. + +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 1, or (at your option) +;; any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to +;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. + ;;; This code defines a ring data structure. A ring is a ;;; (hd-index tl-index . vector) ;;; list. You can insert to, remove from, and rotate a ring. When the ring @@ -99,3 +117,5 @@ Answer is guaranteed to be non-negative, and less than m." (vec-index (comint-mod (+ index hd) (length vec)))) (aref vec vec-index))))) + +;;; ring.el ends here diff --git a/lisp/env.el b/lisp/env.el index 3e494645610..d80338a00aa 100644 --- a/lisp/env.el +++ b/lisp/env.el @@ -1,4 +1,5 @@ -;;; -*-Emacs-Lisp-*- Functions to manipulate environment variables. +;;; setenv.el --- functions to manipulate environment variables. + ;;; Copyright Free Software Foundation 1991 ;;; This file is part of GNU Emacs. @@ -36,3 +37,4 @@ This function works by modifying process-environment." (provide 'setenv) +;;; setenv.el ends here diff --git a/lisp/frame.el b/lisp/frame.el index 930baab6ce1..54c7c8f380a 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -1,4 +1,5 @@ -;;;; Multi-screen management that is independent of window systems. +;;; screen.el --- multi-screen management independent of window systems. + ;;;; Copyright (C) 1990, 1992 Free Software Foundation, Inc. ;;; This file is part of GNU Emacs. @@ -270,3 +271,5 @@ under the X Window System." (define-key ctl-x-3-map "0" 'delete-screen) (provide 'screen) + +;;; screen.el ends here diff --git a/lisp/international/swedish.el b/lisp/international/swedish.el index bda8a7183a4..46465167d09 100644 --- a/lisp/international/swedish.el +++ b/lisp/international/swedish.el @@ -1,4 +1,5 @@ -;; Miscellaneous functions for dealing with Swedish. +;;; swedish.el --- miscellaneous functions for dealing with Swedish. + ;; Copyright (C) 1988 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. @@ -143,3 +144,5 @@ Leaves point just after the word that looks Swedish." ; (run-hooks 'text-mode-hook)) (provide 'swedish) + +;;; swedish.el ends here diff --git a/lisp/mail/rfc822.el b/lisp/mail/rfc822.el index ac63ce63687..2a67e4e69bb 100644 --- a/lisp/mail/rfc822.el +++ b/lisp/mail/rfc822.el @@ -1,4 +1,5 @@ -;; Hairy rfc822 parser for mail and news and suchlike +;;; rfc822.el --- hairy rfc822 parser for mail and news and suchlike + ;; Copyright (C) 1986-1990 Free Software Foundation, Inc. ;; Author Richard Mlynarik. @@ -304,3 +305,4 @@ (provide 'rfc822) +;;; rfc822.el ends here diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index c45f7552aae..f4a6656297c 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -1,4 +1,5 @@ -;; "RMAIL" mail reader for Emacs. +;;; rmail.el --- main code of "RMAIL" mail reader for Emacs. + ;; Copyright (C) 1985, 1986, 1987, 1988, 1991, 1992 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. @@ -1611,3 +1612,4 @@ Leaves original message, deleted, before the undigestified messages." (provide 'rmail) +;;; rmail.el ends here diff --git a/lisp/mail/rmailedit.el b/lisp/mail/rmailedit.el index 41a31464889..fa29b50c084 100644 --- a/lisp/mail/rmailedit.el +++ b/lisp/mail/rmailedit.el @@ -1,4 +1,5 @@ -;; "RMAIL edit mode" Edit the current message. +;;; rmailedit.el --- "RMAIL edit mode" Edit the current message. + ;; Copyright (C) 1985 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. @@ -103,3 +104,4 @@ to return to regular RMAIL: (insert rmail-old-text) (rmail-cease-edit)) +;;; rmailedit.el ends here diff --git a/lisp/mail/rmailkwd.el b/lisp/mail/rmailkwd.el index 11b4cf54813..b8ad6a59f58 100644 --- a/lisp/mail/rmailkwd.el +++ b/lisp/mail/rmailkwd.el @@ -1,4 +1,5 @@ -;; "RMAIL" mail reader for Emacs. +;;; rmailkwd.el --- part of the "RMAIL" mail reader for Emacs. + ;; Copyright (C) 1985, 1988 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. @@ -262,3 +263,5 @@ With prefix argument N moves forward N messages with these labels." (narrow-to-region (- (buffer-size) omin) (- (buffer-size) omax))))) keyword)) + +;;; rmailkwd.el ends here diff --git a/lisp/mail/rmailmsc.el b/lisp/mail/rmailmsc.el index c57b15c4c3a..cd042ae94c0 100644 --- a/lisp/mail/rmailmsc.el +++ b/lisp/mail/rmailmsc.el @@ -1,3 +1,5 @@ +;;; rmailmsc.el --- miscellaneous support functions for the RMAIL mail reader + ;; Copyright (C) 1985 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. @@ -43,3 +45,5 @@ If FILE-NAME is empty, remove any inbox list." (insert "Mail: " file-name "\n")))))) (setq rmail-inbox-list (rmail-parse-file-inboxes)) (rmail-show-message rmail-current-message)) + +;;; rmailmsc.el ends here diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el index a4018b5cf52..5606eccbe87 100644 --- a/lisp/mail/rmailout.el +++ b/lisp/mail/rmailout.el @@ -1,4 +1,5 @@ -;; "RMAIL" mail reader for Emacs: output message to a file. +;;; rmailout.el --- "RMAIL" mail reader for Emacs: output message to a file. + ;; Copyright (C) 1985, 1987 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. @@ -180,3 +181,5 @@ starting with the current one. Deleted messages are skipped and don't count." (rmail-delete-forward) (if (> count 0) (rmail-next-undeleted-message 1))))) + +;;; rmailout.el ends here diff --git a/lisp/mail/rmailsort.el b/lisp/mail/rmailsort.el index 3bc00ddbf1b..d17c5fa6b42 100644 --- a/lisp/mail/rmailsort.el +++ b/lisp/mail/rmailsort.el @@ -1,4 +1,5 @@ -;;; Rmail: sort messages. +;;; rmailsort.el --- Rmail: sort messages. + ;; Copyright (C) 1990 Masanobu UMEDA ;; umerin@tc.Nagasaki.GO.JP? @@ -202,3 +203,5 @@ Arguments are MSG and FIELD." year-string)) (provide 'rmailsort) + +;;; rmailsort.el ends here diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index fc8854f153d..12f6cf527a3 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -1,4 +1,5 @@ -;; "RMAIL" mail reader for Emacs. +;;; rmailsum.el --- "RMAIL" mail reader for Emacs. + ;; Copyright (C) 1985 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. @@ -472,3 +473,5 @@ Entering this mode calls value of hook variable rmail-summary-mode-hook." (delete-window (selected-window)))) ;; Switch to the rmail buffer in this window. (switch-to-buffer rmail-buffer))) + +;;; rmailsum.el ends here diff --git a/lisp/mail/rnews.el b/lisp/mail/rnews.el index d96738af30f..4bec3713f5e 100644 --- a/lisp/mail/rnews.el +++ b/lisp/mail/rnews.el @@ -1,4 +1,5 @@ -;;; USENET news reader for gnu emacs +;;; rnews.el --- USENET news reader for gnu emacs + ;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. @@ -977,4 +978,6 @@ Mail and USENET news headers are not rotated." (caesar-region rotnum) (setq buffer-read-only buffer-status)))) -(provide 'rnews) (provide 'rnews) +(provide 'rnews) + +;;; rnews.el ends here diff --git a/lisp/mail/rnewspost.el b/lisp/mail/rnewspost.el index adb65e6f3ab..91077ed311a 100644 --- a/lisp/mail/rnewspost.el +++ b/lisp/mail/rnewspost.el @@ -1,4 +1,5 @@ -;;; USENET news poster/mailer for GNU Emacs +;;; rnewspost.el --- USENET news poster/mailer for GNU Emacs + ;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. @@ -388,3 +389,5 @@ While composing the message, use \\[news-reply-yank-original] to yank the original message into it." (interactive) (mail-other-window nil nil nil nil nil (current-buffer))) + +;;; rnewspost.el ends here diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 2a7f21d77eb..2093c9366ee 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -1,4 +1,5 @@ -;; Mail sending commands for Emacs. +;;; sendmail.el --- mail sending commands for Emacs. + ;; Copyright (C) 1985, 1986, 1992 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. @@ -662,3 +663,4 @@ The seventh argument ACTIONS is a list of actions to take (provide 'sendmail) +;;; sendmail.el ends here diff --git a/lisp/play/spook.el b/lisp/play/spook.el index 3b35ec44b00..890441f4aa2 100644 --- a/lisp/play/spook.el +++ b/lisp/play/spook.el @@ -1,4 +1,5 @@ -;; Spook phrase utility +;;; spook.el --- spook phrase utility for overloading the NSA line eater + ;; Copyright (C) 1988 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. @@ -107,3 +108,5 @@ (aset vector j temp) (setq i (1+ i)))) vector) + +;;; spook.el ends here diff --git a/lisp/play/studly.el b/lisp/play/studly.el index e40b18677f7..7adbcfaca06 100644 --- a/lisp/play/studly.el +++ b/lisp/play/studly.el @@ -1,5 +1,23 @@ ;;; studly.el --- StudlyCaps (tm)(r)(c)(xxx) +;; Copyright (C) 1992 Free Software Foundation, Inc. + +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 1, or (at your option) +;; any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to +;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. + (defun studlify-region (begin end) "Studlify-case the region" (interactive "*r") diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el index 2f333527942..aa02c037806 100644 --- a/lisp/progmodes/scheme.el +++ b/lisp/progmodes/scheme.el @@ -1,4 +1,5 @@ -;; Scheme mode, and its idiosyncratic commands. +;;; scheme.el --- Scheme mode, and its idiosyncratic commands. + ;; Copyright (C) 1986, 1987, 1988 Free Software Foundation, Inc. ;; Adapted from Lisp mode by Bill Rozas, jinx@prep. @@ -499,3 +500,5 @@ of the start of the containing expression." (indent-to this-indent))))))))) (provide 'scheme) + +;;; scheme.el ends here diff --git a/lisp/register.el b/lisp/register.el index 4eef728bef0..a78a046a56a 100644 --- a/lisp/register.el +++ b/lisp/register.el @@ -1,4 +1,5 @@ -;; Register commands for Emacs. +;;; register.el --- register commands for Emacs. + ;; Copyright (C) 1985 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. @@ -173,3 +174,5 @@ START and END are buffer positions giving two corners of rectangle." (if delete-flag (delete-extract-rectangle start end) (extract-rectangle start end)))) + +;;; register.el ends here diff --git a/lisp/replace.el b/lisp/replace.el index e8e81bff333..6f8601dfd8f 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -1,4 +1,5 @@ -;; Replace commands for Emacs. +;;; replace.el --- replace commands for Emacs. + ;; Copyright (C) 1985-1991 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. @@ -531,3 +532,4 @@ before rotating to the next." (perform-replace regexp replacements t t nil arg)) (message "Done")) +;;; replace.el ends here diff --git a/lisp/reposition.el b/lisp/reposition.el index 97b6ec2419d..9e0e881748f 100644 --- a/lisp/reposition.el +++ b/lisp/reposition.el @@ -1,4 +1,5 @@ -;;; -*- Mode: Emacs-lisp -*- +;;; reposition.el --- center a Lisp function or comment on the screen + ;; Copyright (C) 1991 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. @@ -187,3 +188,4 @@ first comment line visible (if point is in a comment)." ; (concat "Case " (, case-no) ": %s %s %s %s %s") ; ht line comment-height defun-height defun-depth))) +;;; reposition.el ends here diff --git a/lisp/resume.el b/lisp/resume.el index 5f745caeac3..3ca6dc892d1 100644 --- a/lisp/resume.el +++ b/lisp/resume.el @@ -1,4 +1,5 @@ -;; Process command line arguments from within a suspended Emacs job +;;; resume.el --- process command line args from within a suspended Emacs job + ;; Copyright (C) 1988 Free Software Foundation, Inc. ;; This file is not yet part of GNU Emacs, but soon will be. @@ -157,3 +158,5 @@ and processes these arguments like command line options." (widen) (write-region (point-min) (point-max) file nil 'quiet)) (set-buffer-modified-p nil))) + +;;; resume.el ends here diff --git a/lisp/rot13.el b/lisp/rot13.el index 1a884d087de..253f6cf20af 100644 --- a/lisp/rot13.el +++ b/lisp/rot13.el @@ -1,4 +1,5 @@ -;; Display a buffer in rot13. +;;; rot13.el --- display a buffer in rot13. + ;; Copyright (C) 1988 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. @@ -39,3 +40,5 @@ (set-window-display-table w rot13-display-table))) (provide 'rot13) + +;;; rot13.el ends here diff --git a/lisp/server.el b/lisp/server.el index 73f64795f0a..064a3165a0b 100644 --- a/lisp/server.el +++ b/lisp/server.el @@ -1,4 +1,5 @@ -;; Lisp code for GNU Emacs running as server process. +;;; server.el --- Lisp code for GNU Emacs running as server process. + ;; Copyright (C) 1986, 1987 Free Software Foundation, Inc. ;; Author William Sommerfeld, wesommer@athena.mit.edu. ;; Changes by peck@sun.com and by rms. @@ -296,3 +297,5 @@ Arg NEXT-BUFFER is a suggestion; if it is a live buffer, use it." (switch-to-buffer (other-buffer))))) (global-set-key "\C-x#" 'server-edit) + +;;; server.el ends here diff --git a/lisp/shell.el b/lisp/shell.el index 8a5c2b8479a..0473d364e4e 100644 --- a/lisp/shell.el +++ b/lisp/shell.el @@ -1,9 +1,22 @@ -;;; -*-Emacs-Lisp-*- General command interpreter in a window stuff +;;; shell.el --- general command interpreter in a window stuff + ;;; Copyright Olin Shivers (1988). -;;; Please imagine a long, tedious, legalistic 5-page gnu-style copyright -;;; notice appearing here to the effect that you may use this code any -;;; way you like, as long as you don't charge money for it, remove this -;;; notice, or hold me liable for its results. + +;;; This file is part of GNU Emacs. + +;;; GNU Emacs is free software; you can redistribute it and/or modify +;;; it under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 1, or (at your option) +;;; any later version. + +;;; GNU Emacs is distributed in the hope that it will be useful, +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. + +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Emacs; see the file COPYING. If not, write to +;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; The changelog is at the end of file. @@ -12,9 +25,9 @@ ;;; - Olin Shivers (shivers@cs.cmu.edu) ;;; This file defines a a shell-in-a-buffer package (shell mode) built -;;; on top of comint mode. This shell mode is similar to its -;;; counterpart in the GNU Emacs 18 release, but is more featureful, -;;; robust, and uniform than that version. +;;; on top of comint mode. This is actually cmushell with things +;;; renamed to replace its counterpart in Emacs 18. cmushell is more +;;; featureful, robust, and uniform than the Emacs 18 version. ;;; Since this mode is built on top of the general command-interpreter-in- ;;; a-buffer mode (comint mode), it shares a common base functionality, @@ -32,25 +45,23 @@ ;;; text to the process? Switch selectable? (require 'comint) -(provide 'shell) - ;; YOUR .EMACS FILE ;;============================================================================= ;; Some suggestions for your .emacs file. ;; -;; ; If shell lives in some non-standard directory, you must tell emacs +;; ; If cmushell lives in some non-standard directory, you must tell emacs ;; ; where to get it. This may or may not be necessary. ;; (setq load-path (cons (expand-file-name "~jones/lib/emacs") load-path)) ;; -;; ; Autoload shell from file shell.el -;; (autoload 'shell "shell" +;; ; Autoload cmushell from file cmushell.el +;; (autoload 'cmushell "cmushell" ;; "Run an inferior shell process." ;; t) ;; -;; ; Define C-c t to run my favorite command in shell mode: -;; (setq shell-load-hook +;; ; Define C-c t to run my favorite command in cmushell mode: +;; (setq cmushell-load-hook ;; '((lambda () -;; (define-key shell-mode-map "\C-ct" 'favorite-cmd)))) +;; (define-key cmushell-mode-map "\C-ct" 'favorite-cmd)))) ;;; Brief Command Documentation: @@ -89,23 +100,15 @@ ;;; Read the rest of this file for more information. -;;; Emacs 18 SHELL.EL COMPATIBILITY -;;; -;;; The below notes were written before this shell package became the -;;; official shell mode of the standard Emacs distribution, and talk -;;; about getting this package to work well with the old shell package -;;; and its users. This issue isn't quite as relevant now as it was -;;; then, but the notes below should still be useful for people -;;; modifying elisp packages that used the old shell mode to use this -;;; one. Note that some of the variables referred to have lost their -;;; `cmu-' prefix. -;;; +;;; SHELL.EL COMPATIBILITY +;;; Notes from when this was called cmushell, and was not the standard emacs +;;; shell package. ;;;============================================================================ ;;; In brief: this package should have no trouble coexisting with shell.el. ;;; ;;; Most customising variables -- e.g., explicit-shell-file-name -- are the ;;; same, so the users shouldn't have much trouble. Hooks have different -;;; names, however, so you can customise shell mode differently from shell +;;; names, however, so you can customise shell mode differently from cmushell ;;; mode. You basically just have to remember to type M-x cmushell instead of ;;; M-x shell. ;;; @@ -133,12 +136,8 @@ ;;; =========================================================================== ;;; -;In loaddefs.el now. -;(defconst shell-prompt-pattern -; "^[^#$%>]*[#$%>] *" -; "*Regexp used by Newline command to match subshell prompts. -;;; Change the doc string for shell-prompt-pattern: -(put 'shell-prompt-pattern 'variable-documentation +;;;###autoload +(defconst shell-prompt-pattern "^[^#$%>]*[#$%>] *" "Regexp to match prompts in the inferior shell. Defaults to \"^[^#$%>]*[#$%>] *\", which works pretty well. This variable is used to initialise comint-prompt-regexp in the @@ -167,11 +166,12 @@ This is a fine thing to set in your .emacs file.") "*Args passed to inferior shell by M-x shell, if the shell is csh. Value is a list of strings, which may be nil.") -;;; All the above vars aren't prefixed "shell-" to make them +;;; All the above vars aren't prefixed "cmushell-" to make them ;;; backwards compatible w/shell.el and old .emacs files. (defvar shell-dirstack nil - "List of directories saved by pushd in this buffer's shell.") + "List of directories saved by pushd in this buffer's shell. +Thus, this does not include the shell's current directory.") (defvar shell-dirstack-query "dirs" "Command used by shell-resync-dirlist to query shell.") @@ -194,10 +194,10 @@ Value is a list of strings, which may be nil.") "Major mode for interacting with an inferior shell. Return after the end of the process' output sends the text from the end of process to the end of the current line. -Return before end of process output copies rest of line to end (skipping - the prompt) and sends it. +Return before end of process output copies the current line (except + for the prompt) to the end of the buffer and sends it. M-x send-invisible reads a line of text without echoing it, and sends it to - the shell. + the shell. This is useful for entering passwords. If you accidentally suspend your process, use \\[comint-continue-subjob] to continue it. @@ -228,6 +228,7 @@ to match their respective commands." (run-hooks 'shell-mode-hook)) +;;;###autoload (defun shell () "Run an inferior shell, with I/O through buffer *shell*. If buffer exists but shell process is not running, make new shell. @@ -509,6 +510,8 @@ command again." ;;; Interfacing to client packages (and converting them) +;;; Notes from when this was called cmushell, and was not the standard emacs +;;; shell package. Many of the conversions discussed here have been done. ;;;============================================================================ ;;; Several gnu packages (tex-mode, background, dbx, gdb, kermit, prolog, ;;; telnet are some) use the shell package as clients. Most of them would @@ -598,3 +601,11 @@ This is a good place to put keybindings.") ;;; ;;; Olin 3/12/91 ;;; - Moved comint-dynamic-complete (filename completion) from M-tab to tab. +;;; +;;; Jim Blandy 10/30/91 +;;; - Removed the "cmu" prefix from names, renamed file to shell.el, +;;; to become the standard shell package. + +(provide 'shell) + +;;; shell.el ends here diff --git a/lisp/simple.el b/lisp/simple.el index 087cbc8c5ed..e50c6f5d533 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -1,4 +1,5 @@ -;; Basic editing commands for Emacs +;;; simple.el --- basic editing commands for Emacs + ;; Copyright (C) 1985, 1986, 1987, 1992 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. @@ -704,6 +705,17 @@ a number counts as a prefix arg." (concat string (car kill-ring)) (concat (car kill-ring) string)))) +(defvar interprogram-cut-function nil + "Function to call to make a killed region available to other programs. + +Most window systems provide some sort of facility for cutting and +pasting text between the windows of different programs. On startup, +this variable is set to a function which emacs will call to make the +most recently killed text available to other programs. + +The function takes one argument, TEXT, which is a string containing +the text which should be made available.") + (defun kill-region (beg end) "Kill between point and mark. The text is deleted but saved in the kill ring. @@ -728,6 +740,8 @@ to make one entry in the kill ring." ;; Take the same string recorded for undo ;; and put it in the kill-ring. (setq kill-ring (cons (car (car buffer-undo-list)) kill-ring)) + (if interprogram-cut-function + (funcall interprogram-cut-function (car kill-ring))) (if (> (length kill-ring) kill-ring-max) (setcdr (nthcdr (1- kill-ring-max) kill-ring) nil)) (setq this-command 'kill-region) @@ -735,17 +749,6 @@ to make one entry in the kill ring." (copy-region-as-kill beg end) (or buffer-read-only (delete-region beg end)))) -(defvar interprogram-cut-function nil - "Function to call to make a killed region available to other programs. - -Most window systems provide some sort of facility for cutting and -pasting text between the windows of different programs. On startup, -this variable is set to a function which emacs will call to make the -most recently killed text available to other programs. - -The function takes one argument, TEXT, which is a string containing -the text which should be made available.") - (defun copy-region-as-kill (beg end) "Save the region as if killed, but don't kill it. If `interprogram-cut-function' is non-nil, also save the text for a window @@ -1408,11 +1411,16 @@ Setting this variable automatically makes it local to the current buffer.") (defconst comment-multi-line nil "*Non-nil means \\[indent-new-comment-line] should continue same comment -on new line, with no new terminator or starter.") +on new line, with no new terminator or starter. +This is obsolete because you might as well use \\[newline-and-indent].") (defun indent-new-comment-line () "Break line at point and indent, continuing comment if presently within one. -The body of the continued comment is indented under the previous comment line." +The body of the continued comment is indented under the previous comment line. + +This command is intended for styles where you write a comment per line, +starting a new comment (and terminating it if necessary) on each line. +If you want to continue one comment across several lines, use \\[newline-and-indent]." (interactive "*") (let (comcol comstart) (skip-chars-backward " \t") @@ -1420,39 +1428,42 @@ The body of the continued comment is indented under the previous comment line." (progn (skip-chars-forward " \t") (point))) (insert ?\n) - (save-excursion - (if (and comment-start-skip - (let ((opoint (point))) - (forward-line -1) - (re-search-forward comment-start-skip opoint t))) - ;; The old line is a comment. - ;; Set WIN to the pos of the comment-start. - ;; But if the comment is empty, look at preceding lines - ;; to find one that has a nonempty comment. - (let ((win (match-beginning 0))) - (while (and (eolp) (not (bobp)) - (let (opoint) - (beginning-of-line) - (setq opoint (point)) - (forward-line -1) - (re-search-forward comment-start-skip opoint t))) - (setq win (match-beginning 0))) - ;; Indent this line like what we found. - (goto-char win) - (setq comcol (current-column)) - (setq comstart (buffer-substring (point) (match-end 0)))))) + (if (not comment-multi-line) + (save-excursion + (if (and comment-start-skip + (let ((opoint (point))) + (forward-line -1) + (re-search-forward comment-start-skip opoint t))) + ;; The old line is a comment. + ;; Set WIN to the pos of the comment-start. + ;; But if the comment is empty, look at preceding lines + ;; to find one that has a nonempty comment. + (let ((win (match-beginning 0))) + (while (and (eolp) (not (bobp)) + (let (opoint) + (beginning-of-line) + (setq opoint (point)) + (forward-line -1) + (re-search-forward comment-start-skip opoint t))) + (setq win (match-beginning 0))) + ;; Indent this line like what we found. + (goto-char win) + (setq comcol (current-column)) + (setq comstart (buffer-substring (point) (match-end 0))))))) (if comcol (let ((comment-column comcol) (comment-start comstart) (comment-end comment-end)) (and comment-end (not (equal comment-end "")) - (if (not comment-multi-line) +; (if (not comment-multi-line) (progn (forward-char -1) (insert comment-end) (forward-char 1)) - (setq comment-column (+ comment-column (length comment-start)) - comment-start ""))) +; (setq comment-column (+ comment-column (length comment-start)) +; comment-start "") +; ) + ) (if (not (eolp)) (setq comment-end "")) (insert ?\n) @@ -1500,8 +1511,14 @@ selective-display's value is separate for each buffer." (interactive "P") (if (eq selective-display t) (error "selective-display already in use for marked lines")) - (setq selective-display - (and arg (prefix-numeric-value arg))) + (let ((current-vpos + (save-restriction + (narrow-to-region (point-min) (point)) + (goto-char (window-start)) + (vertical-motion (window-height))))) + (setq selective-display + (and arg (prefix-numeric-value arg))) + (recenter current-vpos)) (set-window-start (selected-window) (window-start (selected-window))) (princ "selective-display set to " t) (prin1 selective-display t) @@ -1694,3 +1711,5 @@ If you want VALUE to be a string, you must surround it with doublequotes." (defconst mode-specific-map (symbol-function 'mode-specific-command-prefix) "Keymap for characters following C-c.") (define-key global-map "\C-c" 'mode-specific-command-prefix) + +;;; simple.el ends here diff --git a/lisp/sort.el b/lisp/sort.el index 002a899f7e8..ebb0980b995 100644 --- a/lisp/sort.el +++ b/lisp/sort.el @@ -1,4 +1,5 @@ -;; Commands to sort text in an Emacs buffer. +;;; sort.el --- commands to sort text in an Emacs buffer. + ;; Copyright (C) 1986, 1987 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. @@ -445,3 +446,4 @@ From a program takes two point or marker arguments, BEG and END." (provide 'sort) +;;; sort.el ends here diff --git a/lisp/startup.el b/lisp/startup.el index 852c72809bc..a6aa880bae1 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1,4 +1,5 @@ -;; Process Emacs shell arguments +;;; startup.el --- process Emacs shell arguments + ;; Copyright (C) 1985, 1986, 1992 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. @@ -368,3 +369,5 @@ Type \\[describe-distribution] for information on getting the latest version.")) (or (get-buffer-window first-file-buffer) (progn (other-window) (buffer-menu))))))) + +;;; startup.el ends here diff --git a/lisp/subr.el b/lisp/subr.el index c29261c7d57..b1c35426884 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -1,4 +1,5 @@ -;; Basic lisp subroutines for Emacs +;;; subr.el --- basic lisp subroutines for Emacs + ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. @@ -344,3 +345,5 @@ and then modifies one entry in it." (defmacro lambda (&rest cdr) (` (function (lambda (,@ cdr))))) + +;;; subr.el ends here diff --git a/lisp/sun-curs.el b/lisp/sun-curs.el index ec5ffc8442c..36df2de60a4 100644 --- a/lisp/sun-curs.el +++ b/lisp/sun-curs.el @@ -1,4 +1,5 @@ -;; Cursor definitions for Sun windows +;;; sun-cursors.el --- cursor definitions for Sun windows + ;; Copyright (C) 1987 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. @@ -205,3 +206,4 @@ Otherwise, ICON should be a vector or the name of a vector of [x y 32-chars]" (provide 'sm-cursors) +;;; sun-cursors.el ends here diff --git a/lisp/sun-fns.el b/lisp/sun-fns.el index b628565d38e..00fbcc4715a 100644 --- a/lisp/sun-fns.el +++ b/lisp/sun-fns.el @@ -1,4 +1,5 @@ -;; Subroutines of Mouse handling for Sun windows +;;; sun-fns.el --- subroutines of Mouse handling for Sun windows + ;; Copyright (C) 1987 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. @@ -628,3 +629,5 @@ To unmark a buffer marked for deletion, select it with LEFT." (global-set-mouse '(minibuffer double control meta right) 'mouse-help-region) (provide 'sun-fns) + +;;; sun-fns.el ends here diff --git a/lisp/tabify.el b/lisp/tabify.el index 492bd48ec7b..6b8a56f396b 100644 --- a/lisp/tabify.el +++ b/lisp/tabify.el @@ -1,4 +1,5 @@ -;; Tab conversion commands for Emacs +;;; tabify.el --- tab conversion commands for Emacs + ;; Copyright (C) 1985 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. @@ -51,3 +52,5 @@ The variable tab-width controls the action." (indent-tabs-mode t)) (delete-region (match-beginning 0) (point)) (indent-to column)))))) + +;;; tabify.el ends here diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index ce70c275668..f1919e238a2 100644 --- a/lisp/tar-mode.el +++ b/lisp/tar-mode.el @@ -1,7 +1,5 @@ -;;; -*- Mode: Emacs-Lisp -*- +;;; tar-mode.el --- simple editing of tar files from GNU emacs -;;; File: tar-mode.el -;;; Description: simple editing of tar files from GNU emacs ;;; Author: Jamie Zawinski <jwz@lucid.com> ;;; Created: 4 Apr 1990 ;;; Version: 1.21, 10 Mar 91 @@ -1108,3 +1106,4 @@ itself." (provide 'tar-mode) +;;; tar-mode.el ends here diff --git a/lisp/telnet.el b/lisp/telnet.el index 2f96d16db9f..834885e8df0 100644 --- a/lisp/telnet.el +++ b/lisp/telnet.el @@ -1,3 +1,5 @@ +;;; telnet.el --- run a telnet session from within an Emacs buffer + ;; Copyright (C) 1985, 1988 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. @@ -180,3 +182,4 @@ Bugs: (provide 'telnet) +;;; telnet.el ends here diff --git a/lisp/term/sun-mouse.el b/lisp/term/sun-mouse.el index 3df2da43b61..db7565baecb 100644 --- a/lisp/term/sun-mouse.el +++ b/lisp/term/sun-mouse.el @@ -1,4 +1,5 @@ -;; Mouse handling for Sun windows +;;; sun-mouse.el --- mouse handling for Sun windows + ;; Copyright (C) 1987 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. @@ -667,3 +668,4 @@ just close the window, and wait for reopening." (provide 'sun-mouse) +;;; sun-mouse.el ends here diff --git a/lisp/term/sup-mouse.el b/lisp/term/sup-mouse.el index d03b009136d..471661f7686 100644 --- a/lisp/term/sup-mouse.el +++ b/lisp/term/sup-mouse.el @@ -1,3 +1,5 @@ +;;; sup-mouse.el --- GNU Emacs code for lambda/supdup mouse + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; ;; File: sup-mouse.el ;; @@ -7,10 +9,8 @@ ;; ;; ;; (from code originally written by John Robinson@bbn for the bitgraph) ;; ;; ;; -;; $Log$ ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; GNU Emacs code for lambda/supdup mouse ;; Copyright (C) Free Software Foundation 1985, 1986 ;; This file is part of GNU Emacs. @@ -205,3 +205,5 @@ X and Y are 0-based character positions on the screen." (or window (selected-window)) ) ) + +;;; sup-mouse.el ends here diff --git a/lisp/textmodes/scribe.el b/lisp/textmodes/scribe.el index 6dbbb790292..7cc1bc26057 100644 --- a/lisp/textmodes/scribe.el +++ b/lisp/textmodes/scribe.el @@ -1,4 +1,5 @@ -;; scribe mode, and its ideosyncratic commands. +;;; scribe.el --- scribe mode, and its idiosyncratic commands. + ;; Copyright (C) 1985 Free Software Foundation, Inc. ;; This file might become part of GNU Emacs. @@ -306,3 +307,5 @@ preceding text is of the form @Command." scribe-open-parentheses))) (save-excursion (insert (aref scribe-close-parentheses paren-char))))))) + +;;; scribe.el ends here diff --git a/lisp/textmodes/spell.el b/lisp/textmodes/spell.el index b3157f3c1b1..85adb6b4154 100644 --- a/lisp/textmodes/spell.el +++ b/lisp/textmodes/spell.el @@ -1,4 +1,5 @@ -;; Spelling correction interface for Emacs. +;;; spell.el --- spelling correction interface for Emacs. + ;; Copyright (C) 1985 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. @@ -134,3 +135,5 @@ for example, \"word\"." (while (search-forward "\n" nil t) (replace-match " ")) (message "%sincorrect" (buffer-substring 1 (point-max))))))) + +;;; spell.el ends here |