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

annotate lisp/hash-table.el @ 5619:75ad4969a16d

Replace the 'flush face property with the opposite 'shrink one. lisp/ChangeLog addition: 2011-12-26 Didier Verna <didier@xemacs.org> * cl-macs.el (face-flush-p): Removed. * cl-macs.el (face-shrink-p): New. * faces.el (face-flush-p): Removed. * faces.el (face-shrink-p): New. * faces.el (set-face-flush-p): Removed. * faces.el (set-face-shrink-p): New. * cus-face.el (custom-face-attributes): * faces.el (set-face-property): * faces.el (face-equal): * x-faces.el (x-init-face-from-resources): * x-faces.el (make-face-x-resource-internal): Replace the 'flush property with the opposite 'shrink one. src/ChangeLog addition: 2011-12-26 Didier Verna <didier@xemacs.org> * lisp.h: * faces.c (mark_face): * faces.c (face_equal): * faces.c (face_getprop): * faces.c (face_putprop): * faces.c (face_remprop): * faces.c (face_plist): * faces.c (reset_face): * faces.c (update_face_inheritance_mapper): * faces.c (Fmake_face): * faces.c (update_face_cachel_data): * faces.c (merge_face_cachel_data): * faces.c (Fcopy_face): * faces.c (syms_of_faces): * faces.c (vars_of_faces): * faces.c (complex_vars_of_faces): * faces.h (struct Lisp_Face): * faces.h (struct face_cachel): * faces.h (WINDOW_FACE_CACHEL_SHRINK_P): * faces.h (FACE_SHRINK_P): * fontcolor.c (face_boolean_validate): Replace the 'flush property with the opposite 'shrink one. * redisplay.c (create_text_block): * redisplay.c (create_string_text_block): Ditto. Invert the logic for storing a new clear_findex in the display lines.

author	Didier Verna <didier@xemacs.org>
date	Mon, 26 Dec 2011 15:04:25 +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 @ 5619:75ad4969a16d