X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/c828ee6d19b57256e1fa2321dc830fe5a6cf8af1..da45e6864dabc213961d8c5727a99556d831a145:/packages/muse/cgi.el

diff --git a/packages/muse/cgi.el b/packages/muse/cgi.el
index 936b33f4d..0e85a52e7 100644
--- a/packages/muse/cgi.el
+++ b/packages/muse/cgi.el
@@ -1,6 +1,6 @@
 ;;; cgi.el -- Using Emacs for CGI scripting
 
-;; Copyright (C) 2000, 2006, 2012 Free Software Foundation, Inc.
+;; Copyright (C) 2000, 2006, 2012, 2014 Free Software Foundation, Inc.
 
 ;; Author: Eric Marsden  <emarsden@laas.fr>
 ;;         Michael Olson <mwolson@gnu.org> (slight modifications)
@@ -120,11 +120,12 @@
 ;; Substrings are plus-decoded and then URI-decoded.
 (defun cgi-decode (q)
   (when q
-    (flet ((split-= (str)
-	    (let ((pos (or (cgi-position ?= str) 0)))
-	      (cons (cgi-decode-string (substring str 0 pos))
-		    (cgi-decode-string (substring str (+ pos 1)))))))
-      (mapcar #'split-= (split-string q "&")))))
+    (let ((split-=
+           (lambda (str)
+             (let ((pos (or (cgi-position ?= str) 0)))
+               (cons (cgi-decode-string (substring str 0 pos))
+                     (cgi-decode-string (substring str (+ pos 1))))))))
+      (mapcar split-= (split-string q "&")))))
 
 (defun cgi-lose (fmt &rest args)
   (let ((why (apply #'format fmt args)))