[nongnu] elpa/tablist c834a84 42/60: Cosmetic changes to tablist

[Philip Kaludercic]

branch: elpa/tablist
commit c834a84efb6efa32497efe1e73160fade741b836
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Andreas Politz <politza@hochschule-trier.de>

    Cosmetic changes to tablist
---
 .gitignore        |  2 ++
 tablist-filter.el | 11 ++++++-----
 tablist.el        |  4 +++-
 3 files changed, 11 insertions(+), 6 deletions(-)

diff --git a/.gitignore b/.gitignore
index b74540f..cf37763 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1,3 +1,5 @@
+*-autoloads.el
+*-pkg.el
 *.elc
 .dir-locals.el
 .cask
diff --git a/tablist-filter.el b/tablist-filter.el
index d8b0eca..0ea7e2c 100644
--- a/tablist-filter.el
+++ b/tablist-filter.el
@@ -1,4 +1,4 @@
-;;; tablist-filter.el --- Filter expressions for tablists.
+;;; tablist-filter.el --- Filter expressions for tablists.  -*- 
lexical-binding:t -*-
 
 ;; Copyright (C) 2013, 2014  Andreas Politz
 
@@ -22,7 +22,8 @@
 
 ;;
 
-(let (python-mode-hook)
+(defvar python-mode-hook)
+(let (python-mode-hook)                 ;FIXME: Why?
 (require 'semantic/wisent/comp)
 (require 'semantic/wisent/wisent))
 
@@ -268,12 +269,12 @@
         (car item)
       item)))
 
-(defun tablist-filter-op-equal (id entry op1 op2)
+(defun tablist-filter-op-equal (_id entry op1 op2)
   "COLUMN == STRING : Matches if COLUMN's entry is equal to STRING."
   (let ((item (tablist-filter-get-item-by-name entry op1)))
     (string= item op2)))
 
-(defun tablist-filter-op-regexp (id entry op1 op2)
+(defun tablist-filter-op-regexp (_id entry op1 op2)
   "COLUMN =~ REGEXP : Matches if COLUMN's entry matches REGEXP."
   (let ((item (tablist-filter-get-item-by-name entry op1)))
     (string-match op2 item)))
@@ -298,7 +299,7 @@
   "COLUMN = NUMBER : Matches if COLUMN's entry as a number is equal to NUMBER."
   (tablist-filter-op-numeric '= id entry op1 op2))
 
-(defun tablist-filter-op-numeric (op id entry op1 op2)
+(defun tablist-filter-op-numeric (op _id entry op1 op2)
   (let ((item (tablist-filter-get-item-by-name entry op1)))
     (funcall op (string-to-number item)
              (string-to-number op2))))
diff --git a/tablist.el b/tablist.el
index c3acb1a..1fbfb31 100644
--- a/tablist.el
+++ b/tablist.el
@@ -30,6 +30,8 @@
 ;; using tablist-minor-mode inside a tabulated-list-mode buffer.
 ;;
 
+;;; Code:
+
 (require 'cl-lib)
 (require 'ring)
 (require 'tabulated-list)
@@ -537,7 +539,7 @@ OLD and NEW are both characters used to mark files."
          (pcase new
            (?D
             (tablist-flag-forward 1))
-           (t
+           (_
             (let ((tablist-marker-char new)
                   (tablist-marked-face
                    (and default-mark-p