Mercurial > emacs

changeset 810:80303373daae

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Eric S. Raymond <esr@snark.thyrsus.com>
date Fri, 17 Jul 1992 07:10:46 +0000
parents 8a0066235d56
children e694e0879463
files lisp/gud.el lisp/progmodes/asm-mode.el lisp/progmodes/simula.el lisp/resume.el lisp/textmodes/bibtex.el
diffstat 5 files changed, 116 insertions(+), 65 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gud.el	Fri Jul 17 06:48:03 1992 +0000
+++ b/lisp/gud.el	Fri Jul 17 07:10:46 1992 +0000
@@ -1,12 +1,17 @@
-;; Grand Unified Debugger mode --- run gdb, sdb, dbx under Emacs control
-;; Copyright (c) 1992 Free Software Foundation, Inc.
-;;	@(#)gud.el	1.10
+;;; gud.el --- Grand Unified Debugger mode for gdb, sdb, or dbx under Emacs
+
+;; Author: Eric S. Raymond <eric@snark.thyrsus.com>
+;; Keywords: unix, tools
+
+;;	@(#)gud.el	1.18
+
+;; 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 2, or (at your option)
+;; 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,
@@ -18,12 +23,25 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Commentary:
+
 ;; The ancestral gdb.el was by W. Schelter <wfs@rascal.ics.utexas.edu>
 ;; It was later ewritten by rms.  Some ideas were due to Masanobu. 
-;; Grand Unification (sdb/dbx support) by Eric S. Raymond <eric@thyrsus.com>
+;; Grand Unification (sdb/dbx support) by Eric S. Raymond <esr@thyrsus.com>
 ;; The overloading code was then rewritten by Barry Warsaw <bwarsaw@cen.com>,
 ;; who also hacked the mode to use comint.el.
 
+;; Note: use of this package with sdb requires that your tags.el support
+;; the find-tag-noselect entry point.  Stock distributions up to 18.57 do 
+;; *not* include this feature; if it's not included with this file, email
+;; esr@snark.thyrsus.com for it or get 18.58.
+
+;; Further note: due to lossage in the Emacs-18 byte compiler, compiled
+;; versions of this code will fail with a complaint about gud-step if
+;; you invoke the gdb or sdb initializers.  This should be fixed in 19.
+
+;;; Code:
+
 (require 'comint)
 (require 'tags)
 
@@ -56,10 +74,10 @@
   (error "GUD not properly entered."))
 
 ;; This macro is used below to define some basic debugger interface commands.
-;; Of course you may use `def-gud' with any other debugger command, including
+;; Of course you may use `gud-def' with any other debugger command, including
 ;; user defined ones.   
 
-(defmacro def-gud (func name key &optional doc)
+(defmacro gud-def (func name key &optional doc)
   (let* ((cstr (list 'if '(not (= 1 arg))
 		     (list 'format "%s %s" name 'arg) name)))
     (list 'progn
@@ -139,14 +157,14 @@
 			    (gud-visit-file       gud-gdb-visit-file)
 			    (gud-set-break        gud-gdb-set-break)))
 
-  (def-gud gud-step   "step"   "\C-cs"    "Step one source line with display")
-  (def-gud gud-stepi  "stepi"  "\C-ci"    "Step one instruction with display")
-  (def-gud gud-next   "next"   "\C-cn"    "Step one line (skip functions)")
-  (def-gud gud-cont   "cont"   "\C-c\C-c" "Continue with display")
+  (gud-def gud-step   "step"   "\C-cs"    "Step one source line with display")
+  (gud-def gud-stepi  "stepi"  "\C-ci"    "Step one instruction with display")
+  (gud-def gud-next   "next"   "\C-cn"    "Step one line (skip functions)")
+  (gud-def gud-cont   "cont"   "\C-c\C-c" "Continue with display")
 
-  (def-gud gud-finish "finish" "\C-c\C-f" "Finish executing current function")
-  (def-gud gud-up     "up"     "\C-c<"    "Up N stack frames (numeric arg)")
-  (def-gud gud-down   "down"   "\C-c>"    "Down N stack frames (numeric arg)")
+  (gud-def gud-finish "finish" "\C-c\C-f" "Finish executing current function")
+  (gud-def gud-up     "up"     "\C-c<"    "Up N stack frames (numeric arg)")
+  (gud-def gud-down   "down"   "\C-c>"    "Down N stack frames (numeric arg)")
 
   (gud-common-init path)
 
@@ -190,10 +208,10 @@
 			    (gud-visit-file       gud-sdb-visit-file)
 			    (gud-set-break        gud-sdb-set-break)))
 
-  (def-gud gud-step  "s"   "\C-cs" "Step one source line with display")
-  (def-gud gud-stepi "i"   "\C-ci" "Step one instruction with display")
-  (def-gud gud-next  "S"   "\C-cn" "Step one source line (skip functions)")
-  (def-gud gud-cont  "c"   "\C-cc" "Continue with display")
+  (gud-def gud-step  "s"   "\C-cs" "Step one source line with display")
+  (gud-def gud-stepi "i"   "\C-ci" "Step one instruction with display")
+  (gud-def gud-next  "S"   "\C-cn" "Step one source line (skip functions)")
+  (gud-def gud-cont  "c"   "\C-cc" "Continue with display")
 
   (gud-common-init path)
 
@@ -234,11 +252,9 @@
 			    (gud-visit-file       gud-dbx-visit-file)
 			    (gud-set-break        gud-dbx-set-break)))
 
-  (make-local-variable 'comint-prompt-regexp)
+  (gud-common-init path)
   (setq comint-prompt-regexp  "^[^)]*dbx) *")
 
-  (gud-common-init path)
-
   (run-hooks 'dbx-mode-hook)
   )
 
@@ -525,5 +541,4 @@
     (goto-char (dot-max))
     (insert-string comm)))
 
-;; gud.e ends here
-
+;;; gud.el ends here
--- a/lisp/progmodes/asm-mode.el	Fri Jul 17 06:48:03 1992 +0000
+++ b/lisp/progmodes/asm-mode.el	Fri Jul 17 07:10:46 1992 +0000
@@ -1,4 +1,10 @@
-;;; asm-mode.el --- Mode for editing assembler code
+;;; asm-mode.el --- mode for editing assembler code
+
+;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
+;; Last-Modified: 14 Jul 1992
+;; Keywords: tools, languages
+
+;; 	@(#)asm-mode.el	1.6
 
 ;; Copyright (C) 1991 Free Software Foundation, Inc.
 
@@ -6,7 +12,7 @@
 
 ;; 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 2, or (at your option)
+;; 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,
@@ -18,9 +24,10 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
-;; This mode was written for Eric S. Raymond <eric@snark.thyrsus.com>,
+;;; Commentary:
+
+;; This mode was written by Eric S. Raymond <esr@snark.thyrsus.com>,
 ;; inspired by an earlier asm-mode by Martin Neitzel.
-;; 	@(#)asm-mode.el	1.1
 
 ;; This minor mode is based on text mode.  It defines a private abbrev table
 ;; that can be used to save abbrevs for assembler mnemonics.  It binds just
@@ -34,11 +41,14 @@
 ;; Code is indented to the first tab stop level.
 ;; The ; key inserts copies of the value of asm-comment-char at an
 ;; appropriate spot.
+
 ;; This mode runs two hooks:
 ;;   1) An asm-set-comment-hook before the part of the initialization
 ;; depending on asm-comment-char, and
 ;;   2) an asm-mode-hook at the end of initialization.
 
+;;; Code:
+
 (defvar asm-comment-char ?;
   "*The comment-start character assumed by asm-mode.")
 
@@ -58,7 +68,9 @@
   (define-key asm-mode-map ";"		'asm-comment)
   (define-key asm-mode-map ":"		'asm-colon)
   (define-key asm-mode-map "\C-i"	'tab-to-tab-stop)
-  (define-key asm-mode-map "\C-j"	'asm-newline))
+  (define-key asm-mode-map "\C-j"	'asm-newline)
+  (define-key asm-mode-map "\C-m"	'asm-newline)
+  )
 
 (defvar asm-code-level-empty-comment-pattern nil)
 (defvar asm-flush-left-empty-comment-pattern nil)
@@ -67,7 +79,7 @@
 ;;;###autoload
 (defun asm-mode ()
   "Major mode for editing typical assembler code.
-Features a private abbrev table and the following bindings:
+Features a private asm-mode-abbrev-table and the following bindings:
 
 \\[asm-colon]\toutdent a preceding label, tab to next tab stop.
 \\[tab-to-tab-stop]\ttab to next tab stop.
@@ -75,13 +87,13 @@
 \\[asm-comment]\tsmart placement of assembler comments.
 
 The character used for making comments is set by the variable
-`asm-comment-char' (which defaults to `;').  You may want to set this
-appropriately for the assembler on your machine in `defaults.el'.
+asm-comment-char (which defaults to ?;).  You may want to set this
+appropriately for the assembler on your machine in defaults.el.
 
-Alternatively, you may set this variable in `asm-set-comment-hook', which is
+Alternatively, you may set this variable in asm-set-comment-hook, which is
 called near the beginning of mode initialization.
 
-Turning on `asm-mode' calls the value of the variable `asm-mode-hook',
+Turning on asm-mode calls the value of the variable asm-mode-hook,
 if that value is non-nil, at the end of initialization.
 
 Special commands:\\{asm-mode-map}
--- a/lisp/progmodes/simula.el	Fri Jul 17 06:48:03 1992 +0000
+++ b/lisp/progmodes/simula.el	Fri Jul 17 07:10:46 1992 +0000
@@ -1,12 +1,18 @@
 ;;; simula.el --- SIMULA 87 code editing commands for Emacs
 
+;; Author: Hans Henrik Eriksen <hhe@ifi.uio.no>
+;; Maintainer: simula-mode@ifi.uio.no
+;; Version: 0.99
+;; Adapted-By: ESR
+;; Keywords: languages
+
 ;; 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 2, or (at your option)
+;; 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,
@@ -18,12 +24,13 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
-;; Author: Hans Henrik Eriksen (hhe@ifi.uio.no)
+;;; Commentary:
+
+;; Hans Henrik Eriksen may be reached at:
 ;;         Institutt for informatikk,
 ;;         Universitetet i Oslo
-;; Version 0.99
 
-;; Bug reports to simula-mode@ifi.uio.no
+;;; Code:
 
 (provide 'simula-mode)
 
@@ -1278,4 +1285,3 @@
 	    ("while" "WHILE" simula-expand-keyword))))
 
 ;;; simula.el ends here
-
--- a/lisp/resume.el	Fri Jul 17 06:48:03 1992 +0000
+++ b/lisp/resume.el	Fri Jul 17 07:10:46 1992 +0000
@@ -1,30 +1,37 @@
 ;;; resume.el --- process command line args from within a suspended Emacs job
 
-;; Copyright (C) 1988 Free Software Foundation, Inc.
+;; Author: Joe Wells <jbw@bucsf.bu.edu>
+;; Last-Modified: Tue Jun 13 1989
+;; Adapted-By: ESR
+
+;; 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.  No author or distributor
-;; accepts responsibility to anyone for the consequences of using it
-;; or for whether it serves any particular purpose or works at all,
-;; unless he says so in writing.  Refer to the GNU Emacs General Public
-;; License for full details.
+;; 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.
 
-;; Everyone is granted permission to copy, modify and redistribute
-;; GNU Emacs, but only under the conditions described in the
-;; GNU Emacs General Public License.   A copy of this license is
-;; supposed to have been given to you along with GNU Emacs so you
-;; can know your rights and responsibilities.  It should be in a
-;; file named COPYING.  Among other things, the copyright notice
-;; and this notice must be preserved on all copies.
+;;; Commentary:
 
-;; Created by: Joe Wells, jbw@bucsf.bu.edu
-;; Created on: 1988?
-;; Last modified by: Joe Wells, jbw@dodge
-;; Last modified on: Thu Jun 14 15:20:41 1990
-;; Filename: resume.el
-;; Purpose: handle command line arguments when resuming suspended job
+;; Theory: the first time you start Emacs, command line arguments are
+;; handled normally.  Then, you suspend your emacs job.  When you want to edit
+;; something else, you type "emacs filename" as usual, but instead of
+;; starting a new emacs job, the old job is resumed instead, and the command
+;; line arguments are placed in a file where the old emacs job looks for
+;; them.
 
-;; Stephen Gildea suggested bug fix (gildea@bbn.com).
+;; Stephan Gildea suggested bug fix (gildea@bbn.com).
 ;; Ideas from Michael DeCorte and other people.
 
 ;; For csh users, insert the following alias in your .cshrc file
@@ -81,6 +88,8 @@
 ;; Finally, put the rest in a file named "resume.el" in a lisp library
 ;; directory.
 
+;;; Code:
+
 (defvar emacs-args-file (expand-file-name "~/.emacs_args")
   "*This file is where arguments are placed for a suspended emacs job.")
 
@@ -88,9 +97,10 @@
   "Buffer that is used by resume-process-args.")
 
 (defun resume-process-args ()
-  "This should be called from inside of `suspend-resume-hook'.
-This grabs the contents of the file whose name is stored in `emacs-args-file',
-and processes these arguments like command line options."
+  "This should be called from inside of suspend-resume-hook.  This
+grabs the contents of the file whose name is stored in
+emacs-args-file, and processes these arguments like command line
+options."
   (let ((start-buffer (current-buffer))
 	(args-buffer (get-buffer-create emacs-args-buffer))
 	length args)
@@ -139,7 +149,7 @@
 
 (defun empty-args-file ()
   "This empties the contents of the file whose name is specified by
-`emacs-args-file'."
+emacs-args-file."
   (save-excursion
     (set-buffer (get-buffer-create emacs-args-buffer))
     (erase-buffer)
--- a/lisp/textmodes/bibtex.el	Fri Jul 17 06:48:03 1992 +0000
+++ b/lisp/textmodes/bibtex.el	Fri Jul 17 07:10:46 1992 +0000
@@ -1,12 +1,19 @@
 ;;; bibtex.el --- BibTeX mode for GNU Emacs
 
+;; Author: Bengt Martensson <ubrinf!mond!bengt>
+;;	Mark Shapiro <shapiro@corto.inria.fr>
+;;	Mike Newton <newton@gumby.cs.caltech.edu>
+;;	Aaron Larson <alarson@src.honeywell.com>
+;; Maintainer: Mark Shapiro <shapiro@corto.inria.fr>
+;; Keywords: tex, bib
+
 ;; 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 2, or (at your option)
+;; 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,
@@ -18,7 +25,7 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
-;;; (current keeper: shapiro@corto.inria.fr)
+;;; Change Log:
 
 ;;; alarson@src.honeywell.com 92-Jan-31
 ;;;   Added support for: ispell, beginning/end of entry movement, a simple
@@ -120,6 +127,8 @@
 ;;; Trouble is, in Emacs 18.44 you can't have a mode-specific mouse binding,
 ;;; so it will remain active in all windows.  Yuck!
 
+;;; Code:
+
 (provide 'bibtex)
 
 ;;; these guys typically don't have autoloads...[alarson:19920131.1548CST]
@@ -1257,4 +1266,3 @@
   (local-set-mouse  '(text right) 'bibtex-sun-menu-eval))
 
 ;;; bibtex-mode.el ends here
-