[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 04/05: * packages/lex/lex.el: Use lexical-binding.
From: |
Stefan Monnier |
Subject: |
[elpa] 04/05: * packages/lex/lex.el: Use lexical-binding. |
Date: |
Wed, 15 Oct 2014 19:35:26 +0000 |
monnier pushed a commit to branch master
in repository elpa.
commit fb0c5d41fe2b44a141dbc729fce1e0c6031f6436
Author: Stefan Monnier <address@hidden>
Date: Wed Oct 15 15:33:21 2014 -0400
* packages/lex/lex.el: Use lexical-binding.
---
packages/lex/lex.el | 28 ++++++++++++++--------------
1 files changed, 14 insertions(+), 14 deletions(-)
diff --git a/packages/lex/lex.el b/packages/lex/lex.el
index b1c2693..bd84f58 100644
--- a/packages/lex/lex.el
+++ b/packages/lex/lex.el
@@ -1,6 +1,6 @@
-;;; lex.el --- Lexical analyser construction
+;;; lex.el --- Lexical analyser construction -*- lexical-binding:t -*-
-;; Copyright (C) 2008,2013 Free Software Foundation, Inc.
+;; Copyright (C) 2008,2013,2014 Free Software Foundation, Inc.
;; Author: Stefan Monnier <address@hidden>
;; Keywords:
@@ -964,7 +964,7 @@ Returns a new NFA."
(optimize-char-table (cdr lexer) 'eq)
;; Eliminate the table if possible.
(map-char-table
- (lambda (range v)
+ (lambda (range _v)
(setq char
(if (and (characterp range) (null char))
range t)))
@@ -1063,21 +1063,21 @@ Returns a new NFA."
;;; Matching engine
-(defun lex--match-bobp (arg pos &optional string)
+(defun lex--match-bobp (_arg pos &optional string)
(= pos (if string 0 (point-min))))
-(defun lex--match-eobp (arg pos &optional string)
+(defun lex--match-eobp (_arg pos &optional string)
(= pos (if string (length string) (point-max))))
-(defun lex--match-bolp (arg pos &optional string)
+(defun lex--match-bolp (_arg pos &optional string)
(if string (or (= pos 0) (eq ?\n (aref string (1- pos))))
(memq (char-before pos) '(nil ?\n))))
-(defun lex--match-eolp (arg pos &optional string)
+(defun lex--match-eolp (_arg pos &optional string)
(if string (or (= pos (length string)) (eq ?\n (aref string pos)))
(memq (char-after pos) '(nil ?\n))))
-(defun lex--match-bowp (arg pos &optional string)
+(defun lex--match-bowp (_arg pos &optional string)
(and (not (if string (and (> pos 0)
(eq ?w (char-syntax (aref string (1- pos)))))
(and (> pos (point-min)) (eq 2 (car (syntax-after (1- pos)))))))
@@ -1085,7 +1085,7 @@ Returns a new NFA."
(eq ?w (char-syntax (aref string pos))))
(eq 2 (car (syntax-after pos))))))
-(defun lex--match-eowp (arg pos &optional string)
+(defun lex--match-eowp (_arg pos &optional string)
(and (if string (and (> pos 0)
(eq ?w (char-syntax (aref string (1- pos)))))
(and (> pos (point-min)) (eq 2 (car (syntax-after (1- pos))))))
@@ -1093,7 +1093,7 @@ Returns a new NFA."
(eq ?w (char-syntax (aref string pos))))
(eq 2 (car (syntax-after pos)))))))
-(defun lex--match-bosp (arg pos &optional string)
+(defun lex--match-bosp (_arg pos &optional string)
(and (not (if string
(and (> pos 0)
(memq (char-syntax (aref string (1- pos))) '(?w ?_)))
@@ -1103,7 +1103,7 @@ Returns a new NFA."
(memq (char-syntax (aref string pos)) '(?w ?_)))
(memq (car (syntax-after pos)) '(2 3)))))
-(defun lex--match-eosp (arg pos &optional string)
+(defun lex--match-eosp (_arg pos &optional string)
(and (if string (and (> pos 0)
(memq (char-syntax (aref string (1- pos))) '(?w ?_)))
(and (> pos (point-min)) (memq (car (syntax-after (1- pos))) '(2 3))))
@@ -1111,7 +1111,7 @@ Returns a new NFA."
(memq (char-syntax (aref string pos)) '(?w ?_)))
(memq (car (syntax-after pos)) '(2 3))))))
-(defun lex--match-not-word-boundary (arg pos &optional string)
+(defun lex--match-not-word-boundary (_arg pos &optional string)
(eq (if string (and (> pos 0)
(eq ?w (char-syntax (aref string (1- pos)))))
(and (> pos (point-min)) (eq 2 (car (syntax-after (1- pos))))))
@@ -1119,12 +1119,12 @@ Returns a new NFA."
(eq ?w (char-syntax (aref string pos))))
(eq 2 (car (syntax-after pos))))))
-(defun lex--match-upper (arg pos &optional string)
+(defun lex--match-upper (_arg pos &optional string)
(when (< pos (if string (length string) (point-max)))
(let ((char (if string (aref string pos) (char-after pos))))
(not (eq (downcase char) char)))))
-(defun lex--match-lower (arg pos &optional string)
+(defun lex--match-lower (_arg pos &optional string)
(when (< pos (if string (length string) (point-max)))
(let ((char (if string (aref string pos) (char-after pos))))
(not (eq (upcase char) char)))))
- [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, 2014/10/15
- [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 <=