summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/latex/base/latexbug.el
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/source/latex/base/latexbug.el')
-rw-r--r--Master/texmf-dist/source/latex/base/latexbug.el40
1 files changed, 20 insertions, 20 deletions
diff --git a/Master/texmf-dist/source/latex/base/latexbug.el b/Master/texmf-dist/source/latex/base/latexbug.el
index 492f0d18f67..b35cb987712 100644
--- a/Master/texmf-dist/source/latex/base/latexbug.el
+++ b/Master/texmf-dist/source/latex/base/latexbug.el
@@ -1,6 +1,6 @@
;;; latexbug.el
;;;
-;;; Version 0: `test of concept'
+;;; Version 0: `test of concept'
;;; Don't look to closely at my lisp coding style...
;;;
;;; David Carlisle
@@ -20,7 +20,7 @@
;;; To use this code, place the file in a directory searched by lisp
;;; Add
;;;
-;;; (autoload 'report-latex-bug "latexbug"
+;;; (autoload 'report-latex-bug "latexbug"
;;; "LaTeX bug report generator" t)
;;;
;;; to your .emacs file (without the ;;;).
@@ -51,7 +51,7 @@
;;; (setq ltxbug-mail-headers "...") ; additional mail headers.
;;; For example (setq ltxbug-mail-headers "FCC: ~/Mail/sent")
;;; To log outgoing mail in a `sent' file.
-;;;
+;;;
;;; (setq ltxbug-latex-command "...") ; latex command
;;; Set this if LaTeX is not called latex, eg it may be latex2e.
;;;
@@ -87,7 +87,7 @@ This is in addition to `To' and `Subject'.")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(defvar ltxbug-categories
+(defvar ltxbug-categories
'(("latex") ("tools") ("graphics")
("mfnfss") ("psnfss") ("amslatex") ("babel") ("expl3") ("cyrillic"))
"Valid GNATS categories")
@@ -105,19 +105,19 @@ This is in addition to `To' and `Subject'.")
;; and a smaller help window below.
(delete-other-windows)
;; (setq ltxbug-msg (switch-to-buffer "*latex-bugs*")); not emacs18
- (switch-to-buffer
+ (switch-to-buffer
(setq ltxbug-msg (get-buffer-create "*latex-bugs*")))
(erase-buffer)
- (setq default-directory
+ (setq default-directory
(or ltxbug-directory current-default-directory))
(setq major-mode 'ltxbug)
(setq mode-name "LaTeX Bug Report")
- (use-local-map ltxbug-map)
+ (use-local-map ltxbug-map)
(message "Running latex on latexbug.tex ....")
- (split-window-vertically
+ (split-window-vertically
;; -13 ;; old emacs's can't do this
(- (window-height) 13))
- (switch-to-buffer-other-window
+ (switch-to-buffer-other-window
(setq ltxbug-help (get-buffer-create "latexbugs help")))
;;
;; Initially fill the message buffer with the output from running
@@ -132,7 +132,7 @@ This is in addition to `To' and `Subject'.")
(shell-command (concat
ltxbug-latex-command
" \\\\nonstopmode\\\\makeatletter\
- \\\\def\\\\batch\\{\\}\\\\@@input latexbug ") t)
+ \\\\def\\\\batch\\{\\}\\\\@@input latexbug ") t)
(switch-to-buffer-other-window ltxbug-msg)
(goto-char (point-min))
;;
@@ -161,7 +161,7 @@ This is in addition to `To' and `Subject'.")
;; Put the synopsis template into the Subject field.
;; Add the delimiter used by the mail-send function.
(goto-char (point-min))
- (let ((temp
+ (let ((temp
(concat "To: "
(buffer-substring (match-beginning 1) (match-end 1)) "
Subject: < SYNOPSIS >
@@ -198,7 +198,7 @@ corresponding to directories in the standard LaTeX distribution:
cyrillic: Packages for using Cyrillic fonts (cyrillic).
")
(let* ((completion-ignore-case t)
- (cat (completing-read "Which Category ? "
+ (cat (completing-read "Which Category ? "
ltxbug-categories nil t )))
(set-buffer "*latex-bugs*")
(ltxbug-replace "< CATEGORY >" (if (equal cat "") "latex" cat)))
@@ -218,7 +218,7 @@ corresponding to directories in the standard LaTeX distribution:
(set-buffer ltxbug-msg)
(let ((syn (read-from-minibuffer "Synopsis ? " )))
(while (or (equal syn "") (> (length syn) 50))
- (setq syn
+ (setq syn
(read-from-minibuffer "Synopsis (0 < length < 50) ? " syn)))
(set-buffer "*latex-bugs*")
(ltxbug-replace "< SYNOPSIS >" syn))
@@ -301,7 +301,7 @@ Possible classes of messages are:
(progn
(set-buffer ltxbug-help)
(erase-buffer)
- (insert
+ (insert
(format "%s%d%s" "
!!!!
Your test file is " lines " lines long!!!
@@ -310,8 +310,8 @@ Test files should be as short as possible, while still showing
the behaviour. Please try to keep the file below 60 lines.
"))
(set-buffer ltxbug-msg))))
- (let* ((log1
- (concat
+ (let* ((log1
+ (concat
(substring temp 0 (string-match "\\.[^\\.]*$" temp))
".log"))
(log (read-file-name "Log file ? " "" log1 t log1)))
@@ -377,7 +377,7 @@ LaTeX did not succesfully produce a bug report template."))
(set-buffer ltxbug-msg)
(goto-char (point-min))
(let ((temp ""))
- (if (re-search-forward
+ (if (re-search-forward
(concat"\n>" field ":\\( *\\)\\(.*\\)$") (point-max) t)
;; if field already there
(progn
@@ -387,7 +387,7 @@ LaTeX did not succesfully produce a bug report template."))
(re-search-forward ">Category:.*$")
(insert (concat "\n>" field ":")))
(insert " ")
- (let ((temp2
+ (let ((temp2
(completing-read (concat field " ? ") values nil t temp)))
(insert (if (equal temp2 "")
(car(car values)) temp2)))))
@@ -417,7 +417,7 @@ LaTeX did not succesfully produce a bug report template."))
(defun ltxbug-confidential ()
(interactive)
(ltxbug-update-field
- "Confidential"
+ "Confidential"
'(("no")("yes"))
"
You may set the >Confidential field to yes.
@@ -490,7 +490,7 @@ LaTeX did not succesfully produce a bug report template."))
")
(set-buffer ltxbug-msg)
(let* ((completion-ignore-case t)
- (field (completing-read "Which field ? "
+ (field (completing-read "Which field ? "
'(("Class")("Confidential")("Priority")("Severity")
("Responsible"))
nil t)))