From 1aa984dec7c2531361edd38332a81ab1ee402d21 Mon Sep 17 00:00:00 2001 From: Syohei YOSHIDA Date: Sat, 21 Nov 2015 11:25:56 +0900 Subject: [PATCH] Remove needless quote for byte-compile warning --- xmlgen.el | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/xmlgen.el b/xmlgen.el index fe99a15..5d3879f 100644 --- a/xmlgen.el +++ b/xmlgen.el @@ -107,9 +107,9 @@ elements content.") "Escape STRING for inclusion in some XML." (when (stringp string) (mapc - '(lambda (e) - (setq string - (replace-regexp-in-string (car e) (cdr e) string))) + (lambda (e) + (setq string + (replace-regexp-in-string (car e) (cdr e) string))) xmlgen-escapees)) string) @@ -139,15 +139,15 @@ the plist and the plist." (plist '()) (last-keyword nil)) (mapc - '(lambda (item) + (lambda (item) (let ((item (pop list))) (cond - (last-keyword - (setq plist (append plist (list last-keyword))) - (setq plist (append plist (list item))) - (setq last-keyword nil)) - ((keywordp item) (setq last-keyword item)) - (t (setq nlist (append nlist (list item))))))) + (last-keyword + (setq plist (append plist (list last-keyword))) + (setq plist (append plist (list item))) + (setq last-keyword nil)) + ((keywordp item) (setq last-keyword item)) + (t (setq nlist (append nlist (list item))))))) list) (when last-keyword (error "No value to satisfy keyword '%s'"