Package: psgml
Version: 1.3.2-13
Severity: minor
Tags: patch
Loading psgml emacs-snapshot complains with a warning:
old-style backquotes detected!
This functionality has been obsolete for more than 10 years already
and will be removed at some time. See (elisp)Backquote in the manual.
I suppose it's a good idea to upgrade the code to remove that warning, and
I'd expect attached patch to do the work (mostly untested).
Regards,
--
Agustin
>From 0691279189ea4b962ed734f961dd267fb6a980ea Mon Sep 17 00:00:00 2001
From: Agustin Martin Domingo <agmar...@debian.org>
Date: Wed, 18 Apr 2012 19:55:05 +0200
Subject: [PATCH 2/2] psgml.el: Do not use obsolete old-style backquotes.
---
psgml.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/psgml.el b/psgml.el
index 7d41ba2..a02a4bd 100644
--- a/psgml.el
+++ b/psgml.el
@@ -728,9 +728,9 @@ as that may change."
(defun sgml-markup (entry text)
(cons entry
- (` (lambda ()
- (interactive)
- (sgml-insert-markup (, text))))))
+ `(lambda ()
+ (interactive)
+ (sgml-insert-markup (, text)))))
(defun sgml-insert-markup (text)
(let ((end (sgml-mouse-region))
@@ -1046,13 +1046,13 @@ as that may change."
(defun sgml-compute-insert-dtd-items ()
(loop for e in sgml-custom-dtd collect
(vector (first e)
- (` (sgml-doctype-insert (, (cadr e)) '(, (cddr e))))
+ `(sgml-doctype-insert (, (cadr e)) '(, (cddr e)))
t)))
(defun sgml-compute-custom-markup-items ()
(loop for e in sgml-custom-markup collect
(vector (first e)
- (` (sgml-insert-markup (, (cadr e))))
+ `(sgml-insert-markup (, (cadr e)))
t)))
(defun sgml-build-custom-menus ()
--
1.7.10
