* lisp/tutorial.el: Use lexical-binding.
This commit is contained in:
parent
f27a9a341f
commit
e9e691093a
1 changed files with 4 additions and 8 deletions
|
@ -1,4 +1,4 @@
|
|||
;;; tutorial.el --- tutorial for Emacs
|
||||
;;; tutorial.el --- tutorial for Emacs -*- lexical-binding: t -*-
|
||||
|
||||
;; Copyright (C) 2006-2021 Free Software Foundation, Inc.
|
||||
|
||||
|
@ -25,10 +25,6 @@
|
|||
|
||||
;; Code for running the Emacs tutorial.
|
||||
|
||||
;;; History:
|
||||
|
||||
;; File was created 2006-09.
|
||||
|
||||
;;; Code:
|
||||
|
||||
(require 'help-mode) ;; for function help-buffer
|
||||
|
@ -517,8 +513,8 @@ where
|
|||
(list "more info" 'current-binding
|
||||
key-fun def-fun key where))
|
||||
nil))
|
||||
(add-to-list 'changed-keys
|
||||
(list key def-fun def-fun-txt where remark nil))))))
|
||||
(push (list key def-fun def-fun-txt where remark nil)
|
||||
changed-keys)))))
|
||||
changed-keys))
|
||||
|
||||
(defun tutorial--key-description (key)
|
||||
|
@ -768,7 +764,7 @@ Run the Viper tutorial? "))
|
|||
(if (fboundp 'viper-tutorial)
|
||||
(if (y-or-n-p (concat prompt1 prompt2))
|
||||
(progn (message "")
|
||||
(funcall 'viper-tutorial 0))
|
||||
(funcall #'viper-tutorial 0))
|
||||
(message "Tutorial aborted by user"))
|
||||
(message prompt1)))
|
||||
(let* ((lang (cond
|
||||
|
|
Loading…
Add table
Reference in a new issue