[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 01/05: * packages/lmc/lmc.el (lmc--load-word): Remove unused vars
From: |
Stefan Monnier |
Subject: |
[elpa] 01/05: * packages/lmc/lmc.el (lmc--load-word): Remove unused vars. (lmc-after-change, lmc-tool-bar-to-string): Mark unused args. |
Date: |
Wed, 15 Oct 2014 19:35:25 +0000 |
monnier pushed a commit to branch master
in repository elpa.
commit 95d5f7c342edb2281690a3516aa95a7ed8c1ef5a
Author: Stefan Monnier <address@hidden>
Date: Wed Oct 15 15:26:58 2014 -0400
* packages/lmc/lmc.el (lmc--load-word): Remove unused vars.
(lmc-after-change, lmc-tool-bar-to-string): Mark unused args.
---
packages/lmc/lmc.el | 9 ++++-----
1 files changed, 4 insertions(+), 5 deletions(-)
diff --git a/packages/lmc/lmc.el b/packages/lmc/lmc.el
index db059d0..b8c8ee0 100644
--- a/packages/lmc/lmc.el
+++ b/packages/lmc/lmc.el
@@ -1,4 +1,4 @@
-;;; 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.
@@ -208,8 +208,7 @@ Also, when nil, evaluation is interrupted when the user
hits a key.")
(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))
@@ -350,7 +349,7 @@ Also, when nil, evaluation is interrupted when the user
hits a key.")
(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.
@@ -420,7 +419,7 @@ Also, when nil, evaluation is interrupted when the user
hits a key.")
(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))
- [elpa] branch master updated (c9d8a70 -> 25c579d), Stefan Monnier, 2014/10/15
- [elpa] 01/05: * packages/lmc/lmc.el (lmc--load-word): Remove unused vars. (lmc-after-change, lmc-tool-bar-to-string): Mark unused args.,
Stefan Monnier <=
- [elpa] 03/05: * packages/wcheck-mode/wcheck-mode.el (wcheck--program-executable-p): Use executable-find. (wcheck--language-data-valid-p): Use memq and give better diagnostics., Stefan Monnier, 2014/10/15
- [elpa] 05/05: * packages/debbugs/debbugs-org.el: Miscellanous cleanups. (debbugs-org-search): Remove unused var `date-format'. (debbugs-org-show-reports): Avoid add-to-list on local var. * packages/debbugs/debbugs.el (debbugs-get-usertag, debbugs-search-est): Avoid add-to-list on local var., Stefan Monnier, 2014/10/15
- [elpa] 02/05: * packages/sml-mode/sml-mode.el (sml-smie-grammar): Add "withtype". (sml-smie-rules): Use pcase. (sml-smie-non-nested-of-p): Rewrite to avoid regexp and stay closer to point., Stefan Monnier, 2014/10/15
- [elpa] 04/05: * packages/lex/lex.el: Use lexical-binding., Stefan Monnier, 2014/10/15