andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/url/url-history.el: Use lexical-binding

Browse source 
(url-completion-function): Mark as obsolete.
Mark unused args accordingly.
This commit is contained in:
Stefan Monnier 2017-06-28 10:44:18 -04:00
parent d3a208ea8e
commit 3b19663b44
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/url/url-history.el
View file

@ -1,4 +1,4 @@
;;; url-history.el --- Global history tracking for URL package
;;; url-history.el --- Global history tracking for URL package -*- lexical-binding:t -*-
;; Copyright (C) 1996-1999, 2004-2017 Free Software Foundation, Inc.
@ -157,6 +157,7 @@ user for what type to save as."
(gethash url url-history-hash-table nil))
(defun url-completion-function (string predicate function)
(declare (obsolete url-history-hash-table "26.1"))
;; Completion function to complete urls from the history.
;; This is obsolete since we can now pass the hash-table directly as a
;; completion table.
@ -164,7 +165,7 @@ user for what type to save as."
(cond
((eq function nil)
(let ((list nil))
(maphash (lambda (key val) (push key list))
(maphash (lambda (key _) (push key list))
url-history-hash-table)
;; Not sure why we bother reversing the list. --Stef
(try-completion string (nreverse list) predicate)))
@ -172,7 +173,7 @@ user for what type to save as."
(let ((stub (concat "\\`" (regexp-quote string)))
(retval nil))
(maphash
(lambda (url time)
(lambda (url _)
(if (string-match stub url) (push url retval)))
url-history-hash-table)
retval))