annotate lisp/menubar-items.el @ 844:047d37eb70d7

[xemacs-hg @ 2002-05-16 13:30:23 by ben] ui fixes for things that were bothering me bytecode.c, editfns.c, lisp.h, lread.c: Fix save-restriction to use markers rather than pseudo-markers (integers representing the amount of text on either side of the region). That way, all inserts are handled correctly, not just those inside old restriction. Add buffer argument to save_restriction_save(). process.c: Clean up very dirty and kludgy code that outputs into a buffer -- use proper unwind protects, etc. font-lock.c: Do save-restriction/widen around the function -- otherwise, incorrect results will ensue when a buffer has been narrowed before a call to e.g. `buffer-syntactic-context' -- something that happens quite often. fileio.c: Look for a handler for make-temp-name. window.c, winslots.h: Try to solve this annoying problem: have two frames displaying the buffer, in different places; in one, temporarily switch away to another buffer and then back -- and you've lost your position; it's reset to the other one in the other frame. My current solution involves window-level caches of buffers and points (also a cache for window-start); when set-window-buffer is called, it looks to see if the buffer was previously visited in the window, and if so, uses the most recent point at that time. (It's a marker, so it handles changes.) #### Note: It could be argued that doing it on the frame level would be better -- e.g. if you visit a buffer temporarily through a grep, and then go back to that buffer, you presumably want the grep's position rather than some previous position provided everything was in the same frame, even though the grep was in another window in the frame. However, doing it on the frame level fails when you have two windows on the same frame. Perhaps we keep both a window and a frame cache, and use the frame cache if there are no other windows on the frame showing the buffer, else the window's cache? This is probably something to be configurable using a specifier. Suggestions please please please? window.c: Clean up a bit code that deals with the annoyance of window-point vs. point. dialog.el: Function to ask a multiple-choice question, automatically choosing a dialog box or minibuffer representation as necessary. Generalized version of yes-or-no-p, y-or-n-p. files.el: Use get-user-response to ask "yes/no/diff" question when recovering. "diff" means that a diff is displayed between the current file and the autosave. (Converts/deconverts escape-quoted as necessary. No more complaints from you, Mr. Turnbull!) One known problem: when a dialog is used, it's modal, so you can't scroll the diff. Will fix soon. lisp-mode.el: If we're filling a string, don't treat semicolon as a comment, which would give very unfriendly results. Uses `buffer-syntactic-context'. simple.el: all changes back to the beginning. (Useful if you've saved the file in the middle of the changes.) simple.el: Add option kill-word-into-kill-ring, which controls whether words deleted with kill-word, backward-kill-word, etc. are "cut" into the kill ring, or "cleared" into nothingness. (My preference is the latter, by far. I'd almost go so far as suggesting we make it the default, as you can always select a word and then cut it if you want it cut.) menubar-items.el: Add option corresponding to kill-word-into-kill-ring.
author ben
date Thu, 16 May 2002 13:30:58 +0000
parents bf645ed7cfe3
children e7ee5f8bde58
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1 ;;; menubar-items.el --- Menubar and popup-menu content for XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3 ;; Copyright (C) 1991-1995, 1997-1998 Free Software Foundation, Inc.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4 ;; Copyright (C) 1995 Tinker Systems and INS Engineering Corp.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5 ;; Copyright (C) 1995 Sun Microsystems.
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
6 ;; Copyright (C) 1995, 1996, 2000, 2001, 2002 Ben Wing.
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
7 ;; Copyright (C) 1997 MORIOKA Tomohiko.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
8
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
9 ;; Maintainer: XEmacs Development Team
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
10 ;; Keywords: frames, extensions, internal, dumped
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
11
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
12 ;; This file is part of XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
13
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
14 ;; XEmacs is free software; you can redistribute it and/or modify it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
15 ;; under the terms of the GNU General Public License as published by
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
16 ;; the Free Software Foundation; either version 2, or (at your option)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
17 ;; any later version.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
18
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
19 ;; XEmacs is distributed in the hope that it will be useful, but
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
20 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
22 ;; General Public License for more details.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
23
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
24 ;; You should have received a copy of the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
25 ;; along with Xmacs; see the file COPYING. If not, write to the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
26 ;; Free Software Foundation, 59 Temple Place - Suite 330,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
27 ;; Boston, MA 02111-1307, USA.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
28
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
29 ;;; Authorship:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
30
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
31 ;; Created c. 1991 for Lucid Emacs. Originally called x-menubar.el.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
32 ;; Contained four menus -- File, Edit, Buffers, Help.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
33 ;; Dynamic menu changes possible only through activate-menubar-hook.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
34 ;; Also contained menu manipulation funs, e.g. find-menu-item, add-menu.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
35 ;; Options menu added for 19.9 by Jamie Zawinski, late 1993.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
36 ;; Major reorganization c. 1994 by Ben Wing; added many items and moved
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
37 ;; some items to two new menus, Apps and Tools. (for 19.10?)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
38 ;; Generic menubar functions moved to new file, menubar.el, by Ben Wing,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
39 ;; 1995, for 19.12; also, creation of current buffers menu options,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
40 ;; and buffers menu changed from purely most-recent to sorted alphabetical,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
41 ;; by mode. Also added mode-popup-menu support.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
42 ;; New API (add-submenu, add-menu-button) and menu filter support added
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
43 ;; late summer 1995 by Stig, for 19.13. Also popup-menubar-menu.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
44 ;; Renamed to menubar-items.el c. 1998, with MS Win support.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
45 ;; Options menu rewritten to use custom c. 1999 by ? (Jan Vroonhof?).
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
46 ;; Major reorganization Mar. 2000 by Ben Wing; added many items and changed
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
47 ;; top-level menus to File, Edit, View, Cmds, Tools, Options, Buffers.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
48 ;; Accelerator spec functionality added Mar. 2000 by Ben Wing.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
49
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
50 ;;; Commentary:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
51
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
52 ;; This file is dumped with XEmacs (when window system and menubar support is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
53 ;; compiled in).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
54
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
55 ;;; Code:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
56
679
6b890cfde2b1 [xemacs-hg @ 2001-11-29 18:39:21 by adrian]
adrian
parents: 644
diff changeset
57 (defun Menubar-items-truncate-history (list count label-length)
6b890cfde2b1 [xemacs-hg @ 2001-11-29 18:39:21 by adrian]
adrian
parents: 644
diff changeset
58 "Truncate a history LIST to first COUNT items.
6b890cfde2b1 [xemacs-hg @ 2001-11-29 18:39:21 by adrian]
adrian
parents: 644
diff changeset
59 Return a list of (label value) lists with labels truncated to last
6b890cfde2b1 [xemacs-hg @ 2001-11-29 18:39:21 by adrian]
adrian
parents: 644
diff changeset
60 LABEL-LENGTH characters of value."
464
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents: 462
diff changeset
61 (mapcar #'(lambda (x)
679
6b890cfde2b1 [xemacs-hg @ 2001-11-29 18:39:21 by adrian]
adrian
parents: 644
diff changeset
62 (if (<= (length x) label-length)
6b890cfde2b1 [xemacs-hg @ 2001-11-29 18:39:21 by adrian]
adrian
parents: 644
diff changeset
63 (list x x)
6b890cfde2b1 [xemacs-hg @ 2001-11-29 18:39:21 by adrian]
adrian
parents: 644
diff changeset
64 (list
6b890cfde2b1 [xemacs-hg @ 2001-11-29 18:39:21 by adrian]
adrian
parents: 644
diff changeset
65 (concat "..." (substring x (- label-length))) x)))
6b890cfde2b1 [xemacs-hg @ 2001-11-29 18:39:21 by adrian]
adrian
parents: 644
diff changeset
66 (if (<= (length list) count)
464
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents: 462
diff changeset
67 list
679
6b890cfde2b1 [xemacs-hg @ 2001-11-29 18:39:21 by adrian]
adrian
parents: 644
diff changeset
68 (butlast list (- (length list) count)))))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
69
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
70 (defun submenu-generate-accelerator-spec (list &optional omit-chars-list)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
71 "Add auto-generated accelerator specifications to a submenu.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
72 This can be used to add accelerators to the return value of a menu filter
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
73 function. It correctly ignores unselectable items. It will destructively
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
74 modify the list passed to it. If an item already has an auto-generated
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
75 accelerator spec, this will be removed before the new one is added, making
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
76 this function idempotent.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
77
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
78 If OMIT-CHARS-LIST is given, it should be a list of lowercase characters,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
79 which will not be used as accelerators."
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
80 (let ((n 0))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
81 (dolist (item list list)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
82 (cond
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
83 ((vectorp item)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
84 (setq n (1+ n))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
85 (aset item 0
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
86 (concat
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
87 (menu-item-generate-accelerator-spec n omit-chars-list)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
88 (menu-item-strip-accelerator-spec (aref item 0)))))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
89 ((consp item)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
90 (setq n (1+ n))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
91 (setcar item
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
92 (concat
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
93 (menu-item-generate-accelerator-spec n omit-chars-list)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
94 (menu-item-strip-accelerator-spec (car item)))))))))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
95
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
96 (defun menu-item-strip-accelerator-spec (item)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
97 "Strip an auto-generated accelerator spec off of ITEM.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
98 ITEM should be a string. This removes specs added by
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
99 `menu-item-generate-accelerator-spec' and `submenu-generate-accelerator-spec'."
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
100 (if (string-match "%_. " item)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
101 (substring item 4)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
102 item))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
103
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
104 (defun menu-item-generate-accelerator-spec (n &optional omit-chars-list)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
105 "Return an accelerator specification for use with auto-generated menus.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
106 This should be concat'd onto the beginning of each menu line. The spec
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
107 allows the Nth line to be selected by the number N. '0' is used for the
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
108 10th line, and 'a' through 'z' are used for the following 26 lines.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
109
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
110 If OMIT-CHARS-LIST is given, it should be a list of lowercase characters,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
111 which will not be used as accelerators."
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
112 (cond ((< n 10) (concat "%_" (int-to-string n) " "))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
113 ((= n 10) "%_0 ")
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
114 ((<= n 36)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
115 (setq n (- n 10))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
116 (let ((m 0))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
117 (while (> n 0)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
118 (setq m (1+ m))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
119 (while (memq (int-to-char (+ m (- (char-to-int ?a) 1)))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
120 omit-chars-list)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
121 (setq m (1+ m)))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
122 (setq n (1- n)))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
123 (if (<= m 26)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
124 (concat
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
125 "%_"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
126 (char-to-string (int-to-char (+ m (- (char-to-int ?a) 1))))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
127 " ")
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
128 "")))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
129 (t "")))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
130
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
131 (defcustom menu-max-items 25
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
132 "*Maximum number of items in generated menus.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
133 If number of entries in such a menu is larger than this value, split menu
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
134 into submenus of nearly equal length (see `menu-submenu-max-items'). If
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
135 nil, never split menu into submenus."
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
136 :group 'menu
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
137 :type '(choice (const :tag "no submenus" nil)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
138 (integer)))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
139
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
140 (defcustom menu-submenu-max-items 20
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
141 "*Maximum number of items in submenus when splitting menus.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
142 We split large menus into submenus of this many items, and then balance
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
143 them out as much as possible (otherwise the last submenu may have very few
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
144 items)."
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
145 :group 'menu
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
146 :type 'integer)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
147
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
148 (defcustom menu-submenu-name-format "%-12.12s ... %.12s"
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
149 "*Format specification of the submenu name when splitting menus.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
150 Used by `menu-split-long-menu' if the number of entries in a menu is
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
151 larger than `menu-menu-max-items'.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
152 This string should contain one %s for the name of the first entry and
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
153 one %s for the name of the last entry in the submenu.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
154 If the value is a function, it should return the submenu name. The
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
155 function is be called with two arguments, the names of the first and
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
156 the last entry in the menu."
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
157 :group 'menu
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
158 :type '(choice (string :tag "Format string")
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
159 (function)))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
160
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
161 (defun menu-split-long-menu (menu)
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
162 "Split MENU according to `menu-max-items' and add accelerator specs.
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
163
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
164 You should normally use the idiom
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
165
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
166 \(menu-split-long-menu (menu-sort-menu menu))
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
167
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
168 See also `menu-sort-menu'."
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
169 (let ((len (length menu)))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
170 (if (or (null menu-max-items)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
171 (<= len menu-max-items))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
172 (submenu-generate-accelerator-spec menu)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
173 (let* ((outer (/ (+ len (1- menu-submenu-max-items))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
174 menu-submenu-max-items))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
175 (inner (/ (+ len (1- outer)) outer))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
176 (result nil))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
177 (while menu
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
178 (let ((sub nil)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
179 (from (car menu)))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
180 (dotimes (foo (min inner len))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
181 (setq sub (cons (car menu) sub)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
182 menu (cdr menu)))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
183 (setq len (- len inner))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
184 (let ((to (car sub)))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
185 (setq sub (nreverse sub))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
186 (setq result
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
187 (cons (cons (if (stringp menu-submenu-name-format)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
188 (format menu-submenu-name-format
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
189 (menu-item-strip-accelerator-spec
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
190 (aref from 0))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
191 (menu-item-strip-accelerator-spec
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
192 (aref to 0)))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
193 (funcall menu-submenu-name-format
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
194 (menu-item-strip-accelerator-spec
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
195 (aref from 0))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
196 (menu-item-strip-accelerator-spec
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
197 (aref to 0))))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
198 (submenu-generate-accelerator-spec sub))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
199 result)))))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
200 (submenu-generate-accelerator-spec (nreverse result))))))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
201
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
202 (defun menu-sort-menu (menu)
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
203 "Sort MENU alphabetically.
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
204
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
205 You should normally use the idiom
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
206
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
207 \(menu-split-long-menu (menu-sort-menu menu))
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
208
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
209 See also `menu-split-long-menu'."
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
210 (sort menu
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
211 #'(lambda (a b) (string-lessp (aref a 0) (aref b 0)))))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
212
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
213 (defun coding-system-menu-filter (fun active &optional dots)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
214 "Filter for menu entries with a submenu listing all coding systems.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
215 This is for operations that take a coding system as an argument. FUN
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
216 should be a function of one argument, which will be a coding system symbol.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
217 ACTIVE should be a function one argument (again, a coding system symbol),
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
218 indicating whether the entry is active. If DOTS is given, the menu entries
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
219 will have three dots appended.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
220
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
221 Write your filter like this:
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
222
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
223 :filter
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
224 (lambda (menu)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
225 (lambda (entry) ...)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
226 (lambda (entry) ...))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
227 "
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
228 (menu-split-long-menu
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
229 (menu-sort-menu
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
230 (mapcar
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
231 #'(lambda (_csmf_entry)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
232 `[ ,(concat (coding-system-description _csmf_entry)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
233 (if dots "..." ""))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
234 (funcall ,fun ',_csmf_entry)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
235 :active (funcall ,active ',_csmf_entry)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
236 ])
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
237 (delete-if
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
238 #'(lambda (name)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
239 (or (coding-system-alias-p name)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
240 (not (eq name (coding-system-name
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
241 (coding-system-base name))))))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
242 (coding-system-list))))))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
243
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
244 (defconst default-menubar
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
245 ; (purecopy-menubar ;purespace is dead
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
246 ;; note backquote.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
247 `(
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
248 ("%_File"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
249 ["%_Open..." find-file]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
250 ["Open in Other %_Window..." find-file-other-window]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
251 ["Open in New %_Frame..." find-file-other-frame]
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
252 ("Open with Specified %_Encoding"
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
253 :filter
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
254 (lambda (menu)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
255 (coding-system-menu-filter
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
256 (lambda (entry)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
257 (let ((coding-system-for-read entry))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
258 (call-interactively 'find-file)))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
259 (lambda (entry) t)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
260 t))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
261 )
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
262 ["%_Hex Edit File..." hexl-find-file
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
263 :active (fboundp 'hexl-find-file)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
264 ["%_Insert File..." insert-file]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
265 ["%_View File..." view-file]
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
266 "------"
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
267 ["%_New Frame" make-frame]
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
268 ["Frame on Other %_Display..." make-frame-on-display
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
269 :active (fboundp 'make-frame-on-display)]
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
270 ["%_Close Frame" delete-frame
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
271 :active (not (eq (next-frame (selected-frame) 'nomini 'window-system)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
272 (selected-frame)))]
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
273 "-----"
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
274 ["%_Save" save-buffer
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
275 :active (buffer-modified-p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
276 :suffix (if put-buffer-names-in-file-menu (buffer-name) "")]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
277 ["Save %_As..." write-file]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
278 ["Save So%_me Buffers" save-some-buffers]
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
279 "-----"
506
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben]
ben
parents: 502
diff changeset
280 ,@(if (eq system-type 'windows-nt)
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben]
ben
parents: 502
diff changeset
281 '(["Page Set%_up..." generic-page-setup]))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
282 ["%_Print" generic-print-buffer
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
283 :active (or (valid-specifier-tag-p 'msprinter)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
284 (and (not (eq system-type 'windows-nt))
506
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben]
ben
parents: 502
diff changeset
285 (fboundp 'lpr-region)))
510
5bdbc721d46a [xemacs-hg @ 2001-05-06 08:33:35 by ben]
ben
parents: 506
diff changeset
286 :suffix (if (region-active-p) "Selection..."
5bdbc721d46a [xemacs-hg @ 2001-05-06 08:33:35 by ben]
ben
parents: 506
diff changeset
287 (if put-buffer-names-in-file-menu (concat (buffer-name) "...")
5bdbc721d46a [xemacs-hg @ 2001-05-06 08:33:35 by ben]
ben
parents: 506
diff changeset
288 "..."))]
506
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben]
ben
parents: 502
diff changeset
289 ,@(unless (eq system-type 'windows-nt)
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben]
ben
parents: 502
diff changeset
290 '(["Prett%_y-Print" ps-print-buffer-with-faces
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben]
ben
parents: 502
diff changeset
291 :active (fboundp 'ps-print-buffer-with-faces)
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben]
ben
parents: 502
diff changeset
292 :suffix (if put-buffer-names-in-file-menu (buffer-name) "")]))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
293 "-----"
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
294 ["%_Revert Buffer" revert-buffer
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
295 :active (or buffer-file-name revert-buffer-function)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
296 :suffix (if put-buffer-names-in-file-menu (buffer-name) "")]
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
297 ("Rever%_t/Recover"
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
298 ("Revert Buffer with Specified %_Encoding"
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
299 :filter
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
300 (lambda (menu)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
301 (coding-system-menu-filter
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
302 (lambda (entry)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
303 (let ((coding-system-for-read entry))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
304 (revert-buffer)))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
305 (lambda (entry) (or buffer-file-name revert-buffer-function))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
306 t))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
307 )
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
308 ["Re%_cover Buffer from Autosave" (recover-file buffer-file-name)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
309 :active buffer-file-name
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
310 :suffix (if put-buffer-names-in-file-menu (buffer-name) "")]
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
311 ["Recover %_Session..." recover-session]
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
312 )
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
313 "-----"
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
314 ["E%_xit XEmacs" save-buffers-kill-emacs]
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
315 )
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
316
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
317 ("%_Edit"
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
318 ["%_Undo" undo
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
319 :active (and (not (eq buffer-undo-list t))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
320 (or buffer-undo-list pending-undo-list))
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
321 :suffix (if (eq last-command 'undo) "More" "")]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
322 ["%_Redo" redo
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
323 :included (fboundp 'redo)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
324 :active (not (or (eq buffer-undo-list t)
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
325 (eq last-buffer-undo-list nil)
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
326 (not (or (eq last-buffer-undo-list buffer-undo-list)
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
327 (and (null (car-safe buffer-undo-list))
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
328 (eq last-buffer-undo-list
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
329 (cdr-safe buffer-undo-list)))))
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
330 (or (eq buffer-undo-list pending-undo-list)
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
331 (eq (cdr buffer-undo-list) pending-undo-list))))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
332 :suffix (if (eq last-command 'redo) "More" "")]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
333 "----"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
334 ["Cu%_t" kill-primary-selection
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
335 :active (selection-owner-p)]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
336 ["%_Copy" copy-primary-selection
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
337 :active (selection-owner-p)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
338 ["%_Paste" yank-clipboard-selection
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
339 :active (selection-exists-p 'CLIPBOARD)]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
340 ["%_Delete" delete-primary-selection
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
341 :active (selection-owner-p)]
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
342 "----"
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
343 ["Select %_All" mark-whole-buffer]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
344 ["Select Pa%_ge" mark-page]
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
345 ["Select Paragrap%_h" mark-paragraph]
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
346 ["Re%_select Region" activate-region :active (mark t)]
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
347 "----"
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
348 ["%_Find..." make-search-dialog]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
349 ["R%_eplace..." query-replace]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
350 ["Replace (Rege%_xp)..." query-replace-regexp]
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
351 ["List %_Matching Lines..." list-matching-lines]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
352 )
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
353
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
354 ("%_View"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
355 ["%_Split Window" split-window-vertically]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
356 ["S%_plit Window (Side by Side)" split-window-horizontally]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
357 ["%_Un-Split (Keep This)" delete-other-windows
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
358 :active (not (one-window-p t))]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
359 ["Un-Split (Keep %_Others)" delete-window
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
360 :active (not (one-window-p t))]
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
361 ["Balance %_Windows" balance-windows
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
362 :active (not (one-window-p t))]
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
363 ["Shrink Window to %_Fit" shrink-window-if-larger-than-buffer]
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
364 "----"
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
365 ("N%_arrow"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
366 ["%_Narrow to Region" narrow-to-region :active (region-exists-p)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
367 ["Narrow to %_Page" narrow-to-page]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
368 ["Narrow to %_Defun" narrow-to-defun]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
369 "----"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
370 ["%_Widen" widen :active (or (/= (point-min) 1)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
371 (/= (point-max) (1+ (buffer-size))))]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
372 )
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
373 "----"
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
374 ["%_Goto Line..." goto-line]
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
375 ["Beginning of %_Defun" beginning-of-defun]
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
376 ["%_End of Defun" end-of-defun]
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
377 ["%_Count Lines in Buffer" count-lines-buffer
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
378 :included (not (region-active-p))]
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
379 ["%_Count Lines in Region" count-lines-region
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
380 :included (region-active-p)]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
381 "----"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
382 ["%_Jump to Previous Mark" (set-mark-command t)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
383 :active (mark t)]
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
384 ["Se%_t Bookmark" bookmark-set
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
385 :active (fboundp 'bookmark-set)]
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
386 ("%_Bookmarks"
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
387 :filter
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
388 (lambda (menu)
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
389 (let ((alist (and-boundp 'bookmark-alist
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
390 bookmark-alist)))
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
391 (if (not alist)
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
392 menu
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
393 (let ((items
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
394 (submenu-generate-accelerator-spec
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
395 (mapcar #'(lambda (bmk)
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
396 `[,bmk (bookmark-jump ',bmk)])
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
397 (bookmark-all-names)))))
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
398 (append menu '("---") items)))))
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
399 "---"
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
400 ["Insert %_Contents" bookmark-menu-insert
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
401 :active (fboundp 'bookmark-menu-insert)]
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
402 ["Insert L%_ocation" bookmark-menu-locate
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
403 :active (fboundp 'bookmark-menu-locate)]
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
404 "---"
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
405 ["%_Rename Bookmark" bookmark-menu-rename
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
406 :active (fboundp 'bookmark-menu-rename)]
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
407 ("%_Delete Bookmark"
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
408 :filter (lambda (menu)
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
409 (submenu-generate-accelerator-spec
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
410 (mapcar #'(lambda (bmk)
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
411 `[,bmk (bookmark-delete ',bmk)])
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
412 (bookmark-all-names)))))
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
413 ["%_Edit Bookmark List" bookmark-bmenu-list
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
414 :active (and-boundp 'bookmark-alist bookmark-alist)]
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
415 "---"
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
416 ["%_Save Bookmarks" bookmark-save
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
417 :active (and-boundp 'bookmark-alist bookmark-alist)]
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
418 ["Save Bookmarks %_As..." bookmark-write
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
419 :active (and-boundp 'bookmark-alist bookmark-alist)]
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
420 ["%_Load a Bookmark File" bookmark-load
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
421 :active (fboundp 'bookmark-load)]
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
422 )
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
423 )
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
424
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
425
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
426 ("C%_mds"
838
bf645ed7cfe3 [xemacs-hg @ 2002-05-14 09:28:06 by ben]
ben
parents: 824
diff changeset
427 ["Repeat Last Comple%_x Command..." repeat-complex-command]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
428 ["E%_valuate Lisp Expression..." eval-expression]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
429 ["Execute %_Named Command..." execute-extended-command]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
430 "----"
814
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
431 ["Start %_Defining Macro" start-kbd-macro
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
432 :included (not defining-kbd-macro)]
814
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
433 ["Stop %_Defining Macro" end-kbd-macro
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
434 :included defining-kbd-macro]
838
bf645ed7cfe3 [xemacs-hg @ 2002-05-14 09:28:06 by ben]
ben
parents: 824
diff changeset
435 ["%_Execute Last Macro" call-last-kbd-macro
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
436 :active last-kbd-macro]
814
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
437 ("Other %_Macro"
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
438 ["Edit %_Last Macro" edit-last-kbd-macro
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
439 :active last-kbd-macro]
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
440 ["%_Edit Macro..." edit-kbd-macro]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
441 ["%_Append to Last Macro" (start-kbd-macro t)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
442 :active (and (not defining-kbd-macro) last-kbd-macro)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
443 "---"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
444 ["%_Name Last Macro..." name-last-kbd-macro
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
445 :active last-kbd-macro]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
446 ["Assign Last Macro to %_Key..." assign-last-kbd-macro-to-key
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
447 :active (and last-kbd-macro
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
448 (fboundp 'assign-last-kbd-macro-to-key))]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
449 "---"
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
450 ["E%_xecute Last Macro on Region Lines"
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
451 :active (and last-kbd-macro (region-exists-p))]
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
452 "---"
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
453 ["%_Query User During Macro" kbd-macro-query
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
454 :active defining-kbd-macro]
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
455 ["Enter %_Recursive Edit During Macro" (kbd-macro-query t)
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
456 :active defining-kbd-macro]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
457 "---"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
458 ["%_Insert Named Macro into Buffer..." insert-kbd-macro]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
459 ["Read Macro from Re%_gion" read-kbd-macro
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
460 :active (region-exists-p)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
461 )
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
462 "----"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
463 ["D%_ynamic Abbrev Expand" dabbrev-expand]
814
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
464 ["Define %_Global Abbrev for " add-global-abbrev
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
465 :suffix (truncate-string-with-continuation-dots
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
466 (abbrev-string-to-be-defined nil)
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
467 40)]
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
468 ("Other %_Abbrev"
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
469 ["Dynamic Abbrev %_Complete" dabbrev-completion]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
470 ["Dynamic Abbrev Complete in %_All Buffers" (dabbrev-completion 16)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
471 "----"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
472 "----"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
473 ["%_Define Global Abbrev for " add-global-abbrev
814
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
474 :suffix (truncate-string-with-continuation-dots
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
475 (abbrev-string-to-be-defined nil)
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
476 40)]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
477 ["Define %_Mode-Specific Abbrev for " add-mode-abbrev
814
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
478 :suffix (truncate-string-with-continuation-dots
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
479 (abbrev-string-to-be-defined nil)
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
480 40)]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
481 ["Define Global Ex%_pansion for " inverse-add-global-abbrev
814
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
482 :suffix (truncate-string-with-continuation-dots
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
483 (inverse-abbrev-string-to-be-defined 1)
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
484 40)]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
485 ["Define Mode-Specific Expa%_nsion for " inverse-add-mode-abbrev
814
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
486 :suffix (truncate-string-with-continuation-dots
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
487 (inverse-abbrev-string-to-be-defined 1)
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
488 40)]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
489 "---"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
490 ["E%_xpand Abbrev" expand-abbrev]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
491 ["Expand Abbrevs in Re%_gion" expand-region-abbrevs
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
492 :active (region-exists-p)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
493 ["%_Unexpand Last Abbrev" unexpand-abbrev
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
494 :active (and (stringp last-abbrev-text)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
495 (> last-abbrev-location 0))]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
496 "---"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
497 ["%_Kill All Abbrevs" kill-all-abbrevs]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
498 ["%_Insert All Abbrevs into Buffer" insert-abbrevs]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
499 ["%_List Abbrevs" list-abbrevs]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
500 "---"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
501 ["%_Edit Abbrevs" edit-abbrevs]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
502 ["%_Redefine Abbrevs from Buffer" edit-abbrevs-redefine
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
503 :active (eq major-mode 'edit-abbrevs-mode)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
504 "---"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
505 ["%_Save Abbrevs As..." write-abbrev-file]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
506 ["L%_oad Abbrevs..." read-abbrev-file]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
507 )
814
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
508 "---"
838
bf645ed7cfe3 [xemacs-hg @ 2002-05-14 09:28:06 by ben]
ben
parents: 824
diff changeset
509 ["%_Cut Rectangle" kill-rectangle]
814
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
510 ("Other %_Rectangles/Register"
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
511 ["%_Yank Rectangle" yank-rectangle]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
512 ["Rectangle %_to Register" copy-rectangle-to-register]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
513 ["Rectangle %_from Register" insert-register]
838
bf645ed7cfe3 [xemacs-hg @ 2002-05-14 09:28:06 by ben]
ben
parents: 824
diff changeset
514 ["%_Delete Rectangle" clear-rectangle]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
515 ["%_Open Rectangle" open-rectangle]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
516 ["%_Prefix Rectangle..." string-rectangle]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
517 ["Rectangle %_Mousing"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
518 (customize-set-variable 'mouse-track-rectangle-p
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
519 (not mouse-track-rectangle-p))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
520 :style toggle :selected mouse-track-rectangle-p]
814
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
521 "---"
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
522 ["%_Copy to Register..." copy-to-register :active (region-exists-p)]
838
bf645ed7cfe3 [xemacs-hg @ 2002-05-14 09:28:06 by ben]
ben
parents: 824
diff changeset
523 ["%_Append to Register..." append-register :active (region-exists-p)]
bf645ed7cfe3 [xemacs-hg @ 2002-05-14 09:28:06 by ben]
ben
parents: 824
diff changeset
524 ["%_Insert Register..." insert-register]
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
525 "---"
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
526 ["%_Save Point to Register" point-to-register]
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
527 ["%_Jump to Register" register-to-point]
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
528 )
814
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
529 "---"
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
530 ["%_Sort Lines in Region" sort-lines :active (region-exists-p)]
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
531 ["%_Uppercase Region or Word" upcase-region-or-word]
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
532 ["%_Lowercase Region or Word" downcase-region-or-word]
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
533 ["%_Indent Region or Balanced Expression"
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
534 indent-region-or-balanced-expression]
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
535 ["%_Fill Paragraph or Region" fill-paragraph-or-region]
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
536 ("Other %_Text Commands"
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
537 ["Sort %_Paragraphs in Region" sort-paragraphs :active (region-exists-p)]
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
538 ["Sort Pa%_ges in Region" sort-pages :active (region-exists-p)]
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
539 ["Sort C%_olumns in Region" sort-columns :active (region-exists-p)]
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
540 ["Sort %_Regexp..." sort-regexp-fields :active (region-exists-p)]
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
541 "---"
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
542 ["%_Capitalize Region" capitalize-region :active (region-exists-p)]
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
543 ["Title-C%_ase Region" capitalize-region-as-title
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
544 :active (region-exists-p)]
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
545 "----"
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
546 ["C%_enter Region or Paragraph"
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
547 (if (region-active-p) (center-region) (center-line))]
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
548 ["Center %_Line" center-line]
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
549 "---"
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
550 ["%_Indent Region Rigidly" indent-rigidly :active (region-exists-p)]
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
551 ["In%_dent To Column..." indent-to-column]
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
552 "---"
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
553 ["%_Untabify (Tabs to Spaces)" untabify :active (and (region-exists-p)
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
554 (fboundp 'untabify))]
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
555 ["%_Tabify (Spaces to Tabs)" tabify :active (and (region-exists-p)
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
556 (fboundp 'tabify))]
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
557 ["Tab to Tab %_Stop" tab-to-tab-stop]
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
558 ["Edit Ta%_b Stops" edit-tab-stops]
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
559 )
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
560 "---"
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
561 ("S%_pell-Check"
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
562 ["%_Buffer" ispell-buffer
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
563 :active (fboundp 'ispell-buffer)]
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
564 "---"
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
565 ["%_Word" ispell-word]
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
566 ["%_Complete Word" ispell-complete-word]
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
567 ["%_Region" ispell-region]
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
568 )
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
569 )
814
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
570
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
571 ("%_Tools"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
572 ("%_Packages"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
573 ("%_Add Download Site"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
574 :filter (lambda (&rest junk)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
575 (submenu-generate-accelerator-spec
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
576 (package-get-download-menu))))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
577 ["%_Update Package Index" package-get-update-base]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
578 ["%_List and Install" pui-list-packages]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
579 ["U%_pdate Installed Packages" package-get-update-all]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
580 ["%_Help" (Info-goto-node "(xemacs)Packages")])
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
581 ("%_Internet"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
582 ["Read Mail %_1 (VM)..." vm
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
583 :active (fboundp 'vm)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
584 ["Read Mail %_2 (MH)..." (mh-rmail t)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
585 :active (fboundp 'mh-rmail)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
586 ["Send %_Mail..." compose-mail
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
587 :active (fboundp 'compose-mail)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
588 ["Usenet %_News" gnus
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
589 :active (fboundp 'gnus)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
590 ["Browse the %_Web" w3
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
591 :active (fboundp 'w3)])
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
592 "---"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
593 ("%_Grep"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
594 :filter
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
595 (lambda (menu)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
596 (if (or (not (boundp 'grep-history)) (null grep-history))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
597 menu
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
598 (let ((items
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
599 (submenu-generate-accelerator-spec
679
6b890cfde2b1 [xemacs-hg @ 2001-11-29 18:39:21 by adrian]
adrian
parents: 644
diff changeset
600 (mapcar #'(lambda (label-value)
6b890cfde2b1 [xemacs-hg @ 2001-11-29 18:39:21 by adrian]
adrian
parents: 644
diff changeset
601 (vector (first label-value)
6b890cfde2b1 [xemacs-hg @ 2001-11-29 18:39:21 by adrian]
adrian
parents: 644
diff changeset
602 (list 'grep (second label-value))))
6b890cfde2b1 [xemacs-hg @ 2001-11-29 18:39:21 by adrian]
adrian
parents: 644
diff changeset
603 (Menubar-items-truncate-history
6b890cfde2b1 [xemacs-hg @ 2001-11-29 18:39:21 by adrian]
adrian
parents: 644
diff changeset
604 grep-history 10 50)))))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
605 (append menu '("---") items))))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
606 ["%_Grep..." grep :active (fboundp 'grep)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
607 ["%_Kill Grep" kill-compilation
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
608 :active (and (fboundp 'kill-compilation)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
609 (fboundp 'compilation-find-buffer)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
610 (let ((buffer (condition-case nil
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
611 (compilation-find-buffer)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
612 (error nil))))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
613 (and buffer (get-buffer-process buffer))))]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
614 "---"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
615 ["Grep %_All Files in Current Directory..."
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
616 grep-all-files-in-current-directory
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
617 :active (fboundp 'grep-all-files-in-current-directory)]
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
618 ["Grep All Files in Current Directory %_Recursively..."
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
619 grep-all-files-in-current-directory-and-below
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
620 :active (fboundp 'grep-all-files-in-current-directory-and-below)]
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
621 "---"
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
622 ["Grep %_C and C Header Files in Current Directory..."
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
623 (progn
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
624 (require 'compile)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
625 (let ((grep-command
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
626 (cons (concat grep-command " *.[chCH]"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
627 ; i wanted to also use *.cc and *.hh.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
628 ; see long comment below under Perl.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
629 )
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
630 (length grep-command))))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
631 (call-interactively 'grep)))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
632 :active (fboundp 'grep)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
633 ["Grep C Hea%_der Files in Current Directory..."
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
634 (progn
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
635 (require 'compile)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
636 (let ((grep-command
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
637 (cons (concat grep-command " *.[hH]"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
638 ; i wanted to also use *.hh.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
639 ; see long comment below under Perl.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
640 )
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
641 (length grep-command))))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
642 (call-interactively 'grep)))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
643 :active (fboundp 'grep)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
644 ["Grep %_E-Lisp Files in Current Directory..."
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
645 (progn
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
646 (require 'compile)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
647 (let ((grep-command
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
648 (cons (concat grep-command " *.el")
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
649 (length grep-command))))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
650 (call-interactively 'grep)))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
651 :active (fboundp 'grep)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
652 ["Grep %_Perl Files in Current Directory..."
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
653 (progn
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
654 (require 'compile)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
655 (let ((grep-command
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
656 (cons (concat grep-command " *.pl"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
657 ; i wanted to use this:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
658 ; " *.pl *.pm *.am"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
659 ; but grep complains if it can't
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
660 ; match anything in a glob, and
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
661 ; that screws other things up.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
662 ; perhaps we need to first scan
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
663 ; each separate glob in the directory
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
664 ; to see if there are any files in
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
665 ; that glob, and if not, omit it.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
666 )
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
667 (length grep-command))))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
668 (call-interactively 'grep)))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
669 :active (fboundp 'grep)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
670 ["Grep %_HTML Files in Current Directory..."
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
671 (progn
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
672 (require 'compile)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
673 (let ((grep-command
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
674 (cons (concat grep-command " *.*htm*")
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
675 (length grep-command))))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
676 (call-interactively 'grep)))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
677 :active (fboundp 'grep)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
678 "---"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
679 ["%_Next Match" next-error
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
680 :active (and (fboundp 'compilation-errors-exist-p)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
681 (compilation-errors-exist-p))]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
682 ["Pre%_vious Match" previous-error
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
683 :active (and (fboundp 'compilation-errors-exist-p)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
684 (compilation-errors-exist-p))]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
685 ["%_First Match" first-error
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
686 :active (and (fboundp 'compilation-errors-exist-p)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
687 (compilation-errors-exist-p))]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
688 ["G%_oto Match" compile-goto-error
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
689 :active (and (fboundp 'compilation-errors-exist-p)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
690 (compilation-errors-exist-p))]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
691 "---"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
692 ["%_Set Grep Command..."
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
693 (progn
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
694 (require 'compile)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
695 (customize-set-variable
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
696 'grep-command
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
697 (read-shell-command "Default Grep Command: " grep-command)))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
698 :active (fboundp 'grep)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
699 ]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
700 )
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
701 ("%_Compile"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
702 :filter
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
703 (lambda (menu)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
704 (if (or (not (boundp 'compile-history)) (null compile-history))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
705 menu
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
706 (let ((items
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
707 (submenu-generate-accelerator-spec
679
6b890cfde2b1 [xemacs-hg @ 2001-11-29 18:39:21 by adrian]
adrian
parents: 644
diff changeset
708 (mapcar #'(lambda (label-value)
6b890cfde2b1 [xemacs-hg @ 2001-11-29 18:39:21 by adrian]
adrian
parents: 644
diff changeset
709 (vector (first label-value)
6b890cfde2b1 [xemacs-hg @ 2001-11-29 18:39:21 by adrian]
adrian
parents: 644
diff changeset
710 (list 'compile (second label-value))))
6b890cfde2b1 [xemacs-hg @ 2001-11-29 18:39:21 by adrian]
adrian
parents: 644
diff changeset
711 (Menubar-items-truncate-history
6b890cfde2b1 [xemacs-hg @ 2001-11-29 18:39:21 by adrian]
adrian
parents: 644
diff changeset
712 compile-history 10 50)))))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
713 (append menu '("---") items))))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
714 ["%_Compile..." compile :active (fboundp 'compile)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
715 ["%_Repeat Compilation" recompile :active (fboundp 'recompile)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
716 ["%_Kill Compilation" kill-compilation
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
717 :active (and (fboundp 'kill-compilation)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
718 (fboundp 'compilation-find-buffer)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
719 (let ((buffer (condition-case nil
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
720 (compilation-find-buffer)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
721 (error nil))))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
722 (and buffer (get-buffer-process buffer))))]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
723 "---"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
724 ["%_Next Error" next-error
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
725 :active (and (fboundp 'compilation-errors-exist-p)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
726 (compilation-errors-exist-p))]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
727 ["Pre%_vious Error" previous-error
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
728 :active (and (fboundp 'compilation-errors-exist-p)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
729 (compilation-errors-exist-p))]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
730 ["%_First Error" first-error
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
731 :active (and (fboundp 'compilation-errors-exist-p)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
732 (compilation-errors-exist-p))]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
733 ["G%_oto Error" compile-goto-error
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
734 :active (and (fboundp 'compilation-errors-exist-p)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
735 (compilation-errors-exist-p))]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
736 )
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
737 ("%_Debug"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
738 ["%_GDB..." gdb
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
739 :active (fboundp 'gdb)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
740 ["%_DBX..." dbx
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
741 :active (fboundp 'dbx)])
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
742 ("%_Shell"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
743 ["%_Shell" shell
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
744 :active (fboundp 'shell)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
745 ["S%_hell Command..." shell-command
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
746 :active (fboundp 'shell-command)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
747 ["Shell Command on %_Region..." shell-command-on-region
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
748 :active (and (fboundp 'shell-command-on-region) (region-exists-p))])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
749
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
750 ("%_Tags"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
751 ["%_Find Tag..." find-tag]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
752 ["Find %_Other Window..." find-tag-other-window]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
753 ["%_Next Tag..." (find-tag nil)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
754 ["N%_ext Other Window..." (find-tag-other-window nil)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
755 ["Next %_File" next-file]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
756 "-----"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
757 ["Tags %_Search..." tags-search]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
758 ["Tags %_Replace..." tags-query-replace]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
759 ["%_Continue Search/Replace" tags-loop-continue]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
760 "-----"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
761 ["%_Pop stack" pop-tag-mark]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
762 ["%_Apropos..." tags-apropos]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
763 "-----"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
764 ["%_Set Tags Table File..." visit-tags-table]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
765 )
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
766
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
767 "----"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
768
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
769 ("Ca%_lendar"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
770 ["%_3-Month Calendar" calendar
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
771 :active (fboundp 'calendar)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
772 ["%_Diary" diary
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
773 :active (fboundp 'diary)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
774 ["%_Holidays" holidays
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
775 :active (fboundp 'holidays)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
776 ;; we're all pagans at heart ...
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
777 ["%_Phases of the Moon" phases-of-moon
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
778 :active (fboundp 'phases-of-moon)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
779 ["%_Sunrise/Sunset" sunrise-sunset
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
780 :active (fboundp 'sunrise-sunset)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
781
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
782 ("Ga%_mes"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
783 ["%_Mine Game" xmine
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
784 :active (fboundp 'xmine)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
785 ["%_Tetris" tetris
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
786 :active (fboundp 'tetris)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
787 ["%_Sokoban" sokoban
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
788 :active (fboundp 'sokoban)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
789 ["Quote from %_Zippy" yow
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
790 :active (fboundp 'yow)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
791 ["%_Psychoanalyst" doctor
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
792 :active (fboundp 'doctor)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
793 ["Ps%_ychoanalyze Zippy!" psychoanalyze-pinhead
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
794 :active (fboundp 'psychoanalyze-pinhead)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
795 ["%_Random Flames" flame
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
796 :active (fboundp 'flame)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
797 ["%_Dunnet (Adventure)" dunnet
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
798 :active (fboundp 'dunnet)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
799 ["Towers of %_Hanoi" hanoi
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
800 :active (fboundp 'hanoi)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
801 ["Game of %_Life" life
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
802 :active (fboundp 'life)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
803 ["M%_ultiplication Puzzle" mpuz
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
804 :active (fboundp 'mpuz)])
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
805
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
806 "----"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
807 )
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
808
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
809 ("%_Options"
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
810 ("%_Behaviors"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
811 :filter
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
812 (lambda (menu)
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
813 (menu-split-long-menu
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
814 (menu-sort-menu
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
815 (loop for behavior being the hash-keys in behavior-hash-table
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
816 using (hash-value plist)
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
817 collect (vector (format "%s (%s)" behavior
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
818 (getf plist :short-doc))
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
819 `(if (memq ',behavior enabled-behavior-list)
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
820 (disable-behavior ',behavior)
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
821 (enable-behavior ',behavior))
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
822 :style 'toggle
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
823 :selected `(memq ',behavior
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
824 enabled-behavior-list))
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
825 )))))
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
826
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
827 ("%_Advanced (Customize)"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
828 ("%_Emacs" :filter (lambda (&rest junk)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
829 (cdr (custom-menu-create 'emacs))))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
830 ["%_Group..." customize-group]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
831 ["%_Variable..." customize-variable]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
832 ["%_Face..." customize-face]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
833 ["%_Saved..." customize-saved]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
834 ["Se%_t..." customize-customized]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
835 ["%_Apropos..." customize-apropos]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
836 ["%_Browse..." customize-browse])
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
837 "---"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
838 ("%_Editing"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
839 ["This Buffer %_Read Only" (toggle-read-only)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
840 :style toggle :selected buffer-read-only]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
841 ["%_Yank/Kill Interact With Clipboard"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
842 (if (eq interprogram-cut-function 'own-clipboard)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
843 (progn
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
844 (customize-set-variable 'interprogram-cut-function nil)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
845 (customize-set-variable 'interprogram-paste-function nil))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
846 (customize-set-variable 'interprogram-cut-function 'own-clipboard)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
847 (customize-set-variable 'interprogram-paste-function 'get-clipboard))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
848 :style toggle
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
849 :selected (eq interprogram-cut-function 'own-clipboard)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
850 ["%_Overstrike"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
851 (progn
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
852 (setq overwrite-mode (if overwrite-mode nil 'overwrite-mode-textual))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
853 (customize-set-variable 'overwrite-mode overwrite-mode))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
854 :style toggle :selected overwrite-mode]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
855 ["%_Abbrev Mode"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
856 (customize-set-variable 'abbrev-mode
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
857 (not (default-value 'abbrev-mode)))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
858 :style toggle
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
859 :selected (default-value 'abbrev-mode)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
860 ["Active Re%_gions"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
861 (customize-set-variable 'zmacs-regions (not zmacs-regions))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
862 :style toggle :selected zmacs-regions]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
863 "---"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
864 ["%_Case Sensitive Search"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
865 (customize-set-variable 'case-fold-search
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
866 (setq case-fold-search (not case-fold-search)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
867 :style toggle :selected (not case-fold-search)]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
868 ["Case %_Matching Replace"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
869 (customize-set-variable 'case-replace (not case-replace))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
870 :style toggle :selected case-replace]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
871 "---"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
872 ("%_Newline at End of File..."
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
873 ["%_Don't Require"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
874 (customize-set-variable 'require-final-newline nil)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
875 :style radio :selected (not require-final-newline)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
876 ["%_Require"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
877 (customize-set-variable 'require-final-newline t)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
878 :style radio :selected (eq require-final-newline t)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
879 ["%_Ask"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
880 (customize-set-variable 'require-final-newline 'ask)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
881 :style radio :selected (and require-final-newline
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
882 (not (eq require-final-newline t)))])
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
883 ["Add Newline When Moving Past %_End"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
884 (customize-set-variable 'next-line-add-newlines
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
885 (not next-line-add-newlines))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
886 :style toggle :selected next-line-add-newlines])
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
887 ("%_Keyboard and Mouse"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
888 ["%_Delete Key Deletes Selection"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
889 (customize-set-variable 'pending-delete-mode (not pending-delete-mode))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
890 :style toggle
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
891 :selected (and (boundp 'pending-delete-mode) pending-delete-mode)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
892 :active (boundp 'pending-delete-mode)]
844
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 838
diff changeset
893 ["`kill-%_word' Stores in Clipboard"
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 838
diff changeset
894 (customize-set-variable 'kill-word-into-kill-ring
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 838
diff changeset
895 (not kill-word-into-kill-ring))
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 838
diff changeset
896 :style toggle
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 838
diff changeset
897 :selected kill-word-into-kill-ring]
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 838
diff changeset
898 ["`kill-%_line' Kills Whole Line at Beg"
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 454
diff changeset
899 (customize-set-variable 'kill-whole-line (not kill-whole-line))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 454
diff changeset
900 :style toggle
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 454
diff changeset
901 :selected kill-whole-line]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
902 ["Size for %_Block-Movement Commands..."
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
903 (customize-set-variable 'block-movement-size
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
904 (read-number "Block Movement Size: "
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
905 t block-movement-size))]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
906 ["%_VI Emulation"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
907 (progn
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
908 (toggle-viper-mode)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
909 (customize-set-variable 'viper-mode viper-mode))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
910 :style toggle :selected (and (boundp 'viper-mode) viper-mode)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
911 :active (fboundp 'toggle-viper-mode)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
912 "----"
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 454
diff changeset
913 ["S%_hifted Motion Keys Select Region"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 454
diff changeset
914 (customize-set-variable 'shifted-motion-keys-select-region
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 454
diff changeset
915 (not shifted-motion-keys-select-region))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 454
diff changeset
916 :style toggle
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 454
diff changeset
917 :selected shifted-motion-keys-select-region]
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 454
diff changeset
918 ["%_After Shifted Motion, Unshifted Motion Keys Deselect"
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 454
diff changeset
919 (customize-set-variable 'unshifted-motion-keys-deselect-region
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 454
diff changeset
920 (not unshifted-motion-keys-deselect-region))
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 454
diff changeset
921 :style toggle
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 454
diff changeset
922 :selected unshifted-motion-keys-deselect-region]
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 454
diff changeset
923 "----"
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
924 ["%_Set Key..." global-set-key]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
925 ["%_Unset Key..." global-unset-key]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
926 "---"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
927 ["%_Mouse Paste at Text Cursor (not Clicked Location)"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
928 (customize-set-variable 'mouse-yank-at-point (not mouse-yank-at-point))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
929 :style toggle :selected mouse-yank-at-point]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
930 "---"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
931 ["%_Teach Extended Commands"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
932 (customize-set-variable 'teach-extended-commands-p
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
933 (not teach-extended-commands-p))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
934 :style toggle :selected teach-extended-commands-p]
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
935 )
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
936 ("%_Printing"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
937 ["Set Printer %_Name for Generic Print Support..."
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
938 (customize-set-variable
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
939 'printer-name
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
940 (read-string "Set printer name: " printer-name))]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
941 "---"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
942 ["Command-Line %_Switches for `lpr'/`lp'..."
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
943 ;; better to directly open a customization buffer, since the value
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
944 ;; must be a list of strings, which is somewhat complex to prompt for.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
945 (customize-variable 'lpr-switches)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
946 (boundp 'lpr-switches)]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
947 ("%_Pretty-Print Paper Size"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
948 ["%_Letter"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
949 (customize-set-variable 'ps-paper-type 'letter)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
950 :style radio
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
951 :selected (and (boundp 'ps-paper-type) (eq ps-paper-type 'letter))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
952 :active (boundp 'ps-paper-type)]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
953 ["Lette%_r-Small"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
954 (customize-set-variable 'ps-paper-type 'letter-small)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
955 :style radio
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
956 :selected (and (boundp 'ps-paper-type)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
957 (eq ps-paper-type 'letter-small))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
958 :active (boundp 'ps-paper-type)]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
959 ["Le%_gal"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
960 (customize-set-variable 'ps-paper-type 'legal)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
961 :style radio
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
962 :selected (and (boundp 'ps-paper-type) (eq ps-paper-type 'legal))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
963 :active (boundp 'ps-paper-type)]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
964 ["%_Statement"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
965 (customize-set-variable 'ps-paper-type 'statement)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
966 :style radio
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
967 :selected (and (boundp 'ps-paper-type) (eq ps-paper-type 'statement))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
968 :active (boundp 'ps-paper-type)]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
969 ["%_Executive"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
970 (customize-set-variable 'ps-paper-type 'executive)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
971 :style radio
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
972 :selected (and (boundp 'ps-paper-type) (eq ps-paper-type 'executive))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
973 :active (boundp 'ps-paper-type)]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
974 ["%_Tabloid"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
975 (customize-set-variable 'ps-paper-type 'tabloid)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
976 :style radio
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
977 :selected (and (boundp 'ps-paper-type) (eq ps-paper-type 'tabloid))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
978 :active (boundp 'ps-paper-type)]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
979 ["Le%_dger"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
980 (customize-set-variable 'ps-paper-type 'ledger)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
981 :style radio
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
982 :selected (and (boundp 'ps-paper-type) (eq ps-paper-type 'ledger))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
983 :active (boundp 'ps-paper-type)]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
984 ["A%_3"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
985 (customize-set-variable 'ps-paper-type 'a3)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
986 :style radio
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
987 :selected (and (boundp 'ps-paper-type) (eq ps-paper-type 'a3))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
988 :active (boundp 'ps-paper-type)]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
989 ["%_A4"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
990 (customize-set-variable 'ps-paper-type 'a4)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
991 :style radio
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
992 :selected (and (boundp 'ps-paper-type) (eq ps-paper-type 'a4))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
993 :active (boundp 'ps-paper-type)]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
994 ["A4s%_mall"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
995 (customize-set-variable 'ps-paper-type 'a4small)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
996 :style radio
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
997 :selected (and (boundp 'ps-paper-type) (eq ps-paper-type 'a4small))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
998 :active (boundp 'ps-paper-type)]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
999 ["B%_4"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1000 (customize-set-variable 'ps-paper-type 'b4)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1001 :style radio
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1002 :selected (and (boundp 'ps-paper-type) (eq ps-paper-type 'b4))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1003 :active (boundp 'ps-paper-type)]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1004 ["%_B5"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1005 (customize-set-variable 'ps-paper-type 'b5)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1006 :style radio
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1007 :selected (and (boundp 'ps-paper-type) (eq ps-paper-type 'b5))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1008 :active (boundp 'ps-paper-type)]
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1009 )
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1010 ["%_Color Printing"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1011 (cond (ps-print-color-p
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1012 (customize-set-variable 'ps-print-color-p nil)
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1013 ;; I'm wondering whether all this muck is useful.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1014 (and (boundp 'original-face-background)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1015 original-face-background
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1016 (set-face-background 'default original-face-background)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1017 (t
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1018 (customize-set-variable 'ps-print-color-p t)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1019 (setq original-face-background
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1020 (face-background-instance 'default))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1021 (set-face-background 'default "white")))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1022 :style toggle
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1023 :selected (and (boundp 'ps-print-color-p) ps-print-color-p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1024 :active (boundp 'ps-print-color-p)])
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1025 ("%_Internet"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1026 ("%_Compose Mail With"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1027 ["Default Emacs Mailer"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1028 (customize-set-variable 'mail-user-agent 'sendmail-user-agent)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1029 :style radio
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1030 :selected (eq mail-user-agent 'sendmail-user-agent)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1031 ["MH"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1032 (customize-set-variable 'mail-user-agent 'mh-e-user-agent)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1033 :style radio
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1034 :selected (eq mail-user-agent 'mh-e-user-agent)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1035 :active (get 'mh-e-user-agent 'composefunc)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1036 ["GNUS"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1037 (customize-set-variable 'mail-user-agent 'message-user-agent)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1038 :style radio
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1039 :selected (eq mail-user-agent 'message-user-agent)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1040 :active (get 'message-user-agent 'composefunc)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1041 )
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1042 ["Set My %_Email Address..."
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1043 (customize-set-variable
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1044 'user-mail-address
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1045 (read-string "Set email address: " user-mail-address))]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1046 ["Set %_Machine Email Name..."
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1047 (customize-set-variable
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1048 'mail-host-address
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1049 (read-string "Set machine email name: " mail-host-address))]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1050 ["Set %_SMTP Server..."
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1051 (progn
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1052 (require 'smtpmail)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1053 (customize-set-variable
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1054 'smtpmail-smtp-server
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1055 (read-string "Set SMTP server: " smtpmail-smtp-server)))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1056 :active (and (boundp 'send-mail-function)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1057 (eq send-mail-function 'smtpmail-send-it))]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1058 ["SMTP %_Debug Info"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1059 (progn
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1060 (require 'smtpmail)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1061 (customize-set-variable 'smtpmail-debug-info
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1062 (not smtpmail-debug-info)))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1063 :style toggle
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1064 :selected (and (boundp 'smtpmail-debug-info) smtpmail-debug-info)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1065 :active (and (boundp 'send-mail-function)
732
b9b8621c2439 [xemacs-hg @ 2002-01-22 14:16:38 by youngs]
youngs
parents: 679
diff changeset
1066 (eq send-mail-function 'smtpmail-send-it))])
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1067 ("%_Troubleshooting"
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1068 ["%_Debug on Error [not saved]"
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1069 (setq debug-on-error (not debug-on-error))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1070 :style toggle :selected debug-on-error]
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1071 ["Debug on %_Quit [not saved]"
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1072 (setq debug-on-quit (not debug-on-quit))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1073 :style toggle :selected debug-on-quit]
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1074 ["Debug on S%_ignal [not saved]"
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1075 (setq debug-on-signal (not debug-on-signal))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1076 :style toggle :selected debug-on-signal]
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1077 ["%_Stack Trace on Error [not saved]"
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1078 (setq stack-trace-on-error (not stack-trace-on-error))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1079 :style toggle :selected stack-trace-on-error]
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1080 ["Stack Trace on Si%_gnal [not saved]"
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1081 (setq stack-trace-on-signal (not stack-trace-on-signal))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1082 :style toggle :selected stack-trace-on-signal]
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1083 )
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1084 ("Encodin%_g"
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1085 ["Automatic %_EOL Detection"
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1086 (customize-set-variable 'eol-detection-enabled-p
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1087 (not eol-detection-enabled-p))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1088 :style toggle
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1089 :selected eol-detection-enabled-p
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1090 :included (not (memq system-type '(windows-nt cygwin32)))]
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1091 ("Set Coding System of %_Buffer File"
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1092 :filter
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1093 (lambda (menu)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1094 (coding-system-menu-filter
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1095 (lambda (entry)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1096 (set-buffer-file-coding-system entry))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1097 (lambda (entry) t)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1098 ))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1099 )
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1100 ;; not implemented yet
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1101 ("Set Coding System of %_Terminal"
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1102 :filter
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1103 (lambda (menu)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1104 (coding-system-menu-filter
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1105 (lambda (entry)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1106 (set-terminal-coding-system entry))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1107 (lambda (entry) nil)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1108 ))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1109 )
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1110 ;; not implemented yet
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1111 ("Set Coding System of %_Keyboard"
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1112 :filter
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1113 (lambda (menu)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1114 (coding-system-menu-filter
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1115 (lambda (entry)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1116 (set-keyboard-coding-system entry))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1117 (lambda (entry) nil)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1118 ))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1119 )
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1120 ("Set Coding System of %_Process"
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1121 :filter
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1122 (lambda (menu)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1123 (coding-system-menu-filter
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1124 (lambda (entry)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1125 (set-buffer-process-coding-system entry))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1126 (lambda (entry) (get-buffer-process (current-buffer)))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1127 ))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1128 )
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1129 )
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1130 ,@(when (featurep 'mule)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1131 '(("Internationa%_l"
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1132 ("Set %_Language Environment"
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1133 :filter
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1134 (lambda (menu)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1135 (menu-split-long-menu
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1136 (menu-sort-menu
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1137 (mapcar #'(lambda (entry)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1138 `[ ,(car entry)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1139 (set-language-environment ',(car entry))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1140 :style radio
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1141 :selected
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1142 ,(equal (car entry)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1143 current-language-environment)])
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1144 language-info-alist)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1145 ))))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1146 ["%_Toggle Input Method" toggle-input-method]
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1147 ["Select %_Input Method" set-input-method]
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1148 )))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1149 "-----"
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1150 ("%_Display"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1151 ,@(if (featurep 'scrollbar)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1152 '(["%_Scrollbars"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1153 (customize-set-variable 'scrollbars-visible-p
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1154 (not scrollbars-visible-p))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1155 :style toggle
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1156 :selected scrollbars-visible-p]))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1157 ["%_Wrap Long Lines"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1158 (progn;; becomes buffer-local
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1159 (setq truncate-lines (not truncate-lines))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1160 (customize-set-variable 'truncate-lines truncate-lines))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1161 :style toggle
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1162 :selected (not truncate-lines)]
454
d7a9135ec789 Import from CVS: tag r21-2-42
cvs
parents: 444
diff changeset
1163 "----"
d7a9135ec789 Import from CVS: tag r21-2-42
cvs
parents: 444
diff changeset
1164 ["%_3D Modeline"
d7a9135ec789 Import from CVS: tag r21-2-42
cvs
parents: 444
diff changeset
1165 (customize-set-variable 'modeline-3d-p
d7a9135ec789 Import from CVS: tag r21-2-42
cvs
parents: 444
diff changeset
1166 (not modeline-3d-p))
d7a9135ec789 Import from CVS: tag r21-2-42
cvs
parents: 444
diff changeset
1167 :style toggle
d7a9135ec789 Import from CVS: tag r21-2-42
cvs
parents: 444
diff changeset
1168 :selected modeline-3d-p]
d7a9135ec789 Import from CVS: tag r21-2-42
cvs
parents: 444
diff changeset
1169 ("Modeline %_Horizontal Scrolling"
d7a9135ec789 Import from CVS: tag r21-2-42
cvs
parents: 444
diff changeset
1170 ["%_None"
d7a9135ec789 Import from CVS: tag r21-2-42
cvs
parents: 444
diff changeset
1171 (customize-set-variable 'modeline-scrolling-method nil)
d7a9135ec789 Import from CVS: tag r21-2-42
cvs
parents: 444
diff changeset
1172 :style radio
d7a9135ec789 Import from CVS: tag r21-2-42
cvs
parents: 444
diff changeset
1173 :selected (not modeline-scrolling-method)]
d7a9135ec789 Import from CVS: tag r21-2-42
cvs
parents: 444
diff changeset
1174 ["As %_Text"
d7a9135ec789 Import from CVS: tag r21-2-42
cvs
parents: 444
diff changeset
1175 (customize-set-variable 'modeline-scrolling-method t)
d7a9135ec789 Import from CVS: tag r21-2-42
cvs
parents: 444
diff changeset
1176 :style radio
d7a9135ec789 Import from CVS: tag r21-2-42
cvs
parents: 444
diff changeset
1177 :selected (eq modeline-scrolling-method t)]
d7a9135ec789 Import from CVS: tag r21-2-42
cvs
parents: 444
diff changeset
1178 ["As %_Scrollbar"
d7a9135ec789 Import from CVS: tag r21-2-42
cvs
parents: 444
diff changeset
1179 (customize-set-variable 'modeline-scrolling-method 'scrollbar)
d7a9135ec789 Import from CVS: tag r21-2-42
cvs
parents: 444
diff changeset
1180 :style radio
d7a9135ec789 Import from CVS: tag r21-2-42
cvs
parents: 444
diff changeset
1181 :selected (eq modeline-scrolling-method 'scrollbar)]
d7a9135ec789 Import from CVS: tag r21-2-42
cvs
parents: 444
diff changeset
1182 )
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1183 ,@(if (featurep 'toolbar)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1184 '("---"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1185 ["%_Toolbars Visible"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1186 (customize-set-variable 'toolbar-visible-p
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1187 (not toolbar-visible-p))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1188 :style toggle
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1189 :selected toolbar-visible-p]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1190 ["Toolbars Ca%_ptioned"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1191 (customize-set-variable 'toolbar-captioned-p
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1192 (not toolbar-captioned-p))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1193 :style toggle
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1194 :active toolbar-visible-p
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1195 :selected toolbar-captioned-p]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1196 ("Default Toolba%_r Location"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1197 ["%_Top"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1198 (customize-set-variable 'default-toolbar-position 'top)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1199 :style radio
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1200 :active toolbar-visible-p
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1201 :selected (eq default-toolbar-position 'top)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1202 ["%_Bottom"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1203 (customize-set-variable 'default-toolbar-position 'bottom)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1204 :style radio
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1205 :active toolbar-visible-p
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1206 :selected (eq default-toolbar-position 'bottom)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1207 ["%_Left"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1208 (customize-set-variable 'default-toolbar-position 'left)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1209 :style radio
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1210 :active toolbar-visible-p
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1211 :selected (eq default-toolbar-position 'left)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1212 ["%_Right"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1213 (customize-set-variable 'default-toolbar-position 'right)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1214 :style radio
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1215 :active toolbar-visible-p
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1216 :selected (eq default-toolbar-position 'right)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1217 )
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1218 ))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1219 ,@(if (featurep 'gutter)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1220 '("---"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1221 ["B%_uffers Tab Visible"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1222 (customize-set-variable 'gutter-buffers-tab-visible-p
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1223 (not gutter-buffers-tab-visible-p))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1224 :style toggle
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1225 :selected gutter-buffers-tab-visible-p]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1226 ("Default %_Gutter Location"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1227 ["%_Top"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1228 (customize-set-variable 'default-gutter-position 'top)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1229 :style radio
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1230 :selected (eq default-gutter-position 'top)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1231 ["%_Bottom"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1232 (customize-set-variable 'default-gutter-position 'bottom)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1233 :style radio
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1234 :selected (eq default-gutter-position 'bottom)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1235 ["%_Left"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1236 (customize-set-variable 'default-gutter-position 'left)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1237 :style radio
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1238 :selected (eq default-gutter-position 'left)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1239 ["%_Right"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1240 (customize-set-variable 'default-gutter-position 'right)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1241 :style radio
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1242 :selected (eq default-gutter-position 'right)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1243 )
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1244 ))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1245 "-----"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1246 ["%_Blinking Cursor"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1247 (customize-set-variable 'blink-cursor-mode (not blink-cursor-mode))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1248 :style toggle
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1249 :selected (and (boundp 'blink-cursor-mode) blink-cursor-mode)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1250 :active (boundp 'blink-cursor-mode)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1251 ["Bl%_ock Cursor"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1252 (progn
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1253 (customize-set-variable 'bar-cursor nil)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1254 (force-cursor-redisplay))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1255 :style radio
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1256 :selected (null bar-cursor)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1257 ["Bar Cursor (%_1 Pixel)"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1258 (progn
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1259 (customize-set-variable 'bar-cursor t)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1260 (force-cursor-redisplay))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1261 :style radio
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1262 :selected (eq bar-cursor t)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1263 ["Bar Cursor (%_2 Pixels)"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1264 (progn
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1265 (customize-set-variable 'bar-cursor 2)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1266 (force-cursor-redisplay))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1267 :style radio
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1268 :selected (and bar-cursor (not (eq bar-cursor t)))]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1269 "----"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1270 ("Pa%_ren Highlighting"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1271 ["%_None"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1272 (customize-set-variable 'paren-mode nil)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1273 :style radio
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1274 :selected (and (boundp 'paren-mode) (not paren-mode))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1275 :active (boundp 'paren-mode)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1276 ["%_Blinking Paren"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1277 (customize-set-variable 'paren-mode 'blink-paren)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1278 :style radio
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1279 :selected (and (boundp 'paren-mode) (eq paren-mode 'blink-paren))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1280 :active (boundp 'paren-mode)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1281 ["%_Steady Paren"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1282 (customize-set-variable 'paren-mode 'paren)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1283 :style radio
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1284 :selected (and (boundp 'paren-mode) (eq paren-mode 'paren))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1285 :active (boundp 'paren-mode)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1286 ["%_Expression"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1287 (customize-set-variable 'paren-mode 'sexp)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1288 :style radio
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1289 :selected (and (boundp 'paren-mode) (eq paren-mode 'sexp))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1290 :active (boundp 'paren-mode)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1291 ;; ["Nes%_ted Shading"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1292 ;; (customize-set-variable 'paren-mode 'nested)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1293 ;; :style radio
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1294 ;; :selected (and (boundp 'paren-mode) (eq paren-mode 'nested))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1295 ;; :active (boundp 'paren-mode)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1296 )
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1297 "------"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1298 ["%_Line Numbers"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1299 (progn
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1300 (customize-set-variable 'line-number-mode (not line-number-mode))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1301 (redraw-modeline))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1302 :style toggle :selected line-number-mode]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1303 ["%_Column Numbers"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1304 (progn
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1305 (customize-set-variable 'column-number-mode
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1306 (not column-number-mode))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1307 (redraw-modeline))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1308 :style toggle :selected column-number-mode]
454
d7a9135ec789 Import from CVS: tag r21-2-42
cvs
parents: 444
diff changeset
1309
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1310 ("\"Other %_Window\" Location"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1311 ["%_Always in Same Frame"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1312 (customize-set-variable
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1313 'get-frame-for-buffer-default-instance-limit nil)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1314 :style radio
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1315 :selected (null get-frame-for-buffer-default-instance-limit)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1316 ["Other Frame (%_2 Frames Max)"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1317 (customize-set-variable 'get-frame-for-buffer-default-instance-limit
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1318 2)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1319 :style radio
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1320 :selected (eq 2 get-frame-for-buffer-default-instance-limit)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1321 ["Other Frame (%_3 Frames Max)"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1322 (customize-set-variable 'get-frame-for-buffer-default-instance-limit
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1323 3)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1324 :style radio
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1325 :selected (eq 3 get-frame-for-buffer-default-instance-limit)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1326 ["Other Frame (%_4 Frames Max)"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1327 (customize-set-variable 'get-frame-for-buffer-default-instance-limit
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1328 4)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1329 :style radio
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1330 :selected (eq 4 get-frame-for-buffer-default-instance-limit)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1331 ["Other Frame (%_5 Frames Max)"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1332 (customize-set-variable 'get-frame-for-buffer-default-instance-limit
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1333 5)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1334 :style radio
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1335 :selected (eq 5 get-frame-for-buffer-default-instance-limit)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1336 ["Always Create %_New Frame"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1337 (customize-set-variable 'get-frame-for-buffer-default-instance-limit
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1338 0)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1339 :style radio
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1340 :selected (eq 0 get-frame-for-buffer-default-instance-limit)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1341 "-----"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1342 ["%_Temp Buffers Always in Same Frame"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1343 (customize-set-variable 'temp-buffer-show-function
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1344 'show-temp-buffer-in-current-frame)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1345 :style radio
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1346 :selected (eq temp-buffer-show-function
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1347 'show-temp-buffer-in-current-frame)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1348 ["Temp Buffers %_Like Other Buffers"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1349 (customize-set-variable 'temp-buffer-show-function nil)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1350 :style radio
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1351 :selected (null temp-buffer-show-function)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1352 "-----"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1353 ["%_Make Current Frame Gnuserv Target"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1354 (customize-set-variable 'gnuserv-frame (if (eq gnuserv-frame t) nil
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1355 t))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1356 :style toggle
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1357 :selected (and (boundp 'gnuserv-frame) (eq gnuserv-frame t))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1358 :active (boundp 'gnuserv-frame)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1359 )
454
d7a9135ec789 Import from CVS: tag r21-2-42
cvs
parents: 444
diff changeset
1360 )
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1361 ("%_Menubars"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1362 ["%_Frame-Local Font Menu"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1363 (customize-set-variable 'font-menu-this-frame-only-p
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1364 (not font-menu-this-frame-only-p))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1365 :style toggle
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1366 :selected (and (boundp 'font-menu-this-frame-only-p)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1367 font-menu-this-frame-only-p)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1368 ["%_Alt/Meta Selects Menu Items"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1369 (if (eq menu-accelerator-enabled 'menu-force)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1370 (customize-set-variable 'menu-accelerator-enabled nil)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1371 (customize-set-variable 'menu-accelerator-enabled 'menu-force))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1372 :style toggle
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1373 :selected (eq menu-accelerator-enabled 'menu-force)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1374 "----"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1375 ["Buffers Menu %_Length..."
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1376 (customize-set-variable
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1377 'buffers-menu-max-size
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1378 ;; would it be better to open a customization buffer ?
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1379 (let ((val
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1380 (read-number
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1381 "Enter number of buffers to display (or 0 for unlimited): ")))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1382 (if (eq val 0) nil val)))]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1383 ["%_Multi-Operation Buffers Sub-Menus"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1384 (customize-set-variable 'complex-buffers-menu-p
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1385 (not complex-buffers-menu-p))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1386 :style toggle
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1387 :selected complex-buffers-menu-p]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1388 ["S%_ubmenus for Buffer Groups"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1389 (customize-set-variable 'buffers-menu-submenus-for-groups-p
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1390 (not buffers-menu-submenus-for-groups-p))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1391 :style toggle
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1392 :selected buffers-menu-submenus-for-groups-p]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1393 ["%_Verbose Buffer Menu Entries"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1394 (if (eq buffers-menu-format-buffer-line-function
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1395 'slow-format-buffers-menu-line)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1396 (customize-set-variable 'buffers-menu-format-buffer-line-function
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1397 'format-buffers-menu-line)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1398 (customize-set-variable 'buffers-menu-format-buffer-line-function
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1399 'slow-format-buffers-menu-line))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1400 :style toggle
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1401 :selected (eq buffers-menu-format-buffer-line-function
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1402 'slow-format-buffers-menu-line)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1403 ("Buffers Menu %_Sorting"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1404 ["%_Most Recently Used"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1405 (progn
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1406 (customize-set-variable 'buffers-menu-sort-function nil)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1407 (customize-set-variable 'buffers-menu-grouping-function nil))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1408 :style radio
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1409 :selected (null buffers-menu-sort-function)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1410 ["%_Alphabetically"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1411 (progn
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1412 (customize-set-variable 'buffers-menu-sort-function
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1413 'sort-buffers-menu-alphabetically)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1414 (customize-set-variable 'buffers-menu-grouping-function nil))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1415 :style radio
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1416 :selected (eq 'sort-buffers-menu-alphabetically
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1417 buffers-menu-sort-function)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1418 ["%_By Major Mode, Then Alphabetically"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1419 (progn
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1420 (customize-set-variable
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1421 'buffers-menu-sort-function
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1422 'sort-buffers-menu-by-mode-then-alphabetically)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1423 (customize-set-variable
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1424 'buffers-menu-grouping-function
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1425 'group-buffers-menu-by-mode-then-alphabetically))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1426 :style radio
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1427 :selected (eq 'sort-buffers-menu-by-mode-then-alphabetically
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1428 buffers-menu-sort-function)])
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1429 "---"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1430 ["%_Ignore Scaled Fonts"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1431 (customize-set-variable 'font-menu-ignore-scaled-fonts
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1432 (not font-menu-ignore-scaled-fonts))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1433 :style toggle
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1434 :selected (and (boundp 'font-menu-ignore-scaled-fonts)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1435 font-menu-ignore-scaled-fonts)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1436 )
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1437 ("S%_yntax Highlighting"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1438 ["%_In This Buffer"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1439 (progn;; becomes buffer local
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1440 (font-lock-mode)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1441 (customize-set-variable 'font-lock-mode font-lock-mode))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1442 :style toggle
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1443 :selected (and (boundp 'font-lock-mode) font-lock-mode)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1444 :active (boundp 'font-lock-mode)]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1445 ["%_Automatic"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1446 (customize-set-variable 'font-lock-auto-fontify
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1447 (not font-lock-auto-fontify))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1448 :style toggle
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1449 :selected (and (boundp 'font-lock-auto-fontify) font-lock-auto-fontify)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1450 :active (fboundp 'font-lock-mode)]
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1451 "-----"
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1452 ["Force %_Rehighlight in this Buffer"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1453 (customize-set-variable 'font-lock-auto-fontify
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1454 (not font-lock-auto-fontify))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1455 :style toggle
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1456 :selected (and (boundp 'font-lock-auto-fontify) font-lock-auto-fontify)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1457 :active (fboundp 'font-lock-mode)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1458 "-----"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1459 ["%_Fonts"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1460 (progn
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1461 (require 'font-lock)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1462 (font-lock-use-default-fonts)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1463 (customize-set-variable 'font-lock-use-fonts t)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1464 (customize-set-variable 'font-lock-use-colors nil)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1465 (font-lock-mode 1))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1466 :style radio
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1467 :selected (and (boundp 'font-lock-use-fonts) font-lock-use-fonts)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1468 :active (fboundp 'font-lock-mode)]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1469 ["%_Colors"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1470 (progn
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1471 (require 'font-lock)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1472 (font-lock-use-default-colors)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1473 (customize-set-variable 'font-lock-use-colors t)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1474 (customize-set-variable 'font-lock-use-fonts nil)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1475 (font-lock-mode 1))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1476 :style radio
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1477 :selected (and (boundp 'font-lock-use-colors) font-lock-use-colors)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1478 :active (boundp 'font-lock-mode)]
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1479 "-----"
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1480 ["%_1 Least"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1481 (progn
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1482 (require 'font-lock)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1483 (if (or (and (not (integerp font-lock-maximum-decoration))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1484 (not (eq t font-lock-maximum-decoration)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1485 (and (integerp font-lock-maximum-decoration)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1486 (<= font-lock-maximum-decoration 0)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1487 nil
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1488 (customize-set-variable 'font-lock-maximum-decoration nil)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1489 (font-lock-recompute-variables)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1490 :style radio
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1491 :active (fboundp 'font-lock-mode)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1492 :selected (and (boundp 'font-lock-maximum-decoration)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1493 (or (and (not (integerp font-lock-maximum-decoration))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1494 (not (eq t font-lock-maximum-decoration)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1495 (and (integerp font-lock-maximum-decoration)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1496 (<= font-lock-maximum-decoration 0))))]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1497 ["%_2 More"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1498 (progn
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1499 (require 'font-lock)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1500 (if (and (integerp font-lock-maximum-decoration)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1501 (= 1 font-lock-maximum-decoration))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1502 nil
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1503 (customize-set-variable 'font-lock-maximum-decoration 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1504 (font-lock-recompute-variables)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1505 :style radio
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1506 :active (fboundp 'font-lock-mode)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1507 :selected (and (boundp 'font-lock-maximum-decoration)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1508 (integerp font-lock-maximum-decoration)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1509 (= 1 font-lock-maximum-decoration))]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1510 ["%_3 Even More"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1511 (progn
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1512 (require 'font-lock)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1513 (if (and (integerp font-lock-maximum-decoration)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1514 (= 2 font-lock-maximum-decoration))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1515 nil
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1516 (customize-set-variable 'font-lock-maximum-decoration 2)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1517 (font-lock-recompute-variables)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1518 :style radio
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1519 :active (fboundp 'font-lock-mode)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1520 :selected (and (boundp 'font-lock-maximum-decoration)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1521 (integerp font-lock-maximum-decoration)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1522 (= 2 font-lock-maximum-decoration))]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1523 ["%_4 Most"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1524 (progn
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1525 (require 'font-lock)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1526 (if (or (eq font-lock-maximum-decoration t)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1527 (and (integerp font-lock-maximum-decoration)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1528 (>= font-lock-maximum-decoration 3)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1529 nil
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1530 (customize-set-variable 'font-lock-maximum-decoration t)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1531 (font-lock-recompute-variables)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1532 :style radio
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1533 :active (fboundp 'font-lock-mode)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1534 :selected (and (boundp 'font-lock-maximum-decoration)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1535 (or (eq font-lock-maximum-decoration t)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1536 (and (integerp font-lock-maximum-decoration)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1537 (>= font-lock-maximum-decoration 3))))]
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1538 "-----"
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1539 ["Lazy %_Lock"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1540 (progn;; becomes buffer local
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1541 (lazy-lock-mode)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1542 (customize-set-variable 'lazy-lock-mode lazy-lock-mode)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1543 ;; this shouldn't be necessary so there has to
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1544 ;; be a redisplay bug lurking somewhere (or
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1545 ;; possibly another event handler bug)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1546 (redraw-modeline))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1547 :active (and (boundp 'font-lock-mode) (boundp 'lazy-lock-mode)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1548 font-lock-mode)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1549 :style toggle
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1550 :selected (and (boundp 'lazy-lock-mode) lazy-lock-mode)]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1551 ["Lazy %_Shot"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1552 (progn;; becomes buffer local
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1553 (lazy-shot-mode)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1554 (customize-set-variable 'lazy-shot-mode lazy-shot-mode)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1555 ;; this shouldn't be necessary so there has to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1556 ;; be a redisplay bug lurking somewhere (or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1557 ;; possibly another event handler bug)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1558 (redraw-modeline))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1559 :active (and (boundp 'font-lock-mode) (boundp 'lazy-shot-mode)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1560 font-lock-mode)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1561 :style toggle
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1562 :selected (and (boundp 'lazy-shot-mode) lazy-shot-mode)]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1563 ["Cac%_hing"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1564 (progn;; becomes buffer local
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1565 (fast-lock-mode)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1566 (customize-set-variable 'fast-lock-mode fast-lock-mode)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1567 ;; this shouldn't be necessary so there has to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1568 ;; be a redisplay bug lurking somewhere (or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1569 ;; possibly another event handler bug)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1570 (redraw-modeline))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1571 :active (and (boundp 'font-lock-mode) (boundp 'fast-lock-mode)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1572 font-lock-mode)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1573 :style toggle
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1574 :selected (and (boundp 'fast-lock-mode) fast-lock-mode)]
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1575 )
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1576 ("%_Font" :filter font-menu-family-constructor)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1577 ("Font Si%_ze" :filter font-menu-size-constructor)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1578 ;; ("Font Weig%_ht" :filter font-menu-weight-constructor)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1579 ["Edit Fa%_ces..." (customize-face nil)]
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1580 "-----"
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1581 ["Edit I%_nit File"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1582 ;; #### there should be something that holds the name that the init
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1583 ;; file should be created as, when it's not present.
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1584 (let ((el-file (or user-init-file "~/.xemacs/init.el")))
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1585 (if (string-match "\\.elc$" el-file)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1586 (setq el-file
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1587 (substring user-init-file 0 (1- (length el-file)))))
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1588 (find-file el-file)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1589 (or (eq major-mode 'emacs-lisp-mode)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1590 (emacs-lisp-mode)))]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1591 ["%_Save Options to Init File" customize-save-customized]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1592 )
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1593
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1594 ("%_Buffers"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1595 :filter buffers-menu-filter
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1596 ["Go To %_Previous Buffer" switch-to-other-buffer]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1597 ["Go To %_Buffer..." switch-to-buffer]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1598 "----"
792
4e83fdb13eb9 [xemacs-hg @ 2002-03-23 05:08:47 by youngs]
youngs
parents: 788
diff changeset
1599 ["%_List All Buffers" list-all-buffers]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1600 ["%_Delete Buffer" kill-this-buffer
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1601 :suffix (if put-buffer-names-in-file-menu (buffer-name) "")]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1602 "----"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1603 )
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1604
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1605 nil ; the partition: menus after this are flushright
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1606
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1607 ("%_Help"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1608 ["%_About XEmacs..." about-xemacs]
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1609 ["%_Home Page (www.xemacs.org)" xemacs-www-page
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1610 :active (fboundp 'browse-url)]
479
52626a2f02ef [xemacs-hg @ 2001-04-20 11:31:53 by ben]
ben
parents: 464
diff changeset
1611 ["What's %_New in XEmacs" view-emacs-news]
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1612 "-----"
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1613 ("%_Info (Online Docs)"
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1614 ["Info Con%_tents" (Info-goto-node "(dir)")]
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1615 "-----"
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1616 ["XEmacs %_User's Manual" (Info-goto-node "(XEmacs)")]
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1617 ["XEmacs %_Lisp Reference Manual" (Info-goto-node "(Lispref)")]
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1618 ["All About %_Packages" (Info-goto-node "(xemacs)Packages")]
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1619 ["%_Getting Started with XEmacs" (Info-goto-node "(New-Users-Guide)")]
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1620 ["XEmacs In%_ternals Manual" (Info-goto-node "(Internals)")]
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1621 ["%_How to Use Info" (Info-goto-node "(Info)")]
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1622 "-----"
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1623 ["Lookup %_Key Sequence in User's Manual..."
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1624 Info-goto-emacs-key-command-node]
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1625 ["Lookup %_Command in User's Manual..." Info-goto-emacs-command-node]
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1626 ["Lookup %_Function in Lisp Reference..." Info-elisp-ref]
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1627 "-----"
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1628 ["Search %_Index in User's Manual/Lispref..."
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1629 Info-search-index-in-xemacs-and-lispref]
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1630 ["%_Search Text in User's Manual..." Info-search-text-in-xemacs]
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1631 ["S%_earch Text in Lisp Reference..."
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1632 Info-search-text-in-lispref]
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1633 )
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1634 ("XEmacs %_FAQ"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1635 ["%_FAQ (local)" xemacs-local-faq]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1636 ["FAQ via %_WWW" xemacs-www-faq
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1637 :active (fboundp 'browse-url)])
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1638 ("%_Tutorials"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1639 :filter tutorials-menu-filter)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1640 ("%_Samples"
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1641 ["View Sample %_init.el" view-sample-init-el
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 454
diff changeset
1642 :active (locate-data-file "sample.init.el")]
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1643 ["View Sample .%_gtkrc"
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1644 (Help-find-file (locate-data-file "sample.gtkrc"))
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 454
diff changeset
1645 :included (featurep 'gtk)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 454
diff changeset
1646 :active (locate-data-file "sample.gtkrc")]
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1647 ["View Sample .%_Xdefaults"
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1648 (Help-find-file (locate-data-file "sample.Xdefaults"))
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 454
diff changeset
1649 :included (featurep 'x)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1650 :active (locate-data-file "sample.Xdefaults")]
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1651 ["View Sample %_enriched.doc"
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1652 (Help-find-file (locate-data-file "enriched.doc"))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1653 :active (locate-data-file "enriched.doc")])
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1654 ("%_Commands, Variables, Keys"
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1655 ["Describe %_Mode" describe-mode]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1656 ["%_Apropos..." hyper-apropos]
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1657 ["%_Command-Only Apropos..." command-hyper-apropos]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1658 ["Apropos %_Docs..." apropos-documentation]
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1659 "-----"
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1660 ["Describe %_Key..." describe-key]
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1661 ["Show %_Bindings" describe-bindings]
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1662 ["Show M%_ouse Bindings" describe-pointer]
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1663 "-----"
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1664 ["Describe %_Function..." describe-function]
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1665 ["Describe %_Variable..." describe-variable]
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1666 ["%_Locate Command in Keymap..." where-is])
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1667 ,@(when (featurep 'mule)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1668 '(("Internationa%_l"
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1669 ("Describe %_Language Support"
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1670 :filter
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1671 (lambda (menu)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1672 (menu-split-long-menu
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1673 (menu-sort-menu
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1674 (mapcar #'(lambda (entry)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1675 `[ ,(car entry)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1676 (describe-language-environment
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1677 ',(car entry))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1678 :style radio
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1679 :selected
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1680 ,(equal (car entry)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1681 current-language-environment)])
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1682 language-info-alist)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1683 ))))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1684 ["Describe %_Input Method" describe-input-method]
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1685 ["Describe Current %_Coding Systems"
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1686 describe-current-coding-system]
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1687 ["Show Character %_Table" view-charset-by-menu]
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1688 ;; not implemented yet
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1689 ["Show %_Diagnosis for MULE" mule-diag :active nil]
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1690 ["Show \"%_hello\" in Many Languages" view-hello-file]
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1691 )))
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
1692 ("%_Other"
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1693 ["%_Current Installation Info" describe-installation
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1694 :active (boundp 'Installation-string)]
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1695 ["%_No Warranty" describe-no-warranty]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1696 ["XEmacs %_License" describe-copying]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1697 ["Find %_Packages" finder-by-keyword]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1698 ["View %_Splash Screen" xemacs-splash-buffer]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1699 ["%_Unix Manual..." manual-entry])
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
1700 "-----"
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
1701 ["Recent %_Messages" (view-lossage t)]
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
1702 ["Recent %_Keystrokes" view-lossage]
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 792
diff changeset
1703 ["Recent %_Warnings" view-warnings]
644
51494923758b [xemacs-hg @ 2001-08-06 04:40:51 by youngs]
youngs
parents: 510
diff changeset
1704 ["Send %_Bug Report..." report-xemacs-bug
51494923758b [xemacs-hg @ 2001-08-06 04:40:51 by youngs]
youngs
parents: 510
diff changeset
1705 :active (fboundp 'report-xemacs-bug)])))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1706
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1707
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
1708 (defun init-menubar-at-startup ()
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1709 "Don't call this.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1710 Adds `Load .emacs' button to menubar when starting up with -q."
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1711 (when (and (not load-user-init-file-p)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1712 (file-exists-p (expand-file-name ".emacs" "~")))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1713 (add-menu-button
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1714 nil
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1715 ["%_Load .emacs"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1716 (progn
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1717 (mapc #'(lambda (buf)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1718 (with-current-buffer buf
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1719 (delete-menu-item '("Load .emacs"))))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1720 (buffer-list))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1721 (load-user-init-file))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1722 ]
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1723 "Help")))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1724
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1725
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1726 ;;; The File menu
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1727
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1728 (defvar put-buffer-names-in-file-menu t)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1729
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1730 ;;; The Buffers menu
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1731
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1732 (defgroup buffers-menu nil
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1733 "Customization of `Buffers' menu."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1734 :group 'menu)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1735
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1736 (defvar buffers-menu-omit-chars-list '(?b ?p ?l ?d))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1737
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1738 (defcustom buffers-menu-max-size 25
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1739 "*Maximum number of entries which may appear on the \"Buffers\" menu.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1740 If this is 10, then only the ten most-recently-selected buffers will be
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1741 shown. If this is nil, then all buffers will be shown. Setting this to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1742 a large number or nil will slow down menu responsiveness."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1743 :type '(choice (const :tag "Show all" nil)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1744 (integer 10))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1745 :group 'buffers-menu)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1746
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1747 (defcustom complex-buffers-menu-p nil
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1748 "*If non-nil, the buffers menu will contain several commands.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1749 Commands will be presented as submenus of each buffer line. If this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1750 is false, then there will be only one command: select that buffer."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1751 :type 'boolean
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1752 :group 'buffers-menu)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1753
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1754 (defcustom buffers-menu-submenus-for-groups-p nil
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1755 "*If non-nil, the buffers menu will contain one submenu per group of buffers.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1756 The grouping function is specified in `buffers-menu-grouping-function'.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1757 If this is an integer, do not build submenus if the number of buffers
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1758 is not larger than this value."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1759 :type '(choice (const :tag "No Subgroups" nil)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1760 (integer :tag "Max. submenus" 10)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1761 (sexp :format "%t\n" :tag "Allow Subgroups" :value t))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1762 :group 'buffers-menu)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1763
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1764 (defcustom buffers-menu-switch-to-buffer-function 'switch-to-buffer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1765 "*The function to call to select a buffer from the buffers menu.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1766 `switch-to-buffer' is a good choice, as is `pop-to-buffer'."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1767 :type '(radio (function-item switch-to-buffer)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1768 (function-item pop-to-buffer)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1769 (function :tag "Other"))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1770 :group 'buffers-menu)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1771
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1772 (defcustom buffers-menu-omit-function 'buffers-menu-omit-invisible-buffers
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1773 "*If non-nil, a function specifying the buffers to omit from the buffers menu.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1774 This is passed a buffer and should return non-nil if the buffer should be
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1775 omitted. The default value `buffers-menu-omit-invisible-buffers' omits
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1776 buffers that are normally considered \"invisible\" (those whose name
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1777 begins with a space)."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1778 :type '(choice (const :tag "None" nil)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1779 function)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1780 :group 'buffers-menu)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1781
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1782 (defcustom buffers-menu-format-buffer-line-function 'format-buffers-menu-line
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1783 "*The function to call to return a string to represent a buffer in
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1784 the buffers menu. The function is passed a buffer and a number
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1785 (starting with 1) indicating which buffer line in the menu is being
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1786 processed and should return a string containing an accelerator
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1787 spec. (Check out `menu-item-generate-accelerator-spec' as a convenient
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1788 way of generating the accelerator specs.) The default value
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1789 `format-buffers-menu-line' just returns the name of the buffer and
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1790 uses the number as the accelerator. Also check out
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1791 `slow-format-buffers-menu-line' which returns a whole bunch of info
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1792 about a buffer.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1793
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1794 Note: Gross Compatibility Hack: Older versions of this function prototype
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1795 only expected one argument, not two. We deal gracefully with such
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1796 functions by simply calling them with one argument and leaving out the
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1797 line number. However, this may go away at any time, so make sure to
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1798 update all of your functions of this type."
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1799 :type 'function
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1800 :group 'buffers-menu)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1801
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1802 (defcustom buffers-menu-sort-function
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1803 'sort-buffers-menu-by-mode-then-alphabetically
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1804 "*If non-nil, a function to sort the list of buffers in the buffers menu.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1805 It will be passed two arguments (two buffers to compare) and should return
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1806 t if the first is \"less\" than the second. One possible value is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1807 `sort-buffers-menu-alphabetically'; another is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1808 `sort-buffers-menu-by-mode-then-alphabetically'."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1809 :type '(choice (const :tag "None" nil)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1810 function)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1811 :group 'buffers-menu)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1812
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1813 (defcustom buffers-menu-grouping-function
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1814 'group-buffers-menu-by-mode-then-alphabetically
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1815 "*If non-nil, a function to group buffers in the buffers menu together.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1816 It will be passed two arguments, successive members of the sorted buffers
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1817 list after being passed through `buffers-menu-sort-function'. It should
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1818 return non-nil if the second buffer begins a new group. The return value
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1819 should be the name of the old group, which may be used in hierarchical
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1820 buffers menus. The last invocation of the function contains nil as the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1821 second argument, so that the name of the last group can be determined.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1822
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1823 The sensible values of this function are dependent on the value specified
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1824 for `buffers-menu-sort-function'."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1825 :type '(choice (const :tag "None" nil)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1826 function)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1827 :group 'buffers-menu)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1828
792
4e83fdb13eb9 [xemacs-hg @ 2002-03-23 05:08:47 by youngs]
youngs
parents: 788
diff changeset
1829 (defcustom list-all-buffers-function 'list-buffers
4e83fdb13eb9 [xemacs-hg @ 2002-03-23 05:08:47 by youngs]
youngs
parents: 788
diff changeset
1830 "*Function that `list-all-buffers' calls."
4e83fdb13eb9 [xemacs-hg @ 2002-03-23 05:08:47 by youngs]
youngs
parents: 788
diff changeset
1831 :type '(choice (const list-buffers)
4e83fdb13eb9 [xemacs-hg @ 2002-03-23 05:08:47 by youngs]
youngs
parents: 788
diff changeset
1832 (const ibuffer)
4e83fdb13eb9 [xemacs-hg @ 2002-03-23 05:08:47 by youngs]
youngs
parents: 788
diff changeset
1833 (const ibuffer-other-window)
4e83fdb13eb9 [xemacs-hg @ 2002-03-23 05:08:47 by youngs]
youngs
parents: 788
diff changeset
1834 function)
4e83fdb13eb9 [xemacs-hg @ 2002-03-23 05:08:47 by youngs]
youngs
parents: 788
diff changeset
1835 :group 'buffers-menu)
4e83fdb13eb9 [xemacs-hg @ 2002-03-23 05:08:47 by youngs]
youngs
parents: 788
diff changeset
1836
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1837 (defun sort-buffers-menu-alphabetically (buf1 buf2)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1838 "For use as a value of `buffers-menu-sort-function'.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1839 Sorts the buffers in alphabetical order by name, but puts buffers beginning
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1840 with a star at the end of the list."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1841 (let* ((nam1 (buffer-name buf1))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1842 (nam2 (buffer-name buf2))
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
1843 (inv1p (not (null (string-match "\\` " nam1))))
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
1844 (inv2p (not (null (string-match "\\` " nam2))))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1845 (star1p (not (null (string-match "\\`*" nam1))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1846 (star2p (not (null (string-match "\\`*" nam2)))))
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
1847 (cond ((not (eq inv1p inv2p))
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
1848 (not inv1p))
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
1849 ((not (eq star1p star2p))
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
1850 (not star1p))
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
1851 (t
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
1852 (string-lessp nam1 nam2)))))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1853
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1854 (defun sort-buffers-menu-by-mode-then-alphabetically (buf1 buf2)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1855 "For use as a value of `buffers-menu-sort-function'.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1856 Sorts first by major mode and then alphabetically by name, but puts buffers
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1857 beginning with a star at the end of the list."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1858 (let* ((nam1 (buffer-name buf1))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1859 (nam2 (buffer-name buf2))
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
1860 (inv1p (not (null (string-match "\\` " nam1))))
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
1861 (inv2p (not (null (string-match "\\` " nam2))))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1862 (star1p (not (null (string-match "\\`*" nam1))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1863 (star2p (not (null (string-match "\\`*" nam2))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1864 (mode1 (symbol-value-in-buffer 'major-mode buf1))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1865 (mode2 (symbol-value-in-buffer 'major-mode buf2)))
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
1866 (cond ((not (eq inv1p inv2p))
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
1867 (not inv1p))
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
1868 ((not (eq star1p star2p))
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
1869 (not star1p))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1870 ((and star1p star2p (string-lessp nam1 nam2)))
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
1871 ((string-lessp mode1 mode2)
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
1872 t)
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
1873 ((string-lessp mode2 mode1)
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
1874 nil)
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
1875 (t
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
1876 (string-lessp nam1 nam2)))))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1877
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1878 ;; this version is too slow on some machines.
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1879 ;; (vintage 1990, that is)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1880 (defun slow-format-buffers-menu-line (buffer n)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1881 "For use as a value of `buffers-menu-format-buffer-line-function'.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1882 This returns a string containing a bunch of info about the buffer."
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1883 (concat (menu-item-generate-accelerator-spec n buffers-menu-omit-chars-list)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1884 (format "%s%s %-19s %6s %-15s %s"
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1885 (if (buffer-modified-p buffer) "*" " ")
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1886 (if (symbol-value-in-buffer 'buffer-read-only buffer)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1887 "%" " ")
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1888 (buffer-name buffer)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1889 (buffer-size buffer)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1890 (symbol-value-in-buffer 'mode-name buffer)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1891 (or (buffer-file-name buffer) ""))))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1892
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1893 (defun format-buffers-menu-line (buffer n)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1894 "For use as a value of `buffers-menu-format-buffer-line-function'.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1895 This just returns the buffer's name."
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1896 (concat (menu-item-generate-accelerator-spec n buffers-menu-omit-chars-list)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1897 (buffer-name buffer)))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1898
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1899 (defun group-buffers-menu-by-mode-then-alphabetically (buf1 buf2)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1900 "For use as a value of `buffers-menu-grouping-function'.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1901 This groups buffers by major mode. It only really makes sense if
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1902 `buffers-menu-sorting-function' is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1903 `sort-buffers-menu-by-mode-then-alphabetically'."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1904 (cond ((string-match "\\`*" (buffer-name buf1))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1905 (and (null buf2) "*Misc*"))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1906 ((or (null buf2)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1907 (string-match "\\`*" (buffer-name buf2))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1908 (not (eq (symbol-value-in-buffer 'major-mode buf1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1909 (symbol-value-in-buffer 'major-mode buf2))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1910 (symbol-value-in-buffer 'mode-name buf1))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1911 (t nil)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1912
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1913 (defun buffer-menu-save-buffer (buffer)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1914 (save-excursion
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1915 (set-buffer buffer)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1916 (save-buffer)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1917
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1918 (defun buffer-menu-write-file (buffer)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1919 (save-excursion
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1920 (set-buffer buffer)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1921 (write-file (read-file-name
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1922 (format "Write %s to file: "
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1923 (buffer-name (current-buffer)))))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1924
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1925 (defsubst build-buffers-menu-internal (buffers)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1926 (let (name line (n 0))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1927 (mapcar
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1928 #'(lambda (buffer)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1929 (if (eq buffer t)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1930 "---"
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1931 (setq n (1+ n))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1932 (setq line
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1933 ; #### a truly Kyle-friendly hack.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1934 (let ((fn buffers-menu-format-buffer-line-function))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1935 (if (= (function-max-args fn) 1)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1936 (funcall fn buffer)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1937 (funcall fn buffer n))))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1938 (if complex-buffers-menu-p
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1939 (delq nil
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1940 (list line
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1941 (vector "S%_witch to Buffer"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1942 (list buffers-menu-switch-to-buffer-function
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1943 (setq name (buffer-name buffer)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1944 t)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1945 (if (eq buffers-menu-switch-to-buffer-function
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1946 'switch-to-buffer)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1947 (vector "Switch to Buffer, Other %_Frame"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1948 (list 'switch-to-buffer-other-frame
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1949 (setq name (buffer-name buffer)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1950 t)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1951 nil)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1952 (if (and (buffer-modified-p buffer)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1953 (buffer-file-name buffer))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1954 (vector "%_Save Buffer"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1955 (list 'buffer-menu-save-buffer name) t)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1956 ["%_Save Buffer" nil nil]
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1957 )
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1958 (vector "Save %_As..."
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1959 (list 'buffer-menu-write-file name) t)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1960 (vector "%_Delete Buffer" (list 'kill-buffer name)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1961 t)))
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1962 ;; #### We don't want buffer names to be translated,
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1963 ;; #### so we put the buffer name in the suffix.
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1964 ;; #### Also, avoid losing with non-ASCII buffer names.
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1965 ;; #### We still lose, however, if complex-buffers-menu-p. --mrb
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1966 (vector ""
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1967 (list buffers-menu-switch-to-buffer-function
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1968 (buffer-name buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1969 t line))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1970 buffers)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1971
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1972 (defun buffers-menu-filter (menu)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1973 "This is the menu filter for the top-level buffers \"Buffers\" menu.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1974 It dynamically creates a list of buffers to use as the contents of the menu.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1975 Only the most-recently-used few buffers will be listed on the menu, for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1976 efficiency reasons. You can control how many buffers will be shown by
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1977 setting `buffers-menu-max-size'. You can control the text of the menu
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1978 items by redefining the function `format-buffers-menu-line'."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1979 (let ((buffers (delete-if buffers-menu-omit-function (buffer-list))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1980 (and (integerp buffers-menu-max-size)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1981 (> buffers-menu-max-size 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1982 (> (length buffers) buffers-menu-max-size)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1983 ;; shorten list of buffers (not with submenus!)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1984 (not (and buffers-menu-grouping-function
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1985 buffers-menu-submenus-for-groups-p))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1986 (setcdr (nthcdr buffers-menu-max-size buffers) nil))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1987 (if buffers-menu-sort-function
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1988 (setq buffers (sort buffers buffers-menu-sort-function)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1989 (if (and buffers-menu-grouping-function
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1990 buffers-menu-submenus-for-groups-p
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1991 (or (not (integerp buffers-menu-submenus-for-groups-p))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1992 (> (length buffers) buffers-menu-submenus-for-groups-p)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1993 (let (groups groupnames current-group)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1994 (mapl
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1995 #'(lambda (sublist)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1996 (let ((groupname (funcall buffers-menu-grouping-function
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1997 (car sublist) (cadr sublist))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1998 (setq current-group (cons (car sublist) current-group))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1999 (if groupname
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2000 (progn
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2001 (setq groups (cons (nreverse current-group)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2002 groups))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2003 (setq groupnames (cons groupname groupnames))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2004 (setq current-group nil)))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2005 buffers)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2006 (setq buffers
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2007 (mapcar*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2008 #'(lambda (groupname group)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2009 (cons groupname (build-buffers-menu-internal group)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2010 (nreverse groupnames)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2011 (nreverse groups))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2012 (if buffers-menu-grouping-function
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2013 (progn
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2014 (setq buffers
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2015 (mapcon
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2016 #'(lambda (sublist)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2017 (cond ((funcall buffers-menu-grouping-function
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2018 (car sublist) (cadr sublist))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2019 (list (car sublist) t))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2020 (t (list (car sublist)))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2021 buffers))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2022 ;; remove a trailing separator.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2023 (and (>= (length buffers) 2)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2024 (let ((lastcdr (nthcdr (- (length buffers) 2) buffers)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2025 (if (eq t (cadr lastcdr))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2026 (setcdr lastcdr nil))))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2027 (setq buffers (build-buffers-menu-internal buffers)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2028 (append menu buffers)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2029 ))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2030
792
4e83fdb13eb9 [xemacs-hg @ 2002-03-23 05:08:47 by youngs]
youngs
parents: 788
diff changeset
2031 (defun list-all-buffers ()
4e83fdb13eb9 [xemacs-hg @ 2002-03-23 05:08:47 by youngs]
youngs
parents: 788
diff changeset
2032 "Display a list of buffers. Calls `list-all-buffers-function'."
4e83fdb13eb9 [xemacs-hg @ 2002-03-23 05:08:47 by youngs]
youngs
parents: 788
diff changeset
2033 (interactive)
4e83fdb13eb9 [xemacs-hg @ 2002-03-23 05:08:47 by youngs]
youngs
parents: 788
diff changeset
2034 (funcall (if (fboundp list-all-buffers-function)
4e83fdb13eb9 [xemacs-hg @ 2002-03-23 05:08:47 by youngs]
youngs
parents: 788
diff changeset
2035 list-all-buffers-function
4e83fdb13eb9 [xemacs-hg @ 2002-03-23 05:08:47 by youngs]
youngs
parents: 788
diff changeset
2036 'list-buffers)))
4e83fdb13eb9 [xemacs-hg @ 2002-03-23 05:08:47 by youngs]
youngs
parents: 788
diff changeset
2037
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2038
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2039 ;;; The Options menu
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2040
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2041 ;; We'll keep those variables here for a while, in order to provide a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2042 ;; function for porting the old options file that a user may own to Custom.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2043
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2044 (defvar options-save-faces nil
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2045 "*Non-nil value means save-options will save information about faces.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2046 A nil value means save-options will not save face information.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2047 Set this non-nil only if you use M-x edit-faces to change face
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2048 settings. If you use M-x customize-face or the \"Browse Faces...\"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2049 menu entry, you will see a button in the Customize Face buffer that you
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2050 can use to permanently save your face changes.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2051
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2052 M-x edit-faces is deprecated. Support for it and this variable will
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2053 be discontinued in a future release.")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2054
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2055 (defvar save-options-init-file nil
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2056 "File into which to save forms to load the options file (nil for .emacs).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2057 Normally this is nil, which means save into your .emacs file (the value
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2058 of `user-init-file'.")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2059
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2060 (defvar save-options-file ".xemacs-options"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2061 "File to save options into.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2062 This file is loaded from your .emacs file.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2063 If this is a relative filename, it is put into the same directory as your
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2064 .emacs file.")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2065
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2066
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2067
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2068 ;;; The Help menu
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2069
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2070 (defun tutorials-menu-filter (menu-items)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2071 (declare (special language-info-alist
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2072 current-language-environment
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2073 tutorial-supported-languages))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2074 (append
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2075 (if (featurep 'mule)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2076 (if (assq 'tutorial
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2077 (assoc current-language-environment language-info-alist))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2078 `([,(concat "%_Default (" current-language-environment ")")
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2079 help-with-tutorial]))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2080 '(["%_English" help-with-tutorial]))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2081 (submenu-generate-accelerator-spec
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2082 (if (featurep 'mule)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2083 ;; Mule tutorials.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2084 (mapcan #'(lambda (lang)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2085 (let ((tut (assq 'tutorial lang)))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2086 (and tut
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2087 (not (string= (car lang) "ASCII"))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2088 ;; skip current language, since we already
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2089 ;; included it first
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2090 (not (string= (car lang)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2091 current-language-environment))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2092 `([,(car lang)
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
2093 (help-with-tutorial nil ,(car lang))]))))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2094 language-info-alist)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2095 ;; Non mule tutorials.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2096 (mapcar #'(lambda (lang)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2097 `[,(car lang)
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 732
diff changeset
2098 (help-with-tutorial nil ,(car lang))])
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2099 tutorial-supported-languages)))))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2100
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2101 (set-menubar default-menubar)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2102
814
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
2103 (when (featurep 'menubar-items)
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
2104 (loop for buf being the buffers do
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
2105 (or (eq default-menubar (symbol-value-in-buffer 'current-menubar buf))
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
2106 (with-current-buffer buf
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
2107 (condition-case nil
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
2108 (funcall major-mode)
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
2109 (error (setq current-menubar default-menubar)))))))
a634e3b7acc8 [xemacs-hg @ 2002-04-14 12:41:59 by ben]
ben
parents: 800
diff changeset
2110
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2111
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2112 ;;; Popup menus.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2113
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2114 (defconst default-popup-menu
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2115 '("XEmacs Commands"
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
2116 ["%_Split Window" split-window-vertically]
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
2117 ["S%_plit Window (Side by Side)" split-window-horizontally]
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
2118 ["%_Un-Split (Keep This)" delete-other-windows
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
2119 :active (not (one-window-p t))]
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
2120 ["Un-Split (Keep %_Others)" delete-window
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 479
diff changeset
2121 :active (not (one-window-p t))]
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2122 ))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2123
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2124 ;; In an effort to avoid massive menu clutter, this mostly worthless menu is
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2125 ;; superseded by any local popup menu...
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2126 (setq-default mode-popup-menu default-popup-menu)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2127
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2128
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2129 ;; misc
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2130
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2131 (defun xemacs-splash-buffer ()
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2132 "Redisplay XEmacs splash screen in a buffer."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2133 (interactive)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2134 (let ((buffer (get-buffer-create "*Splash*"))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2135 tmout)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2136 (set-buffer buffer)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2137 (setq buffer-read-only t)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2138 (erase-buffer buffer)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2139 (setq tmout (display-splash-frame))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2140 (when tmout
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2141 (make-local-hook 'kill-buffer-hook)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2142 (add-hook 'kill-buffer-hook
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2143 `(lambda ()
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2144 (disable-timeout ,tmout))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2145 nil t))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2146 (pop-to-buffer buffer)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2147 (delete-other-windows)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2148
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2149
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2150 ;;; backwards compatibility
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2151 (provide 'x-menubar)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2152 (provide 'menubar-items)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2153
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
2154 ;;; menubar-items.el ends here.