emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] trunk r114947: * lisp/emacs-lisp/helpers.el: Move from hel


From: Stefan Monnier
Subject: [Emacs-diffs] trunk r114947: * lisp/emacs-lisp/helpers.el: Move from helpers.el. Use lexical-binding.
Date: Mon, 04 Nov 2013 19:25:20 +0000
User-agent: Bazaar (2.6b2)

------------------------------------------------------------
revno: 114947
revision-id: address@hidden
parent: address@hidden
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Mon 2013-11-04 14:25:09 -0500
message:
  * lisp/emacs-lisp/helpers.el: Move from helpers.el.  Use lexical-binding.
renamed:
  lisp/helpers.el => lisp/emacs-lisp/helpers.el 
helpers.el-20131104130751-8dd4wji5crsqfatf-1
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/emacs-lisp/helpers.el     helpers.el-20131104130751-8dd4wji5crsqfatf-1
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-11-04 19:14:58 +0000
+++ b/lisp/ChangeLog    2013-11-04 19:25:09 +0000
@@ -1,5 +1,7 @@
 2013-11-04  Stefan Monnier  <address@hidden>
 
+       * emacs-lisp/helpers.el: Move from helpers.el.  Use lexical-binding.
+
        * progmodes/python.el: Fix up last change.
        (python-shell--save-temp-file): New function.
        (python-shell-send-string): Use it.  Remove `msg' arg.  Don't assume

=== renamed file 'lisp/helpers.el' => 'lisp/emacs-lisp/helpers.el'
--- a/lisp/helpers.el   2013-11-04 15:34:42 +0000
+++ b/lisp/emacs-lisp/helpers.el        2013-11-04 19:25:09 +0000
@@ -1,4 +1,4 @@
-;;; helpers.el --- Some non-essential library extensions
+;;; helpers.el --- Some non-essential library extensions  -*- 
lexical-binding:t -*-
 
 ;; Copyright (C) 2013 Free Software Foundation, Inc.
 
@@ -28,13 +28,13 @@
 (defsubst hash-table-keys (hash-table)
   "Return a list of keys in HASH-TABLE."
   (let ((keys '()))
-    (maphash (lambda (k v) (push k keys)) hash-table)
+    (maphash (lambda (k _v) (push k keys)) hash-table)
     keys))
 
 (defsubst hash-table-values (hash-table)
   "Return a list of values in HASH-TABLE."
   (let ((values '()))
-    (maphash (lambda (k v) (push v values)) hash-table)
+    (maphash (lambda (_k v) (push v values)) hash-table)
     values))
 
 (provide 'helpers)


reply via email to

[Prev in Thread] Current Thread [Next in Thread]