aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorSimen Heggestøyl2020-05-18 17:54:05 +0200
committerSimen Heggestøyl2020-05-18 17:58:01 +0200
commitb2e2128745a00e06cb714bb3f47829f036a9caf9 (patch)
tree5d38f1af82ea4542f42752f2722c019efad1290d /lisp
parentb1fe27d77db8f819641231ca46725f3eed0b4d9b (diff)
downloademacs-b2e2128745a00e06cb714bb3f47829f036a9caf9.tar.gz
emacs-b2e2128745a00e06cb714bb3f47829f036a9caf9.zip
Use lexical-binding in webjump.el and add tests
* lisp/net/webjump.el: Use lexical-binding. (webjump-read-url-choice): Remove redundant 'function' around lambda. * test/lisp/net/webjump-tests.el: New file with tests for webjump.el.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/net/webjump.el5
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/net/webjump.el b/lisp/net/webjump.el
index 6edd03c39cc..8bb156199c5 100644
--- a/lisp/net/webjump.el
+++ b/lisp/net/webjump.el
@@ -1,4 +1,4 @@
1;;; webjump.el --- programmable Web hotlist 1;;; webjump.el --- programmable Web hotlist -*- lexical-binding: t; -*-
2 2
3;; Copyright (C) 1996-1997, 2001-2020 Free Software Foundation, Inc. 3;; Copyright (C) 1996-1997, 2001-2020 Free Software Foundation, Inc.
4 4
@@ -323,8 +323,7 @@ Please submit bug reports and other feedback to the author, Neil W. Van Dyke
323 323
324(defun webjump-read-url-choice (what urls &optional default) 324(defun webjump-read-url-choice (what urls &optional default)
325 ;; Note: Convert this to use `webjump-read-choice' someday. 325 ;; Note: Convert this to use `webjump-read-choice' someday.
326 (let* ((completions (mapcar (function (lambda (n) (cons n n))) 326 (let* ((completions (mapcar (lambda (n) (cons n n)) urls))
327 urls))
328 (input (completing-read (concat what 327 (input (completing-read (concat what
329 ;;(if default " (RET for default)" "") 328 ;;(if default " (RET for default)" "")
330 ": ") 329 ": ")