Mercurial > hg > xemacs-beta

view src/keymap-buttons.h @ 5659:e63bb7b22c8f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add compiler macros for #'equal, #'member, ... where #'eq, #'memq appropriate. lisp/ChangeLog addition: 2012-05-07 Aidan Kehoe <kehoea@parhasard.net> * cl-macs.el: * cl-macs.el (cl-non-fixnum-number-p): Rename, to cl-non-immediate-number-p. This is a little more informative as a name, though still not ideal, in that it will give t for some immediate fixnums on 64-bit builds. * cl-macs.el (eql): * cl-macs.el (define-star-compiler-macros): * cl-macs.el (delq): * cl-macs.el (remq): Use the new name. * cl-macs.el (cl-equal-equivalent-to-eq-p): New. * cl-macs.el (cl-car-or-pi): New. * cl-macs.el (cl-cdr-or-pi): New. * cl-macs.el (equal): New compiler macro. * cl-macs.el (member): New compiler macro. * cl-macs.el (assoc): New compiler macro. * cl-macs.el (rassoc): New compiler macro. If any of #'equal, #'member, #'assoc or #'rassoc has a constant argument such that #'eq, #'memq, #'assq or #'rassq, respectively, are equivalent, make the substitution. Relevant in files like ispell.el, there's a reasonable amount of code out there that doesn't quite get the distinction.
author Aidan Kehoe <kehoea@parhasard.net>
date Mon, 07 May 2012 17:56:24 +0100
parents 308d34e9f07d
children
line wrap: on
line source

/* Include file for iterating over all buttons.
   Copyright (C) 1985, 1991-1995 Free Software Foundation, Inc.
   Copyright (C) 1995 Board of Trustees, University of Illinois.
   Copyright (C) 1995 Sun Microsystems, Inc.
   Copyright (C) 2001, 2002, 2010 Ben Wing.

This file is part of XEmacs.

XEmacs 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.

XEmacs 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 XEmacs.  If not, see <http://www.gnu.org/licenses/>. */

/* Synched up with: Not in FSF.  Split out of keymap.c. */

/* To use this, define FROB to do something with the button number.  No
   need to undefine, it happens automatically at the end of this file.  If
   you want button 0 included, define INCLUDE_BUTTON_ZERO (also undefined
   automatically). */

#ifdef INCLUDE_BUTTON_ZERO
FROB(0)
#endif
FROB(1)
FROB(2)
FROB(3)
FROB(4)
FROB(5)
FROB(6)
FROB(7)
FROB(8)
FROB(9)
FROB(10)
FROB(11)
FROB(12)
FROB(13)
FROB(14)
FROB(15)
FROB(16)
FROB(17)
FROB(18)
FROB(19)
FROB(20)
FROB(21)
FROB(22)
FROB(23)
FROB(24)
FROB(25)
FROB(26)

#undef FROB
#undef INCLUDE_BUTTON_ZERO