*** empty log message ***
This commit is contained in:
Eric S. Raymond
parent
72c0ae01d6
commit
f961a17c44
5 changed files with 116 additions and 65 deletions
61
lisp/gud.el
61
lisp/gud.el
|
|
@ -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 @@ 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
|
||||
|
|
|
|||
|
|
@ -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 @@ 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}
|
||||
|
|
|
|||
|
|
@ -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 @@ local abbrev table."
|
|||
("while" "WHILE" simula-expand-keyword))))
|
||||
|
||||
;;; simula.el ends here
|
||||
|
||||
|
|
|
|||
|
|
@ -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.
|
||||
|
||||
;; 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.
|
||||
;; 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.
|
||||
|
||||
;; 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
|
||||
;;; Commentary:
|
||||
|
||||
;; Stephen Gildea suggested bug fix (gildea@bbn.com).
|
||||
;; 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)
|
||||
|
|
|
|||
|
|
@ -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 @@ interactively"
|
|||
(local-set-mouse '(text right) 'bibtex-sun-menu-eval))
|
||||
|
||||
;;; bibtex-mode.el ends here
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue