]> code.delx.au - gnu-emacs-elpa/commitdiff
* packages/jgraph-mode/jgraph-mode.el: Use lexical-binding.
authorStefan Monnier <monnier@iro.umontreal.ca>
Wed, 15 Oct 2014 20:41:58 +0000 (16:41 -0400)
committerStefan Monnier <monnier@iro.umontreal.ca>
Wed, 15 Oct 2014 20:41:58 +0000 (16:41 -0400)
(jgraph-extract-commands): Avoid add-to-list on local var.

packages/jgraph-mode/jgraph-mode.el

index 8f211aa822d7710a76a1805ce60b8ec438fadc91..a56449e766d9ed4f94807a50580d3e4252ad6c98 100644 (file)
@@ -1,9 +1,10 @@
-;;; jgraph-mode.el --- Major mode for Jgraph files
+;;; jgraph-mode.el --- Major mode for Jgraph files  -*- lexical-binding:t -*-
 
-;; Copyright (C) 2006, 2011-2012  Free Software Foundation, Inc
+;; Copyright (C) 2006, 2011-2012, 2014  Free Software Foundation, Inc
 
 ;; Author: Stefan Monnier <monnier@iro.umontreal.ca>
 ;; Version: 1.0
+;; Package-Requires: ((cl-lib "0.5"))
 ;; Keywords: tex, wp
 
 ;; This file is part of GNU Emacs.
@@ -28,6 +29,8 @@
 
 ;;; Code:
 
+(eval-when-compile (require 'cl-lib))
+
 (defgroup jgraph-mode ()
   "Major mode for Jgraph files."
   :group 'tools)
@@ -81,8 +84,8 @@
         (setq section (intern section))
         (while (re-search-forward "^\\.TP\n\\(?:\\.B \\|\\\\fB\\)\\([^ :\t\n\\]+\\)\\([ {\\fI]*token\\)?" end 'move)
           (let ((cmd (match-string-no-properties 1)))
-            (if (match-end 2) (add-to-list 'tok-cmds cmd))
-            (add-to-list 'commands cmd)))
+            (if (match-end 2) (cl-pushnew cmd tok-cmds :test #'equal))
+            (cl-pushnew cmd commands :test #'equal)))
         (setq commands (nreverse commands))
         (let ((sec (assoc section sections)))
           (if sec (nconc sec commands)