Mercurial > hg > xemacs-beta

view src/toolbar-xlike.h @ 5651:ae2fdb1fd9e0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Improve for-effect handling in a few places, lisp/ lisp/ChangeLog addition: 2012-05-01 Aidan Kehoe <kehoea@parhasard.net> * byte-optimize.el (byte-optimize-form-code-walker): * byte-optimize.el (byte-optimize-or): Improve handling of for-effect here; we don't need to worry about discarding multiple values when for-effect is non-nil, this applies to both #'prog1 and #'or. * bytecomp.el (progn): * bytecomp.el (byte-compile-file-form-progn): New. Put back this function, since it's for-effect there's no need to worry about passing back multiple values. * cl-macs.el (cl-pop2): * cl-macs.el (cl-do-pop): * cl-macs.el (remf): * cl.el (pop): Expand to (prog1 (car-safe PLACE) (setq PLACE (cdr PLACE))) in all these macros, since that optimizes better (especially for-effect handling) when byte-compile-delete-errors is nil.
author Aidan Kehoe <kehoea@parhasard.net>
date Tue, 01 May 2012 12:43:22 +0100
parents 2aa9cd456ae7
children
line wrap: on
line source

/* toolbar-xlike.h
**
** Description: 
**
** Created by: William M. Perry
** Copyright (c) 2001 Free Software Foundation
**
** 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/>. */

#ifndef __TOOLBAR_XLIKE_H__
#define __TOOLBAR_XLIKE_H__

extern void xlike_output_frame_toolbars (struct frame *f);
extern void xlike_redraw_exposed_toolbars (struct frame *f,
					    int x, int y,
					    int width, int height);
extern void xlike_redraw_frame_toolbars (struct frame *f);
extern void xlike_output_toolbar_button (struct frame *f, Lisp_Object button);
extern void xlike_clear_frame_toolbars (struct frame *f);

#endif /* __TOOLBAR_XLIKE_H__ */