-;;; lmc.el --- Little Man Computer in Elisp
+;;; lmc.el --- Little Man Computer in Elisp -*- lexical-binding:t -*-
;; Copyright (C) 2011, 2013, 2014 Free Software Foundation, Inc.
(let ((word (car word))
(label (nth 1 word))
(code (nth 2 word)))
- (let ((basepos (point))
- (base (current-column)))
+ (let () ;; ((basepos (point)) (base (current-column)))
(if (and label (symbolp label))
(insert (symbol-name label)))
;; (when (>= (current-column) (+ base tab-width))
(2 (lmc-font-lock-label)))
(".$" (0 (lmc-font-lock-opcode)))))
-(defun lmc-after-change (beg end len)
+(defun lmc-after-change (beg end _len)
(unless inhibit-read-only
(save-excursion
;; Replace any TAB or NL inserted, which could interfere with parsing.
(defun lmc-tool-bar-to-string (&optional map)
(let ((res ""))
(map-keymap
- (lambda (k v)
+ (lambda (_k v)
(when (eq (car v) 'menu-item)
(let* ((label (nth 1 v))
(cmd (nth 2 v))