From: Stefan Monnier Date: Mon, 4 Nov 2013 19:25:09 +0000 (-0500) Subject: * lisp/emacs-lisp/helpers.el: Move from helpers.el. Use lexical-binding. X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~984 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1d01ad41c9dd58b6dd4f7cc63c0abab9558a649b;p=emacs.git * lisp/emacs-lisp/helpers.el: Move from helpers.el. Use lexical-binding. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f6f3a276afe..d3760e4c626 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2013-11-04 Stefan Monnier + * 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 diff --git a/lisp/emacs-lisp/helpers.el b/lisp/emacs-lisp/helpers.el new file mode 100644 index 00000000000..73c2ff1c15c --- /dev/null +++ b/lisp/emacs-lisp/helpers.el @@ -0,0 +1,42 @@ +;;; helpers.el --- Some non-essential library extensions -*- lexical-binding:t -*- + +;; Copyright (C) 2013 Free Software Foundation, Inc. + +;; Maintainer: FSF +;; Keywords: convenience +;; Package: emacs + +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software: you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs. If not, see . + +;;; Commentary: + +;;; Code: + +(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) + 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) + values)) + +(provide 'helpers) + +;;; helpers.el ends here diff --git a/lisp/helpers.el b/lisp/helpers.el deleted file mode 100644 index 51361043eb2..00000000000 --- a/lisp/helpers.el +++ /dev/null @@ -1,42 +0,0 @@ -;;; helpers.el --- Some non-essential library extensions - -;; Copyright (C) 2013 Free Software Foundation, Inc. - -;; Maintainer: FSF -;; Keywords: convenience -;; Package: emacs - -;; This file is part of GNU Emacs. - -;; GNU Emacs is free software: you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation, either version 3 of the License, or -;; (at your option) any later version. - -;; GNU Emacs is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs. If not, see . - -;;; Commentary: - -;;; Code: - -(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) - 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) - values)) - -(provide 'helpers) - -;;; helpers.el ends here