view lisp/toolbar/mail_compose.xpm @ 50598:5f26cbba48ba

Whitespace changes, some re-ordering of code, trivial commentary change. (fortran, fortran-indent, fortran-comment) (fortran-tab-mode-default, fortran-continuation-indent) (fortran-comment-indent-style, fortran-blink-matching-if) (fortran-continuation-string, fortran-electric-line-number) (fortran-break-before-delimiters, fortran-mode-hook) (fortran-end-prog-re, fortran-imenu-generic-expression): Minor doc changes. (fortran-tab-mode-minor-mode-string): New variable. (fortran-tab-mode-string): Now customization is meaningful. (fortran-column-ruler-fixed, fortran-column-ruler-tab) (fortran-analyze-depth): Use defcustom. (fortran-if-start-re, fortran-end-prog-re1, fortran-fill) (fortran-break-line, fortran-prepare-abbrev-list-buffer) (fortran-auto-fill): Add doc string. (fortran-type-types): New constant (was local to let binding). (fortran-font-lock-keywords-1, fortran-font-lock-keywords-2) (fortran-font-lock-syntactic-keywords): Initialize in defvar. (fortran-font-lock-keywords-3): Initialize in defvar. Use 1+ now depth of fortran-type-types has changed. Remove extra and. (fortran-mode-menu): Minor re-organization. Use lookup-key. (fortran-mode): Doc changes. Some re-organization. Use fortran-tab-mode-minor-mode-string. (fortran-comment-indent): Add doc string. Move save-excursion. Use 1+. (fortran-indent-comment, fortran-fill-statement): Change interactive spec. Use unless. (fortran-comment-region): Doc change. Reverse logic of arg test. Use zerop. (fortran-abbrev-start, fortran-split-line) (fortran-electric-line-number, fortran-indent-subprogram) (fortran-strip-sequence-nos): Change interactive spec. (fortran-remove-continuation): Add doc string. Use when. (fortran-numerical-continuation-char): Doc change. Use 1+. (fortran-previous-statement, fortran-next-statement) (fortran-beginning-do, fortran-calculate-indent) (fortran-end-do, fortran-end-if, fortran-beginning-if): Use zerop, 1+, 1-. (fortran-blink-match, fortran-check-for-matching-do): Use when. (fortran-indent-line): Change interactive spec. Remove un-needed if. Use when. (fortran-indent-to-column): Doc change. Use when, unless. (fortran-find-comment-start-skip): No longer interactive. (fortran-analyze-file-format): Minor doc change. Remove un-needed setq. (minor-mode-alist): Use add-to-list. (fortran-fill-paragraph): Change interactive spec, doc string.

/* XPM */
static char *magick[] = {
/* columns rows colors chars-per-pixel */
"24 24 9 1",
"  c Gray0",
". c #757560602020",
"X c #6711662663d9",
"o c #8e8e7d7d4545",
"O c #adad8e8e3030",
"+ c #d8d8bebe6a6a",
"@ c #a8fba84da483",
"# c #eb79ea70e4f4",
"$ c None",
/* pixels */
"$$$$$$$$$$$$$$$$$$$$$$$$",
"$$$$$$$$$$$$$$$$$$$$$$$$",
"$$$$$$$$$$$$$    $$$$$$$",
"$$$$$$$$     X##@ $$$$$$",
"$$$     X@######@ $$$$$$",
"$$ X@##########X@@ $$$$$",
"$$ #XX########@X@# $$$$$",
"$$ @#@XX######X@## $$$$$",
"$$$ ###@@X@##XXX##@ $ $$",
"$$$ #####@@XX@#@X@#  + $",
"$$$ @####X#######X@ +o $",
"$$$$ ###@@######## +o $$",
"$$$$ ###X######## +o $$$",
"$$$$ @#@@######@ +o $$$$",
"$$$$$ #X####@   +o $$$$$",
"$$$$$ X@#@   $ +o $$$$$$",
"$$$$$ XX  $$$ +o $$$$$$$",
"$$$$$$  $$$$ +o $$$$$$$$",
"$$$$$$$$$$$O.  $$$$$$$$$",
"$$$$$$$$$$$  $$$$$$$$$$$",
"$$$$$$$$$$$$$$$$$$$$$$$$",
"$$$$$$$$$$$$$$$$$$$$$$$$",
"$$$$$$$$$$$$$$$$$$$$$$$$",
"$$$$$$$$$$$$$$$$$$$$$$$$"
};