diff options
| author | Karoly Lorentey | 2005-10-19 14:06:17 +0000 |
|---|---|---|
| committer | Karoly Lorentey | 2005-10-19 14:06:17 +0000 |
| commit | 1072671b5b0f1fda9f91ea99da4bf0bd275ce6eb (patch) | |
| tree | f1b05485825e65d7c0ca06cb273be4fe16a44a3f /lisp | |
| parent | 6d8cf83040cdb54a0b1d72bd6a021f9815bd4af2 (diff) | |
| parent | 8b1b64617b37243f75c4052653761d2e2a3943f3 (diff) | |
| download | emacs-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')
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 @@ | |||
| 1 | 2005-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 | |||
| 8 | 2005-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 | |||
| 13 | 2005-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 | |||
| 21 | 2005-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 | |||
| 25 | 2005-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 | |||
| 35 | 2005-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 | |||
| 47 | 2005-10-18 Nick Roberts <nickrob@snap.net.nz> | ||
| 48 | |||
| 49 | * progmodes/gud.el (gud-menu-map): Correct condition for fringe. | ||
| 50 | |||
| 51 | 2005-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 | |||
| 59 | 2005-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 | |||
| 118 | 2005-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 | |||
| 123 | 2005-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 | |||
| 138 | 2005-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 | |||
| 144 | 2005-10-17 Richard M. Stallman <rms@gnu.org> | ||
| 145 | |||
| 146 | * textmodes/tex-mode.el (tex-font-lock-keywords-2): Undo prev change. | ||
| 147 | |||
| 148 | 2005-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 | |||
| 153 | 2005-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 | |||
| 162 | 2005-10-16 Chong Yidong <cyd@stupidchicken.com> | ||
| 163 | |||
| 164 | * longlines.el (longlines-search-forward) | ||
| 165 | (longlines-search-backward): Match any number of spaces. | ||
| 166 | |||
| 167 | 2005-10-16 Thien-Thi Nguyen <ttn@gnu.org> | ||
| 168 | |||
| 169 | * diff-mode.el (diff-mode): Doc fix. | ||
| 170 | |||
| 171 | 2005-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 | |||
| 176 | 2005-10-16 Sven Joachim <svenjoac@gmx.de> (tiny change) | ||
| 177 | |||
| 178 | * arc-mode.el (archive-zip-extract): Doc fix. | ||
| 179 | |||
| 180 | 2005-10-16 Romain Francoise <romain@orebokech.com> | ||
| 181 | |||
| 182 | * mouse.el (mouse-1-click-follows-link): Doc fix. | ||
| 183 | |||
| 184 | 2005-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 | |||
| 195 | 2005-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 | |||
| 205 | 2005-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 | |||
| 216 | 2005-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 | |||
| 221 | 2005-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 | |||
| 259 | 2005-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 | |||
| 265 | 2005-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 | |||
| 271 | 2005-10-15 Richard M. Stallman <rms@gnu.org> | ||
| 272 | |||
| 273 | * savehist.el: New file. | ||
| 274 | |||
| 275 | 2005-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 | |||
| 280 | 2005-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 | |||
| 290 | 2005-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 | |||
| 311 | 2005-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 | |||
| 321 | 2005-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 | |||
| 1 | 2005-10-13 Jan Dj,Ad(Brv <jan.h.d@swipnet.se> | 329 | 2005-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 | ||
| 357 | 2005-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 | |||
| 29 | 2005-10-12 Bill Wohler <wohler@newt.com> | 362 | 2005-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 | ||
| 10077 | 2005-03-28 Luc Teirlinck <teirllm@auburn.edu> | 10410 | 2005-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. |
| 227 | Extraction should happen to standard output. Archive and member name will | 227 | Extraction should happen to standard output. Archive and member name will |
| 228 | be added. If `archive-zip-use-pkzip' is non-nil then this program is | 228 | be added." |
| 229 | expected 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 | |||
| 967 | headers for you on-the-fly. | 967 | headers for you on-the-fly. |
| 968 | 968 | ||
| 969 | You can also switch between context diff and unified diff with \\[diff-context->unified], | 969 | You can also switch between context diff and unified diff with \\[diff-context->unified], |
| 970 | or vice versa with \\[diff-unified->context] and you can also revert the direction of | 970 | or vice versa with \\[diff-unified->context] and you can also reverse the direction of |
| 971 | a diff with \\[diff-reverse-direction]." | 971 | a 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. | |||
| 1380 | With a prefix, this command behaves exactly like `ffap-file-finder'. | 1380 | With a prefix, this command behaves exactly like `ffap-file-finder'. |
| 1381 | If `ffap-require-prefix' is set, the prefix meaning is reversed. | 1381 | If `ffap-require-prefix' is set, the prefix meaning is reversed. |
| 1382 | See also the variables `ffap-dired-wildcards', `ffap-newfile-prompt', | 1382 | See also the variables `ffap-dired-wildcards', `ffap-newfile-prompt', |
| 1383 | and the functions `ffap-file-at-point' and `ffap-url-at-point'. | 1383 | and the functions `ffap-file-at-point' and `ffap-url-at-point'." |
| 1384 | |||
| 1385 | See <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 @@ | |||
| 1 | 2005-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 | |||
| 7 | 2005-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 | |||
| 12 | 2005-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 | |||
| 1 | 2005-10-09 Daniel Brockman <daniel@brockman.se> | 17 | 2005-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 | ||
| 40 | 2005-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 | |||
| 24 | 2005-10-04 Reiner Steib <Reiner.Steib@gmx.de> | 45 | 2005-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. |
| 125 | The headers should be delimited by a line which is | 128 | The headers should be delimited by a line which is |
| 126 | not a valid RFC822 header or continuation line, | 129 | not 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 | ||
| 97 | doit: | 96 | doit: |
| 98 | 97 | ||
| 99 | cus-load.el: | 98 | $(lisp)/cus-load.el: |
| 100 | touch $@ | 99 | touch $@ |
| 101 | custom-deps: cus-load.el doit | 100 | custom-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 | ||
| 109 | loaddefs.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 | ||
| 150 | autoloads: loaddefs.el doit | 149 | autoloads: $(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 | ||
| 159 | subdirs.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 |
| 163 | update-subdirs: update-subdirs-$(SHELLTYPE) | 162 | update-subdirs: update-subdirs-$(SHELLTYPE) |
| 164 | 163 | ||
| 165 | update-subdirs-CMD: doit | 164 | update-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 | ||
| 173 | update-subdirs-SH: doit | 172 | update-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 |
| 210 | compile: subdirs.el mh-autoloads compile-$(SHELLTYPE) doit | 209 | compile: $(lisp)/subdirs.el mh-autoloads compile-$(SHELLTYPE) doit |
| 211 | 210 | ||
| 212 | compile-CMD: | 211 | compile-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 | ||
| 239 | compile-always: subdirs.el compile-always-$(SHELLTYPE) doit | 238 | compile-always: $(lisp)/subdirs.el compile-always-$(SHELLTYPE) doit |
| 240 | 239 | ||
| 241 | compile-always-CMD: | 240 | compile-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 | ||
| 301 | mh-autoloads: $(lisp)/mh-e/mh-loaddefs.el | 300 | mh-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 | |||
| 312 | pre-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 | ||
| 330 | pre-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 |
| 340 | bootstrap-clean: bootstrap-clean-$(SHELLTYPE) loaddefs.el | 362 | bootstrap-clean: bootstrap-clean-$(SHELLTYPE) $(lisp)/loaddefs.el |
| 341 | 363 | ||
| 342 | bootstrap-clean-CMD: | 364 | bootstrap-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. |
| 908 | References include items in the SEE ALSO section, | 916 | References include items in the SEE ALSO section, |
| 909 | header file (#include <foo.h>) and files in FILES." | 917 | header file (#include <foo.h>) and files in FILES. |
| 918 | If XREF-MAN-TYPE is used as the button type for items | ||
| 919 | in 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 @@ | |||
| 1 | 2005-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 | |||
| 7 | 2005-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 | |||
| 15 | 2005-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 | |||
| 27 | 2005-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 | |||
| 35 | 2005-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 | |||
| 40 | 2005-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 | |||
| 52 | 2005-10-14 Bill Wohler <wohler@newt.com> | ||
| 53 | |||
| 54 | * mh-e.el (Version, mh-version): Added +cvs to version. | ||
| 55 | |||
| 56 | 2005-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 | |||
| 62 | 2005-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 | |||
| 1 | 2005-10-09 Bill Wohler <wohler@newt.com> | 79 | 2005-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 | |||
| 1430 | and point after it." | 1430 | and 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'. | ||
| 1638 | Calls `display-completion-list' correctly in older environments. | ||
| 1639 | Versions of Emacs prior to version 22 lacked a COMMON-SUBSTRING argument | ||
| 1640 | which is used to highlight the next possible character you can enter | ||
| 1641 | in 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 |
| 1918 | This button runs `mh-mime-save-parts' which saves a message's | 1917 | This button runs `mh-mime-save-parts' which saves a message's |
| 1919 | different parts into separate files.") | 1918 | different 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 |
| 1922 | This button runs `mh-previous-undeleted-msg'") | 1921 | This 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 |
| 126 | header field." | 126 | header 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'. |
| 313 | Images for MH-E are found in ../../etc/images relative to the files in | 308 | Images for MH-E are found in ../../etc/images relative to the files in |
| 314 | lisp/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 |
| 315 | directory is added to it if isn't already there. Otherwise, the images | 310 | directory is added to it if isn't already there. Otherwise, the images |
| 316 | directory is added to the `load-path' if it isn't already there." | 311 | directory 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 | ||
| 55 | With the default setting, an ordinary Mouse-1 click on a link | 55 | With the default setting, an ordinary Mouse-1 click on a link |
| 56 | performs the same action as Mouse-2 on that link, while a longer | 56 | performs the same action as Mouse-2 on that link, while a longer |
| 57 | Mouse-1 click \(hold down the Mouse-1 button for more than 350 | 57 | Mouse-1 click \(hold down the Mouse-1 button for more than 450 |
| 58 | milliseconds) performs the original Mouse-1 binding \(which | 58 | milliseconds) performs the original Mouse-1 binding \(which |
| 59 | typically sets point where you click the mouse). | 59 | typically 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. |
| 1487 | This is best called from a `log-view-mode' buffer." | 1488 | This 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. |
| 1679 | All arguments are markers. If END-MK is non-nil, mark is set there | 1679 | All arguments are markers. If END-MK is non-nil, mark is set there |
| 1680 | and overlay is highlighted between MK and END-MK." | 1680 | and 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. | ||
| 999 | That 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. | ||
| 1052 | That 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. | ||
| 99 | Every symbol should refer to a variable. The variable will be saved | ||
| 100 | only if it is bound and has a non-nil value. Thus it is safe to | ||
| 101 | specify a superset of the variables a user is expected to want to | ||
| 102 | save. | ||
| 103 | |||
| 104 | Default value contains minibuffer history variables used by Emacs, XEmacs, | ||
| 105 | and Viper (uh-oh). Note that, if you customize this variable, you | ||
| 106 | can lose the benefit of future versions of Emacs adding new values to | ||
| 107 | the 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. | ||
| 114 | The minibuffer history is a series of Lisp expressions, which should be | ||
| 115 | loaded using `savehist-load' from your .emacs. See `savehist-load' for | ||
| 116 | more details." | ||
| 117 | :type 'file | ||
| 118 | :group 'savehist) | ||
| 119 | |||
| 120 | (defcustom savehist-length 100 | ||
| 121 | "*Maximum length of a minibuffer list. | ||
| 122 | If 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. | ||
| 129 | This is decimal, not octal. The default is 384 (0600 in octal). | ||
| 130 | Set to nil to use the default permissions that Emacs uses, typically | ||
| 131 | mandated by umask. The default is a bit more restrictive to protect | ||
| 132 | the 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. | ||
| 143 | Changing this value while Emacs is running is supported, but considered | ||
| 144 | unwise, 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'. | ||
| 161 | Unless NO-HOOK is specified, the function will also add the save function | ||
| 162 | to `kill-emacs-hook' and on a timer, ensuring that the minibuffer contents | ||
| 163 | will be saved before leaving Emacs. | ||
| 164 | |||
| 165 | This function should be normally used from your Emacs init file. Since it | ||
| 166 | removes your current minibuffer histories, it is unwise to call it at any | ||
| 167 | other 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'. | ||
| 191 | Unbound symbols referenced in `savehist-history-variables' are ignored. | ||
| 192 | If 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. |
| 4849 | When this hook is run, the current buffer is the one in which the | 4849 | When this hook is run, the current buffer is the one in which the |
| 4850 | command to display the completion list buffer was run. | 4850 | command to display the completion list buffer was run. |
| 4851 | The completion list buffer is available as the value of `standard-output'.") | 4851 | The completion list buffer is available as the value of `standard-output'. |
| 4852 | The common prefix substring for completion may be available as the | ||
| 4853 | value 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. | ||
| 4879 | The value is set by `display-completion-list' during running `completion-setup-hook'. | ||
| 4880 | |||
| 4881 | To put faces, `completions-first-difference' and `completions-common-part' | ||
| 4882 | into \"*Completions*\* buffer, the common prefix substring in completions is | ||
| 4883 | needed as a hint. (Minibuffer is a special case. The content of minibuffer itself | ||
| 4884 | is 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. |
| 1699 | MOUSE is the mouse face. When this button is clicked on FUNCTION | 1699 | MOUSE is the mouse face. When this button is clicked on FUNCTION |
| 1700 | will be run with the TOKEN parameter (any Lisp object)" | 1700 | will 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 | |||
| 255 | unbalanced, but hey...)" | 258 | unbalanced, 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', | |||
| 368 | Comments start with `#'. | 373 | Comments start with `#'. |
| 369 | For details see `conf-mode'. Example: | 374 | For 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: | |||
| 384 | Comments start with `;'. | 389 | Comments start with `;'. |
| 385 | For details see `conf-mode'. Example: | 390 | For 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] |
| 390 | Default={5984FFE0-28D4-11CF-AE66-08002B2E1262} | 395 | Default={5984FFE0-28D4-11CF-AE66-08002B2E1262} |
| @@ -407,7 +412,7 @@ Comments start with `#' but are also recognized with `//' or | |||
| 407 | between `/*' and `*/'. | 412 | between `/*' and `*/'. |
| 408 | For details see `conf-mode'. Example: | 413 | For 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 | ||
| 442 | For details see `conf-mode'. Example: | 447 | For 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 | ||
| 446 | image/jpeg jpeg jpg jpe | 451 | image/jpeg jpeg jpg jpe |
| 447 | image/png png | 452 | image/png png |
| @@ -495,7 +500,7 @@ add /dev/mixer desktop" | |||
| 495 | \"Assignments\" are with `:'. | 500 | \"Assignments\" are with `:'. |
| 496 | For details see `conf-mode'. Example: | 501 | For 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: | |||
| 524 | Comments start with `*%' and \"assignments\" are with `:'. | 529 | Comments start with `*%' and \"assignments\" are with `:'. |
| 525 | For details see `conf-mode'. Example: | 530 | For 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: | |||
| 539 | Comments start with `!' and \"assignments\" are with `:'. | 544 | Comments start with `!' and \"assignments\" are with `:'. |
| 540 | For details see `conf-mode'. Example: | 545 | For 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 | |||
| 97 | Info node `(elisp)Tool Bar'. Items are added from left to right. | 97 | Info node `(elisp)Tool Bar'. Items are added from left to right. |
| 98 | 98 | ||
| 99 | ICON is the base name of a file containing the image to use. The | 99 | ICON is the base name of a file containing the image to use. The |
| 100 | function will first try to use lc-ICON.xpm if display-color-cells | 100 | function will first try to use low-color/ICON.xpm if display-color-cells |
| 101 | is less or equal to 256, then ICON.xpm, then ICON.pbm, and finally | 101 | is less or equal to 256, then ICON.xpm, then ICON.pbm, and finally |
| 102 | ICON.xbm, using `find-image'. | 102 | ICON.xbm, using `find-image'. |
| 103 | 103 | ||
| @@ -114,7 +114,7 @@ PROPS are additional items to add to the menu item specification. See | |||
| 114 | Info node `(elisp)Tool Bar'. Items are added from left to right. | 114 | Info node `(elisp)Tool Bar'. Items are added from left to right. |
| 115 | 115 | ||
| 116 | ICON is the base name of a file containing the image to use. The | 116 | ICON is the base name of a file containing the image to use. The |
| 117 | function will first try to use lc-ICON.xpm if display-color-cells | 117 | function will first try to use low-color/ICON.xpm if display-color-cells |
| 118 | is less or equal to 256, then ICON.xpm, then ICON.pbm, and finally | 118 | is less or equal to 256, then ICON.xpm, then ICON.pbm, and finally |
| 119 | ICON.xbm, using `find-image'." | 119 | ICON.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 @@ | |||
| 1 | The 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 | |||
| 12 | They 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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 */ | ||
| 2 | static 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. | ||
| 439 | EVENT 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. |
| 449 | Handle mouse button 1 click on buttons.") | 458 | Handle 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 @@ | |||
| 1 | 2005-10-15 Richard M. Stallman <rms@gnu.org> | ||
| 2 | |||
| 3 | * url.el: Don't try to autoload hash table functions. | ||
| 4 | |||
| 1 | 2005-10-03 Stefan Monnier <monnier@iro.umontreal.ca> | 5 | 2005-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 | ||