mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 10:31:37 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/emacs-lisp/helpers.el: Move from helpers.el. Use lexical-binding.

Browse source
This commit is contained in:
Stefan Monnier 2013-11-04 14:25:09 -05:00
parent e5afbcacfa
commit 1d01ad41c9
2 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -1,5 +1,7 @@
2013-11-04 Stefan Monnier <monnier@iro.umontreal.ca> 2013-11-04 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/helpers.el: Move from helpers.el. Use lexical-binding.
* progmodes/python.el: Fix up last change. * progmodes/python.el: Fix up last change.
(python-shell--save-temp-file): New function. (python-shell--save-temp-file): New function.
(python-shell-send-string): Use it. Remove `msg' arg. Don't assume (python-shell-send-string): Use it. Remove `msg' arg. Don't assume

6
lisp/helpers.el → lisp/emacs-lisp/helpers.el
View file

@ -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. ;; Copyright (C) 2013 Free Software Foundation, Inc.
@ -28,13 +28,13 @@
(defsubst hash-table-keys (hash-table) (defsubst hash-table-keys (hash-table)
"Return a list of keys in HASH-TABLE." "Return a list of keys in HASH-TABLE."
(let ((keys '())) (let ((keys '()))
(maphash (lambda (k v) (push k keys)) hash-table) (maphash (lambda (k _v) (push k keys)) hash-table)
keys)) keys))
(defsubst hash-table-values (hash-table) (defsubst hash-table-values (hash-table)
"Return a list of values in HASH-TABLE." "Return a list of values in HASH-TABLE."
(let ((values '())) (let ((values '()))
(maphash (lambda (k v) (push v values)) hash-table) (maphash (lambda (_k v) (push v values)) hash-table)
values)) values))
(provide 'helpers) (provide 'helpers)