diff options
Diffstat (limited to 'Master/texmf-dist/source/latex/base/latexbug.el')
-rw-r--r-- | Master/texmf-dist/source/latex/base/latexbug.el | 40 |
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))) |