Mercurial > hg > xemacs-beta
annotate lisp/site-load.el @ 5090:0ca81354c4c7
Further frame-geometry cleanups
-------------------- ChangeLog entries follow: --------------------
man/ChangeLog addition:
2010-03-03 Ben Wing <ben@xemacs.org>
* internals/internals.texi (Intro to Window and Frame Geometry):
* internals/internals.texi (The Paned Area):
* internals/internals.texi (The Displayable Area):
Update to make note of e.g. the fact that the bottom gutter is
actually above the minibuffer.
src/ChangeLog addition:
2010-03-03 Ben Wing <ben@xemacs.org>
* emacs.c:
* emacs.c (assert_equal_failed):
* lisp.h:
* lisp.h (assert_equal):
New fun assert_equal, asserting that two values == each other, and
printing out both values upon failure.
* frame-gtk.c (gtk_initialize_frame_size):
* frame-impl.h:
* frame-impl.h (FRAME_TOP_INTERNAL_BORDER_START):
* frame-impl.h (FRAME_BOTTOM_INTERNAL_BORDER_START):
* frame-impl.h (FRAME_LEFT_INTERNAL_BORDER_START):
* frame-impl.h (FRAME_PANED_TOP_EDGE):
* frame-impl.h (FRAME_NONPANED_SIZE):
* frame-x.c (x_initialize_frame_size):
* frame.c:
* gutter.c (get_gutter_coords):
* gutter.c (calculate_gutter_size):
* gutter.h:
* gutter.h (WINDOW_REAL_TOP_GUTTER_BOUNDS):
* gutter.h (FRAME_TOP_GUTTER_BOUNDS):
* input-method-xlib.c:
* input-method-xlib.c (XIM_SetGeometry):
* redisplay-output.c (clear_left_border):
* redisplay-output.c (clear_right_border):
* redisplay-output.c (redisplay_output_pixmap):
* redisplay-output.c (redisplay_clear_region):
* redisplay-output.c (redisplay_clear_top_of_window):
* redisplay-output.c (redisplay_clear_to_window_end):
* redisplay-xlike-inc.c (XLIKE_clear_frame):
* redisplay.c:
* redisplay.c (UPDATE_CACHE_RETURN):
* redisplay.c (pixel_to_glyph_translation):
* toolbar.c (update_frame_toolbars_geometry):
* window.c (Fwindow_pixel_edges):
Get rid of some redundant macros. Consistently use the
FRAME_TOP_*_START, FRAME_RIGHT_*_END, etc. format. Rename
FRAME_*_BORDER_* to FRAME_*_INTERNAL_BORDER_*. Comment out
FRAME_BOTTOM_* for gutters and the paned area due to the
uncertainty over where the paned area actually begins. (Eventually
we should probably move the gutters outside the minibuffer so that
the paned area is contiguous.) Use FRAME_PANED_* more often in the
code to make things clearer.
Update the diagram to show that the bottom gutter is inside the
minibuffer (!) and that there are "junk boxes" when you have left
and/or right gutters (dead boxes that are mistakenly left uncleared,
unlike the corresponding scrollbar dead boxes). Update the text
appropriately to cover the bottom gutter position, etc.
Rewrite gutter-geometry code to use the FRAME_*_GUTTER_* in place of
equivalent expressions referencing other frame elements, to make the
code more portable in case we move around the gutter location.
Cleanup FRAME_*_GUTTER_BOUNDS() in gutter.h.
Add some #### GEOM! comments where I think code is incorrect --
typically, it wasn't fixed up properly when the gutter was added.
Some cosmetic changes.
| author | Ben Wing <ben@xemacs.org> |
|---|---|
| date | Wed, 03 Mar 2010 05:07:47 -0600 |
| parents | 3ecd8885ac67 |
| children | e6508b64ee08 91b3aa59f49b |
| rev | line source |
|---|---|
| 428 | 1 ;;; site-load.el --- Template file for site-wide XEmacs customization |
| 2 ;; Copyright (C) 1997 Free Software Foundation, Inc. | |
| 3 | |
| 4 ;; Author: Steven L. Baur <steve@xemacs.org> | |
| 5 ;; Keywords: internal | |
| 6 | |
| 7 ;; This file is part of XEmacs. | |
| 8 | |
| 9 ;;; Commentary: | |
| 10 | |
| 11 ;; This is a prototype site-load.el file. | |
| 12 ;; The site-load.el mechanism is provided so XEmacs installers can easily | |
| 13 ;; dump lisp packages with XEmacs that do not get dumped standardly. | |
| 14 | |
| 15 ;; The file `site-packages' if it exists should look something like: | |
| 16 ;; (setq site-load-packages '( | |
| 17 ;; "../lisp/modes/cc-mode.elc" | |
| 18 ;; "../lisp/utils/redo.elc" | |
| 19 ;; "../lisp/packages/scroll-in-place.elc" | |
| 20 ;; ) | |
| 21 ;; ) | |
| 22 | |
| 23 ;; The first line and the last line must be exact. Each of the packages | |
| 24 ;; listed must be double quoted, have either an absolute path, or a relative | |
| 25 ;; to the build src directory path *and* be bytecompiled prior to the attempt | |
| 26 ;; to dump. They also must explicitly have the .elc extension. | |
| 27 | |
| 28 ;; Because this is a trial implementation and the file is shared with | |
| 29 ;; make-docfiles, syntax is strict and unforgiving. So sue me. It | |
| 30 ;; is still better than the way it used to be. | |
| 31 | |
| 32 ;; Also note that site-packages belongs in the top level directory not the | |
| 33 ;; lisp directory for use with --srcdir configurations. | |
| 34 | |
| 35 ;;; Code: | |
| 36 (defvar site-load-package-file "../site-packages" | |
| 37 "File name containing the list of extra packages to dump with XEmacs.") | |
| 38 (defvar site-load-packages nil | |
| 39 "A list of .elc files that should be dumped with XEmacs. | |
| 40 This variable should be set by `site-load-package-file'.") | |
| 41 | |
| 42 ;; Load site specific packages for dumping with the XEmacs binary. | |
| 43 (when (file-exists-p site-load-package-file) | |
| 44 (let ((file)) | |
| 45 (load site-load-package-file t t t) | |
| 46 ;; The `pureload' macro is provided as a clue that a package is | |
| 47 ;; being loaded in preparation of being dumped into XEmacs. | |
| 48 (defmacro pureload (file) | |
| 49 (list 'prog1 (list 'load file) '(garbage-collect))) | |
| 50 (message "Loading site-wide packages for dumping...") | |
| 51 (while site-load-packages | |
| 52 (setq file (car site-load-packages)) | |
| 53 (pureload file) | |
| 54 (setq site-load-packages (cdr site-load-packages))) | |
| 55 (message "Loading site-wide packages for dumping...done") | |
| 56 (fmakunbound 'pureload))) | |
| 57 | |
| 58 ;; This file is intended for end user additions. | |
| 59 ;; Put other initialization here, like setting of language-environment, etc. | |
| 60 ;; Perhaps this should really be in the site-init.el. | |
| 61 | |
| 62 ;;; site-load.el ends here |