Skip to content

GitLab

Commit f961a17c authored by Eric S. Raymond's avatar Eric S. Raymond
Browse files
Options

*** empty log message ***

parent 72c0ae01
Hide whitespace changes
Inline Side-by-side
Showing with 119 additions and 68 deletions
lisp/gud.el
View file @ f961a17c
;; 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 @@ This association list has elements of the form
(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 @@ and source-file directory for your debugger."
(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 @@ and source-file directory for your debugger."
(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,10 +252,8 @@ and source-file directory for your debugger."
(gud-visit-file gud-dbx-visit-file)
(gud-set-break gud-dbx-set-break)))
(make-local-variable 'comint-prompt-regexp)
(setq comint-prompt-regexp "^[^)]*dbx) *")
(gud-common-init path)
(setq comint-prompt-regexp "^[^)]*dbx) *")
(run-hooks 'dbx-mode-hook)
)
......@@ -525,5 +541,4 @@ It is for customization by you.")
(goto-char (dot-max))
(insert-string comm)))
;; gud.e ends here
;;; gud.el ends here
lisp/progmodes/asm-mode.el
View file @ f961a17c
;;; 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 @@ Features a private abbrev table and the following bindings:
\\[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}
......
lisp/progmodes/simula.el
View file @ f961a17c
;;; 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 @@ local abbrev table."
("while" "WHILE" simula-expand-keyword))))
;;; simula.el ends here
lisp/resume.el
View file @ f961a17c
;;; 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.
;; 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.
;; 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
;; Stephen Gildea suggested bug fix (gildea@bbn.com).
;; 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.
;;; Commentary:
;; 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.
;; 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 @@ and processes these arguments like command line options."
(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)
......
lisp/textmodes/bibtex.el
View file @ f961a17c
;;; 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 @@ interactively"
(local-set-mouse '(text right) 'bibtex-sun-menu-eval))
;;; bibtex-mode.el ends here
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment