diff options
| author | Simen Heggestøyl | 2020-05-18 17:54:05 +0200 |
|---|---|---|
| committer | Simen Heggestøyl | 2020-05-18 17:58:01 +0200 |
| commit | b2e2128745a00e06cb714bb3f47829f036a9caf9 (patch) | |
| tree | 5d38f1af82ea4542f42752f2722c019efad1290d /lisp | |
| parent | b1fe27d77db8f819641231ca46725f3eed0b4d9b (diff) | |
| download | emacs-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.el | 5 |
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 | ": ") |