From: Stefan Kangas <stefan@marxist.se>
Date: Sun, 21 Mar 2021 01:26:37 +0000 (+0100)
Subject: * lisp/tutorial.el: Use lexical-binding.
X-Git-Tag: emacs-28.0.90~3188
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e9e691093ab843911b0ac7a9a9188d477415db2e;p=emacs.git

* lisp/tutorial.el: Use lexical-binding.
---

diff --git a/lisp/tutorial.el b/lisp/tutorial.el
index 57e5570d537..186bf35fe7e 100644
--- a/lisp/tutorial.el
+++ b/lisp/tutorial.el
@@ -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