aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorKaroly Lorentey2005-10-19 14:06:17 +0000
committerKaroly Lorentey2005-10-19 14:06:17 +0000
commit1072671b5b0f1fda9f91ea99da4bf0bd275ce6eb (patch)
treef1b05485825e65d7c0ca06cb273be4fe16a44a3f /lisp
parent6d8cf83040cdb54a0b1d72bd6a021f9815bd4af2 (diff)
parent8b1b64617b37243f75c4052653761d2e2a3943f3 (diff)
downloademacs-1072671b5b0f1fda9f91ea99da4bf0bd275ce6eb.tar.gz
emacs-1072671b5b0f1fda9f91ea99da4bf0bd275ce6eb.zip
Merged from miles@gnu.org--gnu-2005 (patch 133-141, 596-609)
Patches applied: * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-596 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-597 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-598 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-599 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-600 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-601 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-602 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-603 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-604 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-605 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-606 Remove lisp/toolbar directory * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-607 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-608 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-609 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-133 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-134 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-135 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-136 Merge from emacs--cvs-trunk--0 * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-137 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-138 Update from CVS: texi/gnus.texi (RSS): Fix key description. * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-139 Merge from emacs--cvs-trunk--0 * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-140 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-141 Update from CVS: texi/gnus.texi (Document Server Internals): Addition. git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-426
Diffstat (limited to 'lisp')
-rw-r--r--lisp/ChangeLog337
-rw-r--r--lisp/arc-mode.el3
-rw-r--r--lisp/bookmark.el42
-rw-r--r--lisp/calc/calc-store.el2
-rw-r--r--lisp/cus-edit.el12
-rw-r--r--lisp/dabbrev.el3
-rw-r--r--lisp/diff-mode.el2
-rw-r--r--lisp/emacs-lisp/lisp.el2
-rw-r--r--lisp/eshell/em-hist.el2
-rw-r--r--lisp/ffap.el4
-rw-r--r--lisp/filecache.el4
-rw-r--r--lisp/gnus/ChangeLog21
-rw-r--r--lisp/gnus/gnus-cus.el16
-rw-r--r--lisp/gnus/message.el4
-rw-r--r--lisp/gnus/nnrss.el13
-rw-r--r--lisp/info.el83
-rw-r--r--lisp/jit-lock.el14
-rw-r--r--lisp/longlines.el24
-rw-r--r--lisp/mail/mailabbrev.el3
-rw-r--r--lisp/mail/sendmail.el5
-rw-r--r--lisp/makefile.w32-in66
-rw-r--r--lisp/man.el23
-rw-r--r--lisp/menu-bar.el2
-rw-r--r--lisp/mh-e/ChangeLog78
-rw-r--r--lisp/mh-e/mh-comp.el20
-rw-r--r--lisp/mh-e/mh-customize.el11
-rw-r--r--lisp/mh-e/mh-e.el9
-rw-r--r--lisp/mh-e/mh-funcs.el2
-rw-r--r--lisp/mh-e/mh-identity.el2
-rw-r--r--lisp/mh-e/mh-init.el54
-rw-r--r--lisp/mh-e/mh-mime.el2
-rw-r--r--lisp/mh-e/mh-pick.el2
-rw-r--r--lisp/mh-e/mh-seq.el5
-rw-r--r--lisp/mh-e/mh-utils.el6
-rw-r--r--lisp/mouse.el24
-rw-r--r--lisp/net/tramp.el130
-rw-r--r--lisp/pcvs.el29
-rw-r--r--lisp/progmodes/compile.el64
-rw-r--r--lisp/progmodes/etags.el3
-rw-r--r--lisp/progmodes/gdb-ui.el7
-rw-r--r--lisp/progmodes/gud.el39
-rw-r--r--lisp/progmodes/make-mode.el2
-rw-r--r--lisp/progmodes/meta-mode.el2
-rw-r--r--lisp/progmodes/octave-mod.el2
-rw-r--r--lisp/progmodes/pascal.el4
-rw-r--r--lisp/progmodes/python.el2
-rw-r--r--lisp/recentf.el106
-rw-r--r--lisp/savehist.el270
-rw-r--r--lisp/simple.el26
-rw-r--r--lisp/speedbar.el38
-rw-r--r--lisp/tempo.el6
-rw-r--r--lisp/term/mac-win.el53
-rw-r--r--lisp/textmodes/bibtex.el4
-rw-r--r--lisp/textmodes/conf-mode.el78
-rw-r--r--lisp/textmodes/org.el2
-rw-r--r--lisp/textmodes/tex-mode.el2
-rw-r--r--lisp/tool-bar.el (renamed from lisp/toolbar/tool-bar.el)24
-rw-r--r--lisp/toolbar/README12
-rw-r--r--lisp/toolbar/attach.pbmbin634 -> 0 bytes
-rw-r--r--lisp/toolbar/back_arrow.pbmbin185 -> 0 bytes
-rw-r--r--lisp/toolbar/back_arrow.xpm57
-rw-r--r--lisp/toolbar/cancel.pbmbin634 -> 0 bytes
-rw-r--r--lisp/toolbar/cancel.xpm35
-rw-r--r--lisp/toolbar/close.pbmbin199 -> 0 bytes
-rw-r--r--lisp/toolbar/close.xpm29
-rw-r--r--lisp/toolbar/copy.pbmbin185 -> 0 bytes
-rw-r--r--lisp/toolbar/copy.xpm53
-rw-r--r--lisp/toolbar/cut.pbmbin185 -> 0 bytes
-rw-r--r--lisp/toolbar/cut.xpm67
-rw-r--r--lisp/toolbar/diropen.pbmbin81 -> 0 bytes
-rw-r--r--lisp/toolbar/diropen.xpm44
-rw-r--r--lisp/toolbar/exit.pbmbin634 -> 0 bytes
-rw-r--r--lisp/toolbar/exit.xpm36
-rw-r--r--lisp/toolbar/fld_open.pbmbin634 -> 0 bytes
-rw-r--r--lisp/toolbar/fld_open.xpm34
-rw-r--r--lisp/toolbar/fwd_arrow.pbmbin185 -> 0 bytes
-rw-r--r--lisp/toolbar/fwd_arrow.xpm70
-rw-r--r--lisp/toolbar/gud-break.pbmbin81 -> 0 bytes
-rw-r--r--lisp/toolbar/gud-break.xpm30
-rw-r--r--lisp/toolbar/gud-cont.pbmbin81 -> 0 bytes
-rw-r--r--lisp/toolbar/gud-cont.xpm33
-rw-r--r--lisp/toolbar/gud-down.pbmbin81 -> 0 bytes
-rw-r--r--lisp/toolbar/gud-down.xpm41
-rw-r--r--lisp/toolbar/gud-finish.pbmbin81 -> 0 bytes
-rw-r--r--lisp/toolbar/gud-finish.xpm34
-rw-r--r--lisp/toolbar/gud-n.pbmbin81 -> 0 bytes
-rw-r--r--lisp/toolbar/gud-n.xpm34
-rw-r--r--lisp/toolbar/gud-ni.pbmbin81 -> 0 bytes
-rw-r--r--lisp/toolbar/gud-ni.xpm33
-rw-r--r--lisp/toolbar/gud-print.pbmbin81 -> 0 bytes
-rw-r--r--lisp/toolbar/gud-print.xpm29
-rw-r--r--lisp/toolbar/gud-pstar.pbmbin81 -> 0 bytes
-rw-r--r--lisp/toolbar/gud-pstar.xpm29
-rw-r--r--lisp/toolbar/gud-remove.pbmbin81 -> 0 bytes
-rw-r--r--lisp/toolbar/gud-remove.xpm31
-rw-r--r--lisp/toolbar/gud-run.pbmbin81 -> 0 bytes
-rw-r--r--lisp/toolbar/gud-run.xpm36
-rw-r--r--lisp/toolbar/gud-s.pbmbin81 -> 0 bytes
-rw-r--r--lisp/toolbar/gud-s.xpm33
-rw-r--r--lisp/toolbar/gud-si.pbmbin81 -> 0 bytes
-rw-r--r--lisp/toolbar/gud-si.xpm32
-rw-r--r--lisp/toolbar/gud-until.pbmbin81 -> 0 bytes
-rw-r--r--lisp/toolbar/gud-until.xpm33
-rw-r--r--lisp/toolbar/gud-up.pbmbin81 -> 0 bytes
-rw-r--r--lisp/toolbar/gud-up.xpm41
-rw-r--r--lisp/toolbar/gud-watch.pbmbin81 -> 0 bytes
-rw-r--r--lisp/toolbar/gud-watch.xpm38
-rw-r--r--lisp/toolbar/help.pbmbin185 -> 0 bytes
-rw-r--r--lisp/toolbar/help.xpm271
-rw-r--r--lisp/toolbar/home.pbmbin185 -> 0 bytes
-rw-r--r--lisp/toolbar/home.xpm128
-rw-r--r--lisp/toolbar/index.pbmbin185 -> 0 bytes
-rw-r--r--lisp/toolbar/index.xpm201
-rw-r--r--lisp/toolbar/info.pbmbin81 -> 0 bytes
-rw-r--r--lisp/toolbar/info.xpm36
-rw-r--r--lisp/toolbar/jump_to.pbmbin185 -> 0 bytes
-rw-r--r--lisp/toolbar/jump_to.xpm171
-rw-r--r--lisp/toolbar/lc-back_arrow.xpm33
-rw-r--r--lisp/toolbar/lc-copy.xpm33
-rw-r--r--lisp/toolbar/lc-cut.xpm34
-rw-r--r--lisp/toolbar/lc-fwd_arrow.xpm32
-rw-r--r--lisp/toolbar/lc-help.xpm39
-rw-r--r--lisp/toolbar/lc-home.xpm38
-rw-r--r--lisp/toolbar/lc-index.xpm34
-rw-r--r--lisp/toolbar/lc-jump_to.xpm35
-rw-r--r--lisp/toolbar/lc-left_arrow.xpm34
-rw-r--r--lisp/toolbar/lc-new.xpm33
-rw-r--r--lisp/toolbar/lc-open.xpm35
-rw-r--r--lisp/toolbar/lc-paste.xpm35
-rw-r--r--lisp/toolbar/lc-preferences.xpm37
-rw-r--r--lisp/toolbar/lc-print.xpm33
-rw-r--r--lisp/toolbar/lc-right_arrow.xpm33
-rw-r--r--lisp/toolbar/lc-save.xpm39
-rw-r--r--lisp/toolbar/lc-saveas.xpm40
-rw-r--r--lisp/toolbar/lc-search.xpm33
-rw-r--r--lisp/toolbar/lc-spell.xpm35
-rw-r--r--lisp/toolbar/lc-undo.xpm32
-rw-r--r--lisp/toolbar/lc-up_arrow.xpm35
-rw-r--r--lisp/toolbar/left_arrow.pbmbin185 -> 0 bytes
-rw-r--r--lisp/toolbar/left_arrow.xpm70
-rw-r--r--lisp/toolbar/mail.pbmbin634 -> 0 bytes
-rw-r--r--lisp/toolbar/mail.xpm35
-rw-r--r--lisp/toolbar/mail_compose.pbmbin634 -> 0 bytes
-rw-r--r--lisp/toolbar/mail_compose.xpm39
-rw-r--r--lisp/toolbar/mail_send.pbmbin634 -> 0 bytes
-rw-r--r--lisp/toolbar/mail_send.xpm39
-rw-r--r--lisp/toolbar/new.pbmbin185 -> 0 bytes
-rw-r--r--lisp/toolbar/new.xpm154
-rw-r--r--lisp/toolbar/open.pbmbin185 -> 0 bytes
-rw-r--r--lisp/toolbar/open.xpm200
-rw-r--r--lisp/toolbar/paste.pbmbin185 -> 0 bytes
-rw-r--r--lisp/toolbar/paste.xpm116
-rw-r--r--lisp/toolbar/preferences.pbmbin185 -> 0 bytes
-rw-r--r--lisp/toolbar/preferences.xpm114
-rw-r--r--lisp/toolbar/print.pbmbin185 -> 0 bytes
-rw-r--r--lisp/toolbar/print.xpm202
-rw-r--r--lisp/toolbar/right_arrow.pbmbin185 -> 0 bytes
-rw-r--r--lisp/toolbar/right_arrow.xpm68
-rw-r--r--lisp/toolbar/save.pbmbin185 -> 0 bytes
-rw-r--r--lisp/toolbar/save.xpm247
-rw-r--r--lisp/toolbar/saveas.pbmbin185 -> 0 bytes
-rw-r--r--lisp/toolbar/saveas.xpm289
-rw-r--r--lisp/toolbar/search-replace.pbmbin634 -> 0 bytes
-rw-r--r--lisp/toolbar/search-replace.xpm38
-rw-r--r--lisp/toolbar/search.pbmbin185 -> 0 bytes
-rw-r--r--lisp/toolbar/search.xpm234
-rw-r--r--lisp/toolbar/spell.pbmbin185 -> 0 bytes
-rw-r--r--lisp/toolbar/spell.xpm64
-rw-r--r--lisp/toolbar/undo.pbmbin185 -> 0 bytes
-rw-r--r--lisp/toolbar/undo.xpm58
-rw-r--r--lisp/toolbar/up_arrow.pbmbin185 -> 0 bytes
-rw-r--r--lisp/toolbar/up_arrow.xpm94
-rw-r--r--lisp/tree-widget.el13
-rw-r--r--lisp/url/ChangeLog4
-rw-r--r--lisp/url/url.el14
-rw-r--r--lisp/wid-edit.el16
-rw-r--r--lisp/woman.el7
177 files changed, 1365 insertions, 5028 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 00c71e23aeb..da7c1765255 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,331 @@
12005-10-18 Stefan Monnier <monnier@iro.umontreal.ca>
2
3 * textmodes/conf-mode.el: Don't use font-lock-defaults-alist.
4 Various docstring and line-width fixups.
5 (conf-mode): Use cond.
6 Set font-lock-defaults. Don't set comment-use-syntax.
7
82005-10-18 David Ponce <david@dponce.com>
9
10 * tree-widget.el (tree-widget-button-click): New function.
11 (tree-widget-button-keymap): Use it.
12
132005-10-18 Romain Francoise <romain@orebokech.com>
14
15 * bookmark.el (bookmark-insert-location, bookmark-bmenu-list)
16 (bookmark-bmenu-hide-filenames): Add follow-link property.
17 Improve help-echo text.
18
19 * ffap.el (find-file-at-point): Doc fix.
20
212005-10-18 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
22
23 * mouse.el (mouse-set-region): Don't do sit-for on a mac frame.
24
252005-10-18 Masatake YAMATO <jet@gyve.org>
26
27 Install to the CVS repository what I forgot to install in my
28 2005-10-16 changes.
29
30 * progmodes/python.el (python-complete-symbol): Pass the common
31 prefix substring of completion to `display-completion-list'.
32
33 * textmodes/org.el (org-complete): Ditto.
34
352005-10-18 Masatake YAMATO <jet@gyve.org>
36
37 Fix a bug reported by Sven Joachim <sven_joachim@web.de>.
38
39 * woman.el (WoMan-xref-man-page): New button type derived
40 from `Man-abstract-xref-man-page'.
41 (woman-mode): Pass `WoMan-xref-man-page' to `Man-highlight-references'.
42
43 * man.el (Man-abstract-xref-man-page): New button type.
44 (Man-xref-man-page): Make it derived from `Man-abstract-xref-man-page'.
45 (Man-highlight-references): Add new optional argument `xref-man-type'.
46
472005-10-18 Nick Roberts <nickrob@snap.net.nz>
48
49 * progmodes/gud.el (gud-menu-map): Correct condition for fringe.
50
512005-10-17 Chong Yidong <cyd@stupidchicken.com>
52
53 * cus-edit.el (Custom-move-and-invoke): Delete.
54 (custom-mode-map): Bind mouse-1 to widget-move-and-invoke.
55
56 * wid-edit.el (widget-move-and-invoke): New function, from
57 Custom-move-and-invoke.
58
592005-10-17 Bill Wohler <wohler@newt.com>
60
61 Move all remaining images from lisp/toolbar to etc/images, move
62 lisp/toolbar/tool-bar to lisp and "delete" lisp/toolbar. Place
63 the low resolution images in their own directory (low-color).
64
65 * toolbar/attach.*, toolbar/cancel.*, toolbar/close.*,
66 * toolbar/copy.*, toolbar/cut.*, toolbar/diropen.*, toolbar/exit.*:
67 * toolbar/help.*, toolbar/home.*, toolbar/index.*, toolbar/info.*:
68 * toolbar/mail.*, toolbar/new.*, toolbar/open.*, toolbar/paste.*:
69 * toolbar/preferences.*, toolbar/print.*, toolbar/save.*:
70 * toolbar/saveas.*, toolbar/search.*, toolbar/search-replace.*:
71 * toolbar/spell.*, toolbar/undo.*: Move to etc/images.
72
73 * toolbar/lc-copy.*: Move to etc/images/low-color/copy.*.
74 * toolbar/lc-cut.*: Move to etc/images/low-color/cut.*.
75 * toolbar/lc-help.*: Move to etc/images/low-color/help.*.
76 * toolbar/lc-home.*: Move to etc/images/low-color/home.*.
77 * toolbar/lc-index.*: Move to etc/images/low-color/index.*.
78 * toolbar/lc-new.*: Move to etc/images/low-color/new.*.
79 * toolbar/lc-open.*: Move to etc/images/low-color/open.*.
80 * toolbar/lc-paste.*: Move to etc/images/low-color/paste.*.
81 * toolbar/lc-preferences.*: Move to etc/images/low-color/preferences.*.
82 * toolbar/lc-print.*: Move to etc/images/low-color/print.*.
83 * toolbar/lc-save.*: Move to etc/images/low-color/save.*.
84 * toolbar/lc-saveas.*: Move to etc/images/low-color/saveas.*.
85 * toolbar/lc-search.*: Move to etc/images/low-color/search.*.
86 * toolbar/lc-spell.*: Move to etc/images/low-color/spell.*.
87 * toolbar/lc-undo.*: Move to etc/images/low-color/undo.*.
88
89 To conform with convention, replace the underscore (_) in the
90 following image names with dash (-) or (/) as appropriate.
91
92 * toolbar/back_arrow.*: Move to etc/images/back-arrow.*.
93 * toolbar/fld_open.*: Move to etc/images/fld-open.*.
94 * toolbar/fwd_arrow.*: Move to etc/images/fwd-arrow.*.
95 * toolbar/jump_to.*: Move to etc/images/jump-to.*.
96 * toolbar/left_arrow.*: Move to etc/images/left-arrow.*.
97 * toolbar/right_arrow.*: Move to etc/images/right-arrow.*.
98 * toolbar/up_arrow.*: Move to etc/images/up-arrow.*.
99 * toolbar/lc-back_arrow.*: Move to etc/images/low-color/back-arrow.*.
100 * toolbar/lc-fwd_arrow.*: Move to etc/images/low-color/fwd-arrow.*.
101 * toolbar/lc-jump_to.*: Move to etc/images/low-color/jump-to.*.
102 * toolbar/lc-left_arrow.*: Move to etc/images/low-color/left-arrow.*.
103 * toolbar/lc-right_arrow.*: Move to etc/images/low-color/right-arrow.*.
104 * toolbar/lc-up_arrow.*: Move to etc/images/low-color/up-arrow.*.
105 * toolbar/mail_compose.*: Move to etc/images/mail/compose.*.
106 * toolbar/mail_send.*: Move to etc/images/mail/send.*.
107
108 * info.el (info-tool-bar-map): Replace underscores in image names
109 with dashes.
110
111 * makefile.w32-in (WINS): Remove toolbar.
112
113 * menu-bar.el: Replace toolbar/tool-bar.el with tool-bar.el in comment.
114
115 * tool-bar.el: Move to lisp from toolbar. Now that
116 toolbar is empty, it should be deleted when folks run "cvs up -P".
117
1182005-10-18 Jay Belanger <belanger@truman.edu>
119
120 * calc/calc-store (calc-store-into): Get the proper variable name
121 to display in message.
122
1232005-10-18 Nick Roberts <nickrob@snap.net.nz>
124
125 * progmodes/gdb-ui.el (gdb-var-create-handler): Make watch
126 expressions display in speedbar for all buffers when debugging.
127 (gdb-speedbar-expand-node): Ensure node contraction is always
128 updated.
129
130 * speedbar.el (speedbar-set-mode-line-format): Indent properly.
131 (speedbar-insert-button, speedbar-make-button):
132 Use add-text-properties.
133 (speedbar-update-localized-contents)
134 (speedbar-update-directory-contents)
135 (speedbar-update-special-contents): Use dolist.
136 (speedbar-buffer-easymenu-definition): Add a menu separator.
137
1382005-10-17 Jason Rumney <jasonr@gnu.org>
139
140 * makefile.w32-in: Use $(lisp) consistently.
141 (pre-mh-loaddefs.el-SH, pre-mh-loaddefs.el-CMD): New targets
142 for shell specific generation of mh-autoloads.
143
1442005-10-17 Richard M. Stallman <rms@gnu.org>
145
146 * textmodes/tex-mode.el (tex-font-lock-keywords-2): Undo prev change.
147
1482005-10-17 Stefan Monnier <monnier@iro.umontreal.ca>
149
150 * jit-lock.el (jit-lock-fontify-now):
151 Move jit-lock-context-unfontify-pos to avoid wasted work.
152
1532005-10-17 Michael Albinus <michael.albinus@gmx.de>
154
155 * net/tramp.el (tramp-completion-mode): New defvar. Used in
156 `tramp-completion-mode' for checking if we are in completion mode.
157 (tramp-completion-handle-file-name-all-completions): Reorder code
158 in order to complete for file names only in case there are no
159 method/user/host completions. This is necessary for cooperation
160 with ido. Reported by Kim F. Storm <storm@cua.dk>.
161
1622005-10-16 Chong Yidong <cyd@stupidchicken.com>
163
164 * longlines.el (longlines-search-forward)
165 (longlines-search-backward): Match any number of spaces.
166
1672005-10-16 Thien-Thi Nguyen <ttn@gnu.org>
168
169 * diff-mode.el (diff-mode): Doc fix.
170
1712005-10-16 David Reitter <david.reitter@gmail.com>
172
173 * mail/sendmail.el (send-mail-function): Use mailclient-send-it
174 as default on darwin and windows systems.
175
1762005-10-16 Sven Joachim <svenjoac@gmx.de> (tiny change)
177
178 * arc-mode.el (archive-zip-extract): Doc fix.
179
1802005-10-16 Romain Francoise <romain@orebokech.com>
181
182 * mouse.el (mouse-1-click-follows-link): Doc fix.
183
1842005-10-16 Stefan Monnier <monnier@iro.umontreal.ca>
185
186 * savehist.el: Don't require CL at runtime.
187 (savehist-xemacs): Remove.
188 (savehist-coding-system): Use utf-8 if present, regardless of religion.
189 (savehist-no-conversion): Use (featurep 'xemacs).
190 (savehist-load): Check existence of start-itimer rather than XEmacs.
191 Use an idle timer.
192 (savehist-process-for-saving): Replace use of CL funs `subseq' and
193 `delete-if-not'.
194
1952005-10-16 Hrvoje Niksic <hniksic@xemacs.org>
196
197 * savehist.el: Newer version.
198 (savehist-autosave-interval, savehist-coding-system, savehist-timer)
199 (savehist-last-checksum, savehist-no-conversion): New vars.
200 (savehist-autosave, savehist-process-for-saving, savehist-printable):
201 New functions.
202 (savehist-load, savehist-save): Use them.
203 (savehist-delimit): Remove.
204
2052005-10-16 Stefan Monnier <monnier@iro.umontreal.ca>
206
207 * progmodes/compile.el (compilation-goto-locus): Display the
208 compilation buffer first and the source buffer second, in case they're
209 in overlapping frames. Don't raise the compilation frame if it was the
210 selected window upon entry. Pass the `other-window' arg to
211 pop-to-buffer.
212
213 * info.el (Info-fontify-node): Use dolist.
214 Change add-text-properties to put-text-property.
215
2162005-10-16 Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
217
218 * textmodes/bibtex.el (bibtex-font-lock-url): Catch when point past
219 bound of search.
220
2212005-10-16 Masatake YAMATO <jet@gyve.org>
222
223 * dabbrev.el (dabbrev-completion): Pass the common
224 prefix substring of completion to `display-completion-list'.
225
226 * filecache.el (file-cache-minibuffer-complete)
227 (file-cache-complete): Ditto.
228
229 * tempo.el (tempo-display-completions): Ditto.
230
231 * wid-edit.el (widget-file-complete, widget-color-complete): Ditto.
232
233 * emacs-lisp/lisp.el (lisp-complete-symbol): Ditto.
234
235 * eshell/em-hist.el (eshell-list-history): Ditto.
236
237 * mail/mailabbrev.el (mail-abbrev-complete-alias): Ditto.
238
239 * mail/mailalias.el (mail-complete): Ditto.
240
241 * progmodes/etags.el (complete-tag): Ditto.
242
243 * progmodes/make-mode.el (makefile-complete): Ditto.
244
245 * progmodes/meta-mode.el (meta-complete-symbol): Ditto.
246
247 * progmodes/octave-mod.el (octave-complete-symbol): Ditto.
248
249 * progmodes/pascal.el (pascal-complete-word)
250 (pascal-show-completions): Ditto.
251
252
253 * textmodes/bibtex.el (bibtex-complete-internal): Ditto.
254
255 * simple.el (completion-common-substring): New variable.
256 (completion-setup-function): Use `completion-common-substring'
257 to put faces.
258
2592005-10-16 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
260
261 * term/mac-win.el: Apply 2005-10-09 change for term/x-win.el.
262 (x-get-selection, mac-select-convert-to-string): Convert from/to
263 UTF-16 clipboard data as in native byte order, no BOM.
264
2652005-10-16 Nick Roberts <nickrob@snap.net.nz>
266
267 * progmodes/gud.el (gud-tool-bar-map): Rename the images
268 appropriately (gud/next, gud/nexti, gud/step, gud/stepi).
269 (gud-sentinel): Use speedbar-frame to check for speedbar.
270
2712005-10-15 Richard M. Stallman <rms@gnu.org>
272
273 * savehist.el: New file.
274
2752005-10-14 Karl Chen <quarl@cs.berkeley.edu>
276
277 * textmodes/tex-mode.el (tex-font-lock-keywords-2):
278 Fix bug in \bf fontification.
279
2802005-10-15 Stefan Monnier <monnier@iro.umontreal.ca>
281
282 * pcvs.el (cvs-edit-log-files): New var.
283 (cvs-mode-edit-log): New arg `file'.
284 (cvs-edit-log-minor-wrap): Don't set the ignore-marks property.
285 Instead force the use of the original file and nothing else.
286 (cvs-edit-log-filelist): Don't use the cvs-mode-* function unless
287 the cvs-minor-wrap-function is set.
288 (cvs-do-edit-log): Obey the vars set in cvs-edit-log-minor-wrap.
289
2902005-10-14 Bill Wohler <wohler@newt.com>
291
292 * toolbar/gud-break.*: Moved to etc/images/gud/break.*.
293 * toolbar/gud-cont.*: Moved to etc/images/gud/cont.*.
294 * toolbar/gud-down.*: Moved to etc/images/gud/down.*.
295 * toolbar/gud-finish.*: Moved to etc/images/gud/finish.*.
296 * toolbar/gud-ni.*: Moved to etc/images/gud/ni.*.
297 * toolbar/gud-n.*: Moved to etc/images/gud/n.*.
298 * toolbar/gud-print.*: Moved to etc/images/gud/print.*.
299 * toolbar/gud-pstar.*: Moved to etc/images/gud/pstar.*.
300 * toolbar/gud-remove.*: Moved to etc/images/gud/remove.*.
301 * toolbar/gud-run.*: Moved to etc/images/gud/run.*.
302 * toolbar/gud-si.*: Moved to etc/images/gud/si.*.
303 * toolbar/gud-s.*: Moved to etc/images/gud/s.*.
304 * toolbar/gud-until.*: Moved to etc/images/gud/until.*.
305 * toolbar/gud-up.*: Moved to etc/images/gud/up.*.
306 * toolbar/gud-watch.*: Moved to etc/images/gud/watch.*.
307
308 * progmodes/gud.el (gud-tool-bar-map): Rename the images
309 appropriately (for example, gud-break to gud/break).
310
3112005-10-14 Chong Yidong <cyd@stupidchicken.com>
312
313 * longlines.el (longlinges-search-function)
314 (longlines-search-forward, longlines-search-backward): New functions.
315 (longlines-mode): Set isearch-search-fun-function to
316 longlinges-search-function.
317
318 * mouse.el (mouse-drag-region-1): Handle the case where a
319 double-click event is bound to an arbitrary function.
320
3212005-10-14 David Ponce <david@dponce.com>
322
323 * recentf.el (recentf-track-opened-file)
324 (recentf-track-closed-file, recentf-update-menu)
325 (recentf-used-hooks, recentf-enabled-p): Move before dialog stuff.
326 (recentf-dialog-mode-map): Map follow-link to RET, so dialogs obey
327 mouse-1-click-follows-link.
328
12005-10-13 Jan Dj,Ad(Brv <jan.h.d@swipnet.se> 3292005-10-13 Jan Dj,Ad(Brv <jan.h.d@swipnet.se>
2 330
3 * toolbar/diropen.xpm, toolbar/diropen.pbm: New versions made from 331 * toolbar/diropen.xpm, toolbar/diropen.pbm: New versions made from
@@ -26,6 +354,11 @@
26 Handle the case that ucs-mule-to-mule-unicode translates a character to 354 Handle the case that ucs-mule-to-mule-unicode translates a character to
27 ASCII (usually for IPA characters). 355 ASCII (usually for IPA characters).
28 356
3572005-10-12 Stefan Monnier <monnier@iro.umontreal.ca>
358
359 * info.el (Info-fontify-node): Don't be fooled by a lone "...".
360 Don't hide the underline of titles if font-lock-mode is disabled.
361
292005-10-12 Bill Wohler <wohler@newt.com> 3622005-10-12 Bill Wohler <wohler@newt.com>
30 363
31 * makefile.w32-in (MH-E-SRC): New. Used by mh-autoloads. 364 * makefile.w32-in (MH-E-SRC): New. Used by mh-autoloads.
@@ -10071,8 +10404,8 @@
10071 minibuffer-with-setup-hook (which breaks turning on/off 10404 minibuffer-with-setup-hook (which breaks turning on/off
10072 file-name-shadow-mode while in the prompt). 10405 file-name-shadow-mode while in the prompt).
10073 10406
10074 * complete.el (PC-read-include-file-name-internal): Use 10407 * complete.el (PC-read-include-file-name-internal):
10075 test-completion. 10408 Use test-completion.
10076 10409
100772005-03-28 Luc Teirlinck <teirllm@auburn.edu> 104102005-03-28 Luc Teirlinck <teirllm@auburn.edu>
10078 10411
diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index a29ec10d400..ae5ff9a4dbc 100644
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -225,8 +225,7 @@ Archive and member name will be added."
225 '("unzip" "-qq" "-c")) 225 '("unzip" "-qq" "-c"))
226 "*Program and its options to run in order to extract a zip file member. 226 "*Program and its options to run in order to extract a zip file member.
227Extraction should happen to standard output. Archive and member name will 227Extraction should happen to standard output. Archive and member name will
228be added. If `archive-zip-use-pkzip' is non-nil then this program is 228be added."
229expected to extract to a file junking the directory part of the name."
230 :type '(list (string :tag "Program") 229 :type '(list (string :tag "Program")
231 (repeat :tag "Options" 230 (repeat :tag "Options"
232 :inline t 231 :inline t
diff --git a/lisp/bookmark.el b/lisp/bookmark.el
index 8014915a72e..75228288fff 100644
--- a/lisp/bookmark.el
+++ b/lisp/bookmark.el
@@ -1175,12 +1175,14 @@ minibuffer history list `bookmark-history'."
1175 (prog1 1175 (prog1
1176 (insert (bookmark-location bookmark)) ; *Return this line* 1176 (insert (bookmark-location bookmark)) ; *Return this line*
1177 (if (and (display-color-p) (display-mouse-p)) 1177 (if (and (display-color-p) (display-mouse-p))
1178 (add-text-properties start 1178 (add-text-properties
1179 (save-excursion (re-search-backward 1179 start
1180 "[^ \t]") 1180 (save-excursion (re-search-backward
1181 "[^ \t]")
1181 (1+ (point))) 1182 (1+ (point)))
1182 '(mouse-face highlight 1183 '(mouse-face highlight
1183 help-echo "mouse-2: go to this bookmark")))))) 1184 follow-link t
1185 help-echo "mouse-2: go to this bookmark in other window"))))))
1184 1186
1185;;;###autoload 1187;;;###autoload
1186(defalias 'bookmark-locate 'bookmark-insert-location) 1188(defalias 'bookmark-locate 'bookmark-insert-location)
@@ -1566,12 +1568,14 @@ deletion, or > if it is flagged for displaying."
1566 (let ((start (point))) 1568 (let ((start (point)))
1567 (insert (bookmark-name-from-full-record full-record)) 1569 (insert (bookmark-name-from-full-record full-record))
1568 (if (and (display-color-p) (display-mouse-p)) 1570 (if (and (display-color-p) (display-mouse-p))
1569 (add-text-properties start 1571 (add-text-properties
1570 (save-excursion (re-search-backward 1572 start
1571 "[^ \t]") 1573 (save-excursion (re-search-backward
1572 (1+ (point))) 1574 "[^ \t]")
1573 '(mouse-face highlight 1575 (1+ (point)))
1574 help-echo "mouse-2: go to this bookmark"))) 1576 '(mouse-face highlight
1577 follow-link t
1578 help-echo "mouse-2: go to this bookmark in other window")))
1575 (insert "\n") 1579 (insert "\n")
1576 ))) 1580 )))
1577 bookmark-alist)) 1581 bookmark-alist))
@@ -1695,13 +1699,15 @@ Optional argument SHOW means show them unconditionally."
1695 (let ((start (point))) 1699 (let ((start (point)))
1696 (insert (car bookmark-bmenu-hidden-bookmarks)) 1700 (insert (car bookmark-bmenu-hidden-bookmarks))
1697 (if (and (display-color-p) (display-mouse-p)) 1701 (if (and (display-color-p) (display-mouse-p))
1698 (add-text-properties start 1702 (add-text-properties
1699 (save-excursion (re-search-backward 1703 start
1700 "[^ \t]") 1704 (save-excursion (re-search-backward
1701 (1+ (point))) 1705 "[^ \t]")
1702 '(mouse-face highlight 1706 (1+ (point)))
1703 help-echo 1707 '(mouse-face highlight
1704 "mouse-2: go to this bookmark")))) 1708 follow-link t
1709 help-echo
1710 "mouse-2: go to this bookmark in other window"))))
1705 (setq bookmark-bmenu-hidden-bookmarks 1711 (setq bookmark-bmenu-hidden-bookmarks
1706 (cdr bookmark-bmenu-hidden-bookmarks)) 1712 (cdr bookmark-bmenu-hidden-bookmarks))
1707 (forward-line 1)))))))) 1713 (forward-line 1))))))))
diff --git a/lisp/calc/calc-store.el b/lisp/calc/calc-store.el
index 82c7077ba91..d6a37644cc7 100644
--- a/lisp/calc/calc-store.el
+++ b/lisp/calc/calc-store.el
@@ -71,7 +71,7 @@
71 (if (not (cdr var)) "") 71 (if (not (cdr var)) "")
72 (if (not (cdr var)) 1)))) 72 (if (not (cdr var)) 1))))
73 (message (concat "Stored to variable \"%s\"" msg) 73 (message (concat "Stored to variable \"%s\"" msg)
74 (calc-var-name var))) 74 (calc-var-name (car (car var)))))
75 (setq var (cdr var)))))))) 75 (setq var (cdr var))))))))
76 76
77(defun calc-store-plus (&optional var) 77(defun calc-store-plus (&optional var)
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 8f88e4d049c..696fd66543a 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -4245,20 +4245,10 @@ The format is suitable for use with `easy-menu-define'."
4245 (define-key map "u" 'Custom-goto-parent) 4245 (define-key map "u" 'Custom-goto-parent)
4246 (define-key map "n" 'widget-forward) 4246 (define-key map "n" 'widget-forward)
4247 (define-key map "p" 'widget-backward) 4247 (define-key map "p" 'widget-backward)
4248 (define-key map [mouse-1] 'Custom-move-and-invoke) 4248 (define-key map [mouse-1] 'widget-move-and-invoke)
4249 map) 4249 map)
4250 "Keymap for `custom-mode'.") 4250 "Keymap for `custom-mode'.")
4251 4251
4252(defun Custom-move-and-invoke (event)
4253 "Move to where you click, and if it is an active field, invoke it."
4254 (interactive "e")
4255 (mouse-set-point event)
4256 (if (widget-event-point event)
4257 (let* ((pos (widget-event-point event))
4258 (button (get-char-property pos 'button)))
4259 (if button
4260 (widget-button-click event)))))
4261
4262(easy-menu-define Custom-mode-menu 4252(easy-menu-define Custom-mode-menu
4263 custom-mode-map 4253 custom-mode-map
4264 "Menu used in customization buffers." 4254 "Menu used in customization buffers."
diff --git a/lisp/dabbrev.el b/lisp/dabbrev.el
index 2139e7c5761..b330f2b10d7 100644
--- a/lisp/dabbrev.el
+++ b/lisp/dabbrev.el
@@ -461,7 +461,8 @@ if there is a suitable one already."
461 ;; * String is a common substring completion already. Make list. 461 ;; * String is a common substring completion already. Make list.
462 (message "Making completion list...") 462 (message "Making completion list...")
463 (with-output-to-temp-buffer "*Completions*" 463 (with-output-to-temp-buffer "*Completions*"
464 (display-completion-list (all-completions init my-obarray))) 464 (display-completion-list (all-completions init my-obarray)
465 init))
465 (message "Making completion list...done"))) 466 (message "Making completion list...done")))
466 (and (window-minibuffer-p (selected-window)) 467 (and (window-minibuffer-p (selected-window))
467 (message nil)))) 468 (message nil))))
diff --git a/lisp/diff-mode.el b/lisp/diff-mode.el
index 09c3b6a8939..8f018185c98 100644
--- a/lisp/diff-mode.el
+++ b/lisp/diff-mode.el
@@ -967,7 +967,7 @@ If you edit the buffer manually, diff-mode will try to update the hunk
967headers for you on-the-fly. 967headers for you on-the-fly.
968 968
969You can also switch between context diff and unified diff with \\[diff-context->unified], 969You can also switch between context diff and unified diff with \\[diff-context->unified],
970or vice versa with \\[diff-unified->context] and you can also revert the direction of 970or vice versa with \\[diff-unified->context] and you can also reverse the direction of
971a diff with \\[diff-reverse-direction]." 971a diff with \\[diff-reverse-direction]."
972 (set (make-local-variable 'font-lock-defaults) diff-font-lock-defaults) 972 (set (make-local-variable 'font-lock-defaults) diff-font-lock-defaults)
973 (set (make-local-variable 'outline-regexp) diff-outline-regexp) 973 (set (make-local-variable 'outline-regexp) diff-outline-regexp)
diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el
index d248882d882..4b799ebfedf 100644
--- a/lisp/emacs-lisp/lisp.el
+++ b/lisp/emacs-lisp/lisp.el
@@ -586,7 +586,7 @@ considered."
586 (setq list (cdr list))) 586 (setq list (cdr list)))
587 (setq list (nreverse new)))) 587 (setq list (nreverse new))))
588 (with-output-to-temp-buffer "*Completions*" 588 (with-output-to-temp-buffer "*Completions*"
589 (display-completion-list list))) 589 (display-completion-list list pattern)))
590 (message "Making completion list...%s" "done"))))))) 590 (message "Making completion list...%s" "done")))))))
591 591
592;;; arch-tag: aa7fa8a4-2e6f-4e9b-9cd9-fef06340e67e 592;;; arch-tag: aa7fa8a4-2e6f-4e9b-9cd9-fef06340e67e
diff --git a/lisp/eshell/em-hist.el b/lisp/eshell/em-hist.el
index fd887e5fa86..e7844028542 100644
--- a/lisp/eshell/em-hist.el
+++ b/lisp/eshell/em-hist.el
@@ -507,7 +507,7 @@ See also `eshell-read-history'."
507 ;; Change "completion" to "history reference" 507 ;; Change "completion" to "history reference"
508 ;; to make the display accurate. 508 ;; to make the display accurate.
509 (with-output-to-temp-buffer history-buffer 509 (with-output-to-temp-buffer history-buffer
510 (display-completion-list history) 510 (display-completion-list history prefix)
511 (set-buffer history-buffer) 511 (set-buffer history-buffer)
512 (forward-line 3) 512 (forward-line 3)
513 (while (search-backward "completion" nil 'move) 513 (while (search-backward "completion" nil 'move)
diff --git a/lisp/ffap.el b/lisp/ffap.el
index d408918558a..6eb598d434d 100644
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -1380,9 +1380,7 @@ If `ffap-url-regexp' is not nil, the FILENAME may also be an URL.
1380With a prefix, this command behaves exactly like `ffap-file-finder'. 1380With a prefix, this command behaves exactly like `ffap-file-finder'.
1381If `ffap-require-prefix' is set, the prefix meaning is reversed. 1381If `ffap-require-prefix' is set, the prefix meaning is reversed.
1382See also the variables `ffap-dired-wildcards', `ffap-newfile-prompt', 1382See also the variables `ffap-dired-wildcards', `ffap-newfile-prompt',
1383and the functions `ffap-file-at-point' and `ffap-url-at-point'. 1383and the functions `ffap-file-at-point' and `ffap-url-at-point'."
1384
1385See <ftp://ftp.mathcs.emory.edu/pub/mic/emacs/> for latest version."
1386 (interactive) 1384 (interactive)
1387 (if (and (interactive-p) 1385 (if (and (interactive-p)
1388 (if ffap-require-prefix (not current-prefix-arg) 1386 (if ffap-require-prefix (not current-prefix-arg)
diff --git a/lisp/filecache.el b/lisp/filecache.el
index bb45bb392f3..442f729dd15 100644
--- a/lisp/filecache.el
+++ b/lisp/filecache.el
@@ -607,7 +607,7 @@ the name is considered already unique; only the second substitution
607 completion-setup-hook))) 607 completion-setup-hook)))
608 ) 608 )
609 (with-output-to-temp-buffer file-cache-completions-buffer 609 (with-output-to-temp-buffer file-cache-completions-buffer
610 (display-completion-list completion-list)) 610 (display-completion-list completion-list string))
611 ) 611 )
612 ) 612 )
613 (setq file-cache-string (file-cache-file-name completion-string)) 613 (setq file-cache-string (file-cache-file-name completion-string))
@@ -700,7 +700,7 @@ the name is considered already unique; only the second substitution
700 ) 700 )
701 (t 701 (t
702 (with-output-to-temp-buffer "*Completions*" 702 (with-output-to-temp-buffer "*Completions*"
703 (display-completion-list all)) 703 (display-completion-list all pattern))
704 )) 704 ))
705 )) 705 ))
706 706
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 23e5564770f..04213b9fa45 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,19 @@
12005-10-17 Chong Yidong <cyd@stupidchicken.com>
2
3 * gnus-cus.el (gnus-custom-map): New variable. Bind mouse-1 to
4 widget-move-and-invoke.
5 (gnus-custom-mode): Use gnus-custom-map.
6
72005-10-15 Bill Wohler <wohler@newt.com>
8
9 * message.el (message-tool-bar-map): Renamed image file from
10 mail_send to mail/send.
11
122005-10-16 Masatake YAMATO <jet@gyve.org>
13
14 * message.el (message-expand-group): Pass the common
15 prefix substring of completion to `display-completion-list'.
16
12005-10-09 Daniel Brockman <daniel@brockman.se> 172005-10-09 Daniel Brockman <daniel@brockman.se>
2 18
3 * format-spec.el (format-spec): Propagate text properties of % spec. 19 * format-spec.el (format-spec): Propagate text properties of % spec.
@@ -21,6 +37,11 @@
21 * pgg-def.el (top-level): Don't require custom, it is 37 * pgg-def.el (top-level): Don't require custom, it is
22 autoloaded. (To sync with No Gnus.) 38 autoloaded. (To sync with No Gnus.)
23 39
402005-10-04 David Hansen <david.hansen@gmx.net>
41
42 * nnrss.el (nnrss-request-article): Add support for the comments tag.
43 (nnrss-check-group): Ditto.
44
242005-10-04 Reiner Steib <Reiner.Steib@gmx.de> 452005-10-04 Reiner Steib <Reiner.Steib@gmx.de>
25 46
26 * mm-url.el (mm-url-predefined-programs): Add switches for curl. 47 * mm-url.el (mm-url-predefined-programs): Add switches for curl.
diff --git a/lisp/gnus/gnus-cus.el b/lisp/gnus/gnus-cus.el
index f523af22750..df10c769315 100644
--- a/lisp/gnus/gnus-cus.el
+++ b/lisp/gnus/gnus-cus.el
@@ -36,6 +36,14 @@
36 36
37;;; Widgets: 37;;; Widgets:
38 38
39(defvar gnus-custom-map
40 (let ((map (make-keymap)))
41 (set-keymap-parent map widget-keymap)
42 (suppress-keymap map)
43 (define-key map [mouse-1] 'widget-move-and-invoke)
44 map)
45 "Keymap for editing Gnus customization buffers.")
46
39(defun gnus-custom-mode () 47(defun gnus-custom-mode ()
40 "Major mode for editing Gnus customization buffers. 48 "Major mode for editing Gnus customization buffers.
41 49
@@ -51,7 +59,7 @@ if that value is non-nil."
51 (kill-all-local-variables) 59 (kill-all-local-variables)
52 (setq major-mode 'gnus-custom-mode 60 (setq major-mode 'gnus-custom-mode
53 mode-name "Gnus Customize") 61 mode-name "Gnus Customize")
54 (use-local-map widget-keymap) 62 (use-local-map gnus-custom-map)
55 ;; Emacs 21 stuff: 63 ;; Emacs 21 stuff:
56 (when (and (facep 'custom-button-face) 64 (when (and (facep 'custom-button-face)
57 (facep 'custom-button-pressed-face)) 65 (facep 'custom-button-pressed-face))
@@ -479,7 +487,7 @@ form, but who cares?"
479 (widget-create 'sexp 487 (widget-create 'sexp
480 :tag "Method" 488 :tag "Method"
481 :value (gnus-info-method info)))) 489 :value (gnus-info-method info))))
482 (use-local-map widget-keymap) 490 (use-local-map gnus-custom-map)
483 (widget-setup) 491 (widget-setup)
484 (buffer-enable-undo) 492 (buffer-enable-undo)
485 (goto-char (point-min)))) 493 (goto-char (point-min))))
@@ -873,7 +881,7 @@ articles in the thread.
873 '(repeat :inline t 881 '(repeat :inline t
874 :tag "Unknown entries" 882 :tag "Unknown entries"
875 sexp))) 883 sexp)))
876 (use-local-map widget-keymap) 884 (use-local-map gnus-custom-map)
877 (widget-setup))) 885 (widget-setup)))
878 886
879(defun gnus-score-customize-done (&rest ignore) 887(defun gnus-score-customize-done (&rest ignore)
@@ -1050,7 +1058,7 @@ articles in the thread.
1050 1058
1051 (gnus-agent-cat-prepare-category-field agent-enable-undownloaded-faces) 1059 (gnus-agent-cat-prepare-category-field agent-enable-undownloaded-faces)
1052 1060
1053 (use-local-map widget-keymap) 1061 (use-local-map gnus-custom-map)
1054 (widget-setup) 1062 (widget-setup)
1055 (buffer-enable-undo)))) 1063 (buffer-enable-undo))))
1056 1064
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index d64d8dbd2bf..8ac3bb8cf18 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -6586,7 +6586,7 @@ which specify the range to operate on."
6586 write-file dired open-file)) 6586 write-file dired open-file))
6587 (define-key tool-bar-map (vector key) nil)) 6587 (define-key tool-bar-map (vector key) nil))
6588 (message-tool-bar-local-item-from-menu 6588 (message-tool-bar-local-item-from-menu
6589 'message-send-and-exit "mail_send" tool-bar-map message-mode-map) 6589 'message-send-and-exit "mail/send" tool-bar-map message-mode-map)
6590 (message-tool-bar-local-item-from-menu 6590 (message-tool-bar-local-item-from-menu
6591 'message-kill-buffer "close" tool-bar-map message-mode-map) 6591 'message-kill-buffer "close" tool-bar-map message-mode-map)
6592 (message-tool-bar-local-item-from-menu 6592 (message-tool-bar-local-item-from-menu
@@ -6691,7 +6691,7 @@ those headers."
6691 (let ((buffer-read-only nil)) 6691 (let ((buffer-read-only nil))
6692 (erase-buffer) 6692 (erase-buffer)
6693 (let ((standard-output (current-buffer))) 6693 (let ((standard-output (current-buffer)))
6694 (display-completion-list (sort completions 'string<))) 6694 (display-completion-list (sort completions 'string<) string))
6695 (goto-char (point-min)) 6695 (goto-char (point-min))
6696 (delete-region (point) (progn (forward-line 3) (point)))))))))) 6696 (delete-region (point) (progn (forward-line 3) (point))))))))))
6697 6697
diff --git a/lisp/gnus/nnrss.el b/lisp/gnus/nnrss.el
index 5018701ee42..adef035c830 100644
--- a/lisp/gnus/nnrss.el
+++ b/lisp/gnus/nnrss.el
@@ -197,6 +197,7 @@ for decoding when the cdr that the data specify is not available.")
197 " "))) 197 " ")))
198 (link (nth 2 e)) 198 (link (nth 2 e))
199 (enclosure (nth 7 e)) 199 (enclosure (nth 7 e))
200 (comments (nth 8 e))
200 ;; Enable encoding of Newsgroups header in XEmacs. 201 ;; Enable encoding of Newsgroups header in XEmacs.
201 (default-enable-multibyte-characters t) 202 (default-enable-multibyte-characters t)
202 (rfc2047-header-encoding-alist 203 (rfc2047-header-encoding-alist
@@ -205,7 +206,7 @@ for decoding when the cdr that the data specify is not available.")
205 rfc2047-header-encoding-alist) 206 rfc2047-header-encoding-alist)
206 rfc2047-header-encoding-alist)) 207 rfc2047-header-encoding-alist))
207 rfc2047-encode-encoded-words body) 208 rfc2047-encode-encoded-words body)
208 (when (or text link enclosure) 209 (when (or text link enclosure comments)
209 (insert "\n") 210 (insert "\n")
210 (insert "<#multipart type=alternative>\n" 211 (insert "<#multipart type=alternative>\n"
211 "<#part type=\"text/plain\">\n") 212 "<#part type=\"text/plain\">\n")
@@ -220,6 +221,8 @@ for decoding when the cdr that the data specify is not available.")
220 (insert (car enclosure) " " 221 (insert (car enclosure) " "
221 (nth 2 enclosure) " " 222 (nth 2 enclosure) " "
222 (nth 3 enclosure) "\n")) 223 (nth 3 enclosure) "\n"))
224 (when comments
225 (insert comments "\n"))
223 (setq body (buffer-substring body (point))) 226 (setq body (buffer-substring body (point)))
224 (insert "<#/part>\n" 227 (insert "<#/part>\n"
225 "<#part type=\"text/html\">\n" 228 "<#part type=\"text/html\">\n"
@@ -232,6 +235,8 @@ for decoding when the cdr that the data specify is not available.")
232 (insert "<p><a href=\"" (car enclosure) "\">" 235 (insert "<p><a href=\"" (car enclosure) "\">"
233 (cadr enclosure) "</a> " (nth 2 enclosure) 236 (cadr enclosure) "</a> " (nth 2 enclosure)
234 " " (nth 3 enclosure) "</p>\n")) 237 " " (nth 3 enclosure) "</p>\n"))
238 (when comments
239 (insert "<p><a href=\"" comments "\">comments</a></p>\n"))
235 (insert "</body></html>\n" 240 (insert "</body></html>\n"
236 "<#/part>\n" 241 "<#/part>\n"
237 "<#/multipart>\n")) 242 "<#/multipart>\n"))
@@ -528,7 +533,7 @@ nnrss: %s: Not valid XML %s and w3-parse doesn't work %s"
528 533
529(defun nnrss-check-group (group server) 534(defun nnrss-check-group (group server)
530 (let (file xml subject url extra changed author date 535 (let (file xml subject url extra changed author date
531 enclosure rss-ns rdf-ns content-ns dc-ns) 536 enclosure comments rss-ns rdf-ns content-ns dc-ns)
532 (if (and nnrss-use-local 537 (if (and nnrss-use-local
533 (file-exists-p (setq file (expand-file-name 538 (file-exists-p (setq file (expand-file-name
534 (nnrss-translate-file-chars 539 (nnrss-translate-file-chars
@@ -576,6 +581,7 @@ nnrss: %s: Not valid XML %s and w3-parse doesn't work %s"
576 (setq date (or (nnrss-node-text dc-ns 'date item) 581 (setq date (or (nnrss-node-text dc-ns 'date item)
577 (nnrss-node-text rss-ns 'pubDate item) 582 (nnrss-node-text rss-ns 'pubDate item)
578 (message-make-date))) 583 (message-make-date)))
584 (setq comments (nnrss-node-text rss-ns 'comments item))
579 (when (setq enclosure (cadr (assq (intern (concat rss-ns "enclosure")) item))) 585 (when (setq enclosure (cadr (assq (intern (concat rss-ns "enclosure")) item)))
580 (let ((url (cdr (assq 'url enclosure))) 586 (let ((url (cdr (assq 'url enclosure)))
581 (len (cdr (assq 'length enclosure))) 587 (len (cdr (assq 'length enclosure)))
@@ -606,7 +612,8 @@ nnrss: %s: Not valid XML %s and w3-parse doesn't work %s"
606 (and author (nnrss-mime-encode-string author)) 612 (and author (nnrss-mime-encode-string author))
607 date 613 date
608 (and extra (nnrss-decode-entities-string extra)) 614 (and extra (nnrss-decode-entities-string extra))
609 enclosure) 615 enclosure
616 comments)
610 nnrss-group-data) 617 nnrss-group-data)
611 (gnus-sethash (or url extra) t nnrss-group-hashtb) 618 (gnus-sethash (or url extra) t nnrss-group-hashtb)
612 (setq changed t)) 619 (setq changed t))
diff --git a/lisp/info.el b/lisp/info.el
index 5d86d0cb46e..6594d76fa03 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -3161,14 +3161,14 @@ if point is in a menu item description, follow that menu item."
3161 (if (display-graphic-p) 3161 (if (display-graphic-p)
3162 (let ((map (make-sparse-keymap))) 3162 (let ((map (make-sparse-keymap)))
3163 (tool-bar-local-item-from-menu 'Info-exit "close" map Info-mode-map) 3163 (tool-bar-local-item-from-menu 'Info-exit "close" map Info-mode-map)
3164 (tool-bar-local-item-from-menu 'Info-prev "left_arrow" map Info-mode-map) 3164 (tool-bar-local-item-from-menu 'Info-prev "left-arrow" map Info-mode-map)
3165 (tool-bar-local-item-from-menu 'Info-next "right_arrow" map Info-mode-map) 3165 (tool-bar-local-item-from-menu 'Info-next "right-arrow" map Info-mode-map)
3166 (tool-bar-local-item-from-menu 'Info-up "up_arrow" map Info-mode-map) 3166 (tool-bar-local-item-from-menu 'Info-up "up-arrow" map Info-mode-map)
3167 (tool-bar-local-item-from-menu 'Info-history-back "back_arrow" map Info-mode-map) 3167 (tool-bar-local-item-from-menu 'Info-history-back "back-arrow" map Info-mode-map)
3168 (tool-bar-local-item-from-menu 'Info-history-forward "fwd_arrow" map Info-mode-map) 3168 (tool-bar-local-item-from-menu 'Info-history-forward "fwd-arrow" map Info-mode-map)
3169 (tool-bar-local-item-from-menu 'Info-top-node "home" map Info-mode-map) 3169 (tool-bar-local-item-from-menu 'Info-top-node "home" map Info-mode-map)
3170 (tool-bar-local-item-from-menu 'Info-index "index" map Info-mode-map) 3170 (tool-bar-local-item-from-menu 'Info-index "index" map Info-mode-map)
3171 (tool-bar-local-item-from-menu 'Info-goto-node "jump_to" map Info-mode-map) 3171 (tool-bar-local-item-from-menu 'Info-goto-node "jump-to" map Info-mode-map)
3172 (tool-bar-local-item-from-menu 'Info-search "search" map Info-mode-map) 3172 (tool-bar-local-item-from-menu 'Info-search "search" map Info-mode-map)
3173 map))) 3173 map)))
3174 3174
@@ -3847,17 +3847,15 @@ the variable `Info-file-list-for-emacs'."
3847 (paragraph-separate ".*\\.[ \t]*\n[ \t]\\|[ \t]*[-*]\\|[ \t\f]*$") 3847 (paragraph-separate ".*\\.[ \t]*\n[ \t]\\|[ \t]*[-*]\\|[ \t\f]*$")
3848 (adaptive-fill-mode nil)) 3848 (adaptive-fill-mode nil))
3849 (goto-char (point-max)) 3849 (goto-char (point-max))
3850 (while paragraph-markers 3850 (dolist (m paragraph-markers)
3851 (let ((m (car paragraph-markers))) 3851 (when (< m (point))
3852 (setq paragraph-markers (cdr paragraph-markers)) 3852 (goto-char m)
3853 (when (< m (point)) 3853 (beginning-of-line)
3854 (goto-char m) 3854 (let ((beg (point)))
3855 (beginning-of-line) 3855 (when (zerop (forward-paragraph))
3856 (let ((beg (point))) 3856 (fill-individual-paragraphs beg (point) nil nil)
3857 (when (zerop (forward-paragraph)) 3857 (goto-char beg))))
3858 (fill-individual-paragraphs beg (point) nil nil) 3858 (set-marker m nil))))
3859 (goto-char beg))))
3860 (set-marker m nil)))))
3861 3859
3862 ;; Fontify menu items 3860 ;; Fontify menu items
3863 (goto-char (point-min)) 3861 (goto-char (point-min))
@@ -3889,33 +3887,32 @@ the variable `Info-file-list-for-emacs'."
3889 "mouse-2: go to this node") 3887 "mouse-2: go to this node")
3890 'mouse-face 'highlight))) 3888 'mouse-face 'highlight)))
3891 (when (or not-fontified-p fontify-visited-p) 3889 (when (or not-fontified-p fontify-visited-p)
3892 (add-text-properties 3890 (put-text-property
3893 (match-beginning 1) (match-end 1) 3891 (match-beginning 1) (match-end 1)
3894 (list 3892 'font-lock-face
3895 'font-lock-face 3893 ;; Display visited menu items in a different face
3896 ;; Display visited menu items in a different face 3894 (if (and Info-fontify-visited-nodes
3897 (if (and Info-fontify-visited-nodes 3895 (save-match-data
3898 (save-match-data 3896 (let ((node (if (equal (match-string 3) "")
3899 (let ((node (if (equal (match-string 3) "") 3897 (match-string 1)
3900 (match-string 1) 3898 (match-string 3)))
3901 (match-string 3))) 3899 (file (file-name-nondirectory Info-current-file))
3902 (file (file-name-nondirectory Info-current-file)) 3900 (hl Info-history-list)
3903 (hl Info-history-list) 3901 res)
3904 res) 3902 (if (string-match "(\\([^)]+\\))\\([^)]*\\)" node)
3905 (if (string-match "(\\([^)]+\\))\\([^)]*\\)" node) 3903 (setq file (file-name-nondirectory
3906 (setq file (file-name-nondirectory 3904 (match-string 1 node))
3907 (match-string 1 node)) 3905 node (if (equal (match-string 2 node) "")
3908 node (if (equal (match-string 2 node) "") 3906 "Top"
3909 "Top" 3907 (match-string 2 node))))
3910 (match-string 2 node)))) 3908 (while hl
3911 (while hl 3909 (if (and (string-equal node (nth 1 (car hl)))
3912 (if (and (string-equal node (nth 1 (car hl))) 3910 (string-equal file
3913 (string-equal file 3911 (file-name-nondirectory
3914 (file-name-nondirectory 3912 (nth 0 (car hl)))))
3915 (nth 0 (car hl))))) 3913 (setq res (car hl) hl nil)
3916 (setq res (car hl) hl nil) 3914 (setq hl (cdr hl))))
3917 (setq hl (cdr hl)))) 3915 res))) 'info-xref-visited 'info-xref)))
3918 res))) 'info-xref-visited 'info-xref))))
3919 (when (and not-fontified-p (memq Info-hide-note-references '(t hide))) 3916 (when (and not-fontified-p (memq Info-hide-note-references '(t hide)))
3920 (put-text-property (match-beginning 2) (1- (match-end 6)) 3917 (put-text-property (match-beginning 2) (1- (match-end 6))
3921 'invisible t) 3918 'invisible t)
diff --git a/lisp/jit-lock.el b/lisp/jit-lock.el
index 2f8fcba91d1..b76c675cba4 100644
--- a/lisp/jit-lock.el
+++ b/lisp/jit-lock.el
@@ -349,6 +349,13 @@ Defaults to the whole buffer. END can be out of bounds."
349 (goto-char next) (setq next (line-beginning-position 2)) 349 (goto-char next) (setq next (line-beginning-position 2))
350 (goto-char start) (setq start (line-beginning-position)) 350 (goto-char start) (setq start (line-beginning-position))
351 351
352 ;; Make sure the contextual refontification doesn't re-refontify
353 ;; what's already been refontified.
354 (when (and jit-lock-context-unfontify-pos
355 (< jit-lock-context-unfontify-pos next)
356 (>= jit-lock-context-unfontify-pos start))
357 (setq jit-lock-context-unfontify-pos next))
358
352 ;; Fontify the chunk, and mark it as fontified. 359 ;; Fontify the chunk, and mark it as fontified.
353 ;; We mark it first, to make sure that we don't indefinitely 360 ;; We mark it first, to make sure that we don't indefinitely
354 ;; re-execute this fontification if an error occurs. 361 ;; re-execute this fontification if an error occurs.
@@ -566,9 +573,14 @@ will take place when text is fontified stealthily."
566 ;; Mark the change for deferred contextual refontification. 573 ;; Mark the change for deferred contextual refontification.
567 (when jit-lock-context-unfontify-pos 574 (when jit-lock-context-unfontify-pos
568 (setq jit-lock-context-unfontify-pos 575 (setq jit-lock-context-unfontify-pos
576 ;; Here we use `start' because nothing guarantees that the
577 ;; text between start and end will be otherwise refontified:
578 ;; usually it will be refontified by virtue of being
579 ;; displayed, but if it's outside of any displayed area in the
580 ;; buffer, only jit-lock-context-* will re-fontify it.
569 (min jit-lock-context-unfontify-pos start)))))) 581 (min jit-lock-context-unfontify-pos start))))))
570 582
571(provide 'jit-lock) 583(provide 'jit-lock)
572 584
573;;; arch-tag: 56b5de6e-f581-453b-bb97-49c39372ff9e 585;; arch-tag: 56b5de6e-f581-453b-bb97-49c39372ff9e
574;;; jit-lock.el ends here 586;;; jit-lock.el ends here
diff --git a/lisp/longlines.el b/lisp/longlines.el
index 6ce5dfaebc4..00a2782d0a3 100644
--- a/lisp/longlines.el
+++ b/lisp/longlines.el
@@ -109,6 +109,8 @@ are indicated with a symbol."
109 (add-to-list 'buffer-file-format 'longlines) 109 (add-to-list 'buffer-file-format 'longlines)
110 (add-hook 'change-major-mode-hook 'longlines-mode-off nil t) 110 (add-hook 'change-major-mode-hook 'longlines-mode-off nil t)
111 (make-local-variable 'buffer-substring-filters) 111 (make-local-variable 'buffer-substring-filters)
112 (set (make-local-variable 'isearch-search-fun-function)
113 'longlinges-search-function)
112 (add-to-list 'buffer-substring-filters 'longlines-encode-string) 114 (add-to-list 'buffer-substring-filters 'longlines-encode-string)
113 (when longlines-wrap-follows-window-size 115 (when longlines-wrap-follows-window-size
114 (set (make-local-variable 'fill-column) 116 (set (make-local-variable 'fill-column)
@@ -148,6 +150,7 @@ are indicated with a symbol."
148 'longlines-window-change-function t) 150 'longlines-window-change-function t)
149 (when longlines-wrap-follows-window-size 151 (when longlines-wrap-follows-window-size
150 (kill-local-variable 'fill-column)) 152 (kill-local-variable 'fill-column))
153 (kill-local-variable 'isearch-search-fun-function)
151 (kill-local-variable 'require-final-newline) 154 (kill-local-variable 'require-final-newline)
152 (kill-local-variable 'buffer-substring-filters) 155 (kill-local-variable 'buffer-substring-filters)
153 (kill-local-variable 'use-hard-newlines))) 156 (kill-local-variable 'use-hard-newlines)))
@@ -381,6 +384,27 @@ This is called by `window-size-change-functions'."
381 (longlines-wrap-region (point-min) (point-max)) 384 (longlines-wrap-region (point-min) (point-max))
382 (set-buffer-modified-p mod)))) 385 (set-buffer-modified-p mod))))
383 386
387;; Isearch
388
389(defun longlinges-search-function ()
390 (cond
391 (isearch-word
392 (if isearch-forward 'word-search-forward 'word-search-backward))
393 (isearch-regexp
394 (if isearch-forward 're-search-forward 're-search-backward))
395 (t
396 (if isearch-forward
397 'longlines-search-forward
398 'longlines-search-backward))))
399
400(defun longlines-search-forward (string &optional bound noerror count)
401 (let ((search-spaces-regexp "[ \n]+"))
402 (re-search-forward (regexp-quote string) bound noerror count)))
403
404(defun longlines-search-backward (string &optional bound noerror count)
405 (let ((search-spaces-regexp "[ \n]+"))
406 (re-search-backward (regexp-quote string) bound noerror count)))
407
384;; Loading and saving 408;; Loading and saving
385 409
386(add-to-list 410(add-to-list
diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el
index 06af543b4da..587b7d0187e 100644
--- a/lisp/mail/mailabbrev.el
+++ b/lisp/mail/mailabbrev.el
@@ -587,7 +587,8 @@ of a mail alias. The value is set up, buffer-local, when first needed.")
587 (prog2 587 (prog2
588 (message "Making completion list...") 588 (message "Making completion list...")
589 (all-completions alias mail-abbrevs) 589 (all-completions alias mail-abbrevs)
590 (message "Making completion list...done")))))))) 590 (message "Making completion list...done"))
591 alias))))))
591 592
592(defun mail-abbrev-next-line (&optional arg) 593(defun mail-abbrev-next-line (&optional arg)
593 "Expand any mail abbrev, then move cursor vertically down ARG lines. 594 "Expand any mail abbrev, then move cursor vertically down ARG lines.
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index f7c62026d80..81afe688c10 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -120,7 +120,10 @@ nil means let mailer mail back a message to report errors."
120 120
121;; Useful to set in site-init.el 121;; Useful to set in site-init.el
122;;;###autoload 122;;;###autoload
123(defcustom send-mail-function 'sendmail-send-it 123(defcustom send-mail-function
124 (if (and window-system (memq system-type '(darwin windows-nt)))
125 'mailclient-send-it
126 'sendmail-send-it)
124 "Function to call to send the current buffer as mail. 127 "Function to call to send the current buffer as mail.
125The headers should be delimited by a line which is 128The headers should be delimited by a line which is
126not a valid RFC822 header or continuation line, 129not a valid RFC822 header or continuation line,
diff --git a/lisp/makefile.w32-in b/lisp/makefile.w32-in
index df92500a006..d909c909b10 100644
--- a/lisp/makefile.w32-in
+++ b/lisp/makefile.w32-in
@@ -91,14 +91,13 @@ WINS=\
91 progmodes \ 91 progmodes \
92 term \ 92 term \
93 textmodes \ 93 textmodes \
94 toolbar \
95 url 94 url
96 95
97doit: 96doit:
98 97
99cus-load.el: 98$(lisp)/cus-load.el:
100 touch $@ 99 touch $@
101custom-deps: cus-load.el doit 100custom-deps: $(lisp)/cus-load.el doit
102 @echo Directories: $(WINS) 101 @echo Directories: $(WINS)
103 -$(emacs) -l cus-dep --eval $(ARGQUOTE)(setq find-file-hook nil)$(ARGQUOTE) -f custom-make-dependencies $(lisp) $(WINS) 102 -$(emacs) -l cus-dep --eval $(ARGQUOTE)(setq find-file-hook nil)$(ARGQUOTE) -f custom-make-dependencies $(lisp) $(WINS)
104 103
@@ -106,7 +105,7 @@ finder-data: doit
106 @echo Directories: $(WINS) 105 @echo Directories: $(WINS)
107 $(emacs) -l finder -f finder-compile-keywords-make-dist $(lisp) $(WINS) 106 $(emacs) -l finder -f finder-compile-keywords-make-dist $(lisp) $(WINS)
108 107
109loaddefs.el: 108$(lisp)/loaddefs.el:
110 $(MAKE) $(MFLAGS) loaddefs.el-$(SHELLTYPE) 109 $(MAKE) $(MFLAGS) loaddefs.el-$(SHELLTYPE)
111 cp loaddefs.el-$(SHELLTYPE) $@ 110 cp loaddefs.el-$(SHELLTYPE) $@
112 rm loaddefs.el-$(SHELLTYPE) 111 rm loaddefs.el-$(SHELLTYPE)
@@ -139,7 +138,7 @@ loaddefs.el-CMD:
139 echo (autoload 'define-derived-mode "derived")>> $@ 138 echo (autoload 'define-derived-mode "derived")>> $@
140 echo (autoload 'encoded-kbd-mode "encoded-kb")>> $@ 139 echo (autoload 'encoded-kbd-mode "encoded-kb")>> $@
141 echo (defvar cvs-global-menu nil)>> $@ 140 echo (defvar cvs-global-menu nil)>> $@
142 echo ;;; >> $@ 141 echo. >> $@
143 echo ;;; Local Variables:>> $@ 142 echo ;;; Local Variables:>> $@
144 echo ;;; version-control: never>> $@ 143 echo ;;; version-control: never>> $@
145 echo ;;; no-byte-compile: t>> $@ 144 echo ;;; no-byte-compile: t>> $@
@@ -147,7 +146,7 @@ loaddefs.el-CMD:
147 echo ;;; End:>> $@ 146 echo ;;; End:>> $@
148 echo ;;; loaddefs.el ends here>> $@ 147 echo ;;; loaddefs.el ends here>> $@
149 148
150autoloads: loaddefs.el doit 149autoloads: $(lisp)/loaddefs.el doit
151 @echo Directories: $(WINS) 150 @echo Directories: $(WINS)
152 $(emacs) -l autoload \ 151 $(emacs) -l autoload \
153 --eval $(ARGQUOTE)(setq find-file-hook nil \ 152 --eval $(ARGQUOTE)(setq find-file-hook nil \
@@ -156,19 +155,19 @@ autoloads: loaddefs.el doit
156 $(DQUOTE)$(lisp)/loaddefs.el$(DQUOTE))$(ARGQUOTE) \ 155 $(DQUOTE)$(lisp)/loaddefs.el$(DQUOTE))$(ARGQUOTE) \
157 -f batch-update-autoloads $(lisp) $(WINS) 156 -f batch-update-autoloads $(lisp) $(WINS)
158 157
159subdirs.el: 158$(lisp)/subdirs.el:
160 $(MAKE) $(MFLAGS) update-subdirs 159 $(MAKE) $(MFLAGS) update-subdirs
161 160
162# Need separate version for sh and native cmd.exe 161# Need separate version for sh and native cmd.exe
163update-subdirs: update-subdirs-$(SHELLTYPE) 162update-subdirs: update-subdirs-$(SHELLTYPE)
164 163
165update-subdirs-CMD: doit 164update-subdirs-CMD: doit
166 echo ;; -*- no-byte-compile: t -*->subdirs.el 165 echo ;; -*- no-byte-compile: t -*-> $(lisp)/subdirs.el
167 echo ;; In load-path, after this directory should come>> subdirs.el 166 echo ;; In load-path, after this directory should come>> $(lisp)/subdirs.el
168 echo ;; certain of its subdirectories. Here we specify them.>> subdirs.el 167 echo ;; certain of its subdirectories. Here we specify them.>> $(lisp)/subdirs.el
169 echo (normal-top-level-add-to-load-path $(SQUOTE)(>> subdirs.el 168 echo (normal-top-level-add-to-load-path $(SQUOTE)(>> $(lisp)/subdirs.el
170 @for %%d in ($(WINS)) do if not (%%d)==(term) echo "%%d">> subdirs.el 169 @for %%d in ($(WINS)) do if not (%%d)==(term) echo "%%d">> $(lisp)/subdirs.el
171 echo ))>> subdirs.el 170 echo ))>> $(lisp)/subdirs.el
172 171
173update-subdirs-SH: doit 172update-subdirs-SH: doit
174 $(srcdir)/update-subdirs $(lisp); \ 173 $(srcdir)/update-subdirs $(lisp); \
@@ -207,7 +206,7 @@ TAGS-LISP: $(lisptagsfiles1) $(lisptagsfiles2)
207# compiled find the right files. 206# compiled find the right files.
208 207
209# Need separate version for sh and native cmd.exe 208# Need separate version for sh and native cmd.exe
210compile: subdirs.el mh-autoloads compile-$(SHELLTYPE) doit 209compile: $(lisp)/subdirs.el mh-autoloads compile-$(SHELLTYPE) doit
211 210
212compile-CMD: 211compile-CMD:
213# -for %%f in ($(lisp) $(WINS)) do for %%g in (%%f\*.elc) do @attrib -r %%g 212# -for %%f in ($(lisp) $(WINS)) do for %%g in (%%f\*.elc) do @attrib -r %%g
@@ -236,7 +235,7 @@ compile-SH:
236# unconditionally. Some files don't actually get compiled because they 235# unconditionally. Some files don't actually get compiled because they
237# set the local variable no-byte-compile. 236# set the local variable no-byte-compile.
238 237
239compile-always: subdirs.el compile-always-$(SHELLTYPE) doit 238compile-always: $(lisp)/subdirs.el compile-always-$(SHELLTYPE) doit
240 239
241compile-always-CMD: 240compile-always-CMD:
242# -for %%f in ($(lisp) $(WINS)) do for %%g in (%%f\*.elc) do @attrib -r %%g 241# -for %%f in ($(lisp) $(WINS)) do for %%g in (%%f\*.elc) do @attrib -r %%g
@@ -300,6 +299,17 @@ MH_E_SRC = $(lisp)/mh-e/mh-acros.el $(lisp)/mh-e/mh-alias.el \
300 299
301mh-autoloads: $(lisp)/mh-e/mh-loaddefs.el 300mh-autoloads: $(lisp)/mh-e/mh-loaddefs.el
302$(lisp)/mh-e/mh-loaddefs.el: $(MH_E_SRC) 301$(lisp)/mh-e/mh-loaddefs.el: $(MH_E_SRC)
302 $(MAKE) $(MFLAGS) pre-mh-loaddefs.el-$(SHELLTYPE)
303 cp pre-mh-loaddefs.el-$(SHELLTYPE) $@
304 rm pre-mh-loaddefs.el-$(SHELLTYPE)
305 $(EMACS) $(EMACSOPT) \
306 -l autoload \
307 --eval "(setq generate-autoload-cookie \";;;###mh-autoload\")" \
308 --eval "(setq generated-autoload-file \"$(lisp)/mh-e/mh-loaddefs.el\")" \
309 --eval "(setq make-backup-files nil)" \
310 -f batch-update-autoloads $(lisp)/mh-e
311
312pre-mh-loaddefs.el-SH:
303 echo ";;; mh-loaddefs.el --- automatically extracted autoloads" > $@ 313 echo ";;; mh-loaddefs.el --- automatically extracted autoloads" > $@
304 echo ";;" >> $@ 314 echo ";;" >> $@
305 echo ";;; Copyright (C) 2003, 2004, 2005 Free Software Foundation, Inc." >> $@ 315 echo ";;; Copyright (C) 2003, 2004, 2005 Free Software Foundation, Inc." >> $@
@@ -308,12 +318,6 @@ $(lisp)/mh-e/mh-loaddefs.el: $(MH_E_SRC)
308 echo ";;; Commentary:" >> $@ 318 echo ";;; Commentary:" >> $@
309 echo ";;; Change Log:" >> $@ 319 echo ";;; Change Log:" >> $@
310 echo ";;; Code:" >> $@ 320 echo ";;; Code:" >> $@
311 $(EMACS) $(EMACSOPT) \
312 -l autoload \
313 --eval "(setq generate-autoload-cookie \";;;###mh-autoload\")" \
314 --eval "(setq generated-autoload-file \"$(lisp)/mh-e/mh-loaddefs.el\")" \
315 --eval "(setq make-backup-files nil)" \
316 -f batch-update-autoloads $(lisp)/mh-e
317 echo " " >> $@ 321 echo " " >> $@
318 echo "(provide 'mh-loaddefs)" >> $@ 322 echo "(provide 'mh-loaddefs)" >> $@
319 echo ";;; Local Variables:" >> $@ 323 echo ";;; Local Variables:" >> $@
@@ -323,6 +327,24 @@ $(lisp)/mh-e/mh-loaddefs.el: $(MH_E_SRC)
323 echo ";;; End:" >> $@ 327 echo ";;; End:" >> $@
324 echo ";;; mh-loaddefs.el ends here" >> $@ 328 echo ";;; mh-loaddefs.el ends here" >> $@
325 329
330pre-mh-loaddefs.el-CMD:
331 echo ;;; mh-loaddefs.el --- automatically extracted autoloads> $@
332 echo ;;>> $@
333 echo ;;; Copyright (C) 2003, 2004, 2005 Free Software Foundation, Inc.>> $@
334 echo ;;; Author: Bill Wohler (wohler@newt.com)>> $@
335 echo ;;; Keywords: mail>> $@
336 echo ;;; Commentary:>> $@
337 echo ;;; Change Log:>> $@
338 echo ;;; Code:>> $@
339 echo. >> $@
340 echo (provide 'mh-loaddefs)>> $@
341 echo ;;; Local Variables:>> $@
342 echo ;;; version-control: never>> $@
343 echo ;;; no-byte-compile: t>> $@
344 echo ;;; no-update-autoloads: t>> $@
345 echo ;;; End:>> $@
346 echo ;;; mh-loaddefs.el ends here>> $@
347
326# Prepare a bootstrap in the lisp subdirectory. 348# Prepare a bootstrap in the lisp subdirectory.
327# 349#
328# Build loaddefs.el to make sure it's up-to-date. If it's not, that 350# Build loaddefs.el to make sure it's up-to-date. If it's not, that
@@ -337,7 +359,7 @@ $(lisp)/mh-e/mh-loaddefs.el: $(MH_E_SRC)
337# sources only. 359# sources only.
338 360
339# Need separate version for sh and native cmd.exe 361# Need separate version for sh and native cmd.exe
340bootstrap-clean: bootstrap-clean-$(SHELLTYPE) loaddefs.el 362bootstrap-clean: bootstrap-clean-$(SHELLTYPE) $(lisp)/loaddefs.el
341 363
342bootstrap-clean-CMD: 364bootstrap-clean-CMD:
343# if exist $(EMACS) $(MAKE) $(MFLAGS) autoloads 365# if exist $(EMACS) $(MAKE) $(MFLAGS) autoloads
diff --git a/lisp/man.el b/lisp/man.el
index 6c8a5a18b44..c54a00d3663 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -415,10 +415,18 @@ Otherwise, the value is whatever the function
415 (define-key Man-mode-map "?" 'describe-mode)) 415 (define-key Man-mode-map "?" 'describe-mode))
416 416
417;; buttons 417;; buttons
418(define-button-type 'Man-xref-man-page 418(define-button-type 'Man-abstract-xref-man-page
419 'action (lambda (button) (man-follow (button-label button)))
420 'follow-link t 419 'follow-link t
421 'help-echo "mouse-2, RET: display this man page") 420 'help-echo "mouse-2, RET: display this man page"
421 'func nil
422 'action (lambda (button) (funcall
423 (button-get button 'func)
424 (button-label button))))
425
426(define-button-type 'Man-xref-man-page
427 :supertype 'Man-abstract-xref-man-page
428 'func 'man-follow)
429
422 430
423(define-button-type 'Man-xref-header-file 431(define-button-type 'Man-xref-header-file
424 'action (lambda (button) 432 'action (lambda (button)
@@ -903,14 +911,17 @@ Same for the ANSI bold and normal escape sequences."
903 'face Man-overstrike-face))) 911 'face Man-overstrike-face)))
904 (message "%s man page formatted" Man-arguments)) 912 (message "%s man page formatted" Man-arguments))
905 913
906(defun Man-highlight-references () 914(defun Man-highlight-references (&optional xref-man-type)
907 "Highlight the references on mouse-over. 915 "Highlight the references on mouse-over.
908References include items in the SEE ALSO section, 916References include items in the SEE ALSO section,
909header file (#include <foo.h>) and files in FILES." 917header file (#include <foo.h>) and files in FILES.
918If XREF-MAN-TYPE is used as the button type for items
919in SEE ALSO section. If it is nil, default type,
920`Man-xref-man-page' is used."
910 (let ((dummy 0)) 921 (let ((dummy 0))
911 (Man-highlight-references0 922 (Man-highlight-references0
912 Man-see-also-regexp Man-reference-regexp 1 dummy 923 Man-see-also-regexp Man-reference-regexp 1 dummy
913 'Man-xref-man-page) 924 (or xref-man-type 'Man-xref-man-page))
914 (Man-highlight-references0 925 (Man-highlight-references0
915 Man-synopsis-regexp Man-header-regexp 0 2 926 Man-synopsis-regexp Man-header-regexp 0 2
916 'Man-xref-header-file) 927 'Man-xref-header-file)
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 401513c3583..7a28a00edc8 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -1733,7 +1733,7 @@ Buffers menu is regenerated."
1733 :help "Terminate input and exit minibuffer"))) 1733 :help "Terminate input and exit minibuffer")))
1734 1734
1735;;;###autoload 1735;;;###autoload
1736;; This comment is taken from toolbar/tool-bar.el near 1736;; This comment is taken from tool-bar.el near
1737;; (put 'tool-bar-mode ...) 1737;; (put 'tool-bar-mode ...)
1738;; We want to pretend the menu bar by standard is on, as this will make 1738;; We want to pretend the menu bar by standard is on, as this will make
1739;; customize consider disabling the menu bar a customization, and save 1739;; customize consider disabling the menu bar a customization, and save
diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index ac4e9242729..1f37898af76 100644
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -1,3 +1,81 @@
12005-10-17 Peter S Galbraith <psg@debian.org>
2
3 * mh-identity.el (mh-identity-field-handler): Use
4 `assoc-ignore-case' to compare against header field for mixed-case
5 "From:".
6
72005-10-17 Bill Wohler <wohler@newt.com>
8
9 * mh-customize.el (mh-folder-tool-bar-map): Renamed image file
10 left_arrow to left-arrow, right_arrow to right-arrow, mail_compose
11 to mail/compose, fld_open to fld-open.
12 (mh-letter-tool-bar-map): Renamed image file mail_send to
13 mail/send.
14
152005-10-16 Bill Wohler <wohler@newt.com>
16
17 * mh-comp.el (mh-display-completion-list-compat): New macro which
18 calls `display-completion-list' correctly in older environments.
19 Versions of Emacs prior to version 22 lacked a COMMON-SUBSTRING
20 argument.
21 (mh-complete-word): Use it.
22
23 * mh-init.el (mh-image-load-path): Use locate-library to find
24 MH-E. This simplified the code a lot. Flattened out nested
25 statements even more.
26
272005-10-16 Satyaki Das <satyaki@theforce.stanford.edu>
28
29 * mh-init.el (mh-image-load-path): Remove use of pushnew since it
30 causes a compiler warning.
31
32 * mh-utils.el (mh-display-msg): Do MIME cleanup before inserting
33 the message to be viewed (closes SF #1306141).
34
352005-10-16 Masatake YAMATO <jet@gyve.org>
36
37 * mh-comp.el (mh-complete-word): Pass the common
38 prefix substring of completion to `display-completion-list'.
39
402005-10-15 Satyaki Das <satyaki@theforce.stanford.edu>
41
42 * mh-init.el (mh-image-load-path-called-flag): New variable which
43 is used by mh-image-load-path so that it runs only once.
44 (mh-image-load-path): Modified so that it gets run only once. Also
45 flatten out heavily nested if statements to make it clearer.
46
47 * mh-e.el (mh-folder-mode): Call mh-image-load-path to allow Emacs
48 to find images used in the toolbar.
49
50 * mh-customize.el (:folder): Remove call to mh-image-load-path.
51
522005-10-14 Bill Wohler <wohler@newt.com>
53
54 * mh-e.el (Version, mh-version): Added +cvs to version.
55
562005-10-14 Bill Wohler <wohler@newt.com>
57
58 Released MH-E version 7.85.
59
60 * mh-e.el (Version, mh-version): Updated for release 7.85.
61
622005-10-14 Bill Wohler <wohler@newt.com>
63
64 * mh-e.el, mh-funcs.el, mh-init.el, mh-mime.el, mh-pick.el:
65 * mh-seq.el, mh-utils.el: Ran mh-unit. Continued copyright lines
66 need to be indented.
67
68 * mh-e.el: mh-folder-tick-face had been renamed to mh-folder-tick
69 but the code that invoked the face had not been updated. Tick
70 highlighting working again.
71
72 * mh-seq.el (mh-non-seq-mode-line-annotation): Moved
73 make-variable-buffer-local call to top level to avoid warnings in
74 CVS Emacs.
75
76 * mh-comp.el (mh-insert-letter): Replaced deprecated read-input
77 with read-string.
78
12005-10-09 Bill Wohler <wohler@newt.com> 792005-10-09 Bill Wohler <wohler@newt.com>
2 80
3 * mh-init.el (mh-image-load-path): New function that adds the path 81 * mh-init.el (mh-image-load-path): New function that adds the path
diff --git a/lisp/mh-e/mh-comp.el b/lisp/mh-e/mh-comp.el
index a7af192ec40..753f4ad50aa 100644
--- a/lisp/mh-e/mh-comp.el
+++ b/lisp/mh-e/mh-comp.el
@@ -1430,10 +1430,10 @@ not indent and do not delete headers. Leaves the mark before the letter
1430and point after it." 1430and point after it."
1431 (interactive 1431 (interactive
1432 (list (mh-prompt-for-folder "Message from" mh-sent-from-folder nil) 1432 (list (mh-prompt-for-folder "Message from" mh-sent-from-folder nil)
1433 (read-input (concat "Message number" 1433 (read-string (concat "Message number"
1434 (if (numberp mh-sent-from-msg) 1434 (if (numberp mh-sent-from-msg)
1435 (format " (default %d): " mh-sent-from-msg) 1435 (format " (default %d): " mh-sent-from-msg)
1436 ": "))) 1436 ": ")))
1437 current-prefix-arg)) 1437 current-prefix-arg))
1438 (save-restriction 1438 (save-restriction
1439 (narrow-to-region (point) (point)) 1439 (narrow-to-region (point) (point))
@@ -1633,6 +1633,16 @@ This is useful in breaking up paragraphs in replies."
1633 1633
1634(mh-do-in-xemacs (defvar mail-abbrevs)) 1634(mh-do-in-xemacs (defvar mail-abbrevs))
1635 1635
1636(defmacro mh-display-completion-list-compat (word choices)
1637 "Completes WORD from CHOICES using `display-completion-list'.
1638Calls `display-completion-list' correctly in older environments.
1639Versions of Emacs prior to version 22 lacked a COMMON-SUBSTRING argument
1640which is used to highlight the next possible character you can enter
1641in the current list of completions."
1642 (if (>= emacs-major-version 22)
1643 `(display-completion-list (all-completions ,word ,choices) ,word)
1644 `(display-completion-list (all-completions ,word ,choices))))
1645
1636;;;###mh-autoload 1646;;;###mh-autoload
1637(defun mh-complete-word (word choices begin end) 1647(defun mh-complete-word (word choices begin end)
1638 "Complete WORD at from CHOICES. 1648 "Complete WORD at from CHOICES.
@@ -1650,7 +1660,7 @@ Any match found replaces the text from BEGIN to END."
1650 ((stringp completion) 1660 ((stringp completion)
1651 (if (equal word completion) 1661 (if (equal word completion)
1652 (with-output-to-temp-buffer completions-buffer 1662 (with-output-to-temp-buffer completions-buffer
1653 (display-completion-list (all-completions word choices))) 1663 (mh-display-completion-list-compat word choices))
1654 (ignore-errors 1664 (ignore-errors
1655 (kill-buffer completions-buffer)) 1665 (kill-buffer completions-buffer))
1656 (delete-region begin end) 1666 (delete-region begin end)
diff --git a/lisp/mh-e/mh-customize.el b/lisp/mh-e/mh-customize.el
index 4dcf0ad1be8..d26819d6f63 100644
--- a/lisp/mh-e/mh-customize.el
+++ b/lisp/mh-e/mh-customize.el
@@ -1897,7 +1897,6 @@ where,
1897 for y in letter-docs 1897 for y in letter-docs
1898 collect `(const :tag ,y ,x))))))) 1898 collect `(const :tag ,y ,x)))))))
1899 1899
1900(mh-image-load-path)
1901(mh-tool-bar-define 1900(mh-tool-bar-define
1902 ((:folder mh-inc-folder mh-mime-save-parts mh-previous-undeleted-msg 1901 ((:folder mh-inc-folder mh-mime-save-parts mh-previous-undeleted-msg
1903 mh-page-msg mh-next-undeleted-msg mh-delete-msg mh-refile-msg 1902 mh-page-msg mh-next-undeleted-msg mh-delete-msg mh-refile-msg
@@ -1917,12 +1916,12 @@ new mail into your Inbox folder.")
1917 "Save MIME parts from this message 1916 "Save MIME parts from this message
1918This button runs `mh-mime-save-parts' which saves a message's 1917This button runs `mh-mime-save-parts' which saves a message's
1919different parts into separate files.") 1918different parts into separate files.")
1920 (mh-previous-undeleted-msg (folder) "left_arrow" 1919 (mh-previous-undeleted-msg (folder) "left-arrow"
1921 "Go to the previous undeleted message 1920 "Go to the previous undeleted message
1922This button runs `mh-previous-undeleted-msg'") 1921This button runs `mh-previous-undeleted-msg'")
1923 (mh-page-msg (folder) "page-down" 1922 (mh-page-msg (folder) "page-down"
1924 "Page the current message forwards\nThis button runs `mh-page-msg'") 1923 "Page the current message forwards\nThis button runs `mh-page-msg'")
1925 (mh-next-undeleted-msg (folder) "right_arrow" 1924 (mh-next-undeleted-msg (folder) "right-arrow"
1926 "Go to the next undeleted message\nThe button runs `mh-next-undeleted-msg'") 1925 "Go to the next undeleted message\nThe button runs `mh-next-undeleted-msg'")
1927 (mh-delete-msg (folder) "close" 1926 (mh-delete-msg (folder) "close"
1928 "Mark this message for deletion\nThis button runs `mh-delete-msg'") 1927 "Mark this message for deletion\nThis button runs `mh-delete-msg'")
@@ -1945,7 +1944,7 @@ This button runs `mh-previous-undeleted-msg'")
1945 (mh-alias-grab-from-field (folder) "mail/alias" 1944 (mh-alias-grab-from-field (folder) "mail/alias"
1946 "Grab From alias\nThis button runs `mh-alias-grab-from-field'" 1945 "Grab From alias\nThis button runs `mh-alias-grab-from-field'"
1947 (and (mh-extract-from-header-value) (not (mh-alias-for-from-p)))) 1946 (and (mh-extract-from-header-value) (not (mh-alias-for-from-p))))
1948 (mh-send (folder) "mail_compose" 1947 (mh-send (folder) "mail/compose"
1949 "Compose new message\nThis button runs `mh-send'") 1948 "Compose new message\nThis button runs `mh-send'")
1950 (mh-rescan-folder (folder) "refresh" 1949 (mh-rescan-folder (folder) "refresh"
1951 "Rescan this folder\nThis button runs `mh-rescan-folder'") 1950 "Rescan this folder\nThis button runs `mh-rescan-folder'")
@@ -1953,10 +1952,10 @@ This button runs `mh-previous-undeleted-msg'")
1953 "Repack this folder\nThis button runs `mh-pack-folder'") 1952 "Repack this folder\nThis button runs `mh-pack-folder'")
1954 (mh-tool-bar-search (folder) "search" 1953 (mh-tool-bar-search (folder) "search"
1955 "Search\nThis button runs `mh-tool-bar-search-function'") 1954 "Search\nThis button runs `mh-tool-bar-search-function'")
1956 (mh-visit-folder (folder) "fld_open" 1955 (mh-visit-folder (folder) "fld-open"
1957 "Visit other folder\nThis button runs `mh-visit-folder'") 1956 "Visit other folder\nThis button runs `mh-visit-folder'")
1958 ;; Letter buffer buttons 1957 ;; Letter buffer buttons
1959 (mh-send-letter (letter) "mail_send" "Send this letter") 1958 (mh-send-letter (letter) "mail/send" "Send this letter")
1960 (mh-compose-insertion (letter) "attach" "Insert attachment") 1959 (mh-compose-insertion (letter) "attach" "Insert attachment")
1961 (ispell-message (letter) "spell" "Check spelling") 1960 (ispell-message (letter) "spell" "Check spelling")
1962 (save-buffer (letter) "save" "Save current buffer to its file" 1961 (save-buffer (letter) "save" "Save current buffer to its file"
diff --git a/lisp/mh-e/mh-e.el b/lisp/mh-e/mh-e.el
index ad1093101e1..c0b57ee56ca 100644
--- a/lisp/mh-e/mh-e.el
+++ b/lisp/mh-e/mh-e.el
@@ -6,7 +6,7 @@
6 6
7;; Author: Bill Wohler <wohler@newt.com> 7;; Author: Bill Wohler <wohler@newt.com>
8;; Maintainer: Bill Wohler <wohler@newt.com> 8;; Maintainer: Bill Wohler <wohler@newt.com>
9;; Version: 7.84+cvs 9;; Version: 7.85+cvs
10;; Keywords: mail 10;; Keywords: mail
11 11
12;; This file is part of GNU Emacs. 12;; This file is part of GNU Emacs.
@@ -98,7 +98,7 @@
98(defvar font-lock-auto-fontify) 98(defvar font-lock-auto-fontify)
99(defvar font-lock-defaults) 99(defvar font-lock-defaults)
100 100
101(defconst mh-version "7.84+cvs" "Version number of MH-E.") 101(defconst mh-version "7.85+cvs" "Version number of MH-E.")
102 102
103(defvar mh-partial-folder-mode-line-annotation "select" 103(defvar mh-partial-folder-mode-line-annotation "select"
104 "Annotation when displaying part of a folder. 104 "Annotation when displaying part of a folder.
@@ -408,7 +408,7 @@ is done highlighting.")
408 (list (list ',func (list 1 '',face 'prepend t)))))))) 408 (list (list ',func (list 1 '',face 'prepend t))))))))
409 409
410(mh-generate-sequence-font-lock mh-unseen-seq unseen bold) 410(mh-generate-sequence-font-lock mh-unseen-seq unseen bold)
411(mh-generate-sequence-font-lock mh-tick-seq tick mh-folder-tick-face) 411(mh-generate-sequence-font-lock mh-tick-seq tick mh-folder-tick)
412 412
413 413
414 414
@@ -778,7 +778,7 @@ bottom of the current message."
778 (if (mh-in-show-buffer (mh-show-buffer) 778 (if (mh-in-show-buffer (mh-show-buffer)
779 (pos-visible-in-window-p (point-max))) 779 (pos-visible-in-window-p (point-max)))
780 (progn 780 (progn
781 (message 781 (message
782 "End of message (Type %s to read %s undeleted message)" 782 "End of message (Type %s to read %s undeleted message)"
783 (single-key-description last-input-event) 783 (single-key-description last-input-event)
784 (if (equal mh-next-direction 'backward) 784 (if (equal mh-next-direction 'backward)
@@ -1561,6 +1561,7 @@ messages in that region.
1561 1561
1562\\{mh-folder-mode-map}" 1562\\{mh-folder-mode-map}"
1563 1563
1564 (mh-image-load-path)
1564 (make-local-variable 'font-lock-defaults) 1565 (make-local-variable 'font-lock-defaults)
1565 (setq font-lock-defaults '(mh-folder-font-lock-keywords t)) 1566 (setq font-lock-defaults '(mh-folder-font-lock-keywords t))
1566 (make-local-variable 'desktop-save-buffer) 1567 (make-local-variable 'desktop-save-buffer)
diff --git a/lisp/mh-e/mh-funcs.el b/lisp/mh-e/mh-funcs.el
index 717d0b27aef..6ce1da8fe90 100644
--- a/lisp/mh-e/mh-funcs.el
+++ b/lisp/mh-e/mh-funcs.el
@@ -1,7 +1,7 @@
1;;; mh-funcs.el --- MH-E functions not everyone will use right away 1;;; mh-funcs.el --- MH-E functions not everyone will use right away
2 2
3;; Copyright (C) 1993, 1995, 3;; Copyright (C) 1993, 1995,
4;; 2001, 2002, 2003, 2004 Free Software Foundation, Inc. 4;; 2001, 2002, 2003, 2004 Free Software Foundation, Inc.
5 5
6;; Author: Bill Wohler <wohler@newt.com> 6;; Author: Bill Wohler <wohler@newt.com>
7;; Maintainer: Bill Wohler <wohler@newt.com> 7;; Maintainer: Bill Wohler <wohler@newt.com>
diff --git a/lisp/mh-e/mh-identity.el b/lisp/mh-e/mh-identity.el
index 1d848344897..c3f34ae75b2 100644
--- a/lisp/mh-e/mh-identity.el
+++ b/lisp/mh-e/mh-identity.el
@@ -124,7 +124,7 @@ The field name is downcased. If the FIELD begins with the character
124`:', then it must have a special handler defined in 124`:', then it must have a special handler defined in
125`mh-identity-handlers', else return an error since it is not a valid 125`mh-identity-handlers', else return an error since it is not a valid
126header field." 126header field."
127 (or (cdr (assoc (downcase field) mh-identity-handlers)) 127 (or (cdr (assoc-ignore-case field mh-identity-handlers))
128 (and (eq (aref field 0) ?:) 128 (and (eq (aref field 0) ?:)
129 (error "Field %s - unknown mh-identity-handler" field)) 129 (error "Field %s - unknown mh-identity-handler" field))
130 (cdr (assoc ":default" mh-identity-handlers)) 130 (cdr (assoc ":default" mh-identity-handlers))
diff --git a/lisp/mh-e/mh-init.el b/lisp/mh-e/mh-init.el
index 06ca97f9cd6..dcc9af84e41 100644
--- a/lisp/mh-e/mh-init.el
+++ b/lisp/mh-e/mh-init.el
@@ -300,50 +300,30 @@ by the variable `mh-variants'."
300 (add-to-list 'mh-variants variant))))) 300 (add-to-list 'mh-variants variant)))))
301 mh-variants))) 301 mh-variants)))
302 302
303;;; XXX The two calls to message in this function should really be calls to 303(defvar mh-image-load-path-called-flag nil)
304;;; error. However, when this function is compiled via the top-level call in 304
305;;; mh-customize.el, it is actually called, and in a compile environment, the
306;;; errors are triggered which botches the compile. As a workaround, the calls
307;;; to error have been changed to calls to message, and code following was
308;;; inserted as an else clause. This is not robust, so if you can fix this,
309;;; please do!
310;;;###mh-autoload 305;;;###mh-autoload
311(defun mh-image-load-path () 306(defun mh-image-load-path ()
312 "Ensure that the MH-E images are accessible by `find-image'. 307 "Ensure that the MH-E images are accessible by `find-image'.
313Images for MH-E are found in ../../etc/images relative to the files in 308Images for MH-E are found in ../../etc/images relative to the files in
314lisp/mh-e. If `image-load-path' exists (since Emacs 22), then the images 309`lisp/mh-e'. If `image-load-path' exists (since Emacs 22), then the images
315directory is added to it if isn't already there. Otherwise, the images 310directory is added to it if isn't already there. Otherwise, the images
316directory is added to the `load-path' if it isn't already there." 311directory is added to the `load-path' if it isn't already there."
317 (let (mh-load-path mh-image-load-path) 312 (unless mh-image-load-path-called-flag
318 ;; First, find mh-e in the load-path. 313 (let (mh-library-name mh-image-load-path)
319 (let ((path load-path)) 314 ;; First, find mh-e in the load-path.
320 (while path 315 (setq mh-library-name (locate-library "mh-e"))
321 (let* ((directory (directory-file-name (car path)))) 316 (if (not mh-library-name)
322 (setq mh-load-path 317 (error "Can not find MH-E in load-path"))
323 (if (and (equal (file-name-nondirectory directory) "mh-e") 318 (setq mh-image-load-path
324 (file-exists-p directory)) 319 (expand-file-name (concat (file-name-directory mh-library-name)
325 directory 320 "../../etc/images")))
326 nil)) 321 (if (not (file-exists-p mh-image-load-path))
327 (setq path (if mh-load-path nil (cdr path))))) 322 (error "Can not find image directory %s" mh-image-load-path))
328 (if (not mh-load-path)
329 ;; This message be error; there shouldn't be an else. Blame compiler.
330 (message "Can not find mh-e in load-path (OK when compiling)")
331 ;; Create the image path associated with this mh-e directory.
332 (setq mh-image-load-path (expand-file-name
333 (concat (file-name-directory mh-load-path)
334 "../etc/images")))))
335 (if (or (not mh-image-load-path)
336 (not (file-exists-p mh-image-load-path)))
337 ;; This message be error; there shouldn't be an else. Blame compiler.
338 (message "Can not find image directory %s (OK when compiling)"
339 mh-image-load-path)
340 ;; If image-load-path exists, and the image path isn't there add it.
341 (if (boundp 'image-load-path) 323 (if (boundp 'image-load-path)
342 (if (not (member mh-image-load-path image-load-path)) 324 (add-to-list 'image-load-path mh-image-load-path)
343 (push mh-image-load-path image-load-path)) 325 (add-to-list 'load-path mh-image-load-path)))
344 ;; Otherwise, if the image path isn't in the load-path, add it there. 326 (setq mh-image-load-path-called-flag t)))
345 (if (not (member mh-image-load-path load-path))
346 (push mh-image-load-path load-path))))))
347 327
348(provide 'mh-init) 328(provide 'mh-init)
349 329
diff --git a/lisp/mh-e/mh-mime.el b/lisp/mh-e/mh-mime.el
index 4f72fe06487..fb7bace7ead 100644
--- a/lisp/mh-e/mh-mime.el
+++ b/lisp/mh-e/mh-mime.el
@@ -1,7 +1,7 @@
1;;; mh-mime.el --- MH-E support for composing MIME messages 1;;; mh-mime.el --- MH-E support for composing MIME messages
2 2
3;; Copyright (C) 1993, 1995, 3;; Copyright (C) 1993, 1995,
4;; 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. 4;; 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
5 5
6;; Author: Bill Wohler <wohler@newt.com> 6;; Author: Bill Wohler <wohler@newt.com>
7;; Maintainer: Bill Wohler <wohler@newt.com> 7;; Maintainer: Bill Wohler <wohler@newt.com>
diff --git a/lisp/mh-e/mh-pick.el b/lisp/mh-e/mh-pick.el
index c0b9360cfae..eb825fe462f 100644
--- a/lisp/mh-e/mh-pick.el
+++ b/lisp/mh-e/mh-pick.el
@@ -1,7 +1,7 @@
1;;; mh-pick.el --- make a search pattern and search for a message in MH-E 1;;; mh-pick.el --- make a search pattern and search for a message in MH-E
2 2
3;; Copyright (C) 1993, 1995, 3;; Copyright (C) 1993, 1995,
4;; 2001, 2003, 2004, 2005 Free Software Foundation, Inc. 4;; 2001, 2003, 2004, 2005 Free Software Foundation, Inc.
5 5
6;; Author: Bill Wohler <wohler@newt.com> 6;; Author: Bill Wohler <wohler@newt.com>
7;; Maintainer: Bill Wohler <wohler@newt.com> 7;; Maintainer: Bill Wohler <wohler@newt.com>
diff --git a/lisp/mh-e/mh-seq.el b/lisp/mh-e/mh-seq.el
index 51847c2d59d..efbfe0d221f 100644
--- a/lisp/mh-e/mh-seq.el
+++ b/lisp/mh-e/mh-seq.el
@@ -1,7 +1,7 @@
1;;; mh-seq.el --- MH-E sequences support 1;;; mh-seq.el --- MH-E sequences support
2 2
3;; Copyright (C) 1993, 1995, 3;; Copyright (C) 1993, 1995,
4;; 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. 4;; 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
5 5
6;; Author: Bill Wohler <wohler@newt.com> 6;; Author: Bill Wohler <wohler@newt.com>
7;; Maintainer: Bill Wohler <wohler@newt.com> 7;; Maintainer: Bill Wohler <wohler@newt.com>
@@ -224,6 +224,8 @@ appears."
224;; Avoid compiler warning 224;; Avoid compiler warning
225(defvar tool-bar-map) 225(defvar tool-bar-map)
226 226
227(make-variable-buffer-local 'mh-non-seq-mode-line-annotation)
228
227;;;###mh-autoload 229;;;###mh-autoload
228(defun mh-narrow-to-seq (sequence) 230(defun mh-narrow-to-seq (sequence)
229 "Restrict display of this folder to just messages in SEQUENCE. 231 "Restrict display of this folder to just messages in SEQUENCE.
@@ -243,7 +245,6 @@ Use \\<mh-folder-mode-map>\\[mh-widen] to undo this command."
243 (mh-notate-deleted-and-refiled) 245 (mh-notate-deleted-and-refiled)
244 (mh-notate-cur) 246 (mh-notate-cur)
245 (when msg-at-cursor (mh-goto-msg msg-at-cursor t t)) 247 (when msg-at-cursor (mh-goto-msg msg-at-cursor t t))
246 (make-variable-buffer-local 'mh-non-seq-mode-line-annotation)
247 (setq mh-non-seq-mode-line-annotation mh-mode-line-annotation) 248 (setq mh-non-seq-mode-line-annotation mh-mode-line-annotation)
248 (setq mh-mode-line-annotation (symbol-name sequence)) 249 (setq mh-mode-line-annotation (symbol-name sequence))
249 (mh-make-folder-mode-line) 250 (mh-make-folder-mode-line)
diff --git a/lisp/mh-e/mh-utils.el b/lisp/mh-e/mh-utils.el
index 0e608e52062..2dbd313b1d2 100644
--- a/lisp/mh-e/mh-utils.el
+++ b/lisp/mh-e/mh-utils.el
@@ -1,7 +1,7 @@
1;;; mh-utils.el --- MH-E code needed for both sending and reading 1;;; mh-utils.el --- MH-E code needed for both sending and reading
2 2
3;; Copyright (C) 1993, 1995, 1997, 3;; Copyright (C) 1993, 1995, 1997,
4;; 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. 4;; 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
5 5
6;; Author: Bill Wohler <wohler@newt.com> 6;; Author: Bill Wohler <wohler@newt.com>
7;; Maintainer: Bill Wohler <wohler@newt.com> 7;; Maintainer: Bill Wohler <wohler@newt.com>
@@ -1718,6 +1718,8 @@ Sets the current buffer to the show buffer."
1718 (cond ((not (equal msg-filename buffer-file-name)) 1718 (cond ((not (equal msg-filename buffer-file-name))
1719 (mh-unvisit-file) 1719 (mh-unvisit-file)
1720 (setq buffer-read-only nil) 1720 (setq buffer-read-only nil)
1721 ;; Cleanup old mime handles
1722 (mh-mime-cleanup)
1721 (erase-buffer) 1723 (erase-buffer)
1722 ;; Changing contents, so this hook needs to be reinitialized. 1724 ;; Changing contents, so this hook needs to be reinitialized.
1723 ;; pgp.el uses this. 1725 ;; pgp.el uses this.
@@ -1729,8 +1731,6 @@ Sets the current buffer to the show buffer."
1729 (list "-form" formfile)) 1731 (list "-form" formfile))
1730 msg-filename) 1732 msg-filename)
1731 (insert-file-contents-literally msg-filename)) 1733 (insert-file-contents-literally msg-filename))
1732 ;; Cleanup old mime handles
1733 (mh-mime-cleanup)
1734 ;; Use mm to display buffer 1734 ;; Use mm to display buffer
1735 (when (and mh-decode-mime-flag (not formfile)) 1735 (when (and mh-decode-mime-flag (not formfile))
1736 (mh-add-missing-mime-version-header) 1736 (mh-add-missing-mime-version-header)
diff --git a/lisp/mouse.el b/lisp/mouse.el
index 90f2b3ba879..d71d80bd41f 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -54,7 +54,7 @@
54 54
55With the default setting, an ordinary Mouse-1 click on a link 55With the default setting, an ordinary Mouse-1 click on a link
56performs the same action as Mouse-2 on that link, while a longer 56performs the same action as Mouse-2 on that link, while a longer
57Mouse-1 click \(hold down the Mouse-1 button for more than 350 57Mouse-1 click \(hold down the Mouse-1 button for more than 450
58milliseconds) performs the original Mouse-1 binding \(which 58milliseconds) performs the original Mouse-1 binding \(which
59typically sets point where you click the mouse). 59typically sets point where you click the mouse).
60 60
@@ -78,7 +78,7 @@ packages. See `mouse-on-link-p' for details."
78 :version "22.1" 78 :version "22.1"
79 :type '(choice (const :tag "Disabled" nil) 79 :type '(choice (const :tag "Disabled" nil)
80 (const :tag "Double click" double) 80 (const :tag "Double click" double)
81 (number :tag "Single click time limit" :value 350) 81 (number :tag "Single click time limit" :value 450)
82 (other :tag "Single click" t)) 82 (other :tag "Single click" t))
83 :group 'mouse) 83 :group 'mouse)
84 84
@@ -663,7 +663,7 @@ This should be bound to a mouse drag event."
663 ;; If mark is highlighted, no need to bounce the cursor. 663 ;; If mark is highlighted, no need to bounce the cursor.
664 ;; On X, we highlight while dragging, thus once again no need to bounce. 664 ;; On X, we highlight while dragging, thus once again no need to bounce.
665 (or transient-mark-mode 665 (or transient-mark-mode
666 (memq (framep (selected-frame)) '(x pc w32)) 666 (memq (framep (selected-frame)) '(x pc w32 mac))
667 (sit-for 1)) 667 (sit-for 1))
668 (push-mark) 668 (push-mark)
669 (set-mark (point)) 669 (set-mark (point))
@@ -958,12 +958,14 @@ at the same position."
958 (mouse-move-drag-overlay mouse-drag-overlay start-point end-point click-count)) 958 (mouse-move-drag-overlay mouse-drag-overlay start-point end-point click-count))
959 959
960 (if (consp event) 960 (if (consp event)
961 (let ((fun (key-binding (vector (car event))))) 961 (let* ((fun (key-binding (vector (car event))))
962 (do-multi-click (and (> (event-click-count event) 0)
963 (functionp fun)
964 (not (eq fun 'mouse-set-point)))))
962 ;; Run the binding of the terminating up-event, if possible. 965 ;; Run the binding of the terminating up-event, if possible.
963 ;; In the case of a multiple click, it gives the wrong results, 966 (if (and (not (= (overlay-start mouse-drag-overlay)
964 ;; because it would fail to set up a region. 967 (overlay-end mouse-drag-overlay)))
965 (if (not (= (overlay-start mouse-drag-overlay) 968 (not do-multi-click))
966 (overlay-end mouse-drag-overlay)))
967 (let* ((stop-point 969 (let* ((stop-point
968 (if (numberp (posn-point (event-end event))) 970 (if (numberp (posn-point (event-end event)))
969 (posn-point (event-end event)) 971 (posn-point (event-end event))
@@ -996,8 +998,12 @@ at the same position."
996 (and (mark t) mark-active 998 (and (mark t) mark-active
997 (eq buffer (current-buffer)) 999 (eq buffer (current-buffer))
998 (mouse-set-region-1)))) 1000 (mouse-set-region-1))))
999 (delete-overlay mouse-drag-overlay)
1000 ;; Run the binding of the terminating up-event. 1001 ;; Run the binding of the terminating up-event.
1002 ;; If a multiple click is not bound to mouse-set-point,
1003 ;; cancel the effects of mouse-move-drag-overlay to
1004 ;; avoid producing wrong results.
1005 (if do-multi-click (goto-char start-point))
1006 (delete-overlay mouse-drag-overlay)
1001 (when (and (functionp fun) 1007 (when (and (functionp fun)
1002 (= start-hscroll (window-hscroll start-window)) 1008 (= start-hscroll (window-hscroll start-window))
1003 ;; Don't run the up-event handler if the 1009 ;; Don't run the up-event handler if the
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 6df8a5dab42..cc662770dcf 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -4384,6 +4384,7 @@ necessary anymore."
4384(defun tramp-completion-mode (file) 4384(defun tramp-completion-mode (file)
4385 "Checks whether method / user name / host name completion is active." 4385 "Checks whether method / user name / host name completion is active."
4386 (cond 4386 (cond
4387 (tramp-completion-mode t)
4387 ((not tramp-unified-filenames) t) 4388 ((not tramp-unified-filenames) t)
4388 ((string-match "^/.*:.*:$" file) nil) 4389 ((string-match "^/.*:.*:$" file) nil)
4389 ((string-match 4390 ((string-match
@@ -4434,70 +4435,83 @@ necessary anymore."
4434 (substring 4435 (substring
4435 file (length (tramp-completion-handle-file-name-directory file)))) 4436 file (length (tramp-completion-handle-file-name-directory file))))
4436 4437
4438(defvar tramp-completion-mode nil
4439 "If non-nil, we are in file name completion mode.")
4440
4437;; Method, host name and user name completion. 4441;; Method, host name and user name completion.
4438;; `tramp-completion-dissect-file-name' returns a list of 4442;; `tramp-completion-dissect-file-name' returns a list of
4439;; tramp-file-name structures. For all of them we return possible completions. 4443;; tramp-file-name structures. For all of them we return possible completions.
4440(defun tramp-completion-handle-file-name-all-completions (filename directory) 4444(defun tramp-completion-handle-file-name-all-completions (filename directory)
4441 "Like `file-name-all-completions' for partial tramp files." 4445 "Like `file-name-all-completions' for partial tramp files."
4442 4446
4443 (let* 4447 (unwind-protect
4444 ((fullname (concat directory filename)) 4448 ;; We need to reset `tramp-completion-mode'.
4445 ;; local files 4449 (progn
4446 (result 4450 (setq tramp-completion-mode t)
4447 (if (tramp-completion-mode fullname) 4451 (let*
4448 (tramp-run-real-handler 4452 ((fullname (concat directory filename))
4449 'file-name-all-completions (list filename directory)) 4453 ;; possible completion structures
4450 (tramp-completion-run-real-handler 4454 (v (tramp-completion-dissect-file-name fullname))
4451 'file-name-all-completions (list filename directory)))) 4455 result result1)
4452 ;; possible completion structures 4456
4453 (v (tramp-completion-dissect-file-name fullname))) 4457 (while v
4454 4458 (let* ((car (car v))
4455 (while v 4459 (multi-method (tramp-file-name-multi-method car))
4456 (let* ((car (car v)) 4460 (method (tramp-file-name-method car))
4457 (multi-method (tramp-file-name-multi-method car)) 4461 (user (tramp-file-name-user car))
4458 (method (tramp-file-name-method car)) 4462 (host (tramp-file-name-host car))
4459 (user (tramp-file-name-user car)) 4463 (localname (tramp-file-name-localname car))
4460 (host (tramp-file-name-host car)) 4464 (m (tramp-find-method multi-method method user host))
4461 (localname (tramp-file-name-localname car)) 4465 (tramp-current-user user) ; see `tramp-parse-passwd'
4462 (m (tramp-find-method multi-method method user host)) 4466 all-user-hosts)
4463 (tramp-current-user user) ; see `tramp-parse-passwd' 4467
4464 all-user-hosts) 4468 (unless (or multi-method ;; Not handled (yet).
4465 4469 localname) ;; Nothing to complete
4466 (unless (or multi-method ;; Not handled (yet). 4470
4467 localname) ;; Nothing to complete 4471 (if (or user host)
4468 4472
4469 (if (or user host) 4473 ;; Method dependent user / host combinations
4470 4474 (progn
4471 ;; Method dependent user / host combinations 4475 (mapcar
4472 (progn 4476 (lambda (x)
4473 (mapcar 4477 (setq all-user-hosts
4474 (lambda (x) 4478 (append all-user-hosts
4475 (setq all-user-hosts 4479 (funcall (nth 0 x) (nth 1 x)))))
4476 (append all-user-hosts 4480 (tramp-get-completion-function m))
4477 (funcall (nth 0 x) (nth 1 x))))) 4481
4478 (tramp-get-completion-function m)) 4482 (setq result (append result
4479 4483 (mapcar
4480 (setq result (append result 4484 (lambda (x)
4481 (mapcar 4485 (tramp-get-completion-user-host
4482 (lambda (x) 4486 method user host (nth 0 x) (nth 1 x)))
4483 (tramp-get-completion-user-host 4487 (delq nil all-user-hosts)))))
4484 method user host (nth 0 x) (nth 1 x))) 4488
4485 (delq nil all-user-hosts))))) 4489 ;; Possible methods
4486 4490 (setq result
4487 ;; Possible methods 4491 (append result (tramp-get-completion-methods m)))))
4488 (setq result 4492
4489 (append result (tramp-get-completion-methods m))))) 4493 (setq v (cdr v))))
4490 4494
4491 (setq v (delq car v)))) 4495 ;; unify list, remove nil elements
4492 4496 (while result
4493 ;;; unify list, remove nil elements 4497 (let ((car (car result)))
4494 (let (result1) 4498 (when car (add-to-list 'result1 car))
4495 (while result 4499 (setq result (cdr result))))
4496 (let ((car (car result))) 4500
4497 (when car (add-to-list 'result1 car)) 4501 ;; Complete local parts
4498 (setq result (delq car result)))) 4502 (append
4499 4503 result1
4500 result1))) 4504 (condition-case nil
4505 (if result1
4506 ;; "/ssh:" does not need to be expanded as hostname.
4507 (tramp-run-real-handler
4508 'file-name-all-completions (list filename directory))
4509 ;; No method/user/host found to be expanded.
4510 (tramp-completion-run-real-handler
4511 'file-name-all-completions (list filename directory)))
4512 (error nil)))))
4513 ;; unwindform
4514 (setq tramp-completion-mode nil)))
4501 4515
4502;; Method, host name and user name completion for a file. 4516;; Method, host name and user name completion for a file.
4503(defun tramp-completion-handle-file-name-completion (filename directory) 4517(defun tramp-completion-handle-file-name-completion (filename directory)
diff --git a/lisp/pcvs.el b/lisp/pcvs.el
index f86e4c95625..1e9f1bce7ce 100644
--- a/lisp/pcvs.el
+++ b/lisp/pcvs.el
@@ -1482,11 +1482,16 @@ The POSTPROC specified there (typically `log-edit') is then called,
1482 (point)))))) 1482 (point))))))
1483 1483
1484(defvar cvs-edit-log-revision) 1484(defvar cvs-edit-log-revision)
1485(defun cvs-mode-edit-log (rev &optional text) 1485(defvar cvs-edit-log-files) (put 'cvs-edit-log-files 'permanent-local t)
1486(defun cvs-mode-edit-log (file rev &optional text)
1486 "Edit the log message at point. 1487 "Edit the log message at point.
1487This is best called from a `log-view-mode' buffer." 1488This is best called from a `log-view-mode' buffer."
1488 (interactive 1489 (interactive
1489 (list 1490 (list
1491 (or (cvs-mode! (lambda ()
1492 (car (cvs-mode-files nil nil
1493 :read-only t :file t :noquery t))))
1494 (read-string "File name: "))
1490 (or (cvs-mode! (lambda () (cvs-prefix-get 'cvs-branch-prefix))) 1495 (or (cvs-mode! (lambda () (cvs-prefix-get 'cvs-branch-prefix)))
1491 (read-string "Revision to edit: ")) 1496 (read-string "Revision to edit: "))
1492 (cvs-edit-log-text-at-point))) 1497 (cvs-edit-log-text-at-point)))
@@ -1498,26 +1503,38 @@ This is best called from a `log-view-mode' buffer."
1498 (let ((buf (cvs-temp-buffer "message" 'normal 'nosetup)) 1503 (let ((buf (cvs-temp-buffer "message" 'normal 'nosetup))
1499 (setupfun (or (nth 2 (cdr (assoc "message" cvs-buffer-name-alist))) 1504 (setupfun (or (nth 2 (cdr (assoc "message" cvs-buffer-name-alist)))
1500 'log-edit))) 1505 'log-edit)))
1506 (with-current-buffer buf
1507 ;; Set the filename before, so log-edit can correctly setup its
1508 ;; log-edit-initial-files variable.
1509 (set (make-local-variable 'cvs-edit-log-files) (list file)))
1501 (funcall setupfun 'cvs-do-edit-log nil 'cvs-edit-log-filelist buf) 1510 (funcall setupfun 'cvs-do-edit-log nil 'cvs-edit-log-filelist buf)
1502 (when text (erase-buffer) (insert text)) 1511 (when text (erase-buffer) (insert text))
1503 (set (make-local-variable 'cvs-edit-log-revision) rev) 1512 (set (make-local-variable 'cvs-edit-log-revision) rev)
1504 (set (make-local-variable 'cvs-minor-wrap-function) 'cvs-edit-log-minor-wrap) 1513 (set (make-local-variable 'cvs-minor-wrap-function)
1514 'cvs-edit-log-minor-wrap)
1505 ;; (run-hooks 'cvs-mode-commit-hook) 1515 ;; (run-hooks 'cvs-mode-commit-hook)
1506 )) 1516 ))
1507 1517
1508(defun cvs-edit-log-minor-wrap (buf f) 1518(defun cvs-edit-log-minor-wrap (buf f)
1509 (let ((cvs-ignore-marks-modif (cvs-mode-mark-get-modif "commit"))) 1519 (let ((cvs-branch-prefix (with-current-buffer buf cvs-edit-log-revision))
1520 (cvs-minor-current-files
1521 (with-current-buffer buf cvs-edit-log-files))
1522 ;; FIXME: I need to force because the fileinfos are UNKNOWN
1523 (cvs-force-command "/F"))
1510 (funcall f))) 1524 (funcall f)))
1511 1525
1512(defun cvs-edit-log-filelist () 1526(defun cvs-edit-log-filelist ()
1513 (cvs-mode-files nil nil :read-only t :file t :noquery t)) 1527 (if cvs-minor-wrap-function
1528 (cvs-mode-files nil nil :read-only t :file t :noquery t)
1529 cvs-edit-log-files))
1514 1530
1515(defun cvs-do-edit-log (rev) 1531(defun cvs-do-edit-log (rev)
1516 "Do the actual commit, using the current buffer as the log message." 1532 "Do the actual commit, using the current buffer as the log message."
1517 (interactive (list cvs-edit-log-revision)) 1533 (interactive (list cvs-edit-log-revision))
1518 (let ((msg (buffer-substring-no-properties (point-min) (point-max)))) 1534 (let ((msg (buffer-substring-no-properties (point-min) (point-max))))
1519 (cvs-mode!) 1535 (cvs-mode!
1520 (cvs-mode-do "admin" (list (concat "-m" rev ":" msg)) nil))) 1536 (lambda ()
1537 (cvs-mode-do "admin" (list (concat "-m" rev ":" msg)) nil)))))
1521 1538
1522 1539
1523;;;; 1540;;;;
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 269fbeaf137..d041fa366c8 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -1678,37 +1678,20 @@ displays at the top of the window; there is no arrow."
1678 "Jump to an error corresponding to MSG at MK. 1678 "Jump to an error corresponding to MSG at MK.
1679All arguments are markers. If END-MK is non-nil, mark is set there 1679All arguments are markers. If END-MK is non-nil, mark is set there
1680and overlay is highlighted between MK and END-MK." 1680and overlay is highlighted between MK and END-MK."
1681 (if (eq (window-buffer (selected-window))
1682 (marker-buffer msg))
1683 ;; If the compilation buffer window is selected,
1684 ;; keep the compilation buffer in this window;
1685 ;; display the source in another window.
1686 (let ((pop-up-windows t))
1687 (pop-to-buffer (marker-buffer mk)))
1688 (if (window-dedicated-p (selected-window))
1689 (pop-to-buffer (marker-buffer mk))
1690 (switch-to-buffer (marker-buffer mk))))
1691 ;; If narrowing gets in the way of going to the right place, widen.
1692 (unless (eq (goto-char mk) (point))
1693 (widen)
1694 (goto-char mk))
1695 (if end-mk
1696 (push-mark end-mk t)
1697 (if mark-active (setq mark-active)))
1698 ;; If hideshow got in the way of
1699 ;; seeing the right place, open permanently.
1700 (dolist (ov (overlays-at (point)))
1701 (when (eq 'hs (overlay-get ov 'invisible))
1702 (delete-overlay ov)
1703 (goto-char mk)))
1704
1705 ;; Show compilation buffer in other window, scrolled to this error. 1681 ;; Show compilation buffer in other window, scrolled to this error.
1706 (let* ((pop-up-windows t) 1682 (let* ((from-compilation-buffer (eq (window-buffer (selected-window))
1707 ;; Use an existing window if it is in a visible frame. 1683 (marker-buffer msg)))
1684 ;; Use an existing window if it is in a visible frame.
1708 (pre-existing (get-buffer-window (marker-buffer msg) 0)) 1685 (pre-existing (get-buffer-window (marker-buffer msg) 0))
1709 (w (let ((display-buffer-reuse-frames t)) 1686 (w (if (and from-compilation-buffer pre-existing)
1710 ;; Pop up a window. 1687 ;; Calling display-buffer here may end up (partly) hiding
1711 (display-buffer (marker-buffer msg)))) 1688 ;; the error location if the two buffers are in two
1689 ;; different frames. So don't do it if it's not necessary.
1690 pre-existing
1691 (let ((display-buffer-reuse-frames t)
1692 (pop-up-windows t))
1693 ;; Pop up a window.
1694 (display-buffer (marker-buffer msg)))))
1712 (highlight-regexp (with-current-buffer (marker-buffer msg) 1695 (highlight-regexp (with-current-buffer (marker-buffer msg)
1713 ;; also do this while we change buffer 1696 ;; also do this while we change buffer
1714 (compilation-set-window w msg) 1697 (compilation-set-window w msg)
@@ -1718,6 +1701,29 @@ and overlay is highlighted between MK and END-MK."
1718 ;; creating a new window. 1701 ;; creating a new window.
1719 (unless pre-existing (compilation-set-window-height w)) 1702 (unless pre-existing (compilation-set-window-height w))
1720 1703
1704 (if from-compilation-buffer
1705 ;; If the compilation buffer window was selected,
1706 ;; keep the compilation buffer in this window;
1707 ;; display the source in another window.
1708 (let ((pop-up-windows t))
1709 (pop-to-buffer (marker-buffer mk) 'other-window))
1710 (if (window-dedicated-p (selected-window))
1711 (pop-to-buffer (marker-buffer mk))
1712 (switch-to-buffer (marker-buffer mk))))
1713 ;; If narrowing gets in the way of going to the right place, widen.
1714 (unless (eq (goto-char mk) (point))
1715 (widen)
1716 (goto-char mk))
1717 (if end-mk
1718 (push-mark end-mk t)
1719 (if mark-active (setq mark-active)))
1720 ;; If hideshow got in the way of
1721 ;; seeing the right place, open permanently.
1722 (dolist (ov (overlays-at (point)))
1723 (when (eq 'hs (overlay-get ov 'invisible))
1724 (delete-overlay ov)
1725 (goto-char mk)))
1726
1721 (when highlight-regexp 1727 (when highlight-regexp
1722 (if (timerp next-error-highlight-timer) 1728 (if (timerp next-error-highlight-timer)
1723 (cancel-timer next-error-highlight-timer)) 1729 (cancel-timer next-error-highlight-timer))
diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index f6e8697543f..ac2cc23048a 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -2015,7 +2015,8 @@ for \\[find-tag] (which see)."
2015 (message "Making completion list...") 2015 (message "Making completion list...")
2016 (with-output-to-temp-buffer "*Completions*" 2016 (with-output-to-temp-buffer "*Completions*"
2017 (display-completion-list 2017 (display-completion-list
2018 (all-completions pattern 'tags-complete-tag nil))) 2018 (all-completions pattern 'tags-complete-tag nil)
2019 pattern))
2019 (message "Making completion list...%s" "done"))))) 2020 (message "Making completion list...%s" "done")))))
2020 2021
2021(dolist (x '("^No tags table in use; use .* to select one$" 2022(dolist (x '("^No tags table in use; use .* to select one$"
diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el
index 852cd8deb88..bf09669083d 100644
--- a/lisp/progmodes/gdb-ui.el
+++ b/lisp/progmodes/gdb-ui.el
@@ -437,6 +437,9 @@ Also display the main routine in the disassembly buffer if present."
437 nil nil))) 437 nil nil)))
438 (push var gdb-var-list) 438 (push var gdb-var-list)
439 (speedbar 1) 439 (speedbar 1)
440 (unless (string-equal
441 speedbar-initial-expansion-list-name "GUD")
442 (speedbar-change-initial-expansion-list "GUD"))
440 (if (equal (nth 2 var) "0") 443 (if (equal (nth 2 var) "0")
441 (gdb-enqueue-input 444 (gdb-enqueue-input
442 (list 445 (list
@@ -600,7 +603,9 @@ INDENT is the current indentation depth."
600 (dolist (var gdb-var-list) 603 (dolist (var gdb-var-list)
601 (if (string-match (concat token "\\.") (nth 1 var)) 604 (if (string-match (concat token "\\.") (nth 1 var))
602 (setq gdb-var-list (delq var gdb-var-list)))) 605 (setq gdb-var-list (delq var gdb-var-list))))
603 (setq gdb-var-changed t)))) 606 (setq gdb-var-changed t)
607 (with-current-buffer gud-comint-buffer
608 (speedbar-timer-fn)))))
604 609
605(defun gdb-get-target-string () 610(defun gdb-get-target-string ()
606 (with-current-buffer gud-comint-buffer 611 (with-current-buffer gud-comint-buffer
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index d38697a2152..8f962381d24 100644
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -5,7 +5,7 @@
5;; Keywords: unix, tools 5;; Keywords: unix, tools
6 6
7;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 2000, 2001, 2002, 2003, 7;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 2000, 2001, 2002, 2003,
8;; 2004, 2005 Free Software Foundation, Inc. 8;; 2004, 2005 Free Software Foundation, Inc.
9 9
10;; This file is part of GNU Emacs. 10;; This file is part of GNU Emacs.
11 11
@@ -139,13 +139,13 @@ Used to grey out relevant togolbar icons.")
139 ([remove] menu-item "Remove Breakpoint" gud-remove 139 ([remove] menu-item "Remove Breakpoint" gud-remove
140 :enable (not gud-running) 140 :enable (not gud-running)
141 :visible (not (and (memq gud-minor-mode '(gdbmi gdba)) 141 :visible (not (and (memq gud-minor-mode '(gdbmi gdba))
142 (window-fringes)))) 142 (> (car (window-fringes)) 0))))
143 ([tbreak] menu-item "Temporary Breakpoint" gud-tbreak 143 ([tbreak] menu-item "Temporary Breakpoint" gud-tbreak
144 :enable (memq gud-minor-mode '(gdbmi gdba gdb sdb xdb bashdb))) 144 :enable (memq gud-minor-mode '(gdbmi gdba gdb sdb xdb bashdb)))
145 ([break] menu-item "Set Breakpoint" gud-break 145 ([break] menu-item "Set Breakpoint" gud-break
146 :enable (not gud-running) 146 :enable (not gud-running)
147 :visible (not (and (memq gud-minor-mode '(gdbmi gdba)) 147 :visible (not (and (memq gud-minor-mode '(gdbmi gdba))
148 (window-fringes)))) 148 (> (car (window-fringes)) 0))))
149 ([up] menu-item "Up Stack" gud-up 149 ([up] menu-item "Up Stack" gud-up
150 :enable (and (not gud-running) 150 :enable (and (not gud-running)
151 (memq gud-minor-mode 151 (memq gud-minor-mode
@@ -197,24 +197,24 @@ Used to grey out relevant togolbar icons.")
197(defvar gud-tool-bar-map 197(defvar gud-tool-bar-map
198 (if (display-graphic-p) 198 (if (display-graphic-p)
199 (let ((map (make-sparse-keymap))) 199 (let ((map (make-sparse-keymap)))
200 (dolist (x '((gud-break . "gud-break") 200 (dolist (x '((gud-break . "gud/break")
201 (gud-remove . "gud-remove") 201 (gud-remove . "gud/remove")
202 (gud-print . "gud-print") 202 (gud-print . "gud/print")
203 (gud-pstar . "gud-pstar") 203 (gud-pstar . "gud/pstar")
204 (gud-watch . "gud-watch") 204 (gud-watch . "gud/watch")
205 (gud-cont . "gud-cont") 205 (gud-cont . "gud/cont")
206 (gud-until . "gud-until") 206 (gud-until . "gud/until")
207 (gud-finish . "gud-finish") 207 (gud-finish . "gud/finish")
208 (gud-run . "gud-run") 208 (gud-run . "gud/run")
209 ;; gud-s, gud-si etc. instead of gud-step, 209 ;; gud-s, gud-si etc. instead of gud-step,
210 ;; gud-stepi, to avoid file-name clashes on DOS 210 ;; gud-stepi, to avoid file-name clashes on DOS
211 ;; 8+3 filesystems. 211 ;; 8+3 filesystems.
212 (gud-next . "gud-n") 212 (gud-next . "gud/next")
213 (gud-step . "gud-s") 213 (gud-step . "gud/step")
214 (gud-nexti . "gud-ni") 214 (gud-nexti . "gud/nexti")
215 (gud-stepi . "gud-si") 215 (gud-stepi . "gud/stepi")
216 (gud-up . "gud-up") 216 (gud-up . "gud/up")
217 (gud-down . "gud-down") 217 (gud-down . "gud/down")
218 (gud-goto-info . "info")) 218 (gud-goto-info . "info"))
219 map) 219 map)
220 (tool-bar-local-item-from-menu 220 (tool-bar-local-item-from-menu
@@ -2575,7 +2575,8 @@ It is saved for when this flag is not set.")
2575 ;; Stop displaying an arrow in a source file. 2575 ;; Stop displaying an arrow in a source file.
2576 (setq gud-overlay-arrow-position nil) 2576 (setq gud-overlay-arrow-position nil)
2577 (set-process-buffer proc nil) 2577 (set-process-buffer proc nil)
2578 (if (featurep 'speedbar) 2578 (if (and (boundp 'speedbar-frame)
2579 (string-equal speedbar-initial-expansion-list-name "GUD"))
2579 (speedbar-change-initial-expansion-list 2580 (speedbar-change-initial-expansion-list
2580 speedbar-previously-used-expansion-list-name)) 2581 speedbar-previously-used-expansion-list-name))
2581 (if (memq gud-minor-mode-type '(gdbmi gdba)) 2582 (if (memq gud-minor-mode-type '(gdbmi gdba))
diff --git a/lisp/progmodes/make-mode.el b/lisp/progmodes/make-mode.el
index 11ae1c66aa7..3a55129c899 100644
--- a/lisp/progmodes/make-mode.el
+++ b/lisp/progmodes/make-mode.el
@@ -1176,7 +1176,7 @@ The context determines which are considered."
1176 (message "Making completion list...") 1176 (message "Making completion list...")
1177 (let ((list (all-completions try table))) 1177 (let ((list (all-completions try table)))
1178 (with-output-to-temp-buffer "*Completions*" 1178 (with-output-to-temp-buffer "*Completions*"
1179 (display-completion-list list))) 1179 (display-completion-list list try)))
1180 (message "Making completion list...done")))))) 1180 (message "Making completion list...done"))))))
1181 1181
1182 1182
diff --git a/lisp/progmodes/meta-mode.el b/lisp/progmodes/meta-mode.el
index 9ae3e5a5935..f5bbb4d68db 100644
--- a/lisp/progmodes/meta-mode.el
+++ b/lisp/progmodes/meta-mode.el
@@ -509,7 +509,7 @@ If the list was changed, sort the list and remove duplicates first."
509 (message "Making completion list...") 509 (message "Making completion list...")
510 (let ((list (all-completions symbol list nil))) 510 (let ((list (all-completions symbol list nil)))
511 (with-output-to-temp-buffer "*Completions*" 511 (with-output-to-temp-buffer "*Completions*"
512 (display-completion-list list))) 512 (display-completion-list list symbol)))
513 (message "Making completion list... done")))) 513 (message "Making completion list... done"))))
514 (funcall (nth 1 entry))))) 514 (funcall (nth 1 entry)))))
515 515
diff --git a/lisp/progmodes/octave-mod.el b/lisp/progmodes/octave-mod.el
index e37f3b14a15..b65ad9eac1a 100644
--- a/lisp/progmodes/octave-mod.el
+++ b/lisp/progmodes/octave-mod.el
@@ -1252,7 +1252,7 @@ variables."
1252 ;; Taken from comint.el 1252 ;; Taken from comint.el
1253 (message "Making completion list...") 1253 (message "Making completion list...")
1254 (with-output-to-temp-buffer "*Completions*" 1254 (with-output-to-temp-buffer "*Completions*"
1255 (display-completion-list list)) 1255 (display-completion-list list string))
1256 (message "Hit space to flush") 1256 (message "Hit space to flush")
1257 (let (key first) 1257 (let (key first)
1258 (if (save-excursion 1258 (if (save-excursion
diff --git a/lisp/progmodes/pascal.el b/lisp/progmodes/pascal.el
index 3cd243580e2..801096b9b0f 100644
--- a/lisp/progmodes/pascal.el
+++ b/lisp/progmodes/pascal.el
@@ -1378,7 +1378,7 @@ indent of the current line in parameterlist."
1378 ((and (not (null (cdr allcomp))) (= (length pascal-str) 1378 ((and (not (null (cdr allcomp))) (= (length pascal-str)
1379 (length match))) 1379 (length match)))
1380 (with-output-to-temp-buffer "*Completions*" 1380 (with-output-to-temp-buffer "*Completions*"
1381 (display-completion-list allcomp)) 1381 (display-completion-list allcomp pascal-str))
1382 ;; Wait for a keypress. Then delete *Completion* window 1382 ;; Wait for a keypress. Then delete *Completion* window
1383 (momentary-string-display "" (point)) 1383 (momentary-string-display "" (point))
1384 (delete-window (get-buffer-window (get-buffer "*Completions*"))) 1384 (delete-window (get-buffer-window (get-buffer "*Completions*")))
@@ -1398,7 +1398,7 @@ indent of the current line in parameterlist."
1398 (all-completions pascal-str 'pascal-completion)))) 1398 (all-completions pascal-str 'pascal-completion))))
1399 ;; Show possible completions in a temporary buffer. 1399 ;; Show possible completions in a temporary buffer.
1400 (with-output-to-temp-buffer "*Completions*" 1400 (with-output-to-temp-buffer "*Completions*"
1401 (display-completion-list allcomp)) 1401 (display-completion-list allcomp pascal-str))
1402 ;; Wait for a keypress. Then delete *Completion* window 1402 ;; Wait for a keypress. Then delete *Completion* window
1403 (momentary-string-display "" (point)) 1403 (momentary-string-display "" (point))
1404 (delete-window (get-buffer-window (get-buffer "*Completions*"))))) 1404 (delete-window (get-buffer-window (get-buffer "*Completions*")))))
diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el
index f7788404350..6ed2e39e4e8 100644
--- a/lisp/progmodes/python.el
+++ b/lisp/progmodes/python.el
@@ -1652,7 +1652,7 @@ Repeating the command scrolls the completion window."
1652 (t 1652 (t
1653 (message "Making completion list...") 1653 (message "Making completion list...")
1654 (with-output-to-temp-buffer "*Completions*" 1654 (with-output-to-temp-buffer "*Completions*"
1655 (display-completion-list completions)) 1655 (display-completion-list completions symbol))
1656 (message "Making completion list...%s" "done")))))))) 1656 (message "Making completion list...%s" "done"))))))))
1657 1657
1658(eval-when-compile (require 'hippie-exp)) 1658(eval-when-compile (require 'hippie-exp))
diff --git a/lisp/recentf.el b/lisp/recentf.el
index dee7a8d438d..b14997d604f 100644
--- a/lisp/recentf.el
+++ b/lisp/recentf.el
@@ -985,6 +985,54 @@ unchanged."
985 t))))) 985 t)))))
986 l)) 986 l))
987 987
988;;; Hooks
989;;
990(defun recentf-track-opened-file ()
991 "Insert the name of the file just opened or written into the recent list."
992 (and buffer-file-name
993 (recentf-add-file buffer-file-name))
994 ;; Must return nil because it is run from `write-file-functions'.
995 nil)
996
997(defun recentf-track-closed-file ()
998 "Update the recent list when a buffer is killed.
999That is, remove a non kept file from the recent list."
1000 (and buffer-file-name
1001 (recentf-remove-if-non-kept buffer-file-name)))
1002
1003(defun recentf-update-menu ()
1004 "Update the recentf menu from the current recent list."
1005 (let ((cache (cons default-directory recentf-list)))
1006 ;; Does nothing, if nothing has changed.
1007 (unless (equal recentf-data-cache cache)
1008 (setq recentf-data-cache cache)
1009 (condition-case err
1010 (easy-menu-add-item
1011 (recentf-menu-bar) recentf-menu-path
1012 (easy-menu-create-menu recentf-menu-title
1013 (recentf-make-menu-items))
1014 recentf-menu-before)
1015 (error
1016 (message "recentf update menu failed: %s"
1017 (error-message-string err)))))))
1018
1019(defconst recentf-used-hooks
1020 '(
1021 (find-file-hook recentf-track-opened-file)
1022 (write-file-functions recentf-track-opened-file)
1023 (kill-buffer-hook recentf-track-closed-file)
1024 (menu-bar-update-hook recentf-update-menu)
1025 (kill-emacs-hook recentf-save-list)
1026 )
1027 "Hooks used by recentf.")
1028
1029(defsubst recentf-enabled-p ()
1030 "Return non-nil if recentf mode is currently enabled."
1031 (memq 'recentf-update-menu menu-bar-update-hook))
1032
1033;;; Commands
1034;;
1035
988;;; Common dialog stuff 1036;;; Common dialog stuff
989;; 1037;;
990(defun recentf-cancel-dialog (&rest ignore) 1038(defun recentf-cancel-dialog (&rest ignore)
@@ -1011,7 +1059,7 @@ Go to the beginning of buffer if not found."
1011 (let ((km (copy-keymap recentf--shortcuts-keymap))) 1059 (let ((km (copy-keymap recentf--shortcuts-keymap)))
1012 (set-keymap-parent km widget-keymap) 1060 (set-keymap-parent km widget-keymap)
1013 (define-key km "q" 'recentf-cancel-dialog) 1061 (define-key km "q" 'recentf-cancel-dialog)
1014 (define-key km [down-mouse-1] 'widget-button-click) 1062 (define-key km [follow-link] "\C-m")
1015 km) 1063 km)
1016 "Keymap used in recentf dialogs.") 1064 "Keymap used in recentf dialogs.")
1017 1065
@@ -1038,54 +1086,6 @@ Go to the beginning of buffer if not found."
1038 (widget-setup) 1086 (widget-setup)
1039 (switch-to-buffer (current-buffer)))) 1087 (switch-to-buffer (current-buffer))))
1040 1088
1041;;; Hooks
1042;;
1043(defun recentf-track-opened-file ()
1044 "Insert the name of the file just opened or written into the recent list."
1045 (and buffer-file-name
1046 (recentf-add-file buffer-file-name))
1047 ;; Must return nil because it is run from `write-file-functions'.
1048 nil)
1049
1050(defun recentf-track-closed-file ()
1051 "Update the recent list when a buffer is killed.
1052That is, remove a non kept file from the recent list."
1053 (and buffer-file-name
1054 (recentf-remove-if-non-kept buffer-file-name)))
1055
1056(defun recentf-update-menu ()
1057 "Update the recentf menu from the current recent list."
1058 (let ((cache (cons default-directory recentf-list)))
1059 ;; Does nothing, if nothing has changed.
1060 (unless (equal recentf-data-cache cache)
1061 (setq recentf-data-cache cache)
1062 (condition-case err
1063 (easy-menu-add-item
1064 (recentf-menu-bar) recentf-menu-path
1065 (easy-menu-create-menu recentf-menu-title
1066 (recentf-make-menu-items))
1067 recentf-menu-before)
1068 (error
1069 (message "recentf update menu failed: %s"
1070 (error-message-string err)))))))
1071
1072(defconst recentf-used-hooks
1073 '(
1074 (find-file-hook recentf-track-opened-file)
1075 (write-file-functions recentf-track-opened-file)
1076 (kill-buffer-hook recentf-track-closed-file)
1077 (menu-bar-update-hook recentf-update-menu)
1078 (kill-emacs-hook recentf-save-list)
1079 )
1080 "Hooks used by recentf.")
1081
1082(defsubst recentf-enabled-p ()
1083 "Return non-nil if recentf mode is currently enabled."
1084 (memq 'recentf-update-menu menu-bar-update-hook))
1085
1086;;; Commands
1087;;
1088
1089;;; Edit list dialog 1089;;; Edit list dialog
1090;; 1090;;
1091(defvar recentf-edit-list nil) 1091(defvar recentf-edit-list nil)
@@ -1140,7 +1140,7 @@ Click on Cancel or type `q' to cancel.\n")
1140 :notify 'recentf-cancel-dialog 1140 :notify 'recentf-cancel-dialog
1141 "Cancel") 1141 "Cancel")
1142 (recentf-dialog-goto-first 'checkbox))) 1142 (recentf-dialog-goto-first 'checkbox)))
1143 1143
1144;;; Open file dialog 1144;;; Open file dialog
1145;; 1145;;
1146(defun recentf-open-files-action (widget &rest ignore) 1146(defun recentf-open-files-action (widget &rest ignore)
@@ -1252,7 +1252,7 @@ Optional argument N must be a valid digit number. It defaults to 1.
1252 (when recentf--files-with-key 1252 (when recentf--files-with-key
1253 (kill-buffer (current-buffer))) 1253 (kill-buffer (current-buffer)))
1254 (funcall recentf-menu-action file))) 1254 (funcall recentf-menu-action file)))
1255 1255
1256;;; Save/load/cleanup the recent list 1256;;; Save/load/cleanup the recent list
1257;; 1257;;
1258(defconst recentf-save-file-header 1258(defconst recentf-save-file-header
@@ -1316,7 +1316,9 @@ That is, remove duplicates, non-kept, and excluded files."
1316 (message "File %s removed from the recentf list" f))) 1316 (message "File %s removed from the recentf list" f)))
1317 (message "Cleaning up the recentf list...done (%d removed)" n) 1317 (message "Cleaning up the recentf list...done (%d removed)" n)
1318 (setq recentf-list (nreverse newlist)))) 1318 (setq recentf-list (nreverse newlist))))
1319 1319
1320;;; The minor mode
1321;;
1320(defvar recentf-mode-map (make-sparse-keymap) 1322(defvar recentf-mode-map (make-sparse-keymap)
1321 "Keymap to use in recentf mode.") 1323 "Keymap to use in recentf mode.")
1322 1324
diff --git a/lisp/savehist.el b/lisp/savehist.el
new file mode 100644
index 00000000000..de0f1504ff8
--- /dev/null
+++ b/lisp/savehist.el
@@ -0,0 +1,270 @@
1;;; savehist.el --- Save minibuffer history.
2
3;; Copyright (C) 1997, 2005 Free Software Foundation
4
5;; Author: Hrvoje Niksic <hniksic@xemacs.org>
6;; Keywords: minibuffer
7;; Version: 7
8
9;; This file is part of GNU Emacs.
10
11;; GNU Emacs is free software; you can redistribute it and/or modify
12;; it under the terms of the GNU General Public License as published by
13;; the Free Software Foundation; either version 2, or (at your option)
14;; any later version.
15
16;; GNU Emacs is distributed in the hope that it will be useful,
17;; but WITHOUT ANY WARRANTY; without even the implied warranty of
18;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19;; GNU General Public License for more details.
20
21;; You should have received a copy of the GNU General Public License
22;; along with GNU Emacs; see the file COPYING. If not, write to the
23;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
24;; Boston, MA 02110-1301, USA.
25
26;;; Commentary:
27
28;; Many editors (e.g. Vim) have the feature of saving minibuffer
29;; history to an external file after exit. This package provides the
30;; same feature in Emacs. When Emacs is about the exit,
31;; `savehist-save' will dump the contents of various minibuffer
32;; histories (as determined by `savehist-history-variables') to a save
33;; file (`~/.emacs-history' by default). Although the package was
34;; designed for saving the minibuffer histories, any variables can be
35;; saved that way.
36
37;; To use savehist, put the following to `~/.emacs':
38;;
39;; (require 'savehist)
40;; (savehist-load)
41
42;; Be sure to have `savehist.el' in a directory that is in your
43;; load-path, and byte-compile it.
44
45;;; Code:
46
47(require 'custom)
48
49;; User variables
50
51(defgroup savehist nil
52 "Save minibuffer history."
53 :group 'minibuffer)
54
55(defcustom savehist-history-variables
56 '(
57 ;; Catch-all minibuffer history
58 minibuffer-history
59 ;; File-oriented commands
60 file-name-history
61 ;; Regexp-related reads
62 regexp-history
63 ;; Searches in minibuffer (via `M-r' and such)
64 minibuffer-history-search-history
65 ;; Query replace
66 query-replace-history
67 ;; eval-expression (`M-:')
68 read-expression-history
69 ;; shell-command (`M-!')
70 shell-command-history
71 ;; compile
72 compile-history
73 ;; find-tag (`M-.')
74 find-tag-history
75 ;; grep
76 grep-history
77 ;; Viper stuff
78 vip-ex-history vip-search-history
79 vip-replace1-history vip-replace2-history
80 vip-shell-history vip-search-history
81
82 ;; XEmacs-specific:
83 ;; Buffer-related commands
84 buffer-history
85 ;; Reads of variables and functions
86 variable-history function-history
87 ;; Extended commands
88 read-command-history
89
90 ;; Info, lookup, and bookmark historys
91 Info-minibuffer-history
92 Info-search-history
93 Manual-page-minibuffer-history
94
95 ;; Emacs-specific:
96 ;; Extended commands
97 extended-command-history)
98 "*List of symbols to be saved.
99Every symbol should refer to a variable. The variable will be saved
100only if it is bound and has a non-nil value. Thus it is safe to
101specify a superset of the variables a user is expected to want to
102save.
103
104Default value contains minibuffer history variables used by Emacs, XEmacs,
105and Viper (uh-oh). Note that, if you customize this variable, you
106can lose the benefit of future versions of Emacs adding new values to
107the list. Because of that it might be more useful to add values using
108`add-to-list'."
109 :type '(repeat (symbol :tag "Variable"))
110 :group 'savehist)
111
112(defcustom savehist-file "~/.emacs-history"
113 "*File name to save minibuffer history to.
114The minibuffer history is a series of Lisp expressions, which should be
115loaded using `savehist-load' from your .emacs. See `savehist-load' for
116more details."
117 :type 'file
118 :group 'savehist)
119
120(defcustom savehist-length 100
121 "*Maximum length of a minibuffer list.
122If set to nil, the length is unlimited."
123 :type '(choice integer
124 (const :tag "Unlimited" nil))
125 :group 'savehist)
126
127(defcustom savehist-modes #o600
128 "*Default permissions of the history file.
129This is decimal, not octal. The default is 384 (0600 in octal).
130Set to nil to use the default permissions that Emacs uses, typically
131mandated by umask. The default is a bit more restrictive to protect
132the user's privacy."
133 :type 'integer
134 :group 'savehist)
135
136(defcustom savehist-autosave-interval (* 5 60)
137 "*The interval during which savehist should autosave the history buffer."
138 :type 'integer
139 :group 'savehist)
140
141(defvar savehist-coding-system (if (coding-system-p 'utf-8) 'utf-8 'iso-2022-8)
142 "The coding system savehist uses for saving the minibuffer history.
143Changing this value while Emacs is running is supported, but considered
144unwise, unless you know what you are doing.")
145
146;; Internal variables.
147
148(defvar savehist-timer nil)
149
150(defvar savehist-last-checksum nil)
151
152(defconst savehist-no-conversion (if (featurep 'xemacs) 'binary 'no-conversion)
153 ;; FIXME: Why not use savehist-coding-system?
154 "Coding system without conversion, only used for calculating checksums.")
155
156;; Functions
157
158;;;###autoload
159(defun savehist-load (&optional no-hook)
160 "Load the minibuffer histories from `savehist-file'.
161Unless NO-HOOK is specified, the function will also add the save function
162to `kill-emacs-hook' and on a timer, ensuring that the minibuffer contents
163will be saved before leaving Emacs.
164
165This function should be normally used from your Emacs init file. Since it
166removes your current minibuffer histories, it is unwise to call it at any
167other time."
168 (interactive "P")
169 (unless no-hook
170 (add-hook 'kill-emacs-hook 'savehist-autosave)
171 ;; Install an invocation of savehist-autosave on a timer. This
172 ;; should not cause a noticeable delay -- savehist-autosave
173 ;; executes in under 5 ms on my system.
174 (unless savehist-timer
175 (setq savehist-timer
176 (if (featurep 'xemacs)
177 (start-itimer
178 "savehist" 'savehist-autosave savehist-autosave-interval
179 savehist-autosave-interval)
180 (run-with-idle-timer savehist-autosave-interval savehist-autosave-interval
181 'savehist-autosave)))))
182 ;; Don't set coding-system-for-read here. We rely on autodetection
183 ;; and the coding cookie to convey that information. That way, if
184 ;; the user changes the value of savehist-coding-system, we can
185 ;; still correctly load the old file.
186 (load savehist-file t (not (interactive-p))))
187
188;;;###autoload
189(defun savehist-save (&optional auto-save)
190 "Save the histories from `savehist-history-variables' to `savehist-file'.
191Unbound symbols referenced in `savehist-history-variables' are ignored.
192If AUTO-SAVE is non-nil, compare the saved contents to the one last saved,
193 and don't save the buffer if they are the same."
194 (interactive)
195 (with-temp-buffer
196 (insert
197 (format ";; -*- mode: emacs-lisp; coding: %s -*-\n" savehist-coding-system)
198 ";; Minibuffer history file, automatically generated by `savehist'.\n\n")
199 (let ((print-length nil)
200 (print-string-length nil)
201 (print-level nil)
202 (print-readably t)
203 (print-quoted t))
204 (dolist (sym savehist-history-variables)
205 (when (boundp sym)
206 (let ((value (savehist-process-for-saving (symbol-value sym))))
207 (prin1 `(setq ,sym ',value) (current-buffer))
208 (insert ?\n)))))
209 ;; If autosaving, avoid writing if nothing has changed since the
210 ;; last write.
211 (let ((checksum (md5 (current-buffer) nil nil savehist-no-conversion)))
212 (unless (and auto-save (equal checksum savehist-last-checksum))
213 ;; Set file-precious-flag when saving the buffer because we
214 ;; don't want a half-finished write ruining the entire
215 ;; history. (Remember that this is run from a timer and from
216 ;; kill-emacs-hook.)
217 (let ((file-precious-flag t)
218 (coding-system-for-write savehist-coding-system))
219 (write-region (point-min) (point-max) savehist-file nil
220 (unless (interactive-p) 'quiet)))
221 (when savehist-modes
222 (set-file-modes savehist-file savehist-modes))
223 (setq savehist-last-checksum checksum)))))
224
225(defun savehist-autosave ()
226 "Save the minibuffer history if it has been modified since the last save."
227 (savehist-save t))
228
229(defun savehist-process-for-saving (value)
230 ;; Process VALUE for saving to file. If it is a list, retain only
231 ;; the first `savehist-length' values and prune non-printable ones.
232 ;; If VALUE is not a list, return it as-is if it is printable and
233 ;; nil otherwise.
234 (cond
235 ((listp value)
236 (when (and savehist-length (> (length value) savehist-length))
237 ;; This should be: (setq value (subseq value 0 savehist-length))
238 (setq value (copy-sequence value))
239 (setcdr (nthcdr savehist-length value) nil))
240 ;; And this should be (remove-if-not #'savehist-printable value)
241 (delq nil (mapcar (lambda (x) (if (savehist-printable x) x)) value)))
242 ((savehist-printable value) value)
243 (t nil)))
244
245(defun savehist-printable (value)
246 "Return non-nil if VALUE is printable."
247 ;; Quick response for oft-encountered types known to be printable.
248 (cond
249 ((stringp value))
250 ((numberp value))
251 ((symbolp value))
252 (t
253 ;; For others, check explicitly.
254 (condition-case nil
255 (let ((print-readably t)
256 (print-level nil)
257 (chars ()))
258 ;; Print the value into a string...
259 (prin1 value (lambda (char) (push char chars)))
260 ;; ...and attempt to read it.
261 (read (apply #'string (nreverse chars)))
262 ;; The attempt worked: the object is printable.
263 t)
264 ;; The attempt failed: the object is not printable.
265 (error nil)))))
266
267(provide 'savehist)
268
269;; arch-tag: b3ce47f4-c5ad-4ebc-ad02-73aba705cf9f
270;;; savehist.el ends here
diff --git a/lisp/simple.el b/lisp/simple.el
index d52f1a20094..301b4cc996a 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -4848,10 +4848,13 @@ Called from `temp-buffer-show-hook'."
4848 "Normal hook run at the end of setting up a completion list buffer. 4848 "Normal hook run at the end of setting up a completion list buffer.
4849When this hook is run, the current buffer is the one in which the 4849When this hook is run, the current buffer is the one in which the
4850command to display the completion list buffer was run. 4850command to display the completion list buffer was run.
4851The completion list buffer is available as the value of `standard-output'.") 4851The completion list buffer is available as the value of `standard-output'.
4852The common prefix substring for completion may be available as the
4853value of `completion-common-substring'. See also `display-completion-list'.")
4854
4855
4856;; Variables and faces used in `completion-setup-function'.
4852 4857
4853;; This function goes in completion-setup-hook, so that it is called
4854;; after the text of the completion list buffer is written.
4855(defface completions-first-difference 4858(defface completions-first-difference
4856 '((t (:inherit bold))) 4859 '((t (:inherit bold)))
4857 "Face put on the first uncommon character in completions in *Completions* buffer." 4860 "Face put on the first uncommon character in completions in *Completions* buffer."
@@ -4871,6 +4874,17 @@ of the differing parts is, by contrast, slightly highlighted."
4871(defvar completion-root-regexp "^/" 4874(defvar completion-root-regexp "^/"
4872 "Regexp to use in `completion-setup-function' to find the root directory.") 4875 "Regexp to use in `completion-setup-function' to find the root directory.")
4873 4876
4877(defvar completion-common-substring nil
4878 "Common prefix substring to use in `completion-setup-function' to put faces.
4879The value is set by `display-completion-list' during running `completion-setup-hook'.
4880
4881To put faces, `completions-first-difference' and `completions-common-part'
4882into \"*Completions*\* buffer, the common prefix substring in completions is
4883needed as a hint. (Minibuffer is a special case. The content of minibuffer itself
4884is the substring.)")
4885
4886;; This function goes in completion-setup-hook, so that it is called
4887;; after the text of the completion list buffer is written.
4874(defun completion-setup-function () 4888(defun completion-setup-function ()
4875 (let ((mainbuf (current-buffer)) 4889 (let ((mainbuf (current-buffer))
4876 (mbuf-contents (minibuffer-contents))) 4890 (mbuf-contents (minibuffer-contents)))
@@ -4909,9 +4923,11 @@ of the differing parts is, by contrast, slightly highlighted."
4909 (funcall (get minibuffer-completion-table 'completion-base-size-function))) 4923 (funcall (get minibuffer-completion-table 'completion-base-size-function)))
4910 (setq completion-base-size 0)))) 4924 (setq completion-base-size 0))))
4911 ;; Put faces on first uncommon characters and common parts. 4925 ;; Put faces on first uncommon characters and common parts.
4912 (when completion-base-size 4926 (when (or completion-base-size completion-common-substring)
4913 (let* ((common-string-length 4927 (let* ((common-string-length
4914 (- (length mbuf-contents) completion-base-size)) 4928 (if completion-base-size
4929 (- (length mbuf-contents) completion-base-size)
4930 (length completion-common-substring)))
4915 (element-start (next-single-property-change 4931 (element-start (next-single-property-change
4916 (point-min) 4932 (point-min)
4917 'mouse-face)) 4933 'mouse-face))
diff --git a/lisp/speedbar.el b/lisp/speedbar.el
index bb813808ed9..e09c0d734cc 100644
--- a/lisp/speedbar.el
+++ b/lisp/speedbar.el
@@ -1106,7 +1106,8 @@ frame and window to be the currently active frame and window."
1106 (or (not dframe-xemacsp) 1106 (or (not dframe-xemacsp)
1107 (with-no-warnings 1107 (with-no-warnings
1108 (specifier-instance has-modeline-p))) 1108 (specifier-instance has-modeline-p)))
1109 speedbar-buffer) (save-excursion 1109 speedbar-buffer)
1110 (save-excursion
1110 (set-buffer speedbar-buffer) 1111 (set-buffer speedbar-buffer)
1111 (let* ((w (or (speedbar-frame-width) 20)) 1112 (let* ((w (or (speedbar-frame-width) 20))
1112 (p1 "<<") 1113 (p1 "<<")
@@ -1677,9 +1678,8 @@ specialized speedbar displays."
1677 (speedbar-make-button start (point) face mouse function token)) 1678 (speedbar-make-button start (point) face mouse function token))
1678 (let ((start (point))) 1679 (let ((start (point)))
1679 (insert "\n") 1680 (insert "\n")
1680 (put-text-property start (point) 'face nil) 1681 (add-text-properties
1681 (put-text-property start (point) 'invisible nil) 1682 start (point) '(face nil invisible nil mouse-face nil))))
1682 (put-text-property start (point) 'mouse-face nil)))
1683 1683
1684(defun speedbar-insert-separator (text) 1684(defun speedbar-insert-separator (text)
1685 "Insert a separation label of TEXT. 1685 "Insert a separation label of TEXT.
@@ -1698,13 +1698,11 @@ Separators are not active, have no labels, depth, or actions."
1698 "Create a button from START to END, with FACE as the display face. 1698 "Create a button from START to END, with FACE as the display face.
1699MOUSE is the mouse face. When this button is clicked on FUNCTION 1699MOUSE is the mouse face. When this button is clicked on FUNCTION
1700will be run with the TOKEN parameter (any Lisp object)" 1700will be run with the TOKEN parameter (any Lisp object)"
1701 (put-text-property start end 'face face) 1701 (add-text-properties
1702 (put-text-property start end 'mouse-face mouse) 1702 start end `(face ,face mouse-face ,mouse invisible nil
1703 speedbar-text ,(buffer-substring-no-properties start end)))
1703 (if speedbar-use-tool-tips-flag 1704 (if speedbar-use-tool-tips-flag
1704 (put-text-property start end 'help-echo #'dframe-help-echo)) 1705 (put-text-property start end 'help-echo #'dframe-help-echo))
1705 (put-text-property start end 'invisible nil)
1706 (put-text-property start end 'speedbar-text
1707 (buffer-substring-no-properties start end))
1708 (if function (put-text-property start end 'speedbar-function function)) 1706 (if function (put-text-property start end 'speedbar-function function))
1709 (if token (put-text-property start end 'speedbar-token token)) 1707 (if token (put-text-property start end 'speedbar-token token))
1710 ;; So far the only text we have is less that 3 chars. 1708 ;; So far the only text we have is less that 3 chars.
@@ -2455,10 +2453,9 @@ name will have the function FIND-FUN and not token."
2455 (set-buffer speedbar-buffer) 2453 (set-buffer speedbar-buffer)
2456 (speedbar-with-writable 2454 (speedbar-with-writable
2457 (erase-buffer) 2455 (erase-buffer)
2458 (while funclst 2456 (dolist (func funclst)
2459 (setq default-directory cbd) 2457 (setq default-directory cbd)
2460 (funcall (car funclst) cbd 0) 2458 (funcall func cbd 0))
2461 (setq funclst (cdr funclst)))
2462 (speedbar-reconfigure-keymaps) 2459 (speedbar-reconfigure-keymaps)
2463 (goto-char (point-min))) 2460 (goto-char (point-min)))
2464 )))) 2461 ))))
@@ -2535,10 +2532,9 @@ name will have the function FIND-FUN and not token."
2535 speedbar-shown-directories)) 2532 speedbar-shown-directories))
2536 (insert (cdr cache))) 2533 (insert (cdr cache)))
2537 (t 2534 (t
2538 (while funclst 2535 (dolist (func funclst)
2539 (setq default-directory cbd) 2536 (setq default-directory cbd)
2540 (funcall (car funclst) cbd 0) 2537 (funcall func cbd 0)))))
2541 (setq funclst (cdr funclst))))))
2542 (goto-char (point-min))))) 2538 (goto-char (point-min)))))
2543 (speedbar-reconfigure-keymaps)) 2539 (speedbar-reconfigure-keymaps))
2544 2540
@@ -2561,11 +2557,10 @@ This should only be used by modes classified as special."
2561 speedbar-shown-directories nil)) 2557 speedbar-shown-directories nil))
2562 ;; Now fill in the buffer with our newly found specialized list. 2558 ;; Now fill in the buffer with our newly found specialized list.
2563 (speedbar-with-writable 2559 (speedbar-with-writable
2564 (while funclst 2560 (dolist (func funclst)
2565 ;; We do not erase the buffer because these functions may 2561 ;; We do not erase the buffer because these functions may
2566 ;; decide NOT to update themselves. 2562 ;; decide NOT to update themselves.
2567 (funcall (car funclst) specialbuff) 2563 (funcall func specialbuff)))
2568 (setq funclst (cdr funclst))))
2569 2564
2570 (goto-char (point-min)))) 2565 (goto-char (point-min))))
2571 (speedbar-reconfigure-keymaps)) 2566 (speedbar-reconfigure-keymaps))
@@ -3822,6 +3817,7 @@ regular expression EXPR."
3822 ["Contract File Tags" speedbar-contract-line 3817 ["Contract File Tags" speedbar-contract-line
3823 (save-excursion (beginning-of-line) 3818 (save-excursion (beginning-of-line)
3824 (looking-at "[0-9]+: *.-. "))] 3819 (looking-at "[0-9]+: *.-. "))]
3820 "----"
3825 ["Kill Buffer" speedbar-buffer-kill-buffer 3821 ["Kill Buffer" speedbar-buffer-kill-buffer
3826 (save-excursion (beginning-of-line) 3822 (save-excursion (beginning-of-line)
3827 (looking-at "[0-9]+: *.[-+?]. "))] 3823 (looking-at "[0-9]+: *.[-+?]. "))]
diff --git a/lisp/tempo.el b/lisp/tempo.el
index 4939715a31c..62ba3c9acae 100644
--- a/lisp/tempo.el
+++ b/lisp/tempo.el
@@ -717,11 +717,13 @@ non-nil, a buffer containing possible completions is displayed."
717 (if tempo-leave-completion-buffer 717 (if tempo-leave-completion-buffer
718 (with-output-to-temp-buffer "*Completions*" 718 (with-output-to-temp-buffer "*Completions*"
719 (display-completion-list 719 (display-completion-list
720 (all-completions string tag-list))) 720 (all-completions string tag-list)
721 string))
721 (save-window-excursion 722 (save-window-excursion
722 (with-output-to-temp-buffer "*Completions*" 723 (with-output-to-temp-buffer "*Completions*"
723 (display-completion-list 724 (display-completion-list
724 (all-completions string tag-list))) 725 (all-completions string tag-list)
726 string))
725 (sit-for 32767)))) 727 (sit-for 32767))))
726 728
727;;; 729;;;
diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el
index 5e09d6391ce..f7782433fdc 100644
--- a/lisp/term/mac-win.el
+++ b/lisp/term/mac-win.el
@@ -54,8 +54,6 @@
54;; -font *font 54;; -font *font
55;; -foreground *foreground 55;; -foreground *foreground
56;; -geometry .geometry 56;; -geometry .geometry
57;; -i .iconType
58;; -itype .iconType
59;; -iconic .iconic 57;; -iconic .iconic
60;; -name .name 58;; -name .name
61;; -reverse *reverseVideo 59;; -reverse *reverseVideo
@@ -1199,15 +1197,21 @@ in `selection-converter-alist', which see."
1199 (when (and (stringp data) 1197 (when (and (stringp data)
1200 (setq data-type (get-text-property 0 'foreign-selection data))) 1198 (setq data-type (get-text-property 0 'foreign-selection data)))
1201 (cond ((eq data-type 'public.utf16-plain-text) 1199 (cond ((eq data-type 'public.utf16-plain-text)
1202 (let ((encoded (and (fboundp 'mac-code-convert-string) 1200 (if (fboundp 'mac-code-convert-string)
1203 (mac-code-convert-string data 1201 (let ((s (mac-code-convert-string data nil coding)))
1204 'utf-16 coding)))) 1202 (if s
1205 (if encoded 1203 (setq data (decode-coding-string s coding))
1206 (let ((coding-save last-coding-system-used)) 1204 (setq data
1207 (setq data (decode-coding-string encoded coding)) 1205 ;; (decode-coding-string data 'utf-16) is
1208 (setq last-coding-system-used coding-save)) 1206 ;; not correct because
1209 (setq data 1207 ;; public.utf16-plain-text is defined as
1210 (decode-coding-string data 'utf-16))))) 1208 ;; native byte order, no BOM.
1209 (decode-coding-string
1210 (mac-code-convert-string data nil 'utf-8)
1211 'utf-8))))
1212 ;; No `mac-code-convert-string' means non-Carbon, which
1213 ;; implies big endian.
1214 (setq data (decode-coding-string data 'utf-16be))))
1211 ((eq data-type 'com.apple.traditional-mac-plain-text) 1215 ((eq data-type 'com.apple.traditional-mac-plain-text)
1212 (setq data (decode-coding-string data coding))) 1216 (setq data (decode-coding-string data coding)))
1213 ((eq data-type 'public.file-url) 1217 ((eq data-type 'public.file-url)
@@ -1324,14 +1328,25 @@ in `selection-converter-alist', which see."
1324 (remove-text-properties 0 (length str) '(composition nil) str) 1328 (remove-text-properties 0 (length str) '(composition nil) str)
1325 (cond 1329 (cond
1326 ((eq type 'public.utf16-plain-text) 1330 ((eq type 'public.utf16-plain-text)
1327 (let (s) 1331 (if (fboundp 'mac-code-convert-string)
1328 (when (and (fboundp 'mac-code-convert-string) 1332 (let (s)
1329 (memq coding (find-coding-systems-string str))) 1333 (when (memq coding (find-coding-systems-string str))
1330 (setq coding (coding-system-change-eol-conversion coding 'mac)) 1334 (setq coding
1331 (setq s (mac-code-convert-string 1335 (coding-system-change-eol-conversion coding 'mac))
1332 (encode-coding-string str coding) 1336 (setq s (mac-code-convert-string
1333 coding 'utf-16))) 1337 (encode-coding-string str coding)
1334 (setq str (or s (encode-coding-string str 'utf-16-mac))))) 1338 coding nil)))
1339 (setq str (or s
1340 ;; (encode-coding-string str
1341 ;; 'utf-16-mac) is not correct because
1342 ;; public.utf16-plain-text is defined
1343 ;; as native byte order, no BOM.
1344 (mac-code-convert-string
1345 (encode-coding-string str 'utf-8-mac)
1346 'utf-8 nil))))
1347 ;; No `mac-code-convert-string' means non-Carbon, which
1348 ;; implies big endian.
1349 (setq str (encode-coding-string str 'utf-16be-mac))))
1335 ((eq type 'com.apple.traditional-mac-plain-text) 1350 ((eq type 'com.apple.traditional-mac-plain-text)
1336 (let ((encodables (find-coding-systems-string str)) 1351 (let ((encodables (find-coding-systems-string str))
1337 (rest mac-script-code-coding-systems)) 1352 (rest mac-script-code-coding-systems))
diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el
index 2177f72fd0d..7b736708268 100644
--- a/lisp/textmodes/bibtex.el
+++ b/lisp/textmodes/bibtex.el
@@ -2522,7 +2522,8 @@ of a word, all strings are listed. Return completion."
2522 (message "Making completion list...") 2522 (message "Making completion list...")
2523 (with-output-to-temp-buffer "*Completions*" 2523 (with-output-to-temp-buffer "*Completions*"
2524 (display-completion-list (all-completions part-of-word 2524 (display-completion-list (all-completions part-of-word
2525 completions))) 2525 completions)
2526 part-of-word))
2526 (message "Making completion list...done") 2527 (message "Making completion list...done")
2527 ;; return value is handled by choose-completion-string-functions 2528 ;; return value is handled by choose-completion-string-functions
2528 nil)))) 2529 nil))))
@@ -2661,6 +2662,7 @@ begins at the beginning of a line. We use this function for font-locking."
2661 field bounds start end found) 2662 field bounds start end found)
2662 (bibtex-beginning-of-field) 2663 (bibtex-beginning-of-field)
2663 (while (and (not found) 2664 (while (and (not found)
2665 (<= (point) bound)
2664 (prog1 (re-search-forward bibtex-font-lock-url-regexp bound t) 2666 (prog1 (re-search-forward bibtex-font-lock-url-regexp bound t)
2665 (setq field (match-string-no-properties 1))) 2667 (setq field (match-string-no-properties 1)))
2666 (setq bounds (bibtex-parse-field-text)) 2668 (setq bounds (bibtex-parse-field-text))
diff --git a/lisp/textmodes/conf-mode.el b/lisp/textmodes/conf-mode.el
index 8c009921d09..2c895eb517e 100644
--- a/lisp/textmodes/conf-mode.el
+++ b/lisp/textmodes/conf-mode.el
@@ -86,7 +86,7 @@ not align (only setting space according to `conf-assignment-space')."
86 (define-key map "\C-c'" 'conf-quote-normal) 86 (define-key map "\C-c'" 'conf-quote-normal)
87 (define-key map "\C-c\C-a" 'conf-align-assignments) 87 (define-key map "\C-c\C-a" 'conf-align-assignments)
88 map) 88 map)
89 "Local keymap for conf-mode buffers.") 89 "Local keymap for `conf-mode' buffers.")
90 90
91(defvar conf-mode-syntax-table 91(defvar conf-mode-syntax-table
92 (let ((table (make-syntax-table))) 92 (let ((table (make-syntax-table)))
@@ -99,7 +99,7 @@ not align (only setting space according to `conf-assignment-space')."
99 (modify-syntax-entry ?\n ">" table) 99 (modify-syntax-entry ?\n ">" table)
100 (modify-syntax-entry ?\r ">" table) 100 (modify-syntax-entry ?\r ">" table)
101 table) 101 table)
102 "Syntax table in use in Windows style conf-mode buffers.") 102 "Syntax table in use in Windows style `conf-mode' buffers.")
103 103
104(defvar conf-unix-mode-syntax-table 104(defvar conf-unix-mode-syntax-table
105 (let ((table (make-syntax-table conf-mode-syntax-table))) 105 (let ((table (make-syntax-table conf-mode-syntax-table)))
@@ -107,7 +107,7 @@ not align (only setting space according to `conf-assignment-space')."
107 ;; override 107 ;; override
108 (modify-syntax-entry ?\; "." table) 108 (modify-syntax-entry ?\; "." table)
109 table) 109 table)
110 "Syntax table in use in Unix style conf-mode buffers.") 110 "Syntax table in use in Unix style `conf-mode' buffers.")
111 111
112(defvar conf-javaprop-mode-syntax-table 112(defvar conf-javaprop-mode-syntax-table
113 (let ((table (make-syntax-table conf-unix-mode-syntax-table))) 113 (let ((table (make-syntax-table conf-unix-mode-syntax-table)))
@@ -124,7 +124,7 @@ not align (only setting space according to `conf-assignment-space')."
124 (modify-syntax-entry ?\' "." table) 124 (modify-syntax-entry ?\' "." table)
125 (modify-syntax-entry ?\; "." table) 125 (modify-syntax-entry ?\; "." table)
126 table) 126 table)
127 "Syntax table in use in PPD conf-mode buffers.") 127 "Syntax table in use in PPD `conf-mode' buffers.")
128 128
129(defvar conf-xdefaults-mode-syntax-table 129(defvar conf-xdefaults-mode-syntax-table
130 (let ((table (make-syntax-table conf-mode-syntax-table))) 130 (let ((table (make-syntax-table conf-mode-syntax-table)))
@@ -132,7 +132,7 @@ not align (only setting space according to `conf-assignment-space')."
132 ;; override 132 ;; override
133 (modify-syntax-entry ?\; "." table) 133 (modify-syntax-entry ?\; "." table)
134 table) 134 table)
135 "Syntax table in use in Xdefaults style conf-mode buffers.") 135 "Syntax table in use in Xdefaults style `conf-mode' buffers.")
136 136
137 137
138(defvar conf-font-lock-keywords 138(defvar conf-font-lock-keywords
@@ -144,7 +144,7 @@ not align (only setting space according to `conf-assignment-space')."
144 (2 'font-lock-constant-face nil t)) 144 (2 'font-lock-constant-face nil t))
145 ;; section { ... } (do this last because some assign ...{...) 145 ;; section { ... } (do this last because some assign ...{...)
146 ("^[ \t]*\\([^=:\n]+?\\)[ \t\n]*{[^{}]*?$" 1 'font-lock-type-face prepend)) 146 ("^[ \t]*\\([^=:\n]+?\\)[ \t\n]*{[^{}]*?$" 1 'font-lock-type-face prepend))
147 "Keywords to hilight in Conf mode") 147 "Keywords to hilight in Conf mode.")
148 148
149(defvar conf-javaprop-font-lock-keywords 149(defvar conf-javaprop-font-lock-keywords
150 '(;; var=val 150 '(;; var=val
@@ -156,7 +156,7 @@ not align (only setting space according to `conf-assignment-space')."
156 (5 'font-lock-variable-name-face nil t) 156 (5 'font-lock-variable-name-face nil t)
157 (6 'font-lock-constant-face nil t) 157 (6 'font-lock-constant-face nil t)
158 (7 'font-lock-variable-name-face nil t))) 158 (7 'font-lock-variable-name-face nil t)))
159 "Keywords to hilight in Conf Java Properties mode") 159 "Keywords to hilight in Conf Java Properties mode.")
160 160
161(defvar conf-space-keywords-alist 161(defvar conf-space-keywords-alist
162 '(("\\`/etc/gpm/" . "key\\|name\\|foreground\\|background\\|border\\|head") 162 '(("\\`/etc/gpm/" . "key\\|name\\|foreground\\|background\\|border\\|head")
@@ -188,7 +188,7 @@ This variable is best set in the file local variables, or through
188 '(1 'font-lock-keyword-face) 188 '(1 'font-lock-keyword-face)
189 '(2 'font-lock-variable-name-face)) 189 '(2 'font-lock-variable-name-face))
190 '("^[ \t]*\\([^\000- ]+\\)" 1 'font-lock-variable-name-face))) 190 '("^[ \t]*\\([^\000- ]+\\)" 1 'font-lock-variable-name-face)))
191 "Keywords to hilight in Conf Space mode") 191 "Keywords to hilight in Conf Space mode.")
192 192
193(defvar conf-colon-font-lock-keywords 193(defvar conf-colon-font-lock-keywords
194 `(;; [section] (do this first because it may look like a parameter) 194 `(;; [section] (do this first because it may look like a parameter)
@@ -198,7 +198,7 @@ This variable is best set in the file local variables, or through
198 (1 'font-lock-variable-name-face)) 198 (1 'font-lock-variable-name-face))
199 ;; section { ... } (do this last because some assign ...{...) 199 ;; section { ... } (do this last because some assign ...{...)
200 ("^[ \t]*\\([^:\n]+\\)[ \t\n]*{[^{}]*?$" 1 'font-lock-type-face prepend)) 200 ("^[ \t]*\\([^:\n]+\\)[ \t\n]*{[^{}]*?$" 1 'font-lock-type-face prepend))
201 "Keywords to hilight in Conf Colon mode") 201 "Keywords to hilight in Conf Colon mode.")
202 202
203(defvar conf-assignment-sign ?= 203(defvar conf-assignment-sign ?=
204 "What sign is used for assignments.") 204 "What sign is used for assignments.")
@@ -231,12 +231,15 @@ whitespace.")
231 (if (>= arg 0) 231 (if (>= arg 0)
232 (progn 232 (progn
233 (indent-to-column arg) 233 (indent-to-column arg)
234 (or (not conf-assignment-space) (memq (char-before (point)) '(?\s ?\t)) (insert ?\s)) 234 (or (not conf-assignment-space)
235 (insert conf-assignment-sign (if (and conf-assignment-space (not (eolp))) ?\s ""))) 235 (memq (char-before (point)) '(?\s ?\t)) (insert ?\s))
236 (insert conf-assignment-sign
237 (if (and conf-assignment-space (not (eolp))) ?\s "")))
236 (insert (if conf-assignment-space ?\s "") conf-assignment-sign) 238 (insert (if conf-assignment-space ?\s "") conf-assignment-sign)
237 (unless (eolp) 239 (unless (eolp)
238 (indent-to-column (- arg)) 240 (indent-to-column (- arg))
239 (or (not conf-assignment-space) (memq (char-before (point)) '(?\s ?\t)) (insert ?\s)))) 241 (or (not conf-assignment-space)
242 (memq (char-before (point)) '(?\s ?\t)) (insert ?\s))))
240 (unless (eolp) 243 (unless (eolp)
241 (if (>= (current-column) (abs arg)) 244 (if (>= (current-column) (abs arg))
242 (insert ?\s) 245 (insert ?\s)
@@ -255,8 +258,10 @@ both, i.e. quotes delimit strings, except when they are
255unbalanced, but hey...)" 258unbalanced, but hey...)"
256 (interactive "P") 259 (interactive "P")
257 (let ((table (copy-syntax-table (syntax-table)))) 260 (let ((table (copy-syntax-table (syntax-table))))
258 (if (or (not arg) (= (prefix-numeric-value arg) 1)) (modify-syntax-entry ?\' "." table)) 261 (if (or (not arg) (= (prefix-numeric-value arg) 1))
259 (if (or (not arg) (= (prefix-numeric-value arg) 2)) (modify-syntax-entry ?\" "." table)) 262 (modify-syntax-entry ?\' "." table))
263 (if (or (not arg) (= (prefix-numeric-value arg) 2))
264 (modify-syntax-entry ?\" "." table))
260 (set-syntax-table table) 265 (set-syntax-table table)
261 (and (boundp 'font-lock-mode) 266 (and (boundp 'font-lock-mode)
262 font-lock-mode 267 font-lock-mode
@@ -326,25 +331,25 @@ See also `conf-space-mode', `conf-colon-mode', `conf-javaprop-mode',
326 ((looking-at ".*{")) ; nop 331 ((looking-at ".*{")) ; nop
327 ((setq space (1+ space)))) 332 ((setq space (1+ space))))
328 (forward-line))) 333 (forward-line)))
329 (if (> jp (max unix win 3)) 334 (cond
330 (conf-javaprop-mode) 335 ((> jp (max unix win 3)) (conf-javaprop-mode))
331 (if (> colon (max equal space)) 336 ((> colon (max equal space)) (conf-colon-mode))
332 (conf-colon-mode) 337 ((> space (max equal colon)) (conf-space-mode))
333 (if (> space (max equal colon)) 338 ((or (> win unix) (and (= win unix) (eq system-type 'windows-nt)))
334 (conf-space-mode) 339 (conf-windows-mode))
335 (if (or (> win unix) 340 (t (conf-unix-mode))))
336 (and (= win unix) (eq system-type 'windows-nt)))
337 (conf-windows-mode)
338 (conf-unix-mode))))))
339 (kill-all-local-variables) 341 (kill-all-local-variables)
340 (use-local-map conf-mode-map) 342 (use-local-map conf-mode-map)
341 343
342 (setq major-mode 'conf-mode 344 (setq major-mode 'conf-mode
343 mode-name name) 345 mode-name name)
346 (set (make-local-variable 'font-lock-defaults)
347 '(conf-font-lock-keywords nil t nil nil))
344 (set (make-local-variable 'comment-start) comment) 348 (set (make-local-variable 'comment-start) comment)
345 (set (make-local-variable 'comment-start-skip) 349 (set (make-local-variable 'comment-start-skip)
346 (concat (regexp-quote comment-start) "+\\s *")) 350 (concat (regexp-quote comment-start) "+\\s *"))
347 (set (make-local-variable 'comment-use-syntax) t) 351 ;; Let newcomment.el decide this for himself.
352 ;; (set (make-local-variable 'comment-use-syntax) t)
348 (set (make-local-variable 'parse-sexp-ignore-comments) t) 353 (set (make-local-variable 'parse-sexp-ignore-comments) t)
349 (set (make-local-variable 'outline-regexp) 354 (set (make-local-variable 'outline-regexp)
350 "[ \t]*\\(?:\\[\\|.+[ \t\n]*{\\)") 355 "[ \t]*\\(?:\\[\\|.+[ \t\n]*{\\)")
@@ -368,7 +373,7 @@ See also `conf-space-mode', `conf-colon-mode', `conf-javaprop-mode',
368Comments start with `#'. 373Comments start with `#'.
369For details see `conf-mode'. Example: 374For details see `conf-mode'. Example:
370 375
371# Conf mode font-locks this right on Unix and with C-c C-u 376# Conf mode font-locks this right on Unix and with \\[conf-unix-mode]
372 377
373\[Desktop Entry] 378\[Desktop Entry]
374 Encoding=UTF-8 379 Encoding=UTF-8
@@ -384,7 +389,7 @@ For details see `conf-mode'. Example:
384Comments start with `;'. 389Comments start with `;'.
385For details see `conf-mode'. Example: 390For details see `conf-mode'. Example:
386 391
387; Conf mode font-locks this right on Windows and with C-c C-w 392; Conf mode font-locks this right on Windows and with \\[conf-windows-mode]
388 393
389\[ExtShellFolderViews] 394\[ExtShellFolderViews]
390Default={5984FFE0-28D4-11CF-AE66-08002B2E1262} 395Default={5984FFE0-28D4-11CF-AE66-08002B2E1262}
@@ -407,7 +412,7 @@ Comments start with `#' but are also recognized with `//' or
407between `/*' and `*/'. 412between `/*' and `*/'.
408For details see `conf-mode'. Example: 413For details see `conf-mode'. Example:
409 414
410# Conf mode font-locks this right with C-c C-j (Java properties) 415# Conf mode font-locks this right with \\[conf-javaprop-mode] (Java properties)
411// another kind of comment 416// another kind of comment
412/* yet another */ 417/* yet another */
413 418
@@ -441,7 +446,7 @@ KEYWORDS, or any non-nil non-string for no keywords.
441 446
442For details see `conf-mode'. Example: 447For details see `conf-mode'. Example:
443 448
444# Conf mode font-locks this right with C-c C-s (space separated) 449# Conf mode font-locks this right with \\[conf-space-mode] (space separated)
445 450
446image/jpeg jpeg jpg jpe 451image/jpeg jpeg jpg jpe
447image/png png 452image/png png
@@ -495,7 +500,7 @@ add /dev/mixer desktop"
495\"Assignments\" are with `:'. 500\"Assignments\" are with `:'.
496For details see `conf-mode'. Example: 501For details see `conf-mode'. Example:
497 502
498# Conf mode font-locks this right with C-c C-c (colon) 503# Conf mode font-locks this right with \\[conf-colon-mode] (colon)
499 504
500<Multi_key> <exclam> <exclam> : \"\\241\" exclamdown 505<Multi_key> <exclam> <exclam> : \"\\241\" exclamdown
501<Multi_key> <c> <slash> : \"\\242\" cent" 506<Multi_key> <c> <slash> : \"\\242\" cent"
@@ -524,7 +529,7 @@ For details see `conf-mode'. Example:
524Comments start with `*%' and \"assignments\" are with `:'. 529Comments start with `*%' and \"assignments\" are with `:'.
525For details see `conf-mode'. Example: 530For details see `conf-mode'. Example:
526 531
527*% Conf mode font-locks this right with C-c C-p (PPD) 532*% Conf mode font-locks this right with \\[conf-ppd-mode] (PPD)
528 533
529*DefaultTransfer: Null 534*DefaultTransfer: Null
530*Transfer Null.Inverse: \"{ 1 exch sub }\"" 535*Transfer Null.Inverse: \"{ 1 exch sub }\""
@@ -539,22 +544,13 @@ For details see `conf-mode'. Example:
539Comments start with `!' and \"assignments\" are with `:'. 544Comments start with `!' and \"assignments\" are with `:'.
540For details see `conf-mode'. Example: 545For details see `conf-mode'. Example:
541 546
542! Conf mode font-locks this right with C-c C-x (.Xdefaults) 547! Conf mode font-locks this right with \\[conf-xdefaults-mode] (.Xdefaults)
543 548
544*background: gray99 549*background: gray99
545*foreground: black" 550*foreground: black"
546 (interactive) 551 (interactive)
547 (conf-colon-mode "!" conf-xdefaults-mode-syntax-table "Conf[Xdefaults]")) 552 (conf-colon-mode "!" conf-xdefaults-mode-syntax-table "Conf[Xdefaults]"))
548 553
549
550;; font lock support
551(if (boundp 'font-lock-defaults-alist)
552 (add-to-list
553 'font-lock-defaults-alist
554 (cons 'conf-mode
555 (list 'conf-font-lock-keywords nil t nil nil))))
556
557
558(provide 'conf-mode) 554(provide 'conf-mode)
559 555
560;; arch-tag: 0a3805b2-0371-4d3a-8498-8897116b2356 556;; arch-tag: 0a3805b2-0371-4d3a-8498-8897116b2356
diff --git a/lisp/textmodes/org.el b/lisp/textmodes/org.el
index b9542c9fce7..7f0d257e5f6 100644
--- a/lisp/textmodes/org.el
+++ b/lisp/textmodes/org.el
@@ -2844,7 +2844,7 @@ At all other locations, this simply calls `ispell-complete-word'."
2844 (message "Making completion list...") 2844 (message "Making completion list...")
2845 (let ((list (sort (all-completions pattern table) 'string<))) 2845 (let ((list (sort (all-completions pattern table) 'string<)))
2846 (with-output-to-temp-buffer "*Completions*" 2846 (with-output-to-temp-buffer "*Completions*"
2847 (display-completion-list list))) 2847 (display-completion-list list pattern)))
2848 (message "Making completion list...%s" "done")))))) 2848 (message "Making completion list...%s" "done"))))))
2849 2849
2850;;; Comments, TODO and DEADLINE 2850;;; Comments, TODO and DEADLINE
diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el
index 3623c788882..bdd4e659a0e 100644
--- a/lisp/textmodes/tex-mode.el
+++ b/lisp/textmodes/tex-mode.el
@@ -576,7 +576,7 @@ An alternative value is \" . \", if you use a font with a narrow period."
576 2 '(tex-font-lock-append-prop 'italic) 'append) 576 2 '(tex-font-lock-append-prop 'italic) 'append)
577 ;; This is separate from the previous one because of cases like 577 ;; This is separate from the previous one because of cases like
578 ;; {\em foo {\bf bar} bla} where both match. 578 ;; {\em foo {\bf bar} bla} where both match.
579 (list (concat "\\\\\\(bf\\(series\\)?\\)\\>" args) 579 (list (concat "\\\\\\(bf\\(series\\)?\\)\\>" args)
580 3 '(tex-font-lock-append-prop 'bold) 'append))))) 580 3 '(tex-font-lock-append-prop 'bold) 'append)))))
581 "Gaudy expressions to highlight in TeX modes.") 581 "Gaudy expressions to highlight in TeX modes.")
582 582
diff --git a/lisp/toolbar/tool-bar.el b/lisp/tool-bar.el
index 487255a0272..984dac92b12 100644
--- a/lisp/toolbar/tool-bar.el
+++ b/lisp/tool-bar.el
@@ -97,7 +97,7 @@ PROPS are additional items to add to the menu item specification. See
97Info node `(elisp)Tool Bar'. Items are added from left to right. 97Info node `(elisp)Tool Bar'. Items are added from left to right.
98 98
99ICON is the base name of a file containing the image to use. The 99ICON is the base name of a file containing the image to use. The
100function will first try to use lc-ICON.xpm if display-color-cells 100function will first try to use low-color/ICON.xpm if display-color-cells
101is less or equal to 256, then ICON.xpm, then ICON.pbm, and finally 101is less or equal to 256, then ICON.xpm, then ICON.pbm, and finally
102ICON.xbm, using `find-image'. 102ICON.xbm, using `find-image'.
103 103
@@ -114,7 +114,7 @@ PROPS are additional items to add to the menu item specification. See
114Info node `(elisp)Tool Bar'. Items are added from left to right. 114Info node `(elisp)Tool Bar'. Items are added from left to right.
115 115
116ICON is the base name of a file containing the image to use. The 116ICON is the base name of a file containing the image to use. The
117function will first try to use lc-ICON.xpm if display-color-cells 117function will first try to use low-color/ICON.xpm if display-color-cells
118is less or equal to 256, then ICON.xpm, then ICON.pbm, and finally 118is less or equal to 256, then ICON.xpm, then ICON.pbm, and finally
119ICON.xbm, using `find-image'." 119ICON.xbm, using `find-image'."
120 (let* ((fg (face-attribute 'tool-bar :foreground)) 120 (let* ((fg (face-attribute 'tool-bar :foreground))
@@ -124,9 +124,12 @@ ICON.xbm, using `find-image'."
124 (xpm-spec (list :type 'xpm :file (concat icon ".xpm"))) 124 (xpm-spec (list :type 'xpm :file (concat icon ".xpm")))
125 (xpm-lo-spec (if (> (display-color-cells) 256) 125 (xpm-lo-spec (if (> (display-color-cells) 256)
126 nil 126 nil
127 (list :type 'xpm :file (concat "lc-" icon ".xpm")))) 127 (list :type 'xpm :file
128 (pbm-spec (append (list :type 'pbm :file (concat icon ".pbm")) colors)) 128 (concat "low-color/" icon ".xpm"))))
129 (xbm-spec (append (list :type 'xbm :file (concat icon ".xbm")) colors)) 129 (pbm-spec (append (list :type 'pbm :file
130 (concat icon ".pbm")) colors))
131 (xbm-spec (append (list :type 'xbm :file
132 (concat icon ".xbm")) colors))
130 (image (find-image 133 (image (find-image
131 (if (display-color-p) 134 (if (display-color-p)
132 (list xpm-lo-spec xpm-spec pbm-spec xbm-spec) 135 (list xpm-lo-spec xpm-spec pbm-spec xbm-spec)
@@ -175,9 +178,12 @@ MAP must contain appropriate binding for `[menu-bar]' which holds a keymap."
175 (xpm-spec (list :type 'xpm :file (concat icon ".xpm"))) 178 (xpm-spec (list :type 'xpm :file (concat icon ".xpm")))
176 (xpm-lo-spec (if (> (display-color-cells) 256) 179 (xpm-lo-spec (if (> (display-color-cells) 256)
177 nil 180 nil
178 (list :type 'xpm :file (concat "lc-" icon ".xpm")))) 181 (list :type 'xpm :file
179 (pbm-spec (append (list :type 'pbm :file (concat icon ".pbm")) colors)) 182 (concat "low-color/" icon ".xpm"))))
180 (xbm-spec (append (list :type 'xbm :file (concat icon ".xbm")) colors)) 183 (pbm-spec (append (list :type 'pbm :file
184 (concat icon ".pbm")) colors))
185 (xbm-spec (append (list :type 'xbm :file
186 (concat icon ".xbm")) colors))
181 (spec (if (display-color-p) 187 (spec (if (display-color-p)
182 (list xpm-lo-spec xpm-spec pbm-spec xbm-spec) 188 (list xpm-lo-spec xpm-spec pbm-spec xbm-spec)
183 (list pbm-spec xbm-spec xpm-lo-spec xpm-spec))) 189 (list pbm-spec xbm-spec xpm-lo-spec xpm-spec)))
@@ -255,7 +261,7 @@ MAP must contain appropriate binding for `[menu-bar]' which holds a keymap."
255 261
256 ;; There's no icon appropriate for News and we need a command rather 262 ;; There's no icon appropriate for News and we need a command rather
257 ;; than a lambda for Read Mail. 263 ;; than a lambda for Read Mail.
258 ;;(tool-bar-add-item-from-menu 'compose-mail "mail_compose") 264 ;;(tool-bar-add-item-from-menu 'compose-mail "mail/compose")
259 265
260 (tool-bar-add-item-from-menu 'print-buffer "print") 266 (tool-bar-add-item-from-menu 'print-buffer "print")
261 (tool-bar-add-item "preferences" 'customize 'customize 267 (tool-bar-add-item "preferences" 'customize 'customize
diff --git a/lisp/toolbar/README b/lisp/toolbar/README
deleted file mode 100644
index 81df0c874bd..00000000000
--- a/lisp/toolbar/README
+++ /dev/null
@@ -1,12 +0,0 @@
1The following icons are from GTK+ 2.x:
2
3 close.xpm copy.xpm cut.xpm help.xpm home.xpm
4 index.xpm jump_to.xpm left_arrow.xpm new.xpm open.xpm
5 paste.xpm preferences.xpm print.xpm right_arrow.xpm save.xpm
6 saveas.xpm search.xpm spell.xpm undo.xpm up_arrow.xpm
7
8 back_arrow.xpm and fwd_arrow.xpm are slightly modified undo and redo.
9
10 diropen.xpm is file-manager.png from Gnome hicolor theme.
11
12They are not part of Emacs, but distributed and used by Emacs.
diff --git a/lisp/toolbar/attach.pbm b/lisp/toolbar/attach.pbm
deleted file mode 100644
index e8fcd988f0c..00000000000
--- a/lisp/toolbar/attach.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/back_arrow.pbm b/lisp/toolbar/back_arrow.pbm
deleted file mode 100644
index 7f9b8975d2f..00000000000
--- a/lisp/toolbar/back_arrow.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/back_arrow.xpm b/lisp/toolbar/back_arrow.xpm
deleted file mode 100644
index b9b13613d81..00000000000
--- a/lisp/toolbar/back_arrow.xpm
+++ /dev/null
@@ -1,57 +0,0 @@
1/* XPM */
2static char *back_arrow_xpm[] = {
3"24 24 30 1",
4" c #000000",
5". c #53692A",
6"X c #59702D",
7"o c #657255",
8"O c #6D7A5B",
9"+ c #6D8839",
10"@ c #7C9B40",
11"# c #748261",
12"$ c #7F8E6B",
13"% c #818F71",
14"& c #879772",
15"* c #8C9A7F",
16"= c #85A24D",
17"- c #8BA859",
18"; c #92AD62",
19": c #95A77E",
20"> c #98AF74",
21", c #9BB572",
22"< c #9BAA87",
23"1 c #9CAF84",
24"2 c #A4B690",
25"3 c #A8BCA6",
26"4 c #ADBDA0",
27"5 c #AFC394",
28"6 c #BAD09D",
29"7 c #B5C3A9",
30"8 c #BED2A3",
31"9 c #D5E1C6",
32"0 c #FFFFFF",
33"q c None",
34"qqqqqqqqqqqqqqqqqqqqqqqq",
35"qqqqqqqqqqqqqqqqqqqqqqqq",
36"qqqqqqqqqqqqqqqqqqqqqqqq",
37"qqqqqqqqqq qqqqqqqqqqqqq",
38"qqqqqqqqq qqqqqqqqqqqqq",
39"qqqqqqqq 9 qqqqqqqqqqqqq",
40"qqqqqqq 96 qqqqqqqqqq",
41"qqqqqq 968664% qqqqqqqqq",
42"qqqqq 966666663 qqqqqqqq",
43"qqqq <666666666* qqqqqqq",
44"qqqqq X@@@@@@;67 qqqqqq",
45"qqqqqq .@@@@@@=6$ qqqqqq",
46"qqqqqqq .@ X@,2 qqqqqq",
47"qqqqqqqq X q +-6 qqqqqq",
48"qqqqqqqqq qq @6 qqqqqq",
49"qqqqqqqqqq qqq -: qqqqqq",
50"qqqqqqqqqqqqqq >o qqqqqq",
51"qqqqqqqqqqqqqq 5 qqqqqqq",
52"qqqqqqqqqqqqq 1O qqqqqqq",
53"qqqqqqqqqqqq &# qqqqqqqq",
54"qqqqqqqqqqqqq qqqqqqqqq",
55"qqqqqqqqqqqqqqqqqqqqqqqq",
56"qqqqqqqqqqqqqqqqqqqqqqqq",
57"qqqqqqqqqqqqqqqqqqqqqqqq"};
diff --git a/lisp/toolbar/cancel.pbm b/lisp/toolbar/cancel.pbm
deleted file mode 100644
index bd85b764c27..00000000000
--- a/lisp/toolbar/cancel.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/cancel.xpm b/lisp/toolbar/cancel.xpm
deleted file mode 100644
index 1a9c80ac744..00000000000
--- a/lisp/toolbar/cancel.xpm
+++ /dev/null
@@ -1,35 +0,0 @@
1/* XPM */
2static char *magick[] = {
3/* columns rows colors chars-per-pixel */
4"24 24 5 1",
5" c #01c601c601c6",
6". c Gray40",
7"X c #a527a527a527",
8"o c #da22da22da22",
9"O c None",
10/* pixels */
11"OOOOOOOOOOOOOOOOOOOOOOOO",
12"OOOOOOOOOOOOOOOOOOOOOOOO",
13"OOOOOOOOOOOOOOOOOOOOOOOO",
14"OOOOOOOOOOOOOOOOOOOOOOOO",
15"OOOOOOOO OOOOOOOOO",
16"OOOOOO XXooXX. OOOOOOO",
17"OOOOO XooooooooX. OOOOOO",
18"OOOOO oooooooooo. OOOOOO",
19"OOOO Xooo ooo XoX. OOOOO",
20"OOOO Xoo o XXX OOOOO",
21"OOOO oooo XoXX OOOOO",
22"OOOO Xoooo ooXXX OOOOO",
23"OOOO Xooo OXX. OOOOO",
24"OOOO Xoo o XX. OOOOO",
25"OOOO .Xoo ooX XX.. OOOOO",
26"OOOOO XXOoXoXXX.. OOOOOO",
27"OOOOO XXXXXXXXX.. OOOOOO",
28"OOOOOO XXXX... OOOOOOO",
29"OOOOOOOO OOOOOOOOO",
30"OOOOOOOOOOOOOOOOOOOOOOOO",
31"OOOOOOOOOOOOOOOOOOOOOOOO",
32"OOOOOOOOOOOOOOOOOOOOOOOO",
33"OOOOOOOOOOOOOOOOOOOOOOOO",
34"OOOOOOOOOOOOOOOOOOOOOOOO"
35};
diff --git a/lisp/toolbar/close.pbm b/lisp/toolbar/close.pbm
deleted file mode 100644
index 5229be27525..00000000000
--- a/lisp/toolbar/close.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/close.xpm b/lisp/toolbar/close.xpm
deleted file mode 100644
index 498843be6e2..00000000000
--- a/lisp/toolbar/close.xpm
+++ /dev/null
@@ -1,29 +0,0 @@
1/* XPM */
2static char * close_xpm[] = {
3"24 24 2 1",
4" c None",
5". c #000000",
6" ",
7" ",
8" ",
9" ",
10" ",
11" ",
12" . . ",
13" . ... ",
14" .. .... ",
15" .. ... ",
16" ..... ",
17" ... ",
18" ..... ",
19" ....... ",
20" ... .... ",
21" ... .... ",
22" ... .. ",
23" ",
24" ",
25" ",
26" ",
27" ",
28" ",
29" "};
diff --git a/lisp/toolbar/copy.pbm b/lisp/toolbar/copy.pbm
deleted file mode 100644
index abfd22f93b3..00000000000
--- a/lisp/toolbar/copy.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/copy.xpm b/lisp/toolbar/copy.xpm
deleted file mode 100644
index 6262a95bc39..00000000000
--- a/lisp/toolbar/copy.xpm
+++ /dev/null
@@ -1,53 +0,0 @@
1/* XPM */
2static char * copy_xpm[] = {
3"24 24 26 1",
4" c None",
5". c #000000",
6"+ c #B4B4B4",
7"@ c #F8F8F8",
8"# c #F6F6F6",
9"$ c #C3C3C3",
10"% c #E9E9E9",
11"& c #989898",
12"* c #828282",
13"= c #8A8A8A",
14"- c #E8E8E8",
15"; c #636363",
16"> c #5A5A5A",
17", c #6B6B6B",
18"' c #B3B3B3",
19") c #FFFFFF",
20"! c #D6D6D6",
21"~ c #818181",
22"{ c #A7A7A7",
23"] c #8F8F8F",
24"^ c #C6C6C6",
25"/ c #808080",
26"( c #E7E7E7",
27"_ c #6D6D6D",
28": c #767676",
29"< c #F5F5F5",
30" ",
31" ............. ",
32" .+@@@@@@@@@#$. ",
33" .@%%%%%%%%%%%. ",
34" .@&**=%+*%*+%. ",
35" .@%%%%%%%%---. ",
36" .@;>%,*+-............ ",
37" .@%%%%%%.'))))))))))!. ",
38" .@&**%*~.)))))))))))). ",
39" .@%%%%%-.){]]&)^])]^). ",
40" .@;>>%,/.)))))))))))). ",
41" .@%%%%%(.)_;):]^)^])). ",
42" .@&**%*~.)))))))))))). ",
43" .<%%%%%-.){]])]]^)&]). ",
44" .$%%%%%-.)))))))))))). ",
45" ........)_;;):]^)^]). ",
46" .)))))))))))). ",
47" .){]])]]^)&]). ",
48" .)))))))))))). ",
49" .!))))))))))!. ",
50" .............. ",
51" ",
52" ",
53" "};
diff --git a/lisp/toolbar/cut.pbm b/lisp/toolbar/cut.pbm
deleted file mode 100644
index 29bf1abc073..00000000000
--- a/lisp/toolbar/cut.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/cut.xpm b/lisp/toolbar/cut.xpm
deleted file mode 100644
index 3f8e71d22ce..00000000000
--- a/lisp/toolbar/cut.xpm
+++ /dev/null
@@ -1,67 +0,0 @@
1/* XPM */
2static char * cut_xpm[] = {
3"24 24 40 1",
4" c None",
5". c #000000",
6"+ c #C9C7C2",
7"@ c #E6E4E0",
8"# c #EFEEED",
9"$ c #494946",
10"% c #73726E",
11"& c #F0EEED",
12"* c #7F7D75",
13"= c #F2F1EF",
14"- c #D2CFC8",
15"; c #E7E7E4",
16"> c #BAB5AB",
17", c #565653",
18"' c #EDECE9",
19") c #A4A097",
20"! c #817F7E",
21"~ c #4E4C48",
22"{ c #F6F5F4",
23"] c #474541",
24"^ c #EFEEEC",
25"/ c #8C8B8A",
26"( c #F3F2F0",
27"_ c #77746D",
28": c #323232",
29"< c #EBEBEA",
30"[ c #605D58",
31"} c #F5F4F3",
32"| c #CECCC7",
33"1 c #363634",
34"2 c #6F6E6D",
35"3 c #BEBDBB",
36"4 c #EAE7E4",
37"5 c #B8B5B1",
38"6 c #474747",
39"7 c #DAD8D4",
40"8 c #9B9996",
41"9 c #161615",
42"0 c #6D6B6A",
43"a c #3A3837",
44" ",
45" ",
46" . . ",
47" . . ",
48" .+. .@. ",
49" .#$ %@. ",
50" .&*. .=-. ",
51" .;>, %'). ",
52" !#*. .=-~ ",
53" .{>] ~^>. ",
54" /(_.:<-[ ",
55" .}|123>. ",
56" .456>. ",
57" .78.. ",
58" .90a. ",
59" ............. ",
60" . ... ... ... ",
61" .. .. .. .. ",
62" . . . . ",
63" .. .. .. .. ",
64" .... .. . ",
65" .... .... ",
66" ",
67" "};
diff --git a/lisp/toolbar/diropen.pbm b/lisp/toolbar/diropen.pbm
deleted file mode 100644
index 61adc3b2a23..00000000000
--- a/lisp/toolbar/diropen.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/diropen.xpm b/lisp/toolbar/diropen.xpm
deleted file mode 100644
index 6937b99a44d..00000000000
--- a/lisp/toolbar/diropen.xpm
+++ /dev/null
@@ -1,44 +0,0 @@
1/* XPM */
2static char * diropen_xpm[] = {
3"19 24 17 1",
4" c None",
5". c #000100",
6"+ c #C6C9A6",
7"@ c #D0D3AF",
8"# c #93997C",
9"$ c #E6E7D0",
10"% c #BEC19E",
11"& c #B4B895",
12"* c #A7AA88",
13"= c #6B6D59",
14"- c #4A4E40",
15"; c #7C8166",
16"> c #898E72",
17", c #3C4032",
18"' c #575845",
19") c #34332C",
20"! c #24231D",
21" ............... ",
22" .+@@@@@@@@@@@@@#. ",
23".$@@@@@@@@@@@@@@@#.",
24".++++%%%%%%%%%&&&*.",
25".&&&&&&&&&&******#.",
26".*%+++%%%%%%%%%&=#.",
27".*+***********##-#.",
28".*+****;===;####-#.",
29".*+****=*****###-#.",
30".*+****;*****###-#.",
31".*+****########>-#.",
32".*&######>>>>>>>,>.",
33".*#-------------'>)",
34".*&&&&&&&&&&&&&*#>)",
35".*&************#'>)",
36".*&***********##,>)",
37".*&****====;###>,>)",
38".#&****=**#**##>,;)",
39".#&****>****###>,;)",
40".#&****########>,;)",
41".##''''''''''''',;)",
42".#>==============;)",
43".''''''''''''''''-!",
44" ................. "};
diff --git a/lisp/toolbar/exit.pbm b/lisp/toolbar/exit.pbm
deleted file mode 100644
index a6dd11e7769..00000000000
--- a/lisp/toolbar/exit.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/exit.xpm b/lisp/toolbar/exit.xpm
deleted file mode 100644
index 291dd0dd170..00000000000
--- a/lisp/toolbar/exit.xpm
+++ /dev/null
@@ -1,36 +0,0 @@
1/* XPM */
2static char *magick[] = {
3/* columns rows colors chars-per-pixel */
4"24 24 6 1",
5" c Gray0",
6". c #ae6e66e76a0a",
7"X c #c6c67d7d8181",
8"o c #cdcd86868989",
9"O c #e4e4e4e4dcdc",
10"+ c None",
11/* pixels */
12"++++++++++++++++++++++++",
13"++++++++++++++++++++++++",
14"++++++++++++++++++++++++",
15"++++++++++++++++++++++++",
16"++++++++++++++++++++++++",
17"++++++++++ +++++",
18"++++++++++ OOOOOO +++++",
19"++++++++++ OOOOOO +++++",
20"++++++++ OOOOOO +++++",
21"++++++++ . OOOOOO +++++",
22"+++ .X OO O +++++",
23"+++ ......Xo O O +++++",
24"+++ ......Xo OOOO +++++",
25"+++ .X OOOOO +++++",
26"++++++++ . OOOOOO +++++",
27"++++++++ OOOOOO +++++",
28"++++++++++ OOOO +++++",
29"++++++++++ OO +++++",
30"++++++++++ +++++",
31"++++++++++++++++++++++++",
32"++++++++++++++++++++++++",
33"++++++++++++++++++++++++",
34"++++++++++++++++++++++++",
35"++++++++++++++++++++++++"
36};
diff --git a/lisp/toolbar/fld_open.pbm b/lisp/toolbar/fld_open.pbm
deleted file mode 100644
index 3d2be258a67..00000000000
--- a/lisp/toolbar/fld_open.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/fld_open.xpm b/lisp/toolbar/fld_open.xpm
deleted file mode 100644
index 220410003fd..00000000000
--- a/lisp/toolbar/fld_open.xpm
+++ /dev/null
@@ -1,34 +0,0 @@
1/* XPM */
2static char *magick[] = {
3/* columns rows colors chars-per-pixel */
4"24 24 4 1",
5" c Gray0",
6". c #909090909090",
7"X c #fefefefefefe",
8"o c None",
9/* pixels */
10"oooooooooooooooooooooooo",
11"oooooooooooooooooooooooo",
12"oooooooooooooooooooooooo",
13"oooooooooooooooooooooooo",
14"oooooooooooooooooooooooo",
15"oooooooooooooo oooooooo",
16"ooooooooooo .. ooooooo",
17"oooo oo ....XXo ooo",
18"ooo .. ....XXXX .. ooo",
19"ooo .....XXXXX .... ooo",
20"oooo ..XXXXX ...... ooo",
21"oooo ..XXX ........ ooo",
22"ooooo .XX .......... ooo",
23"ooooo ..X .......... ooo",
24"oooooo .X .......... ooo",
25"oooooo .. ........ oooo",
26"ooooooo . ...... oooooo",
27"ooooooo . ..... oooooooo",
28"oooooooo ... ooooooooo",
29"oooooooo . ooooooooooo",
30"ooooooooo ooooooooooooo",
31"oooooooooooooooooooooooo",
32"oooooooooooooooooooooooo",
33"oooooooooooooooooooooooo"
34};
diff --git a/lisp/toolbar/fwd_arrow.pbm b/lisp/toolbar/fwd_arrow.pbm
deleted file mode 100644
index e08e6fa35db..00000000000
--- a/lisp/toolbar/fwd_arrow.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/fwd_arrow.xpm b/lisp/toolbar/fwd_arrow.xpm
deleted file mode 100644
index 5e7c5602ea1..00000000000
--- a/lisp/toolbar/fwd_arrow.xpm
+++ /dev/null
@@ -1,70 +0,0 @@
1/* XPM */
2static char *fwd_arrow_xpm[] = {
3"24 24 43 1",
4" c #000000",
5". c #53692A",
6"X c #59702D",
7"o c #657255",
8"O c #6D7A5B",
9"+ c #6D8839",
10"@ c #7C9B40",
11"# c #748261",
12"$ c #7F8E6B",
13"% c #818F71",
14"& c #879772",
15"* c #8C9A7F",
16"= c #85A24D",
17"- c #8BA859",
18"; c #92AD62",
19": c #95A77E",
20"> c #98AF74",
21", c #9BB572",
22"< c #919889",
23"1 c #92998C",
24"2 c #939A8D",
25"3 c #99A28F",
26"4 c #9BAA87",
27"5 c #9CAF84",
28"6 c #A4B690",
29"7 c #A8BCA6",
30"8 c #ADBDA0",
31"9 c #AFC394",
32"0 c #BAD09D",
33"q c #B5C3A9",
34"w c #BED2A3",
35"e c #BFD3A6",
36"r c #C2D5AA",
37"t c #C5D7AE",
38"y c #C8D9B2",
39"u c #CDDCBC",
40"i c #D1DFBE",
41"p c #D2E0BF",
42"a c #D3E0C1",
43"s c #D4E0C5",
44"d c #D5E1C6",
45"f c #FFFFFF",
46"g c None",
47"gggggggggggggggggggggggg",
48"gggggggggggggggggggggggg",
49"gggggggggggggggggggggggg",
50"ggggggggggggg gggggggggg",
51"ggggggggggggg ggggggggg",
52"ggggggggggggg 2 gggggggg",
53"gggggggggg 02 ggggggg",
54"ggggggggg &6riw03 gggggg",
55"gggggggg 7suat000< ggggg",
56"ggggggg *saie000004 gggg",
57"gggggg qs;@@@@@@X ggggg",
58"gggggg $y=@@@@@@. gggggg",
59"gggggg 6,@X @. ggggggg",
60"gggggg 0@+ g X gggggggg",
61"gggggg 0@ gg ggggggggg",
62"gggggg :- ggg gggggggggg",
63"gggggg o> gggggggggggggg",
64"ggggggg 9 gggggggggggggg",
65"ggggggg O5 ggggggggggggg",
66"gggggggg #& gggggggggggg",
67"ggggggggg ggggggggggggg",
68"gggggggggggggggggggggggg",
69"gggggggggggggggggggggggg",
70"gggggggggggggggggggggggg"};
diff --git a/lisp/toolbar/gud-break.pbm b/lisp/toolbar/gud-break.pbm
deleted file mode 100644
index ff28ff8649f..00000000000
--- a/lisp/toolbar/gud-break.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/gud-break.xpm b/lisp/toolbar/gud-break.xpm
deleted file mode 100644
index 2ffc2748271..00000000000
--- a/lisp/toolbar/gud-break.xpm
+++ /dev/null
@@ -1,30 +0,0 @@
1/* XPM */
2static char * stop_xpm[] = {
3"24 24 3 1",
4" c None",
5". c #F8F810104040",
6"X c #F8F8FCFCF8F8",
7" ",
8" ",
9" .......... ",
10" ............ ",
11" .............. ",
12" ................ ",
13" .................. ",
14" ..XX..XXX..XX..XXX.. ",
15" .X..X..X..X..X.X..X. ",
16" .X.....X..X..X.X..X. ",
17" .X.....X..X..X.X..X. ",
18" ..X....X..X..X.X..X. ",
19" ...X...X..X..X.XXX.. ",
20" ....X..X..X..X.X.... ",
21" ....X..X..X..X.X.... ",
22" .X..X..X..X..X.X.... ",
23" ..XX...X...XX..X.... ",
24" .................. ",
25" ................ ",
26" .............. ",
27" ............ ",
28" .......... ",
29" ",
30" "};
diff --git a/lisp/toolbar/gud-cont.pbm b/lisp/toolbar/gud-cont.pbm
deleted file mode 100644
index bc6dbead648..00000000000
--- a/lisp/toolbar/gud-cont.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/gud-cont.xpm b/lisp/toolbar/gud-cont.xpm
deleted file mode 100644
index 9da91af994f..00000000000
--- a/lisp/toolbar/gud-cont.xpm
+++ /dev/null
@@ -1,33 +0,0 @@
1/* XPM */
2static char * continue_xpm[] = {
3"24 24 6 1",
4" c None",
5". c #cc0033",
6"X c #d99faa",
7"o c #616161",
8"O c #2a1f55",
9"+ c #aa9faa",
10" ",
11" ",
12" ",
13" ",
14" .X ",
15" X..X ",
16" ....... oO Oo ",
17" X..X oO+ +Oo ",
18" .X OO OO ",
19" OO OO ",
20" OO OO ",
21" Oo oO ",
22" OO OO ",
23" Oo oO ",
24" OO OO ",
25" OO OO ",
26" OO OO ",
27" oO+ +Oo ",
28" oO Oo ",
29" ",
30" ",
31" ",
32" ",
33" "};
diff --git a/lisp/toolbar/gud-down.pbm b/lisp/toolbar/gud-down.pbm
deleted file mode 100644
index c76dad2e04f..00000000000
--- a/lisp/toolbar/gud-down.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/gud-down.xpm b/lisp/toolbar/gud-down.xpm
deleted file mode 100644
index 30f3af89cce..00000000000
--- a/lisp/toolbar/gud-down.xpm
+++ /dev/null
@@ -1,41 +0,0 @@
1/* XPM */
2static char * down_xpm[] = {
3"24 24 14 1",
4" c None",
5". c #000000000000",
6"X c #7F7F7F7F7F7F",
7"o c #2D2D2D2D2D2D",
8"O c #616161616161",
9"+ c #FFFFCCCC6666",
10"@ c #929255550000",
11"# c #696969696969",
12"$ c #6D6DAAAAFFFF",
13"% c #49495555AAAA",
14"& c #333333339999",
15"* c #434343434343",
16"= c #6666FFFF6666",
17"- c #4949AAAA5555",
18" ",
19" ",
20" ",
21" ",
22" . ",
23" . ",
24" . ",
25" . . . ",
26" X...X ",
27" ... ",
28" oooooooooooX.X ",
29" O+++++++++O . ",
30" .@@@@@@@@@. ",
31" ............... ",
32" #$%$$$$$$$$$%$# ",
33" o%&%%%%%%%%%&%o ",
34" ............... ",
35" *===========* ",
36" o-----------. ",
37" o............ ",
38" ",
39" ",
40" ",
41" "};
diff --git a/lisp/toolbar/gud-finish.pbm b/lisp/toolbar/gud-finish.pbm
deleted file mode 100644
index 324245235c9..00000000000
--- a/lisp/toolbar/gud-finish.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/gud-finish.xpm b/lisp/toolbar/gud-finish.xpm
deleted file mode 100644
index 0310f07e8da..00000000000
--- a/lisp/toolbar/gud-finish.xpm
+++ /dev/null
@@ -1,34 +0,0 @@
1/* XPM */
2static char * finish_xpm[] = {
3"24 24 7 1",
4" c None",
5". c #cc0033",
6"X c #616161",
7"o c #2a1f55",
8"O c #adadad",
9"+ c #d40000",
10"@ c #cc9999",
11" ",
12" ",
13" ",
14" ",
15" ..... ",
16" . . ",
17" . . ",
18" Xo . oX . ",
19" XoO . OoX . ",
20" oo . oo +@.@+ ",
21" oo oo @...@ ",
22" oo oo ... ",
23" oX Xo @.@ ",
24" oo oo . ",
25" oX Xo ",
26" oo oo ",
27" oo oo ",
28" oo oo ",
29" XoO OoX ",
30" Xo oX ",
31" ",
32" ",
33" ",
34" "};
diff --git a/lisp/toolbar/gud-n.pbm b/lisp/toolbar/gud-n.pbm
deleted file mode 100644
index dc2a15323e3..00000000000
--- a/lisp/toolbar/gud-n.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/gud-n.xpm b/lisp/toolbar/gud-n.xpm
deleted file mode 100644
index f0257da5cf0..00000000000
--- a/lisp/toolbar/gud-n.xpm
+++ /dev/null
@@ -1,34 +0,0 @@
1/* XPM */
2static char * next_xpm[] = {
3"24 24 7 1",
4" c None",
5". c #cc0033",
6"X c #616161",
7"o c #2a1f55",
8"O c #adadad",
9"+ c #d40000",
10"@ c #cc9999",
11" ",
12" ",
13" ",
14" ",
15" .......... ",
16" . . ",
17" . . ",
18" . Xo oX . ",
19" . XoO OoX . ",
20" . oo oo +@.@+ ",
21" oo oo @...@ ",
22" oo oo ... ",
23" oX Xo @.@ ",
24" oo oo . ",
25" oX Xo ",
26" oo oo ",
27" oo oo ",
28" oo oo ",
29" XoO OoX ",
30" Xo oX ",
31" ",
32" ",
33" ",
34" "};
diff --git a/lisp/toolbar/gud-ni.pbm b/lisp/toolbar/gud-ni.pbm
deleted file mode 100644
index ecad2965b0d..00000000000
--- a/lisp/toolbar/gud-ni.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/gud-ni.xpm b/lisp/toolbar/gud-ni.xpm
deleted file mode 100644
index bd4f02db12e..00000000000
--- a/lisp/toolbar/gud-ni.xpm
+++ /dev/null
@@ -1,33 +0,0 @@
1/* XPM */
2static char * gud_nexti_xpm[] = {
3"24 24 6 1",
4" c None",
5". c #CCCC00003333",
6"X c #616161616161",
7"o c #D4D400000000",
8"O c #CCCC99999999",
9"+ c #2A2A1F1F5555",
10" ",
11" ",
12" ",
13" ",
14" .......... ",
15" . . ",
16" . . ",
17" . . ",
18" . . ",
19" . X X oO.Oo ",
20" X+ +X O...O ",
21" X+ +X ... ",
22" X+ +X O.O ",
23" X+ +X . ",
24" +X X+ ",
25" +X X+ ",
26" +X X+ ",
27" +X X+ ",
28" + + ",
29" ",
30" ",
31" ",
32" ",
33" "};
diff --git a/lisp/toolbar/gud-print.pbm b/lisp/toolbar/gud-print.pbm
deleted file mode 100644
index d6ab68f39ad..00000000000
--- a/lisp/toolbar/gud-print.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/gud-print.xpm b/lisp/toolbar/gud-print.xpm
deleted file mode 100644
index e1e7c623355..00000000000
--- a/lisp/toolbar/gud-print.xpm
+++ /dev/null
@@ -1,29 +0,0 @@
1/* XPM */
2static char * print_xpm[] = {
3"24 24 2 1",
4" c None",
5". c #000000000000",
6" ",
7" ",
8" ",
9" ",
10" ",
11" ",
12" ",
13" ",
14" ... ... ",
15" ... ... ",
16" .. .. ",
17" .. .. ",
18" .. .. ",
19" .. .. ",
20" .. .. ",
21" ... .. ",
22" .. .. ",
23" .. ",
24" .. ",
25" .. ",
26" .... ",
27" ",
28" ",
29" "};
diff --git a/lisp/toolbar/gud-pstar.pbm b/lisp/toolbar/gud-pstar.pbm
deleted file mode 100644
index 1f5967107a0..00000000000
--- a/lisp/toolbar/gud-pstar.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/gud-pstar.xpm b/lisp/toolbar/gud-pstar.xpm
deleted file mode 100644
index 6edc603db14..00000000000
--- a/lisp/toolbar/gud-pstar.xpm
+++ /dev/null
@@ -1,29 +0,0 @@
1/* XPM */
2static char * gud_pstar_xpm[] = {
3"24 24 2 1",
4" c #BDBDBEBEBDBD",
5". c #000000000000",
6" ",
7" ",
8" ",
9" ",
10" ",
11" ",
12" ",
13" ",
14" ... ... ",
15" ... ... ",
16" .. .. . ",
17" .. .. . . . ",
18" .. .. ... ",
19" .. .. . . . ",
20" .. .. . ",
21" ... .. ",
22" .. .. ",
23" .. ",
24" .. ",
25" .. ",
26" .... ",
27" ",
28" ",
29" "};
diff --git a/lisp/toolbar/gud-remove.pbm b/lisp/toolbar/gud-remove.pbm
deleted file mode 100644
index 516bec1f785..00000000000
--- a/lisp/toolbar/gud-remove.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/gud-remove.xpm b/lisp/toolbar/gud-remove.xpm
deleted file mode 100644
index 5f38bd416ed..00000000000
--- a/lisp/toolbar/gud-remove.xpm
+++ /dev/null
@@ -1,31 +0,0 @@
1/* XPM */
2static char * go_xpm[] = {
3"24 24 4 1",
4" c None",
5". c #000080800000",
6"X c #FFFFFFFFFFFF",
7"o c #F8F8FCFCF8F8",
8" ",
9" ",
10" .......... ",
11" ............ ",
12" .............. ",
13" ................ ",
14" .................. ",
15" ......XX...oo....... ",
16" .....X..X.o..o...... ",
17" .....X....o..o...... ",
18" .....X....o..o...... ",
19" .....X....o..o...... ",
20" .....X.XX.o..o...... ",
21" .....X..X.o..o...... ",
22" .....X..X.o..o...... ",
23" .....X..X.o..o...... ",
24" ......XX...oo....... ",
25" .................. ",
26" ................ ",
27" .............. ",
28" ............ ",
29" .......... ",
30" ",
31" "};
diff --git a/lisp/toolbar/gud-run.pbm b/lisp/toolbar/gud-run.pbm
deleted file mode 100644
index 8bde32c3391..00000000000
--- a/lisp/toolbar/gud-run.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/gud-run.xpm b/lisp/toolbar/gud-run.xpm
deleted file mode 100644
index ef29662ed24..00000000000
--- a/lisp/toolbar/gud-run.xpm
+++ /dev/null
@@ -1,36 +0,0 @@
1/* XPM */
2static char * run_xpm[] = {
3"24 24 9 1",
4" c None",
5". c #000080",
6"X c #aa9faa",
7"o c #b5b9b5",
8"O c #808080",
9"+ c #7f7f7f",
10"@ c #5a60a5",
11"# c #9a999a",
12"$ c #616161",
13" ",
14" ",
15" ",
16" ",
17" .. ",
18" X.. ",
19" oO+++++...@ ",
20" @..... ",
21" oO+++...... ",
22" .@..... ",
23" oO++@@...... ",
24" ....@ .. ",
25" .. .....@ @ ",
26" @...@..@... ",
27" .#..... @.. ",
28" @.. #.. ",
29" ..@ ",
30" +.@ ",
31" ..$+ ",
32" .... ",
33" ",
34" ",
35" ",
36" "};
diff --git a/lisp/toolbar/gud-s.pbm b/lisp/toolbar/gud-s.pbm
deleted file mode 100644
index de7caa50ed5..00000000000
--- a/lisp/toolbar/gud-s.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/gud-s.xpm b/lisp/toolbar/gud-s.xpm
deleted file mode 100644
index 4ee3eccaee2..00000000000
--- a/lisp/toolbar/gud-s.xpm
+++ /dev/null
@@ -1,33 +0,0 @@
1/* XPM */
2static char * step_xpm[] = {
3"24 24 6 1",
4" c None",
5". c #d40000",
6"X c #616161",
7"o c #2a1f55",
8"O c #adadad",
9"+ c #cc9999",
10" ",
11" ",
12" ",
13" ",
14" ..... ",
15" . . ",
16" . . ",
17" . Xo . oX ",
18" . XoO . OoX ",
19" . oo .+.+. oo ",
20" oo +...+ oo ",
21" oo ... oo ",
22" oX +.+ Xo ",
23" oo . oo ",
24" oX Xo ",
25" oo oo ",
26" oo oo ",
27" oo oo ",
28" XoO OoX ",
29" Xo oX ",
30" ",
31" ",
32" ",
33" "};
diff --git a/lisp/toolbar/gud-si.pbm b/lisp/toolbar/gud-si.pbm
deleted file mode 100644
index eed55cc4a33..00000000000
--- a/lisp/toolbar/gud-si.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/gud-si.xpm b/lisp/toolbar/gud-si.xpm
deleted file mode 100644
index b20eb6243f7..00000000000
--- a/lisp/toolbar/gud-si.xpm
+++ /dev/null
@@ -1,32 +0,0 @@
1/* XPM */
2static char * gud_stepi_xpm[] = {
3"24 24 5 1",
4" c None",
5". c #D4D400000000",
6"X c #616161616161",
7"o c #2A2A1F1F5555",
8"O c #CCCC99999999",
9" ",
10" ",
11" ",
12" ",
13" ..... ",
14" . . ",
15" . . ",
16" . . ",
17" . X . X ",
18" . Xo .O.O. oX ",
19" Xo O...O oX ",
20" Xo ... oX ",
21" Xo O.O oX ",
22" oX . Xo ",
23" oX Xo ",
24" oX Xo ",
25" oX Xo ",
26" o o ",
27" ",
28" ",
29" ",
30" ",
31" ",
32" "};
diff --git a/lisp/toolbar/gud-until.pbm b/lisp/toolbar/gud-until.pbm
deleted file mode 100644
index 096cacc6c17..00000000000
--- a/lisp/toolbar/gud-until.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/gud-until.xpm b/lisp/toolbar/gud-until.xpm
deleted file mode 100644
index f82da6700b2..00000000000
--- a/lisp/toolbar/gud-until.xpm
+++ /dev/null
@@ -1,33 +0,0 @@
1/* XPM */
2static char * goto_xpm[] = {
3"24 24 6 1",
4" c None",
5". c #ff0000",
6"X c #616161",
7"o c #2a1f55",
8"O c #adadad",
9"+ c #cc9999",
10" ",
11" ",
12" ",
13" ",
14" ",
15" . ",
16" . ",
17" . Xo oX ",
18" . XoO OoX ",
19" . oo oo ",
20" . oo oo ",
21" . .+ oo oo ",
22" . +..+ oX Xo ",
23" ...... oo oo ",
24" +..+ oX Xo ",
25" .+ oo oo ",
26" oo oo ",
27" oo oo ",
28" XoO OoX ",
29" Xo oX ",
30" ",
31" ",
32" ",
33" "};
diff --git a/lisp/toolbar/gud-up.pbm b/lisp/toolbar/gud-up.pbm
deleted file mode 100644
index 585f488bac7..00000000000
--- a/lisp/toolbar/gud-up.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/gud-up.xpm b/lisp/toolbar/gud-up.xpm
deleted file mode 100644
index c2e4c9f8ff4..00000000000
--- a/lisp/toolbar/gud-up.xpm
+++ /dev/null
@@ -1,41 +0,0 @@
1/* XPM */
2static char * up_xpm[] = {
3"24 24 14 1",
4" c None",
5". c #000000000000",
6"X c #7F7F7F7F7F7F",
7"o c #2D2D2D2D2D2D",
8"O c #616161616161",
9"+ c #FFFFCCCC6666",
10"@ c #929255550000",
11"# c #696969696969",
12"$ c #6D6DAAAAFFFF",
13"% c #49495555AAAA",
14"& c #333333339999",
15"* c #434343434343",
16"= c #6666FFFF6666",
17"- c #4949AAAA5555",
18" ",
19" ",
20" ",
21" ",
22" . ",
23" X.X ",
24" ... ",
25" X...X ",
26" . . . ",
27" . ",
28" oooooooooo. . ",
29" O+++++++++O . ",
30" .@@@@@@@@@. ",
31" ............... ",
32" #$%$$$$$$$$$%$# ",
33" o%&%%%%%%%%%&%o ",
34" ............... ",
35" *===========* ",
36" o-----------. ",
37" o............ ",
38" ",
39" ",
40" ",
41" "};
diff --git a/lisp/toolbar/gud-watch.pbm b/lisp/toolbar/gud-watch.pbm
deleted file mode 100644
index 223d4ebf8c7..00000000000
--- a/lisp/toolbar/gud-watch.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/gud-watch.xpm b/lisp/toolbar/gud-watch.xpm
deleted file mode 100644
index 52052212390..00000000000
--- a/lisp/toolbar/gud-watch.xpm
+++ /dev/null
@@ -1,38 +0,0 @@
1/* XPM */
2static char * watch_xpm[] = {
3"24 24 11 1",
4" c None",
5". c #808080808080",
6"X c #000000000000",
7"o c #A5A59F9FA3A3",
8"O c #B5B5B9B9B5B5",
9"+ c #070707070707",
10"@ c #616161616161",
11"# c #2D2D30302D2D",
12"$ c #020202020202",
13"% c #9A9A99999A9A",
14"& c #2F2F1A1A0202",
15" ",
16" ",
17" ",
18" ",
19" ",
20" .XX ",
21" oX. X Xo ",
22" O+@ X@# ",
23" # X O$o ",
24" ## @# ",
25" @+O O$o ",
26" %XX&% %&X&## ",
27" %#O O#%X%#O O#X ",
28" &O O& &O O& ",
29" X X X X ",
30" &O O& &O O& ",
31" %#O O#% %#O O#% ",
32" %&X&% %&X&% ",
33" ",
34" ",
35" ",
36" ",
37" ",
38" "};
diff --git a/lisp/toolbar/help.pbm b/lisp/toolbar/help.pbm
deleted file mode 100644
index 2575f6f2613..00000000000
--- a/lisp/toolbar/help.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/help.xpm b/lisp/toolbar/help.xpm
deleted file mode 100644
index 1d65ce03b53..00000000000
--- a/lisp/toolbar/help.xpm
+++ /dev/null
@@ -1,271 +0,0 @@
1/* XPM */
2static char * help_xpm[] = {
3"24 24 244 2",
4" c None",
5". c #000000",
6"+ c #454442",
7"@ c #1D1D1C",
8"# c #040404",
9"$ c #1B1B1B",
10"% c #3D3C3A",
11"& c #4D4C4B",
12"* c #2F2F2D",
13"= c #C1BFBB",
14"- c #ECEAE7",
15"; c #F5F3F0",
16"> c #F2F0EC",
17", c #E1DFDC",
18"' c #AFADAA",
19") c #272726",
20"! c #020202",
21"~ c #3F3E3E",
22"{ c #36302D",
23"] c #181818",
24"^ c #FBF8F5",
25"/ c #FEFCF8",
26"( c #FAF8F5",
27"_ c #F5F4F1",
28": c #F2F1ED",
29"< c #F1EFEB",
30"[ c #F1EEEB",
31"} c #EAE9E6",
32"| c #DAD8D4",
33"1 c #100E0E",
34"2 c #1F100E",
35"3 c #AF3A1E",
36"4 c #FBAB93",
37"5 c #FAE9E3",
38"6 c #F0EFEB",
39"7 c #E9E8E5",
40"8 c #EAE8E6",
41"9 c #ECEAE8",
42"0 c #EDEBE9",
43"a c #EDEBE8",
44"b c #EACFC6",
45"c c #D5340A",
46"d c #751904",
47"e c #100806",
48"f c #34160D",
49"g c #AF3C20",
50"h c #FCCCBD",
51"i c #F7BEAD",
52"j c #E67554",
53"k c #DFDDDB",
54"l c #DBD9D6",
55"m c #D8D7D3",
56"n c #DBDAD6",
57"o c #E3E2DE",
58"p c #ECEBE8",
59"q c #E5572D",
60"r c #E33A0B",
61"s c #D4340A",
62"t c #691504",
63"u c #100504",
64"v c #582C22",
65"w c #0F0F0F",
66"x c #FDD4C8",
67"y c #F7BFAF",
68"z c #E87554",
69"A c #D5512B",
70"B c #C68270",
71"C c #BEBDBA",
72"D c #A5A3A0",
73"E c #9C9A95",
74"F c #B9B7B2",
75"G c #D7D6D2",
76"H c #E7E5E2",
77"I c #E79A85",
78"J c #E53C0B",
79"K c #E43C0B",
80"L c #E23A0B",
81"M c #C93009",
82"N c #010000",
83"O c #040100",
84"P c #FAB19C",
85"Q c #FACCBE",
86"R c #EB8264",
87"S c #D8532D",
88"T c #C0340F",
89"U c #932006",
90"V c #141412",
91"W c #857974",
92"X c #DA370B",
93"Y c #EC7C5B",
94"Z c #E95B32",
95"` c #DE380B",
96" . c #9D2306",
97".. c #626261",
98"+. c #FEF1ED",
99"@. c #F09479",
100"#. c #DC532B",
101"$. c #C0350F",
102"%. c #942006",
103"&. c #621404",
104"*. c #E2522B",
105"=. c #F2A690",
106"-. c #E74E21",
107";. c #E23B0B",
108">. c #C99181",
109",. c #454342",
110"'. c #E5E4E2",
111"). c #FCFBFA",
112"!. c #E2D8D3",
113"~. c #C34C2A",
114"{. c #B02B07",
115"]. c #9E2D12",
116"^. c #EF8D71",
117"/. c #F09B83",
118"(. c #EADDD7",
119"_. c #272724",
120":. c #F0EEEC",
121"<. c #F3F2EF",
122"[. c #D7D6D3",
123"}. c #BFBEBB",
124"|. c #9E6153",
125"1. c #3F0D02",
126"2. c #F0B9A9",
127"3. c #F6F5F4",
128"4. c #E8E7E4",
129"5. c #DAD8D5",
130"6. c #585652",
131"7. c #F6F4F0",
132"8. c #DAD8D6",
133"9. c #C2C1BE",
134"0. c #989691",
135"a. c #0A0A08",
136"b. c #F6F4F2",
137"c. c #F4F3F1",
138"d. c #E4E3E0",
139"e. c #D3D2CE",
140"f. c #63625D",
141"g. c #DCDAD8",
142"h. c #C7C6C2",
143"i. c #ABAAA5",
144"j. c #0A0A0A",
145"k. c #FAF8F6",
146"l. c #EFEDEA",
147"m. c #DDDCD8",
148"n. c #C6C4C2",
149"o. c #3E3E39",
150"p. c #1B1B19",
151"q. c #F0EEEA",
152"r. c #E0DFDD",
153"s. c #CCCBC9",
154"t. c #C0BFBB",
155"u. c #131311",
156"v. c #676663",
157"w. c #FCFAF8",
158"x. c #D6D4D2",
159"y. c #BCBAB7",
160"z. c #3C3C3A",
161"A. c #DEDCD9",
162"B. c #7E4B3E",
163"C. c #232323",
164"D. c #CC9385",
165"E. c #FAFAF7",
166"F. c #E6E6E2",
167"G. c #CDCCCA",
168"H. c #B0B0AC",
169"I. c #EDE3DF",
170"J. c #E78468",
171"K. c #DF5D3A",
172"L. c #631909",
173"M. c #282828",
174"N. c #B46E5E",
175"O. c #FCC3B2",
176"P. c #F1A691",
177"Q. c #DCD2CC",
178"R. c #C8C6C3",
179"S. c #7E7C78",
180"T. c #E8AD9C",
181"U. c #E96139",
182"V. c #EB7452",
183"W. c #EF8E72",
184"X. c #EA8063",
185"Y. c #9E2E13",
186"Z. c #3F1811",
187"`. c #121212",
188" + c #6B433B",
189".+ c #E0A191",
190"++ c #FDD3C7",
191"@+ c #F4AD98",
192"#+ c #DE532B",
193"$+ c #C83409",
194"%+ c #B48274",
195"&+ c #383534",
196"*+ c #D6340A",
197"=+ c #E43D0F",
198"-+ c #E8582E",
199";+ c #ED7957",
200">+ c #F4B6A4",
201",+ c #F4B09D",
202"'+ c #F0E5E0",
203")+ c #F4F3EF",
204"!+ c #FDF8F6",
205"~+ c #FBCEC1",
206"{+ c #F28B6E",
207"]+ c #E44E23",
208"^+ c #D3370A",
209"/+ c #BF2F09",
210"(+ c #260800",
211"_+ c #190F0B",
212":+ c #D5350A",
213"<+ c #E43D0C",
214"[+ c #E74C1F",
215"}+ c #EFBBAB",
216"|+ c #F5F4F3",
217"1+ c #F5F3F1",
218"2+ c #EAB1A0",
219"3+ c #DE4316",
220"4+ c #C5310A",
221"5+ c #591202",
222"6+ c #0E0504",
223"7+ c #C83009",
224"8+ c #E0532B",
225"9+ c #E7E6E3",
226"0+ c #E7E6E2",
227"a+ c #DDDCD9",
228"b+ c #CFCECA",
229"c+ c #C14724",
230"d+ c #AE2907",
231"e+ c #290800",
232"f+ c #0F0705",
233"g+ c #9B2205",
234"h+ c #C1A89F",
235"i+ c #D1D0CC",
236"j+ c #CFCDCA",
237"k+ c #C7C6C3",
238"l+ c #BBBAB7",
239"m+ c #B5B4B1",
240"n+ c #A7A6A2",
241"o+ c #66564F",
242"p+ c #0B0908",
243"q+ c #010100",
244"r+ c #222221",
245"s+ c #51504B",
246"t+ c #5D5C57",
247"u+ c #3B3B37",
248" . . + @ # # $ % ",
249" . . . . & # * = - ; > , ' ) ! ~ . . . . ",
250". . { ] ^ / ( _ : > < [ } | . 1 . . ",
251" . 2 3 4 5 6 - 7 8 9 0 0 a b c d e . ",
252" . f g h i j k l m n o } p a q r s t u . . ",
253" v w x y z A B C D E F G H I J K L M . N ",
254" O P Q R S T U . . . . V W X Y Z K ` .. ",
255" ..+.@.#.$.%.. . . &.*.=.-.;.>.! . ",
256",.'.).!.~.{.. . . ].^./.(.n _.. ",
257"@ :.<.[.}.|.. 1.2.3.4.5.6.. ",
258"# 7.6 8.9.0.. a.b.c.d.e.f.. ",
259"# > < g.h.i.. j.k.l.m.n.o.. ",
260"p., q.r.s.t.u. v.w.9 x.y.. . ",
261"z.' [ 7 A.[.B.. C.D.E.F.G.H.. . ",
262" ) } 0 I.J.K.L.. M.N.O.P.Q.R.S.. . ",
263" ! | T.U.V.W.X.Y.Z.a.`. +.+++@+#+$+%+. . ",
264" &+. *+=+-+;+>+,+'+)+k.!+~+{+]+^+/+(+. . ",
265" . _+d :+L <+[+}+|+l.1+|+2+3+^+4+5+. . . ",
266" . 6+t 7+` 8+9+0+o a+[.b+c+d+e+. . . ",
267" . f+. g+h+i+j+k+l+m+n+o+. . . . ",
268" . . . p+. q+r+s+t+u+. . . . . . . ",
269" . . . . . . . . . . . . ",
270" ",
271" "};
diff --git a/lisp/toolbar/home.pbm b/lisp/toolbar/home.pbm
deleted file mode 100644
index 5be84460652..00000000000
--- a/lisp/toolbar/home.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/home.xpm b/lisp/toolbar/home.xpm
deleted file mode 100644
index 57e8f9cc25a..00000000000
--- a/lisp/toolbar/home.xpm
+++ /dev/null
@@ -1,128 +0,0 @@
1/* XPM */
2static char * home_xpm[] = {
3"24 24 101 2",
4" c None",
5". c #000000",
6"+ c #212121",
7"@ c #2C2C2C",
8"# c #C1665A",
9"$ c #924B37",
10"% c #2A2A2A",
11"& c #333333",
12"* c #343434",
13"= c #242424",
14"- c #944D3A",
15"; c #A05443",
16"> c #181818",
17", c #474747",
18"' c #555555",
19") c #8D8D8D",
20"! c #383838",
21"~ c #191919",
22"{ c #974F3C",
23"] c #222222",
24"^ c #313131",
25"/ c #A1A1A1",
26"( c #676767",
27"_ c #ACACAC",
28": c #BCBCBC",
29"< c #585858",
30"[ c #141414",
31"} c #1C1C1C",
32"| c #464646",
33"1 c #666666",
34"2 c #BABABA",
35"3 c #7E7E7E",
36"4 c #D2D2D2",
37"5 c #FFFFFF",
38"6 c #4F4F4F",
39"7 c #262626",
40"8 c #232323",
41"9 c #505050",
42"0 c #B2B2B2",
43"a c #909090",
44"b c #9A9A9A",
45"c c #838383",
46"d c #171717",
47"e c #202020",
48"f c #717171",
49"g c #A6A6A6",
50"h c #616161",
51"i c #1D1D1D",
52"j c #1F1F1F",
53"k c #C4C4C4",
54"l c #CACACA",
55"m c #AEAEAE",
56"n c #D1D1D1",
57"o c #7C7C7C",
58"p c #BFBFBF",
59"q c #6C6C6C",
60"r c #EEEEEE",
61"s c #949494",
62"t c #C7C7C7",
63"u c #EBEBEB",
64"v c #7D7D7D",
65"w c #6E6E6E",
66"x c #A9A9A9",
67"y c #E99E8F",
68"z c #DD806D",
69"A c #9B5343",
70"B c #CECECE",
71"C c #626262",
72"D c #858585",
73"E c #ECA292",
74"F c #D0533A",
75"G c #934F3E",
76"H c #6D6D6D",
77"I c #ECA291",
78"J c #CF543C",
79"K c #371D16",
80"L c #5D5D5D",
81"M c #868686",
82"N c #787878",
83"O c #ECA696",
84"P c #C95C49",
85"Q c #E17C66",
86"R c #924E3D",
87"S c #888888",
88"T c #A0A0A0",
89"U c #3D1208",
90"V c #D15137",
91"W c #919191",
92"X c #879981",
93"Y c #82947C",
94"Z c #8A9B85",
95"` c #6E8467",
96" . c #5D7555",
97".. c #4C6042",
98"+. c #3F4F37",
99"@. c #303D2A",
100"#. c #7F8F7A",
101"$. c #64785E",
102"%. c #44563E",
103"&. c #657460",
104"*. c #40503A",
105" ",
106" . . ",
107" . . . . . + @ . ",
108" . # $ . . % & * = . ",
109" . - ; . > , ' ) ! ~ . ",
110" . { . ] ^ / ( _ : < [ . ",
111" . . } | 1 2 3 4 : 5 6 7 . ",
112" . 8 9 0 a 4 b 5 : 5 : c d . ",
113" . e f g 4 b 5 : 5 : 5 : 5 h i . ",
114" . j k k l 5 m 5 2 5 2 5 : 5 n o } . ",
115" . 8 m p p p p p p p p . . . . . a q = . ",
116" . . . . r 5 5 5 5 5 5 5 . s t u . v . . . . ",
117" . 4 5 . . . . . 5 . : 5 5 . w . ",
118" . x 5 . y z A . 5 . B 5 5 . C . ",
119" . D 5 . E F G . 5 . . . . . H . ",
120" . . 5 . I J K . k s L L M N . . ",
121" . . r . O P G . 5 5 5 5 5 2 . ",
122" . 2 . Q # R . : : : : : S . ",
123" . T U V # A . 5 5 5 5 5 W . ",
124" . . . . . . . . . . . . . . . . . . . . . ",
125" } X Y Z X ` ...+.@.. Y #.$.%.&.*.. ",
126" . . . . . . . . . . . . . . . . . ",
127" . . . ",
128" "};
diff --git a/lisp/toolbar/index.pbm b/lisp/toolbar/index.pbm
deleted file mode 100644
index d8aa08a7e53..00000000000
--- a/lisp/toolbar/index.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/index.xpm b/lisp/toolbar/index.xpm
deleted file mode 100644
index 7e1de12121b..00000000000
--- a/lisp/toolbar/index.xpm
+++ /dev/null
@@ -1,201 +0,0 @@
1/* XPM */
2static char * index_xpm[] = {
3"24 24 174 2",
4" c None",
5". c #000000",
6"+ c #FDFDFD",
7"@ c #F5F5F5",
8"# c #F6F6F6",
9"$ c #D0D0D0",
10"% c #C1C1C1",
11"& c #C3C3C3",
12"* c #C6C6C6",
13"= c #C8C8C8",
14"- c #8D8D8D",
15"; c #CACACA",
16"> c #919191",
17", c #EFEFEF",
18"' c #878787",
19") c #8A8A8A",
20"! c #5C5C5C",
21"~ c #F8F8F8",
22"{ c #EAEAEA",
23"] c #CCCCCC",
24"^ c #CECECE",
25"/ c #979797",
26"( c #CDCDCD",
27"_ c #A1A1A1",
28": c #090600",
29"< c #A3A3A3",
30"[ c #C5C5C5",
31"} c #C4C4C4",
32"| c #D1D1D1",
33"1 c #D2D2D1",
34"2 c #D2D2D2",
35"3 c #9A9A9A",
36"4 c #E8E8E8",
37"5 c #949494",
38"6 c #939393",
39"7 c #574F4F",
40"8 c #FDFDFC",
41"9 c #777777",
42"0 c #7E7E7E",
43"a c #9D9D9D",
44"b c #6B6B6B",
45"c c #F1F1F1",
46"d c #ECECEC",
47"e c #CFCFCF",
48"f c #575050",
49"g c #FDFAF8",
50"h c #A5A5A5",
51"i c #B9B9B9",
52"j c #EEEEEE",
53"k c #EDEDED",
54"l c #D5D5D5",
55"m c #BABABA",
56"n c #6D6767",
57"o c #F9F1EA",
58"p c #9E9E9E",
59"q c #B5B5B5",
60"r c #D9D9D9",
61"s c #D7D7D7",
62"t c #BCBCBC",
63"u c #625C5B",
64"v c #F9EEE4",
65"w c #4F4D4A",
66"x c #646464",
67"y c #747474",
68"z c #D6D6D5",
69"A c #DFDFDF",
70"B c #A0A0A0",
71"C c #615C5B",
72"D c #F9F0E4",
73"E c #746C67",
74"F c #FEFDFC",
75"G c #FFFEFD",
76"H c #131210",
77"I c #636363",
78"J c #7C7C7C",
79"K c #F3F2F2",
80"L c #98948F",
81"M c #F9EFE3",
82"N c #A09489",
83"O c #FEFDFD",
84"P c #766D68",
85"Q c #736961",
86"R c #A3A3A2",
87"S c #A6A6A6",
88"T c #DBDBDB",
89"U c #C7C7C7",
90"V c #E8E5E2",
91"W c #97938E",
92"X c #F6E9D8",
93"Y c #84817A",
94"Z c #FBF3EA",
95"` c #908C86",
96" . c #F1EDE7",
97".. c #7B7975",
98"+. c #878786",
99"@. c #070000",
100"#. c #FAFAFA",
101"$. c #DDDDDD",
102"%. c #E2DFDC",
103"&. c #A8A199",
104"*. c #F0E0CE",
105"=. c #C8BFB4",
106"-. c #D5CCBF",
107";. c #DFD7CD",
108">. c #DAD3C9",
109",. c #DDCFC4",
110"'. c #928C84",
111"). c #A8A8A8",
112"!. c #959595",
113"~. c #040000",
114"{. c #D9D5D2",
115"]. c #D9CABB",
116"^. c #D7C8B8",
117"/. c #DECFBF",
118"(. c #D8C9B9",
119"_. c #E3D3C2",
120":. c #C9BBAC",
121"<. c #D9CEC2",
122"[. c #7F766D",
123"}. c #909090",
124"|. c #D3D3D3",
125"1. c #060100",
126"2. c #C0BDBA",
127"3. c #8C8782",
128"4. c #C2B5A7",
129"5. c #BFB4A6",
130"6. c #B8AB9D",
131"7. c #BAAD9E",
132"8. c #BEB0A2",
133"9. c #948A7F",
134"0. c #716860",
135"a. c #E2E2E2",
136"b. c #A9A9A8",
137"c. c #332C2B",
138"d. c #5D5954",
139"e. c #79736C",
140"f. c #958C80",
141"g. c #8D8379",
142"h. c #988D82",
143"i. c #706760",
144"j. c #787878",
145"k. c #E4E4E4",
146"l. c #C2C2C2",
147"m. c #201A1A",
148"n. c #57514F",
149"o. c #625C59",
150"p. c #625A53",
151"q. c #6B625A",
152"r. c #585251",
153"s. c #696764",
154"t. c #080000",
155"u. c #989898",
156"v. c #B0B0B0",
157"w. c #AFAFAF",
158"x. c #999999",
159"y. c #9D9897",
160"z. c #050000",
161"A. c #0C0303",
162"B. c #080100",
163"C. c #030000",
164"D. c #282523",
165"E. c #5A5A5A",
166"F. c #868686",
167"G. c #ECE4E2",
168"H. c #DED7D5",
169"I. c #D8D1D0",
170"J. c #E0DBD7",
171"K. c #E9E6E3",
172"L. c #FCFBFA",
173"M. c #030500",
174"N. c #0B0505",
175"O. c #14100F",
176"P. c #090806",
177"Q. c #000100",
178" ",
179" . . . . . . . . . . . . . . . . . . . . ",
180" . + @ @ @ @ @ @ @ # # # # # # # # # $ . ",
181" . @ % % % & & & & * * * * * = = = = - . ",
182" . # & & & * * * * = = = = = ; ; ; ; > . ",
183" . , ' ' ' ) ) ) ) - - - - - > > > > ! . ",
184" . ~ { { { { { { { { { { { { { { { { ; . ",
185" . # ; ; ; ] ] ] ] ] ^ ^ ^ ^ $ $ $ $ / . ",
186" . # ] ] ] ( ^ ^ ^ _ : < [ } | 1 | 2 3 . ",
187" . 4 5 5 5 / / / 6 7 8 . 9 0 - a a a b . ",
188" . ~ c d d d d d e f g . h i $ j j k * . ",
189" . ~ 2 2 2 2 l l m n o . > p q r r r < . ",
190" . ~ l l l l s s t u v w . x . y p z < . ",
191" . A B B B B < 9 . C D E F . G H . I J . ",
192" . ~ @ , , , j . K L M N O P F Q R . S . ",
193" . ~ T T T T U . V W X Y Z ` ...+.@.< . ",
194" . #.$.$.$.$.& . %.&.*.=.-.;.>.,.'.@.p . ",
195" . { ).).).).!.~.{.].^./.(._.:.<.[.@.}.. ",
196" . #.@ c c c |.1.2.3.4.5.6.7.8.9.0.@.] . ",
197" . #.a.a.a.a.l b.c.d.e.f.g.9.h.i.. j.q . ",
198" . #.a.a.a.a.k.l.j.m.n.o.p.q.r.s.t.u.q . ",
199" . a.v.v.v.v.v.w.x.y.z.A.t.B.C.D.E.F.m . ",
200" . . . . . . . . . ~.G.H.I.J.K.L.M.. . . ",
201" ~.N.z.O.C.P.. Q. "};
diff --git a/lisp/toolbar/info.pbm b/lisp/toolbar/info.pbm
deleted file mode 100644
index 68bae42965b..00000000000
--- a/lisp/toolbar/info.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/info.xpm b/lisp/toolbar/info.xpm
deleted file mode 100644
index bca0bf8e4fc..00000000000
--- a/lisp/toolbar/info.xpm
+++ /dev/null
@@ -1,36 +0,0 @@
1/* XPM */
2static char *magick[] = {
3/* columns rows colors chars-per-pixel */
4"24 24 6 1",
5" c Gray0",
6". c #65658b8b5e5e",
7"X c #934ab2448dfb",
8"o c #b35dc8c8afaf",
9"O c #e0b2e944df83",
10"+ c None",
11/* pixels */
12"++++++++++++++++++++++++",
13"++++++++++++++++++++++++",
14"++++++++++++++++++++++++",
15"++++++++++++++++++++++++",
16"+++++++++ ++++++++++",
17"++++++++ oOOOO +++++++++",
18"+++++++ OOOOOOO ++++++++",
19"++++++ oOo oOo +++++++",
20"+++++++ O +++ OO +++++++",
21"+++++++O ++++ Oo +++++++",
22"++++++++++++ OO. +++++++",
23"+++++++++++ OOX ++++++++",
24"++++++++++ OOX +++++++++",
25"+++++++++ XOX ++++++++++",
26"+++++++++ OX +++++++++++",
27"+++++++++ +++++++++++",
28"++++++++++++++++++++++++",
29"++++++++++ ++++++++++++",
30"+++++++++ Oo +++++++++++",
31"+++++++++ oX +++++++++++",
32"++++++++++ ++++++++++++",
33"++++++++++++++++++++++++",
34"++++++++++++++++++++++++",
35"++++++++++++++++++++++++"
36};
diff --git a/lisp/toolbar/jump_to.pbm b/lisp/toolbar/jump_to.pbm
deleted file mode 100644
index 5f5921baf57..00000000000
--- a/lisp/toolbar/jump_to.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/jump_to.xpm b/lisp/toolbar/jump_to.xpm
deleted file mode 100644
index 8f9897974ab..00000000000
--- a/lisp/toolbar/jump_to.xpm
+++ /dev/null
@@ -1,171 +0,0 @@
1/* XPM */
2static char * jump_to_xpm[] = {
3"24 24 144 2",
4" c None",
5". c #000000",
6"+ c #9ABC82",
7"@ c #C1E3AA",
8"# c #A0C487",
9"$ c #8F6508",
10"% c #AD671D",
11"& c #D6AF41",
12"* c #E1B744",
13"= c #B86F20",
14"- c #7E5907",
15"; c #D8E7CD",
16"> c #D9E7CF",
17", c #DDEAD2",
18"' c #E4EFDA",
19") c #EBF6DF",
20"! c #C8EBB0",
21"~ c #A2C688",
22"{ c #986F26",
23"] c #E2B946",
24"^ c #EFCD64",
25"/ c #F4D268",
26"( c #F6D469",
27"_ c #E7C24A",
28": c #D5B044",
29"< c #BC8C31",
30"[ c #1A0700",
31"} c #D7E6CD",
32"| c #B2D29C",
33"1 c #B6D69F",
34"2 c #BDDEA5",
35"3 c #C4E7AC",
36"4 c #CAEEB1",
37"5 c #A1C387",
38"6 c #CBB86E",
39"7 c #EDD97E",
40"8 c #FEE882",
41"9 c #FEE77E",
42"0 c #FDDF60",
43"a c #FBD14F",
44"b c #E4BF49",
45"c c #BB8C31",
46"d c #CFE2C3",
47"e c #B2D19C",
48"f c #B5D59F",
49"g c #BBDBA4",
50"h c #C1E3A9",
51"i c #C6E9AE",
52"j c #C3E6AB",
53"k c #A9CE8D",
54"l c #DCBA5C",
55"m c #FBE46B",
56"n c #FFEB64",
57"o c #FFE054",
58"p c #FED952",
59"q c #F8CF4E",
60"r c #C4A13E",
61"s c #8BA27B",
62"t c #618249",
63"u c #628349",
64"v c #64864B",
65"w c #66894D",
66"x c #688B4E",
67"y c #678B4D",
68"z c #6B9251",
69"A c #719755",
70"B c #55833A",
71"C c #ECC75E",
72"D c #FFED59",
73"E c #FFE757",
74"F c #FFDF54",
75"G c #FBD44F",
76"H c #E1BD48",
77"I c #B36C1F",
78"J c #608148",
79"K c #628449",
80"L c #63854A",
81"M c #65894C",
82"N c #6C9151",
83"O c #527E39",
84"P c #B39237",
85"Q c #F0C248",
86"R c #FFF25B",
87"S c #FFEB58",
88"T c #FFE155",
89"U c #FBD450",
90"V c #E3BD49",
91"W c #BC983B",
92"X c #618349",
93"Y c #628549",
94"Z c #65884B",
95"` c #4D7735",
96" . c #907934",
97".. c #DCB444",
98"+. c #FCDB52",
99"@. c #FFEF5A",
100"#. c #FFE957",
101"$. c #FEDF54",
102"%. c #F9D24F",
103"&. c #E0BA48",
104"*. c #B08F37",
105"=. c #52743B",
106"-. c #456A2F",
107";. c #608248",
108">. c #628448",
109",. c #476F31",
110"'. c #7F6B32",
111"). c #D0AF4B",
112"!. c #F5CF4E",
113"~. c #FFE255",
114"{. c #FEDA52",
115"]. c #EAC54B",
116"^. c #D0AC42",
117"/. c #9C5D1A",
118"(. c #5A7B42",
119"_. c #456C2F",
120":. c #6F5C23",
121"<. c #A78833",
122"[. c #F0C54A",
123"}. c #FFDA52",
124"|. c #FFDE53",
125"1. c #C39032",
126"2. c #886423",
127"3. c #BC9D3B",
128"4. c #F0C84E",
129"5. c #FFD551",
130"6. c #FED751",
131"7. c #FDD550",
132"8. c #EDC74C",
133"9. c #E5BF49",
134"0. c #CCA941",
135"a. c #AB7727",
136"b. c #B1822D",
137"c. c #DCB746",
138"d. c #DFBA47",
139"e. c #EDC64C",
140"f. c #E9C34B",
141"g. c #D6B144",
142"h. c #C19D3D",
143"i. c #AB7C2B",
144"j. c #BC7222",
145"k. c #BB983B",
146"l. c #B09638",
147"m. c #A2621B",
148" ",
149" ",
150" . ",
151" . . ",
152" . + . . . . . . . ",
153" . . . . . . @ # . . $ % & * = - . . ",
154" . ; > , ' ) ! ! ~ . { ] ^ / ( _ : < [ . ",
155" . } | 1 2 3 4 4 3 5 . 6 7 8 9 0 a b c . ",
156" . d e f g h i i h j k . l m n o p q r - . ",
157" . s t u v w x x y z A B . C D E F G H I . ",
158" . s J t K L v v M N O . P Q R S T U V W . ",
159" . s J J t X u Y Z ` . ...+.@.#.$.%.&.*.. ",
160" . =.-.-.-.-.;.>.,.. '.).!.E E ~.{.].^./.. ",
161" . . . . . . (._.. :.<.[.}.|.|.{.%.V 1.$ . ",
162" . -.. . 2.3.4.5.6.7.8.9.0.a.. ",
163" . . . . b.c.d.e.f.g.h.i.. . ",
164" . . $ j.k.l.m.$ . . ",
165" . . . . . . ",
166" ",
167" ",
168" ",
169" ",
170" ",
171" "};
diff --git a/lisp/toolbar/lc-back_arrow.xpm b/lisp/toolbar/lc-back_arrow.xpm
deleted file mode 100644
index 05a797c7a65..00000000000
--- a/lisp/toolbar/lc-back_arrow.xpm
+++ /dev/null
@@ -1,33 +0,0 @@
1/* XPM */
2static char *back_arrow_xpm[] = {
3"24 24 6 1",
4" c #000000",
5". c #000100",
6"X c #6B6B66",
7"o c #87AF85",
8"O c #FFFFFF",
9"+ c None",
10"++++++++++++++++++++++++",
11"++++++++++++++++++++++++",
12"++++++++++++++++++++++++",
13"++++++++++ +++++++++++++",
14"+++++++++ .+++++++++++++",
15"++++++++ O.+++++++++++++",
16"+++++++ Oo . ++++++++++",
17"++++++ Ooooooo +++++++++",
18"+++++ Ooooooooo ++++++++",
19"++++ ooooooooooo.+++++++",
20"+++++ oooooooooo..++++++",
21"++++++.oooooooooo.++++++",
22"+++++++.oo.. oooo.++++++",
23"++++++++.o.+ ooo.++++++",
24"+++++++++..++..oo.++++++",
25"++++++++++.+++.oo.++++++",
26"++++++++++++++.oo.++++++",
27"++++++++++++++.o.+++++++",
28"+++++++++++++.oX.+++++++",
29"++++++++++++.oo.++++++++",
30"+++++++++++++..+++++++++",
31"++++++++++++++++++++++++",
32"++++++++++++++++++++++++",
33"++++++++++++++++++++++++"};
diff --git a/lisp/toolbar/lc-copy.xpm b/lisp/toolbar/lc-copy.xpm
deleted file mode 100644
index f50fb51baf5..00000000000
--- a/lisp/toolbar/lc-copy.xpm
+++ /dev/null
@@ -1,33 +0,0 @@
1/* XPM */
2static char * copy2_xpm[] = {
3"24 24 6 1",
4" c None",
5". c #FFFFFF",
6"+ c #000100",
7"@ c #6B6B66",
8"# c #BBBDBA",
9"$ c #504D46",
10" ",
11" +++++++++++++ ",
12" +#..........#+ ",
13" +............+ ",
14" +.#@@@.#@.@#.+ ",
15" +............+ ",
16" +.@$.@@#.++++++++++++ ",
17" +.......+#..........#+ ",
18" +.#@@.@@+............+ ",
19" +.......+.#@@#.#@.@#.+ ",
20" +.@$$.@@+............+ ",
21" +.......+.@@.@@#.#@..+ ",
22" +.#@@.@@+............+ ",
23" +.......+.#@@.@@#.#@.+ ",
24" +#......+............+ ",
25" ++++++++.@@@.@@#.#@.+ ",
26" +............+ ",
27" +.#@@.@@#.#@.+ ",
28" +............+ ",
29" +#..........#+ ",
30" ++++++++++++++ ",
31" ",
32" ",
33" "};
diff --git a/lisp/toolbar/lc-cut.xpm b/lisp/toolbar/lc-cut.xpm
deleted file mode 100644
index 750ec729f60..00000000000
--- a/lisp/toolbar/lc-cut.xpm
+++ /dev/null
@@ -1,34 +0,0 @@
1/* XPM */
2static char * cut2_xpm[] = {
3"24 24 7 1",
4" c None",
5". c #000100",
6"+ c #BBBDBA",
7"@ c #FFFFFF",
8"# c #6B6B66",
9"$ c #504D46",
10"% c #3E4850",
11" ",
12" ",
13" . . ",
14" . . ",
15" .+. .@. ",
16" .@$ #@. ",
17" .@#. .@+. ",
18" .@+$ #@+. ",
19" #@#. .@+$ ",
20" .@+$ $@+. ",
21" #@#.%@+# ",
22" .@+$#++. ",
23" .@+$+. ",
24" .++.. ",
25" ..#$. ",
26" ............. ",
27" . ... ... ... ",
28" .. .. .. .. ",
29" . . . . ",
30" .. .. .. .. ",
31" .... .. . ",
32" .... .... ",
33" ",
34" "};
diff --git a/lisp/toolbar/lc-fwd_arrow.xpm b/lisp/toolbar/lc-fwd_arrow.xpm
deleted file mode 100644
index 284b8c9bee7..00000000000
--- a/lisp/toolbar/lc-fwd_arrow.xpm
+++ /dev/null
@@ -1,32 +0,0 @@
1/* XPM */
2static char *fwd_arrow_xpm[] = {
3"24 24 5 1",
4" c #000000",
5". c #000100",
6"X c #87AF85",
7"o c #FFFFFF",
8"O c None",
9"OOOOOOOOOOOOOOOOOOOOOOOO",
10"OOOOOOOOOOOOOOOOOOOOOOOO",
11"OOOOOOOOOOOOOOOOOOOOOOOO",
12"OOOOOOOOOOOOO OOOOOOOOOO",
13"OOOOOOOOOOOOO OOOOOOOOO",
14"OOOOOOOOOOOOO X OOOOOOOO",
15"OOOOOOOOOO . XX.OOOOOOO",
16"OOOOOOOOO oXXXXXX.OOOOOO",
17"OOOOOOOO.oXXXXXXXX.OOOOO",
18"OOOOOOO.oXXXXXXXXXX.OOOO",
19"OOOOOO..XXXXXXXXXX.OOOOO",
20"OOOOOO.XXXXXXXXXX.OOOOOO",
21"OOOOOO.XXXX. XX.OOOOOOO",
22"OOOOOO.XXX..O X OOOOOOOO",
23"OOOOOO.XX..OO. OOOOOOOOO",
24"OOOOOO.XX.OOO.OOOOOOOOOO",
25"OOOOOO.XX.OOOOOOOOOOOOOO",
26"OOOOOOO.X.OOOOOOOOOOOOOO",
27"OOOOOOO.XX.OOOOOOOOOOOOO",
28"OOOOOOOO.XX.OOOOOOOOOOOO",
29"OOOOOOOOO..OOOOOOOOOOOOO",
30"OOOOOOOOOOOOOOOOOOOOOOOO",
31"OOOOOOOOOOOOOOOOOOOOOOOO",
32"OOOOOOOOOOOOOOOOOOOOOOOO"};
diff --git a/lisp/toolbar/lc-help.xpm b/lisp/toolbar/lc-help.xpm
deleted file mode 100644
index 663460c3a06..00000000000
--- a/lisp/toolbar/lc-help.xpm
+++ /dev/null
@@ -1,39 +0,0 @@
1/* XPM */
2static char * help2_xpm[] = {
3"24 24 12 1",
4" c None",
5". c #000100",
6"+ c #FFFFFF",
7"@ c #BBBDBA",
8"# c #C43107",
9"$ c #EBA291",
10"% c #D15237",
11"& c #504D46",
12"* c #751805",
13"= c #6B6B66",
14"- c #974F3D",
15"; c #3E4850",
16" .. &....& ",
17" ....&.;@++++@..&.... ",
18".. &.+++++++++@.. .. ",
19" . .%$+++++++++@#*. . ",
20" ..%$$%+@@@++++###*... ",
21" -.$$%%$@@@@@+$####.. ",
22" .$$$%#*.....=#%####. ",
23" =+$%#*.. .*#$##$.. ",
24"&++@%#.. .*$$+@.. ",
25".++@@-. *$++@&. ",
26".++@@@. .+++@=. ",
27".++@@@. .++@@&. ",
28".+++@@. =++@@.. ",
29"&@++@@-. .$++@@.. ",
30" .+++$%*. .-$$@@=.. ",
31" .@$%%$%*...&$$$%#$.. ",
32" &.###%$$++++$$###... ",
33" ..*####$++++$###*... ",
34" . .*###+++@@@%#... . ",
35" . ..#@@@@@@@&... . ",
36" .......&&&..... .. ",
37" ........ .... ",
38" ",
39" "};
diff --git a/lisp/toolbar/lc-home.xpm b/lisp/toolbar/lc-home.xpm
deleted file mode 100644
index c7a7ecfb634..00000000000
--- a/lisp/toolbar/lc-home.xpm
+++ /dev/null
@@ -1,38 +0,0 @@
1/* XPM */
2static char * home2_xpm[] = {
3"24 24 11 1",
4" c None",
5". c #000100",
6"+ c #BBBDBA",
7"@ c #FFFFFF",
8"# c #6B6B66",
9"$ c #504D46",
10"% c #974F3D",
11"& c #EBA291",
12"* c #87AF85",
13"= c #3E4850",
14"- c #D15237",
15" ",
16" .. ",
17" .... ..=. ",
18" .%%..===.. ",
19" .%%..$$#$.. ",
20" .%..=+#++$.. ",
21" ...$#+#++@$.. ",
22" ..$+#++@+@+#.. ",
23" ..#+++@+@+@+@#.. ",
24" ..+++@+@+@+@+@+#.. ",
25" ..+++++++++.....##.. ",
26" ....@@@@@@@@.++@.#.... ",
27" .+@.....@.+@@.#. ",
28" .+@.&&%.@.+@@.#. ",
29" .#@.&-%.@.....#. ",
30" ..@.&-..++####.. ",
31" ..@.&-%.@@@@@+. ",
32" .+.&%%.+++++#. ",
33" .+.-%%.@@@@@#. ",
34" .................... . ",
35" .****##$$$.**#$#$. ",
36" .. ......... ...... ",
37" ... ",
38" "};
diff --git a/lisp/toolbar/lc-index.xpm b/lisp/toolbar/lc-index.xpm
deleted file mode 100644
index 7a2464f032b..00000000000
--- a/lisp/toolbar/lc-index.xpm
+++ /dev/null
@@ -1,34 +0,0 @@
1/* XPM */
2static char * index2_xpm[] = {
3"24 24 7 1",
4" c None",
5". c #BBBDBA",
6"+ c #000100",
7"@ c #FFFFFF",
8"# c #6B6B66",
9"$ c #504D46",
10"% c #3E4850",
11" ",
12" ++++++++++++++++++++ ",
13" +@@@@@@@@@@@@@@@@@.+ ",
14" +@................#+ ",
15" +@................#+ ",
16" +@#################+ ",
17" +@@@@@@@@@@@@@@@@@.+ ",
18" +@.................+ ",
19" +@........+........+ ",
20" +@.......$@+###...#+ ",
21" +@@@@@@@.$@+...@@@.+ ",
22" +@.......#@+#......+ ",
23" +@.......#@$+#+#...+ ",
24" +@.....#+#@#@+@++##+ ",
25" +@@@@@@+@.@.@#@#.+.+ ",
26" +@.....+@.@#@#@##+.+ ",
27" +@.....+@.@.....#+.+ ",
28" +@.....+........#+#+ ",
29" +@@@@@.+.#.....##+.+ ",
30" +@@@@@..%$######+#.+ ",
31" +@@@@@@.#+$#$#$#+..+ ",
32" +@........++++++$#.+ ",
33" ++++++++++@...@@++++ ",
34" ++++++++ "};
diff --git a/lisp/toolbar/lc-jump_to.xpm b/lisp/toolbar/lc-jump_to.xpm
deleted file mode 100644
index cd7499396c7..00000000000
--- a/lisp/toolbar/lc-jump_to.xpm
+++ /dev/null
@@ -1,35 +0,0 @@
1/* XPM */
2static char * jump_to2_xpm[] = {
3"24 24 8 1",
4" c None",
5". c #D3B354",
6"+ c #000100",
7"@ c #87AF85",
8"# c #974F3D",
9"$ c #FFFFFF",
10"% c #D15237",
11"& c #BBBDBA",
12" ",
13" ",
14" + ",
15" ++ ",
16" +@+ ++++++ ",
17" ++++++@@+ +.#..%#++ ",
18" +$$$$$@@@+........++ ",
19" +&@@@@@@@@+........+ ",
20" +&@@@@@@@@@+.......#+ ",
21" +@@@@@@@@@@@+......%+ ",
22" +@@@@@@@@@@+........+ ",
23" +@@@@@@@@@+.........+ ",
24" +@@@@@@@@+#........#+ ",
25" ++++++@@+#..........+ ",
26" +@++#.........+ ",
27" ++ ++........++ ",
28" + +.%..#.++ ",
29" ++++++ ",
30" ",
31" ",
32" ",
33" ",
34" ",
35" "};
diff --git a/lisp/toolbar/lc-left_arrow.xpm b/lisp/toolbar/lc-left_arrow.xpm
deleted file mode 100644
index 61dded3a5aa..00000000000
--- a/lisp/toolbar/lc-left_arrow.xpm
+++ /dev/null
@@ -1,34 +0,0 @@
1/* XPM */
2static char * left_arrow2_xpm[] = {
3"24 24 7 1",
4" c None",
5". c #87AF85",
6"+ c #000100",
7"@ c #BBBDBA",
8"# c #504D46",
9"$ c #6B6B66",
10"% c #3E4850",
11" ",
12" ",
13" ",
14" + ",
15" ++ ",
16" +@+ ",
17" +@@+ ",
18" +@@@++++++++ ",
19" +@@@@@@@@@@.+ ",
20" +@.@@@@...@.$+ ",
21" %@.@@@..@@@@..+ ",
22" +@............$+ ",
23" +#...........#+ ",
24" +#..........#+ ",
25" +#..########+ ",
26" +#.#++++++++ ",
27" +##+ ",
28" +#+ ",
29" ++ ",
30" + ",
31" ",
32" ",
33" ",
34" "};
diff --git a/lisp/toolbar/lc-new.xpm b/lisp/toolbar/lc-new.xpm
deleted file mode 100644
index e2984bffd4f..00000000000
--- a/lisp/toolbar/lc-new.xpm
+++ /dev/null
@@ -1,33 +0,0 @@
1/* XPM */
2static char * new2_xpm[] = {
3"24 24 6 1",
4" c None",
5". c #FFFFFF",
6"+ c #BBBDBA",
7"@ c #000100",
8"# c #6B6B66",
9"$ c #504D46",
10" ",
11" @@@@@@@@@@@@@ ",
12" @+..........+$@ ",
13" @...........+++@ ",
14" @...........+..+@ ",
15" @...........+...#@ ",
16" @...........+...++@ ",
17" @...........+@@@@@@@ ",
18" @............++++##@ ",
19" @.............++++#@ ",
20" @...............++#@ ",
21" @................+#@ ",
22" @.................#@ ",
23" @.................+@ ",
24" @.................+@ ",
25" @...............+++@ ",
26" @..............++++@ ",
27" @.............+++++@ ",
28" @............++++++@ ",
29" @............++++++@ ",
30" @+...+.+.+.++++++++@ ",
31" @+++++++++++++++++#@ ",
32" @@@@@@@@@@@@@@@@@@ ",
33" "};
diff --git a/lisp/toolbar/lc-open.xpm b/lisp/toolbar/lc-open.xpm
deleted file mode 100644
index 0e074830bb6..00000000000
--- a/lisp/toolbar/lc-open.xpm
+++ /dev/null
@@ -1,35 +0,0 @@
1/* XPM */
2static char * open2_xpm[] = {
3"24 24 8 1",
4" c None",
5". c #BBBDBA",
6"+ c #000100",
7"@ c #87AF85",
8"# c #FFFFFF",
9"$ c #6B6B66",
10"% c #504D46",
11"& c #3E4850",
12" ",
13" ",
14" ",
15" +++++++ ",
16" +.#####$% ",
17" +#.....@% ",
18"+.#......%+ ",
19"+..@@@...$%++++++++ ",
20"+.@@@@@..@@........+ ",
21"+.@@@@@@@@@@@@@@@@$+ ",
22"+.$$++++++++++++++++++ ",
23"+.$%################..& ",
24"+.$+#.................+ ",
25"+.%.#...............@$+ ",
26"+.+#...............@@%+ ",
27"+.$#............@@.@$+ ",
28"+....@@@@@.....@@@@$%+ ",
29"+.#..@@@@@@@@@@@@$$$+ ",
30"+#.@@@@$$$$$$$$$$$$%+ ",
31" +++++++++++++++++++ ",
32" ",
33" ",
34" ",
35" "};
diff --git a/lisp/toolbar/lc-paste.xpm b/lisp/toolbar/lc-paste.xpm
deleted file mode 100644
index c728f0f038c..00000000000
--- a/lisp/toolbar/lc-paste.xpm
+++ /dev/null
@@ -1,35 +0,0 @@
1/* XPM */
2static char * paste2_xpm[] = {
3"24 24 8 1",
4" c None",
5". c #FFFFFF",
6"+ c #BBBDBA",
7"@ c #000100",
8"# c #6B6B66",
9"$ c #504D46",
10"% c #D3B354",
11"& c #974F3D",
12" @@@@ ",
13" @@@@@@+..#@@@@@@ ",
14"@.....$.++#$+...+@ ",
15"@.++++$.##+$#+++%@ ",
16"@.+++$..+++#$#++%@ ",
17"@.++$++++++#$$++%@ ",
18"@.++#$$$$$$$$#++%@ ",
19"@.+++########+++%@ ",
20"@.+++++#$@@@@@$$@@@@@ ",
21"@.+++++$+...........+@ ",
22"@.+++++$.............@ ",
23"@.+++++@.+##+..+#.#+.@ ",
24"@.+++++@.............@ ",
25"@.+++++$.##.###+.+#..@ ",
26"@.+++++$.............@ ",
27"@.+++++$.+##.###+.+#.@ ",
28"@.+++++@.............@ ",
29"@.+++++@.##.###+.+#..@ ",
30"@.+++++$.............@ ",
31"@.+++++$.+##.###+.+#.@ ",
32"@+%%%%&@.............@ ",
33" @@@@@@@+...........+@ ",
34" @@@@@@@@@@@@@ ",
35" "};
diff --git a/lisp/toolbar/lc-preferences.xpm b/lisp/toolbar/lc-preferences.xpm
deleted file mode 100644
index cebac821d6e..00000000000
--- a/lisp/toolbar/lc-preferences.xpm
+++ /dev/null
@@ -1,37 +0,0 @@
1/* XPM */
2static char * preferences2_xpm[] = {
3"24 24 10 1",
4" c None",
5". c #000100",
6"+ c #BBBDBA",
7"@ c #FFFFFF",
8"# c #7A98B0",
9"$ c #6B6B66",
10"% c #4D687C",
11"& c #B0CCE2",
12"* c #504D46",
13"= c #3E4850",
14" .. ",
15" .++$. ",
16" .+++. .. ",
17" .@+. .@$. ",
18" .. =@+. .@++. ",
19" .+ ..+@+$. .++. ",
20" .+++@@+++. .@.. ",
21" .+++++++$. .@. ",
22" .....@@+$..+. ",
23" .@@+.+. ",
24" .@.+.. ",
25" .+.$*. ",
26" ....+.$$$$. ",
27" .#&#.. .+++$. ",
28" .#&+&%. .@@+$. ",
29" .#@#%&%. .@@+$. ",
30" .#@#%&#%. .@@+$..",
31" .&@#%&#%. .+$*+.",
32" .#@#%&#%. .+++.",
33" .&@#&#%.. ... ",
34" .#&&#%.. ",
35" .##%.. ",
36" ... ",
37" "};
diff --git a/lisp/toolbar/lc-print.xpm b/lisp/toolbar/lc-print.xpm
deleted file mode 100644
index 8c67bb632f0..00000000000
--- a/lisp/toolbar/lc-print.xpm
+++ /dev/null
@@ -1,33 +0,0 @@
1/* XPM */
2static char * print2_xpm[] = {
3"24 24 6 1",
4" c None",
5". c #FFFFFF",
6"+ c #000100",
7"@ c #BBBDBA",
8"# c #6B6B66",
9"$ c #504D46",
10" ",
11" ++++++++++++ ",
12" +@..........@+ ",
13" +.........@@@+ ",
14" +.###.#@@...@+ ",
15" +...........@+ ",
16" +.##@.#@.@#.@+ ",
17" +...........@+ ",
18" +.@@.@.@@@..@+ ",
19" +....@......@+ ",
20" ++.###@##@#@@@++ ",
21" +.+@@@@@@@@@@@@+#+ ",
22" +..#$++++++++++##@@+ ",
23" +....................+ ",
24" +@#...............@@@+ ",
25" +@#.@@@@@@@@@@@@@@#@#+ ",
26" +@#...............$##+ ",
27" +@#$$$$$$$$$$$$$$$$##+ ",
28" +@@###$#$$$$$$$$$$###+ ",
29" +#@@#########$#######+ ",
30" ++++++++++++++++++++ ",
31" +#@@@@@@@@@@@@@@@##+ ",
32" ++++++++++++++++++ ",
33" "};
diff --git a/lisp/toolbar/lc-right_arrow.xpm b/lisp/toolbar/lc-right_arrow.xpm
deleted file mode 100644
index a74b70c74b3..00000000000
--- a/lisp/toolbar/lc-right_arrow.xpm
+++ /dev/null
@@ -1,33 +0,0 @@
1/* XPM */
2static char * right_arrow2_xpm[] = {
3"24 24 6 1",
4" c None",
5". c #87AF85",
6"+ c #000100",
7"@ c #BBBDBA",
8"# c #6B6B66",
9"$ c #504D46",
10" ",
11" ",
12" ",
13" + ",
14" ++ ",
15" +.+ ",
16" +..+ ",
17" ++++++++@..+ ",
18" +@@@@@@@@@..+ ",
19" +@@..........+ ",
20" +..........@..+ ",
21" +.............$+ ",
22" +............$+ ",
23" +...........$+ ",
24" +.######...$+ ",
25" ++++++++#.$+ ",
26" +#$+ ",
27" +$+ ",
28" ++ ",
29" + ",
30" ",
31" ",
32" ",
33" "};
diff --git a/lisp/toolbar/lc-save.xpm b/lisp/toolbar/lc-save.xpm
deleted file mode 100644
index fd3156abfbf..00000000000
--- a/lisp/toolbar/lc-save.xpm
+++ /dev/null
@@ -1,39 +0,0 @@
1/* XPM */
2static char * save2_xpm[] = {
3"24 24 12 1",
4" c None",
5". c #FFFFFF",
6"+ c #000100",
7"@ c #BBBDBA",
8"# c #7A98B0",
9"$ c #6B6B66",
10"% c #EBA291",
11"& c #3E4850",
12"* c #B0CCE2",
13"= c #4D687C",
14"- c #504D46",
15"; c #974F3D",
16" ",
17" +++++++++++++++++++ ",
18" +**$%%%%%%%%%%%%@$**+ ",
19" +*#$%%%%%%%%;;%;;$#=+ ",
20" +*#$%%%%%%;%;%;;;$#=+ ",
21" +*#$.............$#=+ ",
22" +*#$.............$#=+ ",
23" +*#$@@@@@@@@@@@@@$#=+ ",
24" +*#$.............$#=+ ",
25" +*#$.............$#=+ ",
26" +*#$@@@@@@@@@@@@@$#$+ ",
27" +*#$.............$#&+ ",
28" +*##$$$$$$$$$$$$$$#&+ ",
29" +*#################&+ ",
30" +*###&&&==$$$$&&&#*&+ ",
31" +*##&@@....@@@@$==*&+ ",
32" +*##&@.$--@@@@@&==*&+ ",
33" +*##&..$--@@@@@&==*&+ ",
34" +*##&..---@@@..&==*&+ ",
35" +###&@@---@@...&==*&+ ",
36" +==&@@@@@@..@@&==*&+ ",
37" ++++++++++++++++&+ ",
38" ",
39" "};
diff --git a/lisp/toolbar/lc-saveas.xpm b/lisp/toolbar/lc-saveas.xpm
deleted file mode 100644
index 11cc684c22d..00000000000
--- a/lisp/toolbar/lc-saveas.xpm
+++ /dev/null
@@ -1,40 +0,0 @@
1/* XPM */
2static char * saveas2_xpm[] = {
3"24 24 13 1",
4" c None",
5". c #000100",
6"+ c #BBBDBA",
7"@ c #7A98B0",
8"# c #FFFFFF",
9"$ c #6B6B66",
10"% c #3E4850",
11"& c #B0CCE2",
12"* c #4D687C",
13"= c #EBA291",
14"- c #504D46",
15"; c #D3B354",
16"> c #974F3D",
17" .. ",
18" .;;. ",
19" .............;;-... ",
20" .&&$========.;;-.%@@. ",
21" .&@$=======.;;-.>-@*. ",
22" .&@$======.;;-.>>%@*. ",
23" .&@$#####.;;-.++#$@*. ",
24" .&@$####.;;-.++##$@*. ",
25" .&@$+++.;;-.+++++$@*. ",
26" .&@$###.;-.++####$@*. ",
27" .&@$##.-..++#####$@*. ",
28" .&@$++..+++++++++$@$. ",
29" .&@$###++########$@%. ",
30" .&@@$$$$$$$$$$$$$$@%. ",
31" .&@@@@@@@@@@@@@@@@@%. ",
32" .&@@@%%%**$$$$%%%@&%. ",
33" .&@@%++####++++$**&%. ",
34" .&@@%+#$--+++++%**&%. ",
35" .&@@%##$--+++++%**&%. ",
36" .&@@%##---+++##%**&%. ",
37" .@@@%++---++###%**&%. ",
38" .**%++++++##++%**&%. ",
39" ................%. ",
40" "};
diff --git a/lisp/toolbar/lc-search.xpm b/lisp/toolbar/lc-search.xpm
deleted file mode 100644
index 478b63ff648..00000000000
--- a/lisp/toolbar/lc-search.xpm
+++ /dev/null
@@ -1,33 +0,0 @@
1/* XPM */
2static char * search2_xpm[] = {
3"24 24 6 1",
4" c None",
5". c #FFFFFF",
6"+ c #BBBDBA",
7"@ c #000100",
8"# c #6B6B66",
9"$ c #504D46",
10" ",
11" @@@@@@@@@@@@@ ",
12" @+..........+$@ ",
13" @...........+++@ ",
14" @...........+..+@ ",
15" @...........+...#@ ",
16" @...........+...++@ ",
17" @....+$@@$+.+@@@@@@@ ",
18" @...+$+++#$+.++++##@ ",
19" @...$+..++#$..++++#@ ",
20" @...@+.++++@+...++#@ ",
21" @...@++++++@++...+#@ ",
22" @...$#+++++$++....#@ ",
23" @...+$#+++@@++....+@ ",
24" @...+#$@@$#@@+....+@ ",
25" @....++++++@@@+++++@ ",
26" @....++++++#@@@++++@ ",
27" @.....++++++#@@@+++@ ",
28" @..........++#@@+++@ ",
29" @..........++++++++@ ",
30" @+...+.+.+.++++++++@ ",
31" @+++++++++++++#####@ ",
32" @@@@@@@@@@@@@@@@@@ ",
33" "};
diff --git a/lisp/toolbar/lc-spell.xpm b/lisp/toolbar/lc-spell.xpm
deleted file mode 100644
index ec952467cc5..00000000000
--- a/lisp/toolbar/lc-spell.xpm
+++ /dev/null
@@ -1,35 +0,0 @@
1/* XPM */
2static char * spell2_xpm[] = {
3"24 24 8 1",
4" c None",
5". c #000100",
6"+ c #87AF85",
7"@ c #504D46",
8"# c #BBBDBA",
9"$ c #6B6B66",
10"% c #3E4850",
11"& c #FFFFFF",
12" ",
13" ",
14" ",
15" ",
16" ... .... ... ",
17" .. . .. . .. . ",
18" .. . .... .. ",
19" ..... .. . .. ",
20" .. . .. . .. . . ",
21" .. . .... ... ... ",
22" .+. ",
23" .. .+@ ",
24" .+. .++. ",
25" @+. %#+. ",
26" .++. .#+$. ",
27" .++.&++. ",
28" .+++++$. ",
29" .++++. ",
30" .+++@. ",
31" .++. ",
32" .+@. ",
33" .. ",
34" ",
35" "};
diff --git a/lisp/toolbar/lc-undo.xpm b/lisp/toolbar/lc-undo.xpm
deleted file mode 100644
index 8172fb2c951..00000000000
--- a/lisp/toolbar/lc-undo.xpm
+++ /dev/null
@@ -1,32 +0,0 @@
1/* XPM */
2static char * undo2_xpm[] = {
3"24 24 5 1",
4" c None",
5". c #D3B354",
6"+ c #000100",
7"@ c #FFFFFF",
8"# c #6B6B66",
9" ",
10" ",
11" ",
12" + ",
13" ++ ",
14" +@+ ",
15" +@.++++ ",
16" +@......+ ",
17" +@........+ ",
18" +...........+ ",
19" +..........++ ",
20" +..........+ ",
21" +..+++....+ ",
22" +.+ ++...+ ",
23" ++ ++..+ ",
24" + +..+ ",
25" +..+ ",
26" +.+ ",
27" +.#+ ",
28" +..+ ",
29" ++ ",
30" ",
31" ",
32" "};
diff --git a/lisp/toolbar/lc-up_arrow.xpm b/lisp/toolbar/lc-up_arrow.xpm
deleted file mode 100644
index ed4b7526015..00000000000
--- a/lisp/toolbar/lc-up_arrow.xpm
+++ /dev/null
@@ -1,35 +0,0 @@
1/* XPM */
2static char * up_arrow2_xpm[] = {
3"24 24 8 1",
4" c None",
5". c #87AF85",
6"+ c #000100",
7"@ c #504D46",
8"# c #6B6B66",
9"$ c #BBBDBA",
10"% c #FFFFFF",
11"& c #3E4850",
12" ",
13" ",
14" + ",
15" &$+ ",
16" +%.@+ ",
17" +%...@+ ",
18" +%.....@+ ",
19" +%......#@+ ",
20" +%.......##@+ ",
21" +%$$.....#@@@@+ ",
22" +++++$.....@+++++ ",
23" +$....#@+ ",
24" +$....#@+ ",
25" +$...##@+ ",
26" +$...##@+ ",
27" +$...##@+ ",
28" +...#@@@+ ",
29" +++++++++ ",
30" ",
31" ",
32" ",
33" ",
34" ",
35" "};
diff --git a/lisp/toolbar/left_arrow.pbm b/lisp/toolbar/left_arrow.pbm
deleted file mode 100644
index 56005e71c3f..00000000000
--- a/lisp/toolbar/left_arrow.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/left_arrow.xpm b/lisp/toolbar/left_arrow.xpm
deleted file mode 100644
index 586fe4489c0..00000000000
--- a/lisp/toolbar/left_arrow.xpm
+++ /dev/null
@@ -1,70 +0,0 @@
1/* XPM */
2static char * left_arrow_xpm[] = {
3"24 24 43 1",
4" c None",
5". c #000000",
6"+ c #B9D0B9",
7"@ c #CDDECB",
8"# c #B6C7B6",
9"$ c #B1C9B0",
10"% c #B3C4B3",
11"& c #B4CBB2",
12"* c #B5CEB5",
13"= c #B7CCB5",
14"- c #B9CEB7",
15"; c #BAD1BA",
16"> c #BBCFBA",
17", c #BBD0B9",
18"' c #B2C9B0",
19") c #7EAB78",
20"! c #AAC7A8",
21"~ c #B3CAB1",
22"{ c #B0C9B0",
23"] c #B0C9AE",
24"^ c #AEC7AC",
25"/ c #AAC5A8",
26"( c #A9C4A7",
27"_ c #698267",
28": c #2D2D2D",
29"< c #CFDFCC",
30"[ c #ADC8AB",
31"} c #B0C7AE",
32"| c #ADC6AB",
33"1 c #678C63",
34"2 c #9BAD9A",
35"3 c #85AE81",
36"4 c #87AF84",
37"5 c #87B083",
38"6 c #88AF84",
39"7 c #88B085",
40"8 c #86AF82",
41"9 c #547150",
42"0 c #3C5235",
43"a c #5B7950",
44"b c #4A6342",
45"c c #3B5035",
46"d c #415639",
47" ",
48" ",
49" ",
50" . ",
51" .. ",
52" .+. ",
53" .@#. ",
54" .@$%........ ",
55" .@&*=-;->,'). ",
56" .@!~{]^///^(_. ",
57" :<[}||[!^^}^[1. ",
58" .23444445645789. ",
59" .0aaaaaaaaaaab. ",
60" .0aaaaaaaaaab. ",
61" .0aabccccccd. ",
62" .0ab........ ",
63" .0b. ",
64" .b. ",
65" .. ",
66" . ",
67" ",
68" ",
69" ",
70" "};
diff --git a/lisp/toolbar/mail.pbm b/lisp/toolbar/mail.pbm
deleted file mode 100644
index 744f38609e8..00000000000
--- a/lisp/toolbar/mail.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/mail.xpm b/lisp/toolbar/mail.xpm
deleted file mode 100644
index fc87e3a654a..00000000000
--- a/lisp/toolbar/mail.xpm
+++ /dev/null
@@ -1,35 +0,0 @@
1/* XPM */
2static char *magick[] = {
3/* columns rows colors chars-per-pixel */
4"24 24 5 1",
5" c Gray0",
6". c #673e666663d4",
7"X c #a852a7bea3d2",
8"o c #eb46ea1de471",
9"O c None",
10/* pixels */
11"OOOOOOOOOOOOOOOOOOOOOOOO",
12"OOOOOOOOOOOOOOOOOOOOOOOO",
13"OOOOOOOOOOOOOOOOOOOOOOOO",
14"OOOOOOOOOOOOOOOOOOOOOOOO",
15"OOOOOOOOOOOOOOOOOOOOOOOO",
16"OOOOOOOOOOOOOO OOOOOO",
17"OOOOOOOOO .ooX OOOOO",
18"OOOO .XooooooX OOOOO",
19"OOO .Xoooooooooo.XX OOOO",
20"OOO o..ooooooooX.Xo OOOO",
21"OOO XoX..oooooo.Xoo OOOO",
22"OOOO oooXX.Xoo...ooX OOO",
23"OOOO oooooXX..XoX.Xo OOO",
24"OOOO Xoooo.ooooooo.X OOO",
25"OOOOO oooXXoooooooo.X OO",
26"OOOOO ooo.oooooooooX OO",
27"OOOOO XoXXooooooX OOOO",
28"OOOOOO o.ooooX OOOOOOO",
29"OOOOOO .XoX OOOOOOOOOO",
30"OOOOOO .. OOOOOOOOOOOOO",
31"OOOOOOO OOOOOOOOOOOOOOO",
32"OOOOOOOOOOOOOOOOOOOOOOOO",
33"OOOOOOOOOOOOOOOOOOOOOOOO",
34"OOOOOOOOOOOOOOOOOOOOOOOO"
35};
diff --git a/lisp/toolbar/mail_compose.pbm b/lisp/toolbar/mail_compose.pbm
deleted file mode 100644
index ca6328d27a5..00000000000
--- a/lisp/toolbar/mail_compose.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/mail_compose.xpm b/lisp/toolbar/mail_compose.xpm
deleted file mode 100644
index 9fa4fa93706..00000000000
--- a/lisp/toolbar/mail_compose.xpm
+++ /dev/null
@@ -1,39 +0,0 @@
1/* XPM */
2static char *magick[] = {
3/* columns rows colors chars-per-pixel */
4"24 24 9 1",
5" c Gray0",
6". c #757560602020",
7"X c #6711662663d9",
8"o c #8e8e7d7d4545",
9"O c #adad8e8e3030",
10"+ c #d8d8bebe6a6a",
11"@ c #a8fba84da483",
12"# c #eb79ea70e4f4",
13"$ c None",
14/* pixels */
15"$$$$$$$$$$$$$$$$$$$$$$$$",
16"$$$$$$$$$$$$$$$$$$$$$$$$",
17"$$$$$$$$$$$$$ $$$$$$$",
18"$$$$$$$$ X##@ $$$$$$",
19"$$$ X@######@ $$$$$$",
20"$$ X@##########X@@ $$$$$",
21"$$ #XX########@X@# $$$$$",
22"$$ @#@XX######X@## $$$$$",
23"$$$ ###@@X@##XXX##@ $ $$",
24"$$$ #####@@XX@#@X@# + $",
25"$$$ @####X#######X@ +o $",
26"$$$$ ###@@######## +o $$",
27"$$$$ ###X######## +o $$$",
28"$$$$ @#@@######@ +o $$$$",
29"$$$$$ #X####@ +o $$$$$",
30"$$$$$ X@#@ $ +o $$$$$$",
31"$$$$$ XX $$$ +o $$$$$$$",
32"$$$$$$ $$$$ +o $$$$$$$$",
33"$$$$$$$$$$$O. $$$$$$$$$",
34"$$$$$$$$$$$ $$$$$$$$$$$",
35"$$$$$$$$$$$$$$$$$$$$$$$$",
36"$$$$$$$$$$$$$$$$$$$$$$$$",
37"$$$$$$$$$$$$$$$$$$$$$$$$",
38"$$$$$$$$$$$$$$$$$$$$$$$$"
39};
diff --git a/lisp/toolbar/mail_send.pbm b/lisp/toolbar/mail_send.pbm
deleted file mode 100644
index 36b60b7dbdd..00000000000
--- a/lisp/toolbar/mail_send.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/mail_send.xpm b/lisp/toolbar/mail_send.xpm
deleted file mode 100644
index f1d2282ec8a..00000000000
--- a/lisp/toolbar/mail_send.xpm
+++ /dev/null
@@ -1,39 +0,0 @@
1/* XPM */
2static char *magick[] = {
3/* columns rows colors chars-per-pixel */
4"24 24 9 1",
5" c Gray0",
6". c #675e6580613e",
7"X c #8c8c7c7c6969",
8"o c #9b458d377822",
9"O c #a941a6459f3e",
10"+ c #c8c8b2b29898",
11"@ c #dadac2c2a5a5",
12"# c #eb4dea2fe4ad",
13"$ c None",
14/* pixels */
15"$$$$$$$$$$$$$$$$$$$$$$$$",
16"$$$$$$$$$$$$$$$$$$$$$$$$",
17"$$$$$$$$$$$$$ $$$$$$$",
18"$$$$$$$$ .@#+ $$$$$$",
19"$$$ .+#####@O $$$$$$",
20"$$ .+##########.+O $$$$$",
21"$$ @..########O.+# $$$$$",
22"$$ O@O..@#####.+## $$$$$",
23"$$$ ###+O.O##...##O $$$$",
24"$$$ @####@+..O#O.+# $$$$",
25"$$$ O####.#######.O $$$$",
26"$$$$ ###+O########.O $$$",
27"$$$$ ###.########@O $$$",
28"$$$$ +#+O#####@O $$$$$",
29"$$$$$ #.###@O $$$$$$",
30"$$$$$ .O@O $$ .. $$$$$",
31"$$$$$ .. $$$$ .oo. $$$$",
32"$$$$$$ $$$$$ oo $$$",
33"$$$$$$$$$$$$$$$ Oo $$$$$",
34"$$$$$$$$$$$$$$ oOOX $$$$",
35"$$$$$$$$$$$$$$ ++++ $$$$",
36"$$$$$$$$$$$$$ O@@@@O $$$",
37"$$$$$$$$$$$$$ $$$",
38"$$$$$$$$$$$$$$$$$$$$$$$$"
39};
diff --git a/lisp/toolbar/new.pbm b/lisp/toolbar/new.pbm
deleted file mode 100644
index 1fae8c09eec..00000000000
--- a/lisp/toolbar/new.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/new.xpm b/lisp/toolbar/new.xpm
deleted file mode 100644
index 2d4690edd3c..00000000000
--- a/lisp/toolbar/new.xpm
+++ /dev/null
@@ -1,154 +0,0 @@
1/* XPM */
2static char * new_xpm[] = {
3"24 24 127 2",
4" c None",
5". c #000000",
6"+ c #D3D3D3",
7"@ c #F6F6F6",
8"# c #FFFFFF",
9"$ c #F9F9F9",
10"% c #DADADA",
11"& c #585858",
12"* c #C7C7C7",
13"= c #D1D1D1",
14"- c #D6D6D6",
15"; c #FEFEFE",
16"> c #FDFDFD",
17", c #C0C0C0",
18"' c #E1E1E1",
19") c #F0F0F0",
20"! c #9B9B9B",
21"~ c #FCFCFB",
22"{ c #FBFBFB",
23"] c #AFAFAE",
24"^ c #E9E9E9",
25"/ c #DFDFDF",
26"( c #8F8F8F",
27"_ c #FAFAF9",
28": c #F9F9F8",
29"< c #A4A4A3",
30"[ c #F4F4F4",
31"} c #CFCFCF",
32"| c #A2A2A2",
33"1 c #F8F8F7",
34"2 c #F8F7F6",
35"3 c #9E9E9E",
36"4 c #F7F6F5",
37"5 c #F6F6F4",
38"6 c #F4F3F2",
39"7 c #DEDDDC",
40"8 c #D3D2D0",
41"9 c #B7B7B5",
42"0 c #9F9E9D",
43"a c #706F6F",
44"b c #65625A",
45"c c #F5F4F3",
46"d c #F2F2F0",
47"e c #E4E4E2",
48"f c #DAD9D7",
49"g c #D8D8D6",
50"h c #CDCCCA",
51"i c #AFAEAC",
52"j c #88847B",
53"k c #F3F3F1",
54"l c #EFEFED",
55"m c #EEEDEB",
56"n c #EDECEA",
57"o c #E9E8E6",
58"p c #D5D4D3",
59"q c #C4C3C2",
60"r c #8F8A81",
61"s c #F6F5F4",
62"t c #F5F5F3",
63"u c #F1F1EF",
64"v c #F1F0EE",
65"w c #ECEBE9",
66"x c #EAE9E7",
67"y c #E5E4E2",
68"z c #E4E3E0",
69"A c #D2D1CE",
70"B c #8D887E",
71"C c #F3F2F1",
72"D c #F0F0EE",
73"E c #F0EFED",
74"F c #EFEEEC",
75"G c #E8E7E5",
76"H c #E5E4E1",
77"I c #E2E1DE",
78"J c #E1DFDC",
79"K c #979288",
80"L c #A49E93",
81"M c #E8E7E4",
82"N c #E7E6E3",
83"O c #E3E2DF",
84"P c #E2E0DD",
85"Q c #E1E0DC",
86"R c #E0DFDB",
87"S c #A19C90",
88"T c #EDEDEB",
89"U c #EBEAE8",
90"V c #E9E8E5",
91"W c #E6E4E1",
92"X c #E3E2DE",
93"Y c #DFDEDA",
94"Z c #DEDDD9",
95"` c #DDDCD8",
96" . c #A19B90",
97".. c #E7E5E2",
98"+. c #E4E3DF",
99"@. c #DCDBD7",
100"#. c #E6E5E2",
101"$. c #E5E4E0",
102"%. c #E2E1DD",
103"&. c #DBD9D5",
104"*. c #D9D7D3",
105"=. c #9F998D",
106"-. c #E4E2DF",
107";. c #DDDBD7",
108">. c #DCDAD6",
109",. c #D8D6D2",
110"'. c #9E988D",
111"). c #EDEDED",
112"!. c #E1E0DD",
113"~. c #E0DEDA",
114"{. c #D8D6D1",
115"]. c #D7D5D1",
116"^. c #9D978B",
117"/. c #E1DFDB",
118"(. c #DEDCD8",
119"_. c #D7D6D1",
120":. c #D5D3CE",
121"<. c #9B958A",
122"[. c #999891",
123"}. c #A39E92",
124"|. c #A39D92",
125"1. c #A39D91",
126"2. c #A29C90",
127"3. c #A19B8F",
128"4. c #9D978C",
129"5. c #9B968A",
130"6. c #676359",
131" ",
132" . . . . . . . . . . . . . ",
133" . + @ # # # # # # # # $ % & . ",
134" . @ # # # # # # # # # # * = - . ",
135" . # # # # # # # ; # ; > , ' ) ! . ",
136" . # # # # # ; > ~ > ~ { ] ^ # / ( . ",
137" . # # # ; > ~ { _ { _ : < ) # [ } | . ",
138" . # ; > ~ { _ : 1 : 1 2 3 . . . . . . . ",
139" . # ~ { _ : 1 2 4 2 4 5 6 7 8 9 0 a b . ",
140" . # _ : 1 2 4 5 c 5 c 6 d e f g h i j . ",
141" . # 1 2 4 5 c 6 k 6 k d l m n o p q r . ",
142" . # s t 6 6 k d u d u v m w x y z A B . ",
143" . # 6 C d D l v E v E F w G H z I J K . ",
144" . # 6 C d D l v E v E F w G H z I J L . ",
145" . # D l l F m n n n n w M N O P Q R S . ",
146" . # T n w w w U V U V V H W X Y Z ` .. ",
147" . # U o o G M M N M N ..+.X R Z ` @. .. ",
148" . # N #.#.#.H W $.W $.+.%.R Z @.&.*.=.. ",
149" . $ z O X -.+.%.X %.X Q Q Z ;.>.*.,.'.. ",
150" . ).!.J Q R %.R Q R Q Y ~.;.>.*.{.].^.. ",
151" . = /.~.Y Z R Z ~.Z ~.(.(.>.>.,._.:.<.. ",
152" . [.}.L |.1.|.S 2.S 2.3. .=.=.4.4.5.6.. ",
153" . . . . . . . . . . . . . . . . . . ",
154" "};
diff --git a/lisp/toolbar/open.pbm b/lisp/toolbar/open.pbm
deleted file mode 100644
index 9c614e43f31..00000000000
--- a/lisp/toolbar/open.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/open.xpm b/lisp/toolbar/open.xpm
deleted file mode 100644
index 6b95c7e476d..00000000000
--- a/lisp/toolbar/open.xpm
+++ /dev/null
@@ -1,200 +0,0 @@
1/* XPM */
2static char * open_xpm[] = {
3"24 24 173 2",
4" c None",
5". c #000000",
6"+ c #010100",
7"@ c #B5B8A5",
8"# c #E4E7D2",
9"$ c #878A76",
10"% c #33342B",
11"& c #0B0B0B",
12"* c #E2E5CF",
13"= c #CFD4AF",
14"- c #CED3AE",
15"; c #B2B696",
16"> c #2D2D25",
17", c #23241D",
18"' c #9D9F90",
19") c #C6CAA6",
20"! c #C4C9A5",
21"~ c #C6CBA7",
22"{ c #C7CCA8",
23"] c #C9CEA9",
24"^ c #555847",
25"/ c #1A1B15",
26"( c #20201A",
27"_ c #D4D6C2",
28": c #BEC2A0",
29"< c #B3B896",
30"[ c #B0B595",
31"} c #B3B797",
32"| c #B6BB99",
33"1 c #BBC09E",
34"2 c #BCC19F",
35"3 c #81856C",
36"4 c #3E3F32",
37"5 c #010101",
38"6 c #DADDC8",
39"7 c #AFB494",
40"8 c #AAAF8F",
41"9 c #A3A789",
42"0 c #A6AA8B",
43"a c #A9AD8E",
44"b c #A7AB8D",
45"c c #A4A88A",
46"d c #A1A588",
47"e c #AAAD96",
48"f c #B3B5A5",
49"g c #B8BBAA",
50"h c #BABCAB",
51"i c #C1C3B2",
52"j c #C7CAB7",
53"k c #CACDBB",
54"l c #BABDA8",
55"m c #0C0C09",
56"n c #DDDFCB",
57"o c #969B7E",
58"p c #9DA286",
59"q c #95987C",
60"r c #96997E",
61"s c #9A9D81",
62"t c #999D80",
63"u c #9DA184",
64"v c #A5AA8B",
65"w c #A4A98A",
66"x c #A3A889",
67"y c #A2A588",
68"z c #A2A587",
69"A c #9FA386",
70"B c #9B9E83",
71"C c #898D74",
72"D c #D8DBC9",
73"E c #84866E",
74"F c #7D8169",
75"G c #151612",
76"H c #D7DAC9",
77"I c #797D67",
78"J c #3D3F34",
79"K c #E0E0D9",
80"L c #EBEDDD",
81"M c #E8EBD9",
82"N c #E7EAD8",
83"O c #E3E6D4",
84"P c #DEE1D0",
85"Q c #DADCCC",
86"R c #DADCD1",
87"S c #2B2C28",
88"T c #D7DAC6",
89"U c #6F735E",
90"V c #0D0D0D",
91"W c #F4F4EC",
92"X c #CACFAB",
93"Y c #C6CBA8",
94"Z c #C2C6A4",
95"` c #ABB091",
96" . c #23251E",
97".. c #494B3D",
98"+. c #DCDCD4",
99"@. c #EAECDD",
100"#. c #CDD2AD",
101"$. c #CCD1AC",
102"%. c #CACFAA",
103"&. c #BABF9D",
104"*. c #B5B999",
105"=. c #81836C",
106"-. c #070806",
107";. c #D5D8C4",
108">. c #161616",
109",. c #F2F2EA",
110"'. c #C9CEAA",
111"). c #C8CDA9",
112"!. c #C4C9A6",
113"~. c #C1C5A3",
114"{. c #BCC09F",
115"]. c #B6BB9A",
116"^. c #B0B494",
117"/. c #9DA185",
118"(. c #535445",
119"_. c #B6B8A7",
120":. c #747470",
121"<. c #ECECE2",
122"[. c #C3C8A5",
123"}. c #C2C7A4",
124"|. c #C0C5A2",
125"1. c #BFC4A1",
126"2. c #BDC2A0",
127"3. c #B9BD9C",
128"4. c #B9BE9D",
129"5. c #A9AD8F",
130"6. c #A3A78A",
131"7. c #80836D",
132"8. c #020201",
133"9. c #A6A998",
134"0. c #B8BC9B",
135"a. c #AFB394",
136"b. c #ACB091",
137"c. c #A8AC8E",
138"d. c #A6AA8C",
139"e. c #9FA286",
140"f. c #9B9F83",
141"g. c #9A9D82",
142"h. c #8A8D75",
143"i. c #4F5243",
144"j. c #070705",
145"k. c #9E9F91",
146"l. c #E5E6DA",
147"m. c #ADB192",
148"n. c #A5A98C",
149"o. c #9FA387",
150"p. c #999D81",
151"q. c #95987E",
152"r. c #92957B",
153"s. c #8C8F76",
154"t. c #8A8D74",
155"u. c #71735F",
156"v. c #080908",
157"w. c #E3E5D9",
158"x. c #C0C3AF",
159"y. c #94987C",
160"z. c #8F9379",
161"A. c #8B8F75",
162"B. c #8A8E74",
163"C. c #888C73",
164"D. c #858970",
165"E. c #868971",
166"F. c #82866E",
167"G. c #80836C",
168"H. c #7D8069",
169"I. c #797C66",
170"J. c #727560",
171"K. c #717460",
172"L. c #71745F",
173"M. c #6A6D59",
174"N. c #434538",
175"O. c #080907",
176"P. c #050504",
177" ",
178" ",
179" ",
180" . . . . . . . ",
181" + @ # # # # # $ % ",
182" & * = = = - - ; > ",
183", ' * ) ! ~ { ] ] ^ / ",
184"( _ : < [ } | 1 2 3 4 5 . . . . . . . ",
185", 6 7 8 9 0 8 a b c d e f g h i j k l . ",
186"m n o p q r s t r u v w x y 9 z A B C . ",
187". D E F G . . . . . . . . . . . . . . . 5 5 ",
188". H I J K L M M M M M M M M M M M N O P Q R S ",
189". T U V W = = = = = = = = = - - - X Y Z 1 ` . ",
190". T ..+.@.#.- - #.- #.#.#.#.#.$.%.Y Z &.*.=.-. ",
191". ;.>.,.X %.X %.'.%.'.{ ).).Y !.~.{.].^./.(.m ",
192". _.:.<.[.}.}.Z |.Z 1.2.|.2.3.4.} [ 5.6.7.8. ",
193". 9.+.0.0.*.} } [ [ a.a.a.b.c.d.e.f.g.h.i.j. ",
194". k.l.m.5.d.n.6.6.d o.e.f.p.q.r.s.t.t.u.v. ",
195". w.x.y.z.A.B.C.C.D.E.F.G.H.I.J.K.L.M.N.O. ",
196" . . . . . . . . . . . . . . . . . . P. ",
197" ",
198" ",
199" ",
200" "};
diff --git a/lisp/toolbar/paste.pbm b/lisp/toolbar/paste.pbm
deleted file mode 100644
index 17e3a82c0c6..00000000000
--- a/lisp/toolbar/paste.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/paste.xpm b/lisp/toolbar/paste.xpm
deleted file mode 100644
index cdd86366d66..00000000000
--- a/lisp/toolbar/paste.xpm
+++ /dev/null
@@ -1,116 +0,0 @@
1/* XPM */
2static char * paste_xpm[] = {
3"24 24 89 1",
4" c None",
5". c #000000",
6"+ c #B9B9B9",
7"@ c #FEFEFE",
8"# c #F9F9F9",
9"$ c #757575",
10"% c #F5F5E8",
11"& c #565651",
12"* c #FFFFFF",
13"= c #A0A0A0",
14"- c #939393",
15"; c #7C7C7C",
16"> c #C5C5BB",
17", c #CFC6A0",
18"' c #D7CEAA",
19") c #ADA689",
20"! c #4B483C",
21"~ c #6D6D6D",
22"{ c #6C6C6C",
23"] c #A9A9A9",
24"^ c #3D3A30",
25"/ c #979178",
26"( c #C1B898",
27"_ c #8A793D",
28": c #C3BB9A",
29"< c #AFA78A",
30"[ c #444236",
31"} c #FAFAFA",
32"| c #EFEFEF",
33"1 c #C7C7C7",
34"2 c #D8D8D8",
35"3 c #D2D2D2",
36"4 c #7B7B7B",
37"5 c #302E26",
38"6 c #89846C",
39"7 c #C4BC9A",
40"8 c #847235",
41"9 c #C5C5C5",
42"0 c #A7A7A7",
43"a c #ADADAD",
44"b c #9A9A9A",
45"c c #9B9B9B",
46"d c #868686",
47"e c #424242",
48"f c #847033",
49"g c #C9C09E",
50"h c #464337",
51"i c #35332A",
52"j c #2D2B23",
53"k c #C6BE9D",
54"l c #826F33",
55"m c #7F7964",
56"n c #4C493C",
57"o c #171612",
58"p c #13120F",
59"q c #3E3B31",
60"r c #282210",
61"s c #474438",
62"t c #B3B3B3",
63"u c #D6D6D6",
64"v c #B7AE90",
65"w c #B1AA8C",
66"x c #37352B",
67"y c #151410",
68"z c #8F8F8F",
69"A c #989898",
70"B c #C6C6C6",
71"C c #B9B293",
72"D c #11100D",
73"E c #434035",
74"F c #636363",
75"G c #767676",
76"H c #AAA48B",
77"I c #A5A086",
78"J c #A19A7F",
79"K c #312F26",
80"L c #AFA88C",
81"M c #050403",
82"N c #12110E",
83"O c #A9A489",
84"P c #A39E85",
85"Q c #EBE7D0",
86"R c #D2C9A5",
87"S c #A29053",
88"T c #8E7C3D",
89"U c #88793B",
90"V c #806C2F",
91"W c #78652B",
92"X c #251F0C",
93" .... ",
94" ......+@#$...... ",
95".%%%%%&*=-;&>%%%,. ",
96".%''')!*~{]^/(''_. ",
97".%::<[}|123456<78. ",
98".%''!900abcde!)'f. ",
99".%g:6hijjjjj56<kl. ",
100".%'''////////(''l. ",
101".%g::::mnopppp^qr.... ",
102".%'''''st***********u. ",
103".%vwwwwx*************. ",
104".%'''''y*0zzA**Bz*zB*. ",
105".%CwwwwD*************. ",
106".%'''''E*~F*GzzB*Bz**. ",
107".%HIJJJK*************. ",
108".%'''''E*0zz*zzzB*Az*. ",
109".%LIJJJM*************. ",
110".%'''''N*~F*GzzB*Bz**. ",
111".%OPJJJK*************. ",
112".Q'''''E*0zz*zzzB*Az*. ",
113".RSTUVWX*************. ",
114" .......u***********u. ",
115" ............. ",
116" "};
diff --git a/lisp/toolbar/preferences.pbm b/lisp/toolbar/preferences.pbm
deleted file mode 100644
index 00c7da36cdf..00000000000
--- a/lisp/toolbar/preferences.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/preferences.xpm b/lisp/toolbar/preferences.xpm
deleted file mode 100644
index 3cdc884dd4d..00000000000
--- a/lisp/toolbar/preferences.xpm
+++ /dev/null
@@ -1,114 +0,0 @@
1/* XPM */
2static char * preferences_xpm[] = {
3"24 24 87 1",
4" c None",
5". c #000000",
6"+ c #BAB5AB",
7"@ c #D0CDC6",
8"# c #88857D",
9"$ c #C9C6BE",
10"% c #CCC8C1",
11"& c #E5E3E0",
12"* c #FFFFFF",
13"= c #757575",
14"- c #2E2E2E",
15"; c #F6F5F5",
16"> c #CCCCCC",
17", c #AFAFAF",
18"' c #D3D1CB",
19") c #C1C0BF",
20"! c #F0EFED",
21"~ c #797772",
22"{ c #DCDCDC",
23"] c #A5A19C",
24"^ c #EAE9E5",
25"/ c #F3F1F0",
26"( c #EDEDED",
27"_ c #A19D96",
28": c #C1BDB4",
29"< c #DBD8D3",
30"[ c #D9D6D1",
31"} c #89857E",
32"| c #FCFCFC",
33"1 c #EAE9E6",
34"2 c #F5F4F3",
35"3 c #C6C2BA",
36"4 c #F0EFEE",
37"5 c #F4F4F3",
38"6 c #CBC7C0",
39"7 c #ECECEB",
40"8 c #676560",
41"9 c #54524D",
42"0 c #777676",
43"a c #797978",
44"b c #85827E",
45"c c #79756F",
46"d c #7590AE",
47"e c #A4BAD0",
48"f c #90A6BE",
49"g c #9F9F9E",
50"h c #BEBDBC",
51"i c #B8B4AD",
52"j c #87837C",
53"k c #D3DFEA",
54"l c #A2AEBC",
55"m c #9DB6CE",
56"n c #637B95",
57"o c #E2E2E2",
58"p c #EEEEED",
59"q c #849CB6",
60"r c #D7E2ED",
61"s c #8D98A5",
62"t c #9DB8D2",
63"u c #607791",
64"v c #EDEDEC",
65"w c #99ADC3",
66"x c #DFE7F0",
67"y c #8193A9",
68"z c #586D84",
69"A c #5B7189",
70"B c #F1F1F1",
71"C c #EEEDEB",
72"D c #A7A6A5",
73"E c #726F6A",
74"F c #A1B4C8",
75"G c #EEF3F6",
76"H c #60768F",
77"I c #DEDDDC",
78"J c #787776",
79"K c #4E4E4D",
80"L c #91A6BE",
81"M c #F0F4F7",
82"N c #97A5B6",
83"O c #BFBEBD",
84"P c #AAAAA9",
85"Q c #ACACAB",
86"R c #B0C6DB",
87"S c #EDF2F6",
88"T c #818A95",
89"U c #6C85A1",
90"V c #C0D1E2",
91" .. ",
92" .+@#. ",
93" .$%+. .. ",
94" .&$. .*=. ",
95" .. -;$. .*>,. ",
96" .' ..)!+~. .{,. ",
97" .]%%^/+++. .(.. ",
98" ._:%$<[+}. .|. ",
99" .....123}..>. ",
100" .456.,. ",
101" .7.,.. ",
102" .,.89. ",
103" ....,.0abc. ",
104" .def.. .ghij. ",
105" .dklmn. .op6}. ",
106" .qrsntu. .v/$}. ",
107" .wxyztdA. .BCDE..",
108" .FGyHtdA. .IJK,.",
109" .LMNHtdA. .OPQ.",
110" .RSTtdA.. ... ",
111" .UtVLA.. ",
112" .UUn.. ",
113" ... ",
114" "};
diff --git a/lisp/toolbar/print.pbm b/lisp/toolbar/print.pbm
deleted file mode 100644
index a4ab55c2cd8..00000000000
--- a/lisp/toolbar/print.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/print.xpm b/lisp/toolbar/print.xpm
deleted file mode 100644
index 95f2f400800..00000000000
--- a/lisp/toolbar/print.xpm
+++ /dev/null
@@ -1,202 +0,0 @@
1/* XPM */
2static char * print_xpm[] = {
3"24 24 175 2",
4" c None",
5". c #000000",
6"+ c #C7C7C7",
7"@ c #FAFAFA",
8"# c #FCFCFC",
9"$ c #FBFBFB",
10"% c #F8F8F8",
11"& c #AFAFAF",
12"* c #F9F9F9",
13"= c #E5E5E5",
14"- c #E3E3E3",
15"; c #E2E2E2",
16"> c #E0E0E0",
17", c #DFDFDF",
18"' c #DCDCDC",
19") c #DBDBDB",
20"! c #B6B6B6",
21"~ c #6B6B6B",
22"{ c #676767",
23"] c #818181",
24"^ c #E7E7E7",
25"/ c #606060",
26"( c #A0A0A0",
27"_ c #DADADA",
28": c #E1E1E1",
29"< c #B7B7B7",
30"[ c #FDFDFD",
31"} c #EFEFEF",
32"| c #EEEEEE",
33"1 c #EDEDED",
34"2 c #ECECEC",
35"3 c #EBEBEB",
36"4 c #E9E9E9",
37"5 c #E8E8E8",
38"6 c #BFBFBF",
39"7 c #8A8A8A",
40"8 c #6A6A6A",
41"9 c #9E9E9E",
42"0 c #F6F6F6",
43"a c #909090",
44"b c #A2A2A2",
45"c c #AAAAAA",
46"d c #F4F4F4",
47"e c #CECECE",
48"f c #ADADAD",
49"g c #AEAEAE",
50"h c #BEBEBE",
51"i c #A6A6A6",
52"j c #CDCDCD",
53"k c #F5F5F5",
54"l c #DEDEDE",
55"m c #DDDDDD",
56"n c #C9C9C9",
57"o c #878787",
58"p c #888888",
59"q c #D0D0D0",
60"r c #6E6E6E",
61"s c #797979",
62"t c #D1D1D1",
63"u c #A1A1A1",
64"v c #B3B3B3",
65"w c #FFFFFF",
66"x c #CACACA",
67"y c #A7A7A7",
68"z c #A5A5A5",
69"A c #A4A4A4",
70"B c #A3A3A3",
71"C c #87847C",
72"D c #EAE8E3",
73"E c #8D8982",
74"F c #53524C",
75"G c #807D74",
76"H c #AAA9A5",
77"I c #BAB5AB",
78"J c #F3F3F3",
79"K c #C3C1BD",
80"L c #8B8B89",
81"M c #E6E5E1",
82"N c #F9F9F8",
83"O c #FAFAF9",
84"P c #F9F9F7",
85"Q c #F7F6F5",
86"R c #F7F7F4",
87"S c #F6F5F4",
88"T c #F2F1EE",
89"U c #F0EFEC",
90"V c #E5E5E4",
91"W c #9F9F9F",
92"X c #DFDED9",
93"Y c #A4A3A1",
94"Z c #6C6B6A",
95"` c #F5F4F3",
96" . c #D5D5D5",
97".. c #D3D3D3",
98"+. c #D4D4D3",
99"@. c #D4D4D4",
100"#. c #A9A9A9",
101"$. c #B5B5B5",
102"%. c #CDCDCB",
103"&. c #B5B5B4",
104"*. c #DCDAD3",
105"=. c #6B6B6A",
106"-. c #999896",
107";. c #918F87",
108">. c #999895",
109",. c #E6E4E1",
110"'. c #F0EEEC",
111"). c #FAF9F9",
112"!. c #F9F8F7",
113"~. c #F8F7F6",
114"{. c #F8F8F7",
115"]. c #F4F3F1",
116"^. c #F2F1EF",
117"/. c #565655",
118"(. c #858482",
119"_. c #9C9B99",
120":. c #6B6A68",
121"<. c #585858",
122"[. c #5E5C57",
123"}. c #524F4B",
124"|. c #4A4845",
125"1. c #4B4A46",
126"2. c #4B4946",
127"3. c #4A4844",
128"4. c #494743",
129"5. c #484642",
130"6. c #474541",
131"7. c #464440",
132"8. c #514F4B",
133"9. c #53514E",
134"0. c #7B7A77",
135"a. c #797771",
136"b. c #949391",
137"c. c #989694",
138"d. c #868480",
139"e. c #6E6C66",
140"f. c #706D67",
141"g. c #5C5955",
142"h. c #67645F",
143"i. c #5B5954",
144"j. c #585651",
145"k. c #5D5B56",
146"l. c #595652",
147"m. c #53504C",
148"n. c #575450",
149"o. c #595752",
150"p. c #5C5956",
151"q. c #5B5956",
152"r. c #61615E",
153"s. c #696861",
154"t. c #77756F",
155"u. c #7E7B77",
156"v. c #979690",
157"w. c #96938D",
158"x. c #807E77",
159"y. c #7D7A74",
160"z. c #787770",
161"A. c #716F6A",
162"B. c #6E6C67",
163"C. c #595753",
164"D. c #63615C",
165"E. c #686661",
166"F. c #6F6E68",
167"G. c #6D6C66",
168"H. c #72716B",
169"I. c #76746F",
170"J. c #6A6963",
171"K. c #8B8880",
172"L. c #B2AFA8",
173"M. c #B6B3AD",
174"N. c #BFBDB6",
175"O. c #BDBBB4",
176"P. c #B0AEA6",
177"Q. c #ABA8A2",
178"R. c #9C9991",
179" ",
180" . . . . . . . . . . . . ",
181" . + @ # # # # # # # $ % & . ",
182" . * = - - - ; > , , ' ) ! . ",
183" . # ~ { ] ^ / ( _ : > > < . ",
184" . [ } | 1 1 | 2 2 3 4 5 6 . ",
185" . [ 7 8 9 0 a b 4 c a d + . ",
186" . [ # # # # $ $ # # $ $ e . ",
187" . [ f g = h % h i j 3 # j . ",
188" . k l l l m l l , l 5 : n . ",
189" . . @ o ~ p q r s t p u q v . . ",
190" . w . x y z A z z i B b u u 9 . C . ",
191" . w D E F . . . . . . . . . . G C H I . ",
192" . w w J w w w w w w w w w w w w w w w w D . ",
193" . K L M N O N P Q R O O S T T U V D W X I . ",
194" . Y Z ` h .! ..! +.< @.#...$.%.&.*.=.-.;.. ",
195" . >.=.,.'.Q N @ ).N !.~.{.{.].].].^./.(.;.. ",
196" . _.:.<.[.}.|.1.2.2.2.3.4.5.6.4.7.8.9.0.a.. ",
197" . b.c.d.e.f.g.h.i.j.i.k.l.m.n.o.p.q.r.s.t.. ",
198" . u.v.w.;.x.y.z.t.A.t.A.B.C.D.E.F.G.H.I.J.. ",
199" . . . . . . . . . . . . . . . . . . . . ",
200" . K.L.M.N.N.N.N.N.O.P.L.Q.P.R.R.R.G G . ",
201" . . . . . . . . . . . . . . . . . . ",
202" "};
diff --git a/lisp/toolbar/right_arrow.pbm b/lisp/toolbar/right_arrow.pbm
deleted file mode 100644
index cd32579c6bd..00000000000
--- a/lisp/toolbar/right_arrow.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/right_arrow.xpm b/lisp/toolbar/right_arrow.xpm
deleted file mode 100644
index da8156879d6..00000000000
--- a/lisp/toolbar/right_arrow.xpm
+++ /dev/null
@@ -1,68 +0,0 @@
1/* XPM */
2static char * right_arrow_xpm[] = {
3"24 24 41 1",
4" c None",
5". c #000000",
6"+ c #8CA782",
7"@ c #B1CDAE",
8"# c #77A16E",
9"$ c #B4CEB1",
10"% c #ACC8A9",
11"& c #709867",
12"* c #C1D6BD",
13"= c #BDD3B8",
14"- c #BFD4BB",
15"; c #C2D7BE",
16"> c #B0CAAD",
17", c #B2CBB0",
18"' c #AAC7A8",
19") c #0F1308",
20"! c #AEC5A8",
21"~ c #AEC8AD",
22"{ c #ABC7A8",
23"] c #AAC6A7",
24"^ c #A8C6A5",
25"/ c #ADC8AD",
26"( c #A8C7A8",
27"_ c #A5C4A3",
28": c #7F9F76",
29"< c #A6BFA0",
30"[ c #ABC7AA",
31"} c #A7C5A4",
32"| c #A9C7A6",
33"1 c #AFC8AD",
34"2 c #A4C3A2",
35"3 c #6B9060",
36"4 c #778E6F",
37"5 c #698D60",
38"6 c #6B9063",
39"7 c #445B2C",
40"8 c #6B8661",
41"9 c #5B7950",
42"0 c #6C8562",
43"a c #65815C",
44"b c #506B46",
45" ",
46" ",
47" ",
48" . ",
49" .. ",
50" .+. ",
51" .@#. ",
52" ........$%&. ",
53" .*=-;;;;>,'&) ",
54" .!~{{{]^'/(_:. ",
55" .<[^}^|{%'{123. ",
56" .45666666666657. ",
57" .8999999999997. ",
58" .099999999997. ",
59" .abbbbbb9997. ",
60" ........b97. ",
61" .b7. ",
62" .7. ",
63" .. ",
64" . ",
65" ",
66" ",
67" ",
68" "};
diff --git a/lisp/toolbar/save.pbm b/lisp/toolbar/save.pbm
deleted file mode 100644
index b69576096bf..00000000000
--- a/lisp/toolbar/save.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/save.xpm b/lisp/toolbar/save.xpm
deleted file mode 100644
index cfa651dfaf3..00000000000
--- a/lisp/toolbar/save.xpm
+++ /dev/null
@@ -1,247 +0,0 @@
1/* XPM */
2static char * save_xpm[] = {
3"24 24 220 2",
4" c None",
5". c #000000",
6"+ c #C3D7F4",
7"@ c #A9CDE5",
8"# c #75757A",
9"$ c #EFC5BB",
10"% c #F1C8BE",
11"& c #F0C6BC",
12"* c #EEBCB2",
13"= c #EEBEB5",
14"- c #EEC1B8",
15"; c #EDBFB6",
16"> c #E9B7AD",
17", c #E9B8AF",
18"' c #E9B9B1",
19") c #E5BFBA",
20"! c #737277",
21"~ c #B3CDE3",
22"{ c #A1BED6",
23"] c #BBD6E8",
24"^ c #8AAAC5",
25"/ c #605F68",
26"( c #E08D7E",
27"_ c #E0826E",
28": c #E0806E",
29"< c #DC7A68",
30"[ c #DC8171",
31"} c #DA7868",
32"| c #D48173",
33"1 c #D47D6E",
34"2 c #CE7265",
35"3 c #CF7264",
36"4 c #CE7567",
37"5 c #C4675B",
38"6 c #C36558",
39"7 c #626169",
40"8 c #87A3B7",
41"9 c #567187",
42"0 c #BAD5E9",
43"a c #88A7C3",
44"b c #686670",
45"c c #C8817B",
46"d c #CB7C74",
47"e c #CB7A73",
48"f c #CB7B73",
49"g c #CC7C72",
50"h c #CB7D73",
51"i c #BF6B64",
52"j c #CC7A70",
53"k c #C16A62",
54"l c #CC7C73",
55"m c #C2655B",
56"n c #C36459",
57"o c #BA6C6A",
58"p c #819EB6",
59"q c #547086",
60"r c #B6D3E7",
61"s c #87ABC1",
62"t c #737373",
63"u c #FFFFFF",
64"v c #83A0B8",
65"w c #526C80",
66"x c #B9D3E7",
67"y c #85A4BF",
68"z c #4F697C",
69"A c #B9D3E6",
70"B c #84A3BF",
71"C c #CECECE",
72"D c #CDCDCD",
73"E c #BFBFBF",
74"F c #88A4BB",
75"G c #486276",
76"H c #B7D2E7",
77"I c #82A0BB",
78"J c #636363",
79"K c #465E70",
80"L c #B5CAE5",
81"M c #7FA2B9",
82"N c #87A3BA",
83"O c #455C6D",
84"P c #AECCE5",
85"Q c #7DA0B6",
86"R c #C5C5C5",
87"S c #546069",
88"T c #B0D1E4",
89"U c #83A1B6",
90"V c #735B5B",
91"W c #515C64",
92"X c #AACEE3",
93"Y c #7B9BB2",
94"Z c #7A8E9A",
95"` c #7A7A7A",
96" . c #6B6F72",
97".. c #6F6F6F",
98"+. c #696969",
99"@. c #6F777E",
100"#. c #86A2B9",
101"$. c #3A515D",
102"%. c #A9C9E2",
103"&. c #7494AF",
104"*. c #829FB7",
105"=. c #7F9DB6",
106"-. c #7E9CB5",
107";. c #7998B2",
108">. c #85A1B8",
109",. c #8CA7BD",
110"'. c #8AA5BB",
111"). c #364A59",
112"!. c #ABC4E2",
113"~. c #7294AD",
114"{. c #6F90AC",
115"]. c #7192AE",
116"^. c #414A4E",
117"/. c #424A51",
118"(. c #525B63",
119"_. c #626F79",
120":. c #5F6C76",
121"<. c #5C6971",
122"[. c #5A666F",
123"}. c #58636B",
124"|. c #57636A",
125"1. c #3B5360",
126"2. c #39424B",
127"3. c #7897B3",
128"4. c #A4B9CB",
129"5. c #364853",
130"6. c #AAC9E2",
131"7. c #7091AA",
132"8. c #6F8FA7",
133"9. c #4A5359",
134"0. c #97938C",
135"a. c #DFDDDA",
136"b. c #E3E1DE",
137"c. c #EBEAE8",
138"d. c #EAE9E7",
139"e. c #CFCEC9",
140"f. c #C9C6C0",
141"g. c #9B968E",
142"h. c #566168",
143"i. c #4B657A",
144"j. c #54738C",
145"k. c #AAC6DD",
146"l. c #34464E",
147"m. c #AAC9E1",
148"n. c #6C8EA6",
149"o. c #6C8CA4",
150"p. c #40474D",
151"q. c #DAD8D3",
152"r. c #E7E6E2",
153"s. c #67655E",
154"t. c #524F47",
155"u. c #D9D7D4",
156"v. c #C7C5BF",
157"w. c #C0BCB5",
158"x. c #B8B3AB",
159"y. c #434C54",
160"z. c #4D697F",
161"A. c #4F6F84",
162"B. c #B3CADC",
163"C. c #313E49",
164"D. c #A8C8E1",
165"E. c #6B8DA6",
166"F. c #728FA4",
167"G. c #E2E1DD",
168"H. c #F0EFEC",
169"I. c #CDCAC6",
170"J. c #C2BFB9",
171"K. c #CAC6C0",
172"L. c #DCDAD7",
173"M. c #4B555D",
174"N. c #4E697F",
175"O. c #BACCDC",
176"P. c #A4C4DE",
177"Q. c #698BA3",
178"R. c #708AA1",
179"S. c #383E43",
180"T. c #E0DEDA",
181"U. c #514E46",
182"V. c #4F4C44",
183"W. c #C7C4BE",
184"X. c #CBC8C2",
185"Y. c #E1E0DC",
186"Z. c #E9E8E6",
187"`. c #475158",
188" + c #4E6879",
189".+ c #4D6C80",
190"++ c #A3C3DB",
191"@+ c #383F43",
192"#+ c #778999",
193"$+ c #6E899E",
194"%+ c #65859C",
195"&+ c #33383C",
196"*+ c #D7D4D0",
197"=+ c #D6D4D0",
198"-+ c #4E4A43",
199";+ c #4D4942",
200">+ c #D1CEC9",
201",+ c #E6E5E2",
202"'+ c #EDECEA",
203")+ c #454F55",
204"!+ c #486173",
205"~+ c #4D6678",
206"{+ c #A1C1DA",
207"]+ c #373C40",
208"^+ c #0C0D0F",
209"/+ c #4E5E6A",
210"(+ c #5B6E7C",
211"_+ c #4F5B62",
212":+ c #A4A099",
213"<+ c #CCC9C3",
214"[+ c #D7D5D1",
215"}+ c #E4E2E0",
216"|+ c #DDDBD7",
217"1+ c #B8B5B0",
218"2+ c #3E474D",
219"3+ c #4A6176",
220"4+ c #4A6070",
221"5+ c #9BC3D8",
222"6+ c #363C41",
223"7+ c #28323E",
224" ",
225" . . . . . . . . . . . . . . . . . . . ",
226" . + @ # $ % & * = - ; > , > , ' ) ! ~ { . ",
227" . ] ^ / ( _ : < [ } | 1 2 3 4 5 6 7 8 9 . ",
228" . 0 a b c d e f g h i j k l m n o b p q . ",
229" . r s t u u u u u u u u u u u u u t v w . ",
230" . x y t u u u u u u u u u u u u u t v z . ",
231" . A B t C D D D D D D D D D D D E t F G . ",
232" . H I J u u u u u u u u u u u u u t F K . ",
233" . L M t u u u u u u u u u u u u u t N O . ",
234" . P Q t C D D D D D D D D D D D R t N S . ",
235" . T U V u u u u u u u u u u u u u t v W . ",
236" . X Y Z ` t t t t t ...t t t t +.@.#.$.. ",
237" . %.&.p v #.*.=.-.*.;.#.>.>.N *.,.v '.).. ",
238" . !.~.{.].^./.(._.:.<.[.}.|.(.1.2.3.4.5.. ",
239" . 6.7.8.9.0.a.b.c.c.d.a.e.f.g.h.i.j.k.l.. ",
240" . m.n.o.p.q.r.s.t.t.u.v.w.x.e.y.z.A.B.C.. ",
241" . D.E.F.p.G.H.s.t.t.I.J.w.K.L.M.N.A.O.C.. ",
242" . P.Q.R.S.T.c.U.V.V.W.w.X.Y.Z.`. +.+++@+. ",
243" . #+$+%+&+*+=+-+;+;+w.>+,+'+,+)+!+~+{+]+. ",
244" ^+/+(+_+:+w.x.<+<+[+}+d.|+1+2+3+4+5+6+. ",
245" . . . . . . . . . . . . . . . . 7+. ",
246" ",
247" "};
diff --git a/lisp/toolbar/saveas.pbm b/lisp/toolbar/saveas.pbm
deleted file mode 100644
index 6bf6b8f25eb..00000000000
--- a/lisp/toolbar/saveas.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/saveas.xpm b/lisp/toolbar/saveas.xpm
deleted file mode 100644
index 2830b06c928..00000000000
--- a/lisp/toolbar/saveas.xpm
+++ /dev/null
@@ -1,289 +0,0 @@
1/* XPM */
2static char * saveas_xpm[] = {
3"24 24 262 2",
4" c None",
5". c #000000",
6"+ c #FBE73B",
7"@ c #F2B64D",
8"# c #FCEB3D",
9"$ c #F7B544",
10"% c #5D502C",
11"& c #C3D7F4",
12"* c #A9CDE5",
13"= c #75757A",
14"- c #EFC5BB",
15"; c #F1C8BE",
16"> c #F0C6BC",
17", c #EEBCB2",
18"' c #EEBEB5",
19") c #EEC1B8",
20"! c #EDBFB6",
21"~ c #E8B6AC",
22"{ c #FCE93B",
23"] c #F7B545",
24"^ c #6C5F34",
25"/ c #434345",
26"( c #92A7B9",
27"_ c #96B1C7",
28": c #BBD6E8",
29"< c #8AAAC5",
30"[ c #605F68",
31"} c #E08D7E",
32"| c #E0826E",
33"1 c #E0806E",
34"2 c #DC7A68",
35"3 c #DC8171",
36"4 c #DA7868",
37"5 c #D38072",
38"6 c #FAE43A",
39"7 c #F4B244",
40"8 c #615030",
41"9 c #783E35",
42"0 c #4D4C52",
43"a c #7790A2",
44"b c #526D82",
45"c c #BAD5E9",
46"d c #88A7C3",
47"e c #686670",
48"f c #C8817B",
49"g c #CB7C74",
50"h c #CB7A73",
51"i c #CB7B73",
52"j c #CC7C72",
53"k c #CA7C72",
54"l c #F9DF39",
55"m c #F3AF42",
56"n c #614F2F",
57"o c #8F4941",
58"p c #945554",
59"q c #5B5A62",
60"r c #7B97AE",
61"s c #536F84",
62"t c #B6D3E7",
63"u c #87ABC1",
64"v c #737373",
65"w c #FFFFFF",
66"x c #FEFEFE",
67"y c #F9DC38",
68"z c #EFB44D",
69"A c #665A32",
70"B c #BBBBBB",
71"C c #CDCDCD",
72"D c #E4E4E4",
73"E c #6E6E6E",
74"F c #819EB6",
75"G c #526C80",
76"H c #B9D3E7",
77"I c #85A4BF",
78"J c #F8D837",
79"K c #F0A93F",
80"L c #655930",
81"M c #BABABA",
82"N c #CCCCCC",
83"O c #E5E5E5",
84"P c #F7F7F7",
85"Q c #727272",
86"R c #83A0B8",
87"S c #4F697C",
88"T c #B9D3E6",
89"U c #84A3BF",
90"V c #CECECE",
91"W c #F6D236",
92"X c #EDA43E",
93"Y c #5C5130",
94"Z c #949494",
95"` c #A3A3A3",
96" . c #B7B7B7",
97".. c #C6C6C6",
98"+. c #BDBDBD",
99"@. c #88A4BB",
100"#. c #486276",
101"$. c #B7D2E7",
102"%. c #82A0BB",
103"&. c #636363",
104"*. c #FDFDFD",
105"=. c #D7AE74",
106"-. c #61562F",
107";. c #465E70",
108">. c #B5CAE5",
109",. c #7FA2B9",
110"'. c #4F4115",
111"). c #87A3BA",
112"!. c #455C6D",
113"~. c #AECCE5",
114"{. c #7DA0B6",
115"]. c #CBCBCB",
116"^. c #9B9B9B",
117"/. c #9C9C9C",
118"(. c #A7A7A7",
119"_. c #B8B8B8",
120":. c #C5C5C5",
121"<. c #546069",
122"[. c #B0D1E4",
123"}. c #83A1B6",
124"|. c #735B5B",
125"1. c #F0F0F0",
126"2. c #D9D9D9",
127"3. c #D3D3D3",
128"4. c #E1E1E1",
129"5. c #EDEDED",
130"6. c #F8F8F8",
131"7. c #515C64",
132"8. c #AACEE3",
133"9. c #7B9BB2",
134"0. c #7A8E9A",
135"a. c #7A7A7A",
136"b. c #707070",
137"c. c #6C6C6C",
138"d. c #6F6F6F",
139"e. c #6A6E71",
140"f. c #696969",
141"g. c #6F777E",
142"h. c #86A2B9",
143"i. c #3A515D",
144"j. c #A9C9E2",
145"k. c #7494AF",
146"l. c #7E9BB4",
147"m. c #7D9AB3",
148"n. c #7998B2",
149"o. c #85A1B8",
150"p. c #829FB7",
151"q. c #8CA7BD",
152"r. c #8AA5BB",
153"s. c #364A59",
154"t. c #ABC4E2",
155"u. c #7294AD",
156"v. c #6F90AC",
157"w. c #7192AE",
158"x. c #414A4E",
159"y. c #424A51",
160"z. c #525B63",
161"A. c #626F79",
162"B. c #5F6C76",
163"C. c #5C6971",
164"D. c #5A666F",
165"E. c #58636B",
166"F. c #57636A",
167"G. c #3B5360",
168"H. c #39424B",
169"I. c #7897B3",
170"J. c #A4B9CB",
171"K. c #364853",
172"L. c #AAC9E2",
173"M. c #7091AA",
174"N. c #6F8FA7",
175"O. c #4A5359",
176"P. c #97938C",
177"Q. c #DFDDDA",
178"R. c #E3E1DE",
179"S. c #EBEAE8",
180"T. c #EAE9E7",
181"U. c #CFCEC9",
182"V. c #C9C6C0",
183"W. c #9B968E",
184"X. c #566168",
185"Y. c #4B657A",
186"Z. c #54738C",
187"`. c #AAC6DD",
188" + c #34464E",
189".+ c #AAC9E1",
190"++ c #6C8EA6",
191"@+ c #6C8CA4",
192"#+ c #40474D",
193"$+ c #DAD8D3",
194"%+ c #E7E6E2",
195"&+ c #67655E",
196"*+ c #524F47",
197"=+ c #D9D7D4",
198"-+ c #C7C5BF",
199";+ c #C0BCB5",
200">+ c #B8B3AB",
201",+ c #434C54",
202"'+ c #4D697F",
203")+ c #4F6F84",
204"!+ c #B3CADC",
205"~+ c #313E49",
206"{+ c #A8C8E1",
207"]+ c #6B8DA6",
208"^+ c #728FA4",
209"/+ c #E2E1DD",
210"(+ c #F0EFEC",
211"_+ c #CDCAC6",
212":+ c #C2BFB9",
213"<+ c #CAC6C0",
214"[+ c #DCDAD7",
215"}+ c #4B555D",
216"|+ c #4E697F",
217"1+ c #BACCDC",
218"2+ c #A4C4DE",
219"3+ c #698BA3",
220"4+ c #708AA1",
221"5+ c #383E43",
222"6+ c #E0DEDA",
223"7+ c #514E46",
224"8+ c #4F4C44",
225"9+ c #C7C4BE",
226"0+ c #CBC8C2",
227"a+ c #E1E0DC",
228"b+ c #E9E8E6",
229"c+ c #475158",
230"d+ c #4E6879",
231"e+ c #4D6C80",
232"f+ c #A3C3DB",
233"g+ c #383F43",
234"h+ c #778999",
235"i+ c #6E899E",
236"j+ c #65859C",
237"k+ c #33383C",
238"l+ c #D7D4D0",
239"m+ c #D6D4D0",
240"n+ c #4E4A43",
241"o+ c #4D4942",
242"p+ c #D1CEC9",
243"q+ c #E6E5E2",
244"r+ c #EDECEA",
245"s+ c #454F55",
246"t+ c #486173",
247"u+ c #4D6678",
248"v+ c #A1C1DA",
249"w+ c #373C40",
250"x+ c #0C0D0F",
251"y+ c #4E5E6A",
252"z+ c #5B6E7C",
253"A+ c #4F5B62",
254"B+ c #A4A099",
255"C+ c #CCC9C3",
256"D+ c #D7D5D1",
257"E+ c #E4E2E0",
258"F+ c #DDDBD7",
259"G+ c #B8B5B0",
260"H+ c #3E474D",
261"I+ c #4A6176",
262"J+ c #4A6070",
263"K+ c #9BC3D8",
264"L+ c #363C41",
265"M+ c #28323E",
266" . . ",
267" . + @ . ",
268" . . . . . . . . . . . . . # $ % . . . ",
269" . & * = - ; > , ' ) ! ~ . { ] ^ . / ( _ . ",
270" . : < [ } | 1 2 3 4 5 . 6 7 8 . 9 0 a b . ",
271" . c d e f g h i j k . l m n . o p q r s . ",
272" . t u v w w w w x . y z A . B C D E F G . ",
273" . H I v w w w x . J K L . M N O P Q R S . ",
274" . T U v V C N . W X Y . Z ` ...+.v @.#.. ",
275" . $.%.&.w w *.. =.-.. M N D P *.w v @.;.. ",
276" . >.,.v w x . '.. . M N D P *.w w v ).!.. ",
277" . ~.{.v V ].. . ^./.(._...].C C :.v ).<.. ",
278" . [.}.|.w *.1.2.3.4.5.6.x w w w w v R 7.. ",
279" . 8.9.0.a.Q b.c.c.d.e.E v v v v f.g.h.i.. ",
280" . j.k.F R h.F l.m.F n.h.o.o.).p.q.R r.s.. ",
281" . t.u.v.w.x.y.z.A.B.C.D.E.F.z.G.H.I.J.K.. ",
282" . L.M.N.O.P.Q.R.S.S.T.Q.U.V.W.X.Y.Z.`. +. ",
283" . .+++@+#+$+%+&+*+*+=+-+;+>+U.,+'+)+!+~+. ",
284" . {+]+^+#+/+(+&+*+*+_+:+;+<+[+}+|+)+1+~+. ",
285" . 2+3+4+5+6+S.7+8+8+9+;+0+a+b+c+d+e+f+g+. ",
286" . h+i+j+k+l+m+n+o+o+;+p+q+r+q+s+t+u+v+w+. ",
287" x+y+z+A+B+;+>+C+C+D+E+T.F+G+H+I+J+K+L+. ",
288" . . . . . . . . . . . . . . . . M+. ",
289" "};
diff --git a/lisp/toolbar/search-replace.pbm b/lisp/toolbar/search-replace.pbm
deleted file mode 100644
index 3e444cf7bb6..00000000000
--- a/lisp/toolbar/search-replace.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/search-replace.xpm b/lisp/toolbar/search-replace.xpm
deleted file mode 100644
index 597337f047a..00000000000
--- a/lisp/toolbar/search-replace.xpm
+++ /dev/null
@@ -1,38 +0,0 @@
1/* XPM */
2static char *magick[] = {
3/* columns rows colors chars-per-pixel */
4"24 24 8 1",
5" c #01260126010f",
6". c #56004ef93434",
7"X c #5c9c5c9c57c7",
8"o c #8e8e7d7d4545",
9"O c #a72aa72a95e6",
10"+ c #d015d015b9c5",
11"@ c #e90de90dd2e3",
12"# c None",
13/* pixels */
14"########################",
15"################ ######",
16"############### o #####",
17"########### ## o ######",
18"######### O o #######",
19"####### O@@ o ########",
20"##### O+++ o #########",
21"### O++++ o #########",
22"## XX++++ . @.#########",
23"## @.O+++ @@@@ ########",
24"## @@.++++@@@@@O #######",
25"## @@.O+O. .O@@ #######",
26"## @XO+O.O++O.+@@ ######",
27"## O++.O@@+OX.@@O #####",
28"## X+++ +#+OOO @@@+ ####",
29"## O++@ +@OOOO @@@O ####",
30"### +@@.OOOOOX.@@ #####",
31"### +@@O.OOOX + #######",
32"####X@@@O. .X ########",
33"#### @@@@@@@+ #######",
34"##### @@@@@O ## ######",
35"##### O@@+. #### #####",
36"###### @O ####### #####",
37"####### ###############"
38};
diff --git a/lisp/toolbar/search.pbm b/lisp/toolbar/search.pbm
deleted file mode 100644
index 0e8a15e6a2e..00000000000
--- a/lisp/toolbar/search.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/search.xpm b/lisp/toolbar/search.xpm
deleted file mode 100644
index ad6300528e9..00000000000
--- a/lisp/toolbar/search.xpm
+++ /dev/null
@@ -1,234 +0,0 @@
1/* XPM */
2static char * search_xpm[] = {
3"24 24 207 2",
4" c None",
5". c #000000",
6"+ c #D3D3D3",
7"@ c #F6F6F6",
8"# c #FFFFFF",
9"$ c #F9F9F9",
10"% c #DADADA",
11"& c #585858",
12"* c #C7C7C7",
13"= c #D1D1D1",
14"- c #D6D6D6",
15"; c #FEFEFE",
16"> c #FDFDFD",
17", c #C0C0C0",
18"' c #E1E1E1",
19") c #F0F0F0",
20"! c #9B9B9B",
21"~ c #FCFCFB",
22"{ c #FBFBFB",
23"] c #AFAFAE",
24"^ c #E9E9E9",
25"/ c #DFDFDF",
26"( c #8F8F8F",
27"_ c #FAFAF9",
28": c #F9F9F8",
29"< c #A4A4A3",
30"[ c #F4F4F4",
31"} c #CFCFCF",
32"| c #A2A2A2",
33"1 c #B8B8B8",
34"2 c #47473F",
35"3 c #0A0A09",
36"4 c #4B4B43",
37"5 c #B4B4B3",
38"6 c #F7F6F5",
39"7 c #9E9E9E",
40"8 c #A9A9A8",
41"9 c #34342E",
42"0 c #9D9D8D",
43"a c #CFCFB9",
44"b c #C4C4AF",
45"c c #8D8D7F",
46"d c #353530",
47"e c #ACACAA",
48"f c #F1F0EF",
49"g c #DEDDDC",
50"h c #D3D2D0",
51"i c #B7B7B5",
52"j c #9F9E9D",
53"k c #706F6F",
54"l c #65625A",
55"m c #46463F",
56"n c #9C9C8C",
57"o c #E2E2D0",
58"p c #EDEDE7",
59"q c #C0C0AC",
60"r c #B2B29F",
61"s c #828274",
62"t c #4C4C44",
63"u c #E4E4E2",
64"v c #E1E1DF",
65"w c #DAD9D7",
66"x c #D8D8D6",
67"y c #CDCCCA",
68"z c #AFAEAC",
69"A c #88847B",
70"B c #F8F8F7",
71"C c #090908",
72"D c #D5D5BF",
73"E c #FBFBFA",
74"F c #C3C3AE",
75"G c #B5B5A2",
76"H c #A6A695",
77"I c #9C9C8F",
78"J c #080807",
79"K c #CFCFCD",
80"L c #E3E2E0",
81"M c #ECEBE9",
82"N c #E9E8E6",
83"O c #D5D4D3",
84"P c #C4C3C2",
85"Q c #8F8A81",
86"R c #F6F5F4",
87"S c #F3F3F1",
88"T c #090909",
89"U c #CACAB5",
90"V c #DDDDD0",
91"W c #B7B7A4",
92"X c #AAAA98",
93"Y c #9B9B8B",
94"Z c #AEAEA3",
95"` c #BBBAB9",
96" . c #E8E7E5",
97".. c #E5E4E2",
98"+. c #E4E3E0",
99"@. c #D2D1CE",
100"#. c #8D887E",
101"$. c #F4F3F2",
102"%. c #F0EFEE",
103"&. c #474740",
104"*. c #929283",
105"=. c #BABAA7",
106"-. c #ADAD9B",
107";. c #9F9F8E",
108">. c #ACACA1",
109",. c #CFCFCB",
110"'. c #4C4C45",
111"). c #B3B2B1",
112"!. c #E2E1DE",
113"~. c #E1DFDC",
114"{. c #979288",
115"]. c #949493",
116"^. c #34342F",
117"/. c #878779",
118"(. c #A0A090",
119"_. c #AEAEA2",
120":. c #C3C3BE",
121"<. c #010101",
122"[. c #B1B0AF",
123"}. c #D2D1CF",
124"|. c #A49E93",
125"1. c #F0F0EE",
126"2. c #EDEDEB",
127"3. c #DDDDDB",
128"4. c #898988",
129"5. c #414141",
130"6. c #737271",
131"7. c #A4A3A1",
132"8. c #DFDEDB",
133"9. c #E2E0DD",
134"0. c #E1E0DC",
135"a. c #E0DFDB",
136"b. c #A19C90",
137"c. c #E1E0DE",
138"d. c #CBCAC9",
139"e. c #B2B1B0",
140"f. c #A3A2A1",
141"g. c #9D9C9A",
142"h. c #9E9D9C",
143"i. c #9F9F9D",
144"j. c #ABAAA7",
145"k. c #DCDBD7",
146"l. c #DEDDD9",
147"m. c #DDDCD8",
148"n. c #A19B90",
149"o. c #EBEAE8",
150"p. c #E6E5E3",
151"q. c #C8C7C4",
152"r. c #B6B6B3",
153"s. c #B0AFAD",
154"t. c #B3B2B0",
155"u. c #747371",
156"v. c #9D9C99",
157"w. c #DAD9D5",
158"x. c #E7E6E3",
159"y. c #E6E5E2",
160"z. c #E3E2DF",
161"A. c #DBDAD7",
162"B. c #D4D3D0",
163"C. c #D0CFCB",
164"D. c #D1CFCC",
165"E. c #D1D0CC",
166"F. c #C9C8C4",
167"G. c #6B6B69",
168"H. c #CECDC9",
169"I. c #D6D4D0",
170"J. c #9F998D",
171"K. c #E3E2DE",
172"L. c #E4E2DF",
173"M. c #DFDEDA",
174"N. c #D5D4D0",
175"O. c #C0BFBC",
176"P. c #7B7A78",
177"Q. c #BCBAB6",
178"R. c #CECCC8",
179"S. c #9D978C",
180"T. c #EDEDED",
181"U. c #E1E0DD",
182"V. c #E2E1DD",
183"W. c #DBDAD6",
184"X. c #BBB9B6",
185"Y. c #A6A4A1",
186"Z. c #9E9C99",
187"`. c #ACABA7",
188" + c #C7C5C2",
189".+ c #9B9589",
190"++ c #E1DFDB",
191"@+ c #E0DEDA",
192"#+ c #DEDCD8",
193"$+ c #DAD8D4",
194"%+ c #BDBCB8",
195"&+ c #ACABA8",
196"*+ c #B2B1AD",
197"=+ c #C6C4C0",
198"-+ c #999388",
199";+ c #999891",
200">+ c #A39E92",
201",+ c #A39D92",
202"'+ c #A39D91",
203")+ c #A29C90",
204"!+ c #A19B8F",
205"~+ c #9D978B",
206"{+ c #989286",
207"]+ c #918C82",
208"^+ c #938D83",
209"/+ c #979286",
210"(+ c #666258",
211" ",
212" . . . . . . . . . . . . . ",
213" . + @ # # # # # # # # $ % & . ",
214" . @ # # # # # # # # # # * = - . ",
215" . # # # # # # # ; # ; > , ' ) ! . ",
216" . # # # # # ; > ~ > ~ { ] ^ # / ( . ",
217" . # # # ; > ~ { _ { _ : < ) # [ } | . ",
218" . # ; > ~ 1 2 3 3 4 5 6 7 . . . . . . . ",
219" . # ~ { 8 9 0 a b c d e f g h i j k l . ",
220" . # _ : m n o p q r s t u v w x y z A . ",
221" . # B 6 C D E F G H I J K L M N O P Q . ",
222" . # R S T U V W X Y Z 3 ` w ...+.@.#.. ",
223" . # $.%.&.*.=.-.;.>.,.'.).h !.+.!.~.{.. ",
224" . # $.%.].^./.(._.:.<.<.[.}.!.+.!.~.|.. ",
225" . # 1.2.3.4.4 3 3 5.6.<.<.7.8.9.0.a.b.. ",
226" . # 2.M c.d.e.f.g.h.i.<.<.<.j.k.l.m.n.. ",
227" . # o.N p.w q.r.z s.t.u.. <.<.v.w.k.n.. ",
228" . # x.y.y.z.A.B.C.D.E.F.G.<.<.<.H.I.J.. ",
229" . $ +.z.K.L.K.a.a.M.M.N.O.P.<.<.Q.R.S.. ",
230" . T.U.~.0.a.V.a.0.a.0.W.E.X.Y.Z.`. +.+. ",
231" . = ++@+M.l.a.l.@+l.@+#+$+R.%+&+*+=+-+. ",
232" . ;+>+|.,+'+,+b.)+b.)+!+n.~+{+]+^+/+(+. ",
233" . . . . . . . . . . . . . . . . . . ",
234" "};
diff --git a/lisp/toolbar/spell.pbm b/lisp/toolbar/spell.pbm
deleted file mode 100644
index 39a00c8946a..00000000000
--- a/lisp/toolbar/spell.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/spell.xpm b/lisp/toolbar/spell.xpm
deleted file mode 100644
index b53f4510602..00000000000
--- a/lisp/toolbar/spell.xpm
+++ /dev/null
@@ -1,64 +0,0 @@
1/* XPM */
2static char * spell_xpm[] = {
3"24 24 37 1",
4" c None",
5". c #000000",
6"+ c #8BBB8C",
7"@ c #ABD0AC",
8"# c #1A3B1A",
9"$ c #8ABA88",
10"% c #B4D5B4",
11"& c #70A770",
12"* c #132C13",
13"= c #77A676",
14"- c #2D2D2D",
15"; c #CBDFCB",
16"> c #6FAE6E",
17", c #A8CBA6",
18"' c #6D9D6C",
19") c #D0E4D0",
20"! c #6FAF6F",
21"~ c #587055",
22"{ c #B8D6B8",
23"] c #5B9159",
24"^ c #D4E4D4",
25"/ c #67AF67",
26"( c #5D905B",
27"_ c #9FC59D",
28": c #93BE92",
29"< c #B5D1B5",
30"[ c #67AF68",
31"} c #63A261",
32"| c #BBD6BA",
33"1 c #82B881",
34"2 c #75AF74",
35"3 c #6B8868",
36"4 c #9DC39D",
37"5 c #7DB17B",
38"6 c #6BA368",
39"7 c #485C46",
40"8 c #89BA88",
41" ",
42" ",
43" ",
44" ",
45" ... .... ... ",
46" .. . .. . .. . ",
47" .. . .... .. ",
48" ..... .. . .. ",
49" .. . .. . .. . . ",
50" .. . .... ... ... ",
51" .+. ",
52" .. .@# ",
53" .$. .%&. ",
54" *=. -;>. ",
55" .,'. .)!~. ",
56" .{].^/(. ",
57" ._:<[}~. ",
58" .|123. ",
59" .4567. ",
60" .83. ",
61" .37. ",
62" .. ",
63" ",
64" "};
diff --git a/lisp/toolbar/undo.pbm b/lisp/toolbar/undo.pbm
deleted file mode 100644
index 7f9b8975d2f..00000000000
--- a/lisp/toolbar/undo.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/undo.xpm b/lisp/toolbar/undo.xpm
deleted file mode 100644
index ca5bd760937..00000000000
--- a/lisp/toolbar/undo.xpm
+++ /dev/null
@@ -1,58 +0,0 @@
1/* XPM */
2static char * undo_xpm[] = {
3"24 24 31 1",
4" c None",
5". c #000000",
6"+ c #EFE5BA",
7"@ c #EFE7C1",
8"# c #EED680",
9"$ c #EFE4B6",
10"% c #D5B75D",
11"& c #B29544",
12"* c #D1B051",
13"= c #C0AF73",
14"- c #C0A048",
15"; c #986B07",
16"> c #D1940C",
17", c #E0B74C",
18"' c #D9C374",
19") c #8F6406",
20"! c #D59D1C",
21"~ c #B1933F",
22"{ c #DFB74A",
23"] c #CCB76D",
24"^ c #B8820A",
25"/ c #D9A72E",
26"( c #D7A62C",
27"_ c #C7B26A",
28": c #D4B150",
29"< c #A39256",
30"[ c #E2CB79",
31"} c #C9B46B",
32"| c #8D7E4A",
33"1 c #AE9C5C",
34"2 c #96864F",
35" ",
36" ",
37" ",
38" . ",
39" .. ",
40" .+. ",
41" .@#.... ",
42" .$####%&. ",
43" .+#######*. ",
44" .=#########-. ",
45" .;>>>>>>,#'.. ",
46" .)>>>>>>!#~. ",
47" .)>...;>{]. ",
48" .;. ..^/#. ",
49" .. ..>#. ",
50" . .(_. ",
51" .:<. ",
52" .[. ",
53" .}|. ",
54" .12. ",
55" .. ",
56" ",
57" ",
58" "};
diff --git a/lisp/toolbar/up_arrow.pbm b/lisp/toolbar/up_arrow.pbm
deleted file mode 100644
index 7c792bef796..00000000000
--- a/lisp/toolbar/up_arrow.pbm
+++ /dev/null
Binary files differ
diff --git a/lisp/toolbar/up_arrow.xpm b/lisp/toolbar/up_arrow.xpm
deleted file mode 100644
index 09963557d1b..00000000000
--- a/lisp/toolbar/up_arrow.xpm
+++ /dev/null
@@ -1,94 +0,0 @@
1/* XPM */
2static char * up_arrow_xpm[] = {
3"24 24 67 1",
4" c None",
5". c #000000",
6"+ c #2F2F2F",
7"@ c #A5B4A4",
8"# c #E8F4E6",
9"$ c #96B892",
10"% c #41533C",
11"& c #F1FFF0",
12"* c #B8D6B7",
13"= c #9FC49D",
14"- c #66815E",
15"; c #B6D4B5",
16"> c #B9D7B8",
17", c #A1C69F",
18"' c #68835F",
19") c #637D5B",
20"! c #3F5239",
21"~ c #B8D7B7",
22"{ c #A2C7A0",
23"] c #6A8561",
24"^ c #657F5C",
25"/ c #617959",
26"( c #3E4F39",
27"_ c #F0FEEF",
28": c #B7D5B6",
29"< c #657E5C",
30"[ c #5D7555",
31"} c #D6EAD6",
32"| c #BFD4BF",
33"1 c #C0D5C0",
34"2 c #637C5B",
35"3 c #4D6246",
36"4 c #4C6046",
37"5 c #C7E1C6",
38"6 c #A1C69E",
39"7 c #67815E",
40"8 c #627B59",
41"9 c #3D4E39",
42"0 c #D0E7D0",
43"a c #B5D3B4",
44"b c #A0C39D",
45"c c #607958",
46"d c #B5D2B4",
47"e c #9DC19B",
48"f c #647D5B",
49"g c #607858",
50"h c #C6E0C5",
51"i c #B4D2B3",
52"j c #9CBF99",
53"k c #C5DFC4",
54"l c #B1CEB0",
55"m c #99BC97",
56"n c #617A59",
57"o c #5E7756",
58"p c #C0D9BF",
59"q c #AFCCAE",
60"r c #AECBAD",
61"s c #93B690",
62"t c #607857",
63"u c #5E7656",
64"v c #8DB389",
65"w c #748A72",
66"x c #71916E",
67"y c #5A7257",
68"z c #4D6247",
69"A c #4D6146",
70"B c #43543D",
71" ",
72" ",
73" . ",
74" +@. ",
75" .#$%. ",
76" .&*=-%. ",
77" .&;>,')!. ",
78" .&~;>{]^/(. ",
79" ._~>:>,]</[(. ",
80" .}|1>~~,'23444. ",
81" .....5;;6789..... ",
82" .0;ab^c9. ",
83" .5;defg9. ",
84" .haij2g9. ",
85" .kilmno9. ",
86" .pqrstu9. ",
87" .vwxyzAB. ",
88" ......... ",
89" ",
90" ",
91" ",
92" ",
93" ",
94" "};
diff --git a/lisp/tree-widget.el b/lisp/tree-widget.el
index 708dc294f8d..8ee1d5f9ed9 100644
--- a/lisp/tree-widget.el
+++ b/lisp/tree-widget.el
@@ -434,16 +434,25 @@ Return the image found, or nil if not found."
434 434
435;;; Widgets 435;;; Widgets
436;; 436;;
437(defun tree-widget-button-click (event)
438 "Move to the position clicked on, and if it is a button, invoke it.
439EVENT is the mouse event received."
440 (interactive "e")
441 (mouse-set-point event)
442 (let ((pos (widget-event-point event)))
443 (if (get-char-property pos 'button)
444 (widget-button-click event))))
445
437(defvar tree-widget-button-keymap 446(defvar tree-widget-button-keymap
438 (let ((km (make-sparse-keymap))) 447 (let ((km (make-sparse-keymap)))
439 (if (boundp 'widget-button-keymap) 448 (if (boundp 'widget-button-keymap)
440 ;; XEmacs 449 ;; XEmacs
441 (progn 450 (progn
442 (set-keymap-parent km widget-button-keymap) 451 (set-keymap-parent km widget-button-keymap)
443 (define-key km [button1] 'widget-button-click)) 452 (define-key km [button1] 'tree-widget-button-click))
444 ;; Emacs 453 ;; Emacs
445 (set-keymap-parent km widget-keymap) 454 (set-keymap-parent km widget-keymap)
446 (define-key km [down-mouse-1] 'widget-button-click)) 455 (define-key km [down-mouse-1] 'tree-widget-button-click))
447 km) 456 km)
448 "Keymap used inside node buttons. 457 "Keymap used inside node buttons.
449Handle mouse button 1 click on buttons.") 458Handle mouse button 1 click on buttons.")
diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 3eb850f85f3..d7a822e105a 100644
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,7 @@
12005-10-15 Richard M. Stallman <rms@gnu.org>
2
3 * url.el: Don't try to autoload hash table functions.
4
12005-10-03 Stefan Monnier <monnier@iro.umontreal.ca> 52005-10-03 Stefan Monnier <monnier@iro.umontreal.ca>
2 6
3 * url-http.el (url-http-create-request): Avoid incorrect implicit 7 * url-http.el (url-http-create-request): Avoid incorrect implicit
diff --git a/lisp/url/url.el b/lisp/url/url.el
index ef101fe6f2a..4a1e157e59d 100644
--- a/lisp/url/url.el
+++ b/lisp/url/url.el
@@ -30,16 +30,6 @@
30;;; Code: 30;;; Code:
31 31
32(eval-when-compile (require 'cl)) 32(eval-when-compile (require 'cl))
33;; Don't require CL at runtime if we can avoid it (Emacs 21).
34;; Otherwise we need it for hashing functions. `puthash' was never
35;; defined in the Emacs 20 cl.el for some reason.
36(if (fboundp 'puthash)
37 nil ; internal or CL is loaded
38 (defalias 'puthash 'cl-puthash)
39 (autoload 'cl-puthash "cl")
40 (autoload 'gethash "cl")
41 (autoload 'maphash "cl")
42 (autoload 'make-hash-table "cl"))
43 33
44(eval-when-compile 34(eval-when-compile
45 (require 'mm-decode) 35 (require 'mm-decode)
@@ -236,6 +226,10 @@ no further processing). URL is either a string or a parsed URL."
236 226
237(defun url-mm-url (url) 227(defun url-mm-url (url)
238 "Retrieve URL and pass to the appropriate viewing application." 228 "Retrieve URL and pass to the appropriate viewing application."
229 ;; These requires could advantageously be moved to url-mm-callback or
230 ;; turned into autoloads, but I suspect that it would introduce some bugs
231 ;; because loading those files from a process sentinel or filter may
232 ;; result in some undesirable carner cases.
239 (require 'mm-decode) 233 (require 'mm-decode)
240 (require 'mm-view) 234 (require 'mm-view)
241 (url-retrieve url 'url-mm-callback nil)) 235 (url-retrieve url 'url-mm-callback nil))
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index 9dea809dc91..1d5cb3625f0 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -660,6 +660,16 @@ button is pressed or inactive, respectively. These are currently ignored."
660 tag 'mouse-face widget-button-pressed-face))) 660 tag 'mouse-face widget-button-pressed-face)))
661 (insert tag))) 661 (insert tag)))
662 662
663(defun widget-move-and-invoke (event)
664 "Move to where you click, and if it is an active field, invoke it."
665 (interactive "e")
666 (mouse-set-point event)
667 (if (widget-event-point event)
668 (let* ((pos (widget-event-point event))
669 (button (get-char-property pos 'button)))
670 (if button
671 (widget-button-click event)))))
672
663;;; Buttons. 673;;; Buttons.
664 674
665(defgroup widget-button nil 675(defgroup widget-button nil
@@ -3012,7 +3022,8 @@ It will read a file name from the minibuffer when invoked."
3012 (with-output-to-temp-buffer "*Completions*" 3022 (with-output-to-temp-buffer "*Completions*"
3013 (display-completion-list 3023 (display-completion-list
3014 (sort (file-name-all-completions name-part directory) 3024 (sort (file-name-all-completions name-part directory)
3015 'string<))) 3025 'string<)
3026 name-part))
3016 (message "Making completion list...%s" "done"))))) 3027 (message "Making completion list...%s" "done")))))
3017 3028
3018(defun widget-file-prompt-value (widget prompt value unbound) 3029(defun widget-file-prompt-value (widget prompt value unbound)
@@ -3571,7 +3582,8 @@ example:
3571 (t 3582 (t
3572 (message "Making completion list...") 3583 (message "Making completion list...")
3573 (with-output-to-temp-buffer "*Completions*" 3584 (with-output-to-temp-buffer "*Completions*"
3574 (display-completion-list (all-completions prefix list nil))) 3585 (display-completion-list (all-completions prefix list nil)
3586 prefix))
3575 (message "Making completion list...done"))))) 3587 (message "Making completion list...done")))))
3576 3588
3577(defun widget-color-sample-face-get (widget) 3589(defun widget-color-sample-face-get (widget)
diff --git a/lisp/woman.el b/lisp/woman.el
index bc7ec86e4a7..5e8aff75e7f 100644
--- a/lisp/woman.el
+++ b/lisp/woman.el
@@ -424,6 +424,11 @@
424(defvar woman-version "0.551 (beta)" "WoMan version information.") 424(defvar woman-version "0.551 (beta)" "WoMan version information.")
425 425
426(require 'man) 426(require 'man)
427(require 'button)
428(define-button-type 'WoMan-xref-man-page
429 :supertype 'Man-abstract-xref-man-page
430 'func 'woman)
431
427(eval-when-compile ; to avoid compiler warnings 432(eval-when-compile ; to avoid compiler warnings
428 (require 'dired) 433 (require 'dired)
429 (require 'apropos)) 434 (require 'apropos))
@@ -1864,7 +1869,7 @@ See `Man-mode' for additional details."
1864 (setq woman-imenu-done nil) 1869 (setq woman-imenu-done nil)
1865 (if woman-imenu (woman-imenu)) 1870 (if woman-imenu (woman-imenu))
1866 (let (buffer-read-only) 1871 (let (buffer-read-only)
1867 (Man-highlight-references)) 1872 (Man-highlight-references 'WoMan-xref-man-page))
1868 (set-buffer-modified-p nil) 1873 (set-buffer-modified-p nil)
1869 (run-mode-hooks 'woman-mode-hook)) 1874 (run-mode-hooks 'woman-mode-hook))
1870 1875