xemacs-beta: lisp/hash-table.el annotate

annotate lisp/hash-table.el @ 5753:dbd8305e13cb

Warn about non-string non-integer ARG to #'gensym, bytecomp.el. lisp/ChangeLog addition: 2013-08-21 Aidan Kehoe <kehoea@parhasard.net> * bytecomp.el: * bytecomp.el (gensym): * bytecomp.el (byte-compile-gensym): New. Warn that gensym called in a for-effect context is unlikely to be useful. Warn about non-string non-integer ARGs, this is incorrect. Am not changing the function to error with same, most code that makes the mistake is has no problems, which is why it has survived so long. * window-xemacs.el (save-window-excursion/mapping): * window.el (save-window-excursion): Call #'gensym with a string, not a symbol.

author	Aidan Kehoe <kehoea@parhasard.net>
date	Wed, 21 Aug 2013 19:02:59 +0100
parents	308d34e9f07d
children

rev	line source
502 7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	1 ;;; hash-table.el --- hash-table utility functions
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	2
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	3 ;; Copyright (C) 2000 Ben Wing.
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	4
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	5 ;; Author: Ben Wing
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	6 ;; Maintainer: XEmacs Development Team
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	7 ;; Keywords: internal, dumped
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	8
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	9 ;; This file is part of XEmacs.
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	10
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5271 diff changeset	11 ;; XEmacs is free software: you can redistribute it and/or modify it
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5271 diff changeset	12 ;; under the terms of the GNU General Public License as published by the
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5271 diff changeset	13 ;; Free Software Foundation, either version 3 of the License, or (at your
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5271 diff changeset	14 ;; option) any later version.
502 7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	15
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5271 diff changeset	16 ;; XEmacs is distributed in the hope that it will be useful, but WITHOUT
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5271 diff changeset	17 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5271 diff changeset	18 ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5271 diff changeset	19 ;; for more details.
502 7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	20
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	21 ;; You should have received a copy of the GNU General Public License
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5271 diff changeset	22 ;; along with XEmacs. If not, see <http://www.gnu.org/licenses/>.
502 7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	23
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	24 ;;; Synched up with: Not in FSF.
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	25
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	26 ;;; Authorship:
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	27
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	28 ;; Created July 2000 by Ben Wing.
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	29
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	30 ;;; Commentary:
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	31
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	32 ;; This file is dumped with XEmacs.
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	33
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	34 ;;; Code:
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	35
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	36 (defun hash-table-key-list (hash-table)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	37 "Return a list of all keys in HASH-TABLE."
5271 2def0d83a5e3 Don't uselessly call #'nreverse, #'hash-table-key-list and friends. Aidan Kehoe <kehoea@parhasard.net> parents: 502 diff changeset	38 (let (list)
2def0d83a5e3 Don't uselessly call #'nreverse, #'hash-table-key-list and friends. Aidan Kehoe <kehoea@parhasard.net> parents: 502 diff changeset	39 (maphash #'(lambda (key value) (push key list)) hash-table)
2def0d83a5e3 Don't uselessly call #'nreverse, #'hash-table-key-list and friends. Aidan Kehoe <kehoea@parhasard.net> parents: 502 diff changeset	40 list))
502 7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	41
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	42 (defun hash-table-value-list (hash-table)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	43 "Return a list of all values in HASH-TABLE."
5271 2def0d83a5e3 Don't uselessly call #'nreverse, #'hash-table-key-list and friends. Aidan Kehoe <kehoea@parhasard.net> parents: 502 diff changeset	44 (let (list)
2def0d83a5e3 Don't uselessly call #'nreverse, #'hash-table-key-list and friends. Aidan Kehoe <kehoea@parhasard.net> parents: 502 diff changeset	45 (maphash #'(lambda (key value) (push value list)) hash-table)
2def0d83a5e3 Don't uselessly call #'nreverse, #'hash-table-key-list and friends. Aidan Kehoe <kehoea@parhasard.net> parents: 502 diff changeset	46 list))
502 7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	47
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	48 (defun hash-table-key-value-alist (hash-table)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	49 "Return an alist of (KEY . VALUE) for all keys and values in HASH-TABLE."
5271 2def0d83a5e3 Don't uselessly call #'nreverse, #'hash-table-key-list and friends. Aidan Kehoe <kehoea@parhasard.net> parents: 502 diff changeset	50 (let (list)
2def0d83a5e3 Don't uselessly call #'nreverse, #'hash-table-key-list and friends. Aidan Kehoe <kehoea@parhasard.net> parents: 502 diff changeset	51 (maphash #'(lambda (key value) (setq list (acons key value list)))
502 7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	52 hash-table)
5271 2def0d83a5e3 Don't uselessly call #'nreverse, #'hash-table-key-list and friends. Aidan Kehoe <kehoea@parhasard.net> parents: 502 diff changeset	53 list))
502 7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	54
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	55 (defun hash-table-key-value-plist (hash-table)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	56 "Return a plist for all keys and values in HASH-TABLE.
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	57 A plist is a simple list containing alternating keys and values."
5271 2def0d83a5e3 Don't uselessly call #'nreverse, #'hash-table-key-list and friends. Aidan Kehoe <kehoea@parhasard.net> parents: 502 diff changeset	58 (let (list)
2def0d83a5e3 Don't uselessly call #'nreverse, #'hash-table-key-list and friends. Aidan Kehoe <kehoea@parhasard.net> parents: 502 diff changeset	59 (maphash #'(lambda (key value) (setq list (list* key value list)))
502 7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: diff changeset	60 hash-table)
5271 2def0d83a5e3 Don't uselessly call #'nreverse, #'hash-table-key-list and friends. Aidan Kehoe <kehoea@parhasard.net> parents: 502 diff changeset	61 list))

Mercurial > hg > xemacs-beta

annotate lisp/hash-table.el @ 5753:dbd8305e13cb