From e95a67dc75c3d41c428d6e215426f321b5a2f9e5 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 26 Apr 2012 08:43:28 -0400 Subject: Replace lexical-let by lexical-binding (except Gnus, CEDET, ERT). * lisp/term/ns-win.el (ns-define-service): * lisp/progmodes/pascal.el (pascal-goto-defun): * lisp/progmodes/js.el (js--read-tab): * lisp/progmodes/etags.el (tags-lazy-completion-table): * lisp/emacs-lisp/syntax.el (syntax-propertize-via-font-lock): * lisp/emacs-lisp/ewoc.el (ewoc--wrap): * lisp/emacs-lisp/assoc.el (aput, adelete, amake): * lisp/doc-view.el (doc-view-convert-current-doc): * lisp/url/url.el (url-retrieve-synchronously): * lisp/vc/diff.el (diff-no-select): Replace lexical-let by lexical-binding. --- lisp/url/url.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lisp/url/url.el') diff --git a/lisp/url/url.el b/lisp/url/url.el index f3ef553bbc..7884882c6e 100644 --- a/lisp/url/url.el +++ b/lisp/url/url.el @@ -1,4 +1,4 @@ -;;; url.el --- Uniform Resource Locator retrieval tool +;;; url.el --- Uniform Resource Locator retrieval tool -*- lexical-binding: t -*- ;; Copyright (C) 1996-1999, 2001, 2004-2012 Free Software Foundation, Inc. @@ -225,8 +225,8 @@ associated with it (the case for dired, info, or mailto URLs that need no further processing). URL is either a string or a parsed URL." (url-do-setup) - (lexical-let ((retrieval-done nil) - (asynch-buffer nil)) + (let ((retrieval-done nil) + (asynch-buffer nil)) (setq asynch-buffer (url-retrieve url (lambda (&rest ignored) (url-debug 'retrieval "Synchronous fetching done (%S)" (current-buffer)) -- cgit v1.2.3