Module Name: src Committed By: ryoon Date: Wed Feb 3 15:42:53 UTC 2021
Modified Files: src/external/gpl2/send-pr/dist/send-pr: send-pr-el.in Log Message: Do not use old-style backquotes and other old-style expressions. Fix PR misc/55918. Tested with pkgsrc/editors/emacs26 and emacs27. To generate a diff of this commit: cvs rdiff -u -r1.2 -r1.3 src/external/gpl2/send-pr/dist/send-pr/send-pr-el.in Please note that diffs are not public domain; they are subject to the copyright notices on the relevant files.
Modified files: Index: src/external/gpl2/send-pr/dist/send-pr/send-pr-el.in diff -u src/external/gpl2/send-pr/dist/send-pr/send-pr-el.in:1.2 src/external/gpl2/send-pr/dist/send-pr/send-pr-el.in:1.3 --- src/external/gpl2/send-pr/dist/send-pr/send-pr-el.in:1.2 Thu Jan 14 21:13:20 2016 +++ src/external/gpl2/send-pr/dist/send-pr/send-pr-el.in Wed Feb 3 15:42:53 2021 @@ -151,23 +151,23 @@ at runtime.") ;;; 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 @@ at runtime.") (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