Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
f961a17c
Commit
f961a17c
authored
Jul 17, 1992
by
Eric S. Raymond
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
*** empty log message ***
parent
72c0ae01
Changes
5
Hide whitespace changes
Inline
Side-by-side
Showing
5 changed files
with
119 additions
and
68 deletions
+119
-68
lisp/gud.el
lisp/gud.el
+38
-23
lisp/progmodes/asm-mode.el
lisp/progmodes/asm-mode.el
+22
-10
lisp/progmodes/simula.el
lisp/progmodes/simula.el
+11
-5
lisp/resume.el
lisp/resume.el
+37
-27
lisp/textmodes/bibtex.el
lisp/textmodes/bibtex.el
+11
-3
No files found.
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 <er
ic
@thyrsus.com>
;; Grand Unification (sdb/dbx support) by Eric S. Raymond <e
s
r@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
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment