Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
9ee9b53e
Commit
9ee9b53e
authored
Jun 26, 1993
by
Richard M. Stallman
Browse files
entered into RCS
parent
06ae9cf2
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
18 additions
and
7 deletions
+18
-7
lisp/mail/reporter.el
lisp/mail/reporter.el
+18
-7
No files found.
lisp/mail/reporter.el
View file @
9ee9b53e
;;; reporter.el --- customizable bug reporting of lisp programs
;; Copyright (C) 1993 Free Software Foundation, Inc.
;; Author: 1993 Barry A. Warsaw, Century Computing Inc. <bwarsaw@cen.com>
;; Maintainer: bwarsaw@cen.com
;; Created: 19-Apr-1993
;; Version: 1.18
;; Last Modified: 1993/05/22 00:29:49
;; Keywords: bug reports lisp
;; Copyright (C) 1993 Free Software Foundation, Inc.
;; This file is not yet part of GNU Emacs.
;;
;; This program is free software; you can redistribute it and/or modify
...
...
@@ -81,10 +78,17 @@
;; ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
;; end of user defined variables
(
defvar
reporter-eval-buffer
nil
"Buffer to retrieve variable's value from.
This is necessary to properly support the printing of buffer-local
variables. Current buffer will always be the mail buffer being
composed."
)
(
defun
reporter-dump-variable
(
varsym
)
"Pretty-print the value of the variable in symbol VARSYM."
(
let
((
val
(
eval
varsym
))
(
let
((
val
(
save-excursion
(
set-buffer
reporter-eval-buffer
)
(
eval
varsym
)))
(
sym
(
symbol-name
varsym
))
(
print-escape-newlines
t
))
(
insert
" "
sym
" "
...
...
@@ -108,6 +112,13 @@ If a cons cell, the car must be a variable symbol and the cdr must be
a function which will be `funcall'd with the symbol. Use this to write
your own custom variable value printers for specific variables.
Note that the global variable `reporter-eval-buffer' will be bound to
the buffer in which `reporter-submit-bug-report' was invoked. If you
want to print the value of a buffer local variable, you should wrap
the `eval' call in your custom printer inside a `set-buffer' (and
probably a `save-excursion'). `reporter-dump-variable' handles this
properly.
PRE-HOOKS is run after the emacs-version and PKGNAME are inserted, but
before the VARLIST is dumped. POST-HOOKS is run after the VARLIST is
dumped."
...
...
@@ -143,11 +154,11 @@ mail buffer, and point is left after the salutation.
The mailer used is described in the variable `reporter-mailer'."
(
let
((
curbuf
(
current-buffer
))
(
let
((
reporter-eval-buffer
(
current-buffer
))
(
mailbuf
(
progn
(
call-interactively
reporter-mailer
)
(
current-buffer
))))
(
require
'sendmail
)
(
pop-to-buffer
curbuf
)
(
pop-to-buffer
reporter-eval-buffer
)
(
pop-to-buffer
mailbuf
)
(
goto-char
(
point-min
))
;; different mailers use different separators, some may not even
...
...
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