# HG changeset patch # User Eric S. Raymond # Date 711357046 0 # Node ID 80303373daae9c137122430277c064d06b65f7f5 # Parent 8a0066235d56d2eac1c58b39c57abec33a4ae217 *** empty log message *** diff -r 8a0066235d56 -r 80303373daae lisp/gud.el --- 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 +;; 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 ;; It was later ewritten by rms. Some ideas were due to Masanobu. -;; Grand Unification (sdb/dbx support) by Eric S. Raymond +;; Grand Unification (sdb/dbx support) by Eric S. Raymond ;; The overloading code was then rewritten by Barry Warsaw , ;; 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 diff -r 8a0066235d56 -r 80303373daae lisp/progmodes/asm-mode.el --- 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 +;; 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 , +;;; Commentary: + +;; This mode was written by Eric S. Raymond , ;; 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} diff -r 8a0066235d56 -r 80303373daae lisp/progmodes/simula.el --- 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 +;; 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 - diff -r 8a0066235d56 -r 80303373daae lisp/resume.el --- 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 +;; 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) diff -r 8a0066235d56 -r 80303373daae lisp/textmodes/bibtex.el --- 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 +;; Mark Shapiro +;; Mike Newton +;; Aaron Larson +;; Maintainer: Mark Shapiro +;; 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 -