Source-Changes-HG archive
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index][Old Index]
[src/trunk]: src/external/gpl2/send-pr/dist/send-pr Do not use old-style back...
details: https://anonhg.NetBSD.org/src/rev/81e8b61df017
branches: trunk
changeset: 951479:81e8b61df017
user: ryoon <ryoon%NetBSD.org@localhost>
date: Wed Feb 03 15:42:53 2021 +0000
description:
Do not use old-style backquotes and other old-style expressions.
Fix PR misc/55918.
Tested with pkgsrc/editors/emacs26 and emacs27.
diffstat:
external/gpl2/send-pr/dist/send-pr/send-pr-el.in | 20 ++++++++++----------
1 files changed, 10 insertions(+), 10 deletions(-)
diffs (45 lines):
diff -r adc70308ebfb -r 81e8b61df017 external/gpl2/send-pr/dist/send-pr/send-pr-el.in
--- a/external/gpl2/send-pr/dist/send-pr/send-pr-el.in Wed Feb 03 15:13:49 2021 +0000
+++ b/external/gpl2/send-pr/dist/send-pr/send-pr-el.in Wed Feb 03 15:42:53 2021 +0000
@@ -151,23 +151,23 @@
;;; during runtime instead of having them here in the code.
;;;
(defconst send-pr::fields
- (` (("Category" send-pr::set-categories
- (, (or (gnats::get-config "DEFAULT_CATEGORY") nil)) enum)
+ `(("Category" send-pr::set-categories
+ ,(or (gnats::get-config "DEFAULT_CATEGORY") nil) enum)
("Class" (("sw-bug") ("doc-bug") ("change-request") ("support"))
- (, (or (gnats::get-config "DEFAULT_CLASS") 0)) enum)
+ ,(or (gnats::get-config "DEFAULT_CLASS") 0) enum)
("Confidential" (("yes") ("no"))
- (, (or (gnats::get-config "DEFAULT_CONFIDENTIAL") 1)) enum)
+ ,(or (gnats::get-config "DEFAULT_CONFIDENTIAL") 1) enum)
("Severity" (("non-critical") ("serious") ("critical"))
- (, (or (gnats::get-config "DEFAULT_SEVERITY") 1)) enum)
+ ,(or (gnats::get-config "DEFAULT_SEVERITY") 1) enum)
("Priority" (("low") ("medium") ("high"))
- (, (or (gnats::get-config "DEFAULT_PRIORITY") 1)) enum)
+ ,(or (gnats::get-config "DEFAULT_PRIORITY") 1) enum)
("Release" nil
- (, (or (gnats::get-config "DEFAULT_RELEASE") "xDEFAULT_RELEASEx"))
+ ,(or (gnats::get-config "DEFAULT_RELEASE") "`uname -s` `uname -r`")
text)
("Submitter-Id" nil
- (, (or (gnats::get-config "SUBMITTER") "xSUBMITTERx")) text)
+ ,(or (gnats::get-config "SUBMITTER") "net") text)
("Synopsis" nil nil text
- (lambda (a b c) (gnats::set-mail-field "Subject" c)))))
+ (lambda (a b c) (gnats::set-mail-field "Subject" c))))
"AList, keyed on the name of the field, of:
1) The field name.
2) The list of completions. This can be a list, a function to call, or nil.
@@ -178,7 +178,7 @@
(defvar gnats::fields nil)
(defmacro gnats::push (i l)
- (` (setq (, l) (cons (,@ (list i l))))))
+ `(setq ,l (cons ,@ (list i l))))
(defun send-pr::set-categories (&optional arg)
"Get the list of categories for the current site out of
Home |
Main Index |
Thread Index |
Old Index