diff options
| author | Karoly Lorentey <[email protected]> | 2007-02-24 19:26:54 +0000 |
|---|---|---|
| committer | Karoly Lorentey <[email protected]> | 2007-02-24 19:26:54 +0000 |
| commit | f65f7603312547e51230192daf34349b8ac569a0 (patch) | |
| tree | cbc5877854d00bbdd5ecd4906d130ab8fbb44430 /lisp | |
| parent | 9440b75fccbf763e3fb23a31a128d97eb4debdf5 (diff) | |
| parent | 735895f1fa28f88c559e73910ea0ff0bda0f228c (diff) | |
Merged from [email protected]
Patches applied:
* [email protected]/emacs--devo--0--patch-619
Update from CVS
* [email protected]/emacs--devo--0--patch-620
Update from CVS
* [email protected]/emacs--devo--0--patch-621
Merge from gnus--rel--5.10
* [email protected]/emacs--devo--0--patch-622
Update from CVS
* [email protected]/emacs--devo--0--patch-623
Remove RCS keywords
* [email protected]/emacs--devo--0--patch-624
Update from CVS
* [email protected]/emacs--devo--0--patch-625
Update from CVS
* [email protected]/emacs--devo--0--patch-626
Update from CVS
* [email protected]/emacs--devo--0--patch-627
Update from CVS
* [email protected]/emacs--devo--0--patch-628
Update from CVS
* [email protected]/emacs--devo--0--patch-629
Merge from gnus--rel--5.10
* [email protected]/emacs--devo--0--patch-630
Update from CVS
* [email protected]/emacs--devo--0--patch-631
Update from CVS
* [email protected]/emacs--devo--0--patch-632
Update from CVS
* [email protected]/emacs--devo--0--patch-633
Update from CVS
* [email protected]/emacs--devo--0--patch-634
Update from CVS
* [email protected]/emacs--devo--0--patch-635
Update from CVS
* [email protected]/emacs--devo--0--patch-636
Update from CVS
* [email protected]/emacs--devo--0--patch-637
Remove RCS keywords
* [email protected]/emacs--devo--0--patch-638
Update from CVS
* [email protected]/emacs--devo--0--patch-639
Update from CVS
* [email protected]/emacs--devo--0--patch-640
Update from CVS
* [email protected]/emacs--devo--0--patch-641
Update from CVS
* [email protected]/emacs--devo--0--patch-642
Merge from gnus--rel--5.10
* [email protected]/emacs--devo--0--patch-643
Update from CVS
* [email protected]/emacs--devo--0--patch-644
Update from CVS
* [email protected]/emacs--devo--0--patch-645
Update from CVS
* [email protected]/emacs--devo--0--patch-646
Update from CVS
* [email protected]/emacs--devo--0--patch-647
Update from CVS
* [email protected]/emacs--devo--0--patch-648
Update from CVS
* [email protected]/emacs--devo--0--patch-649
Update from CVS
* [email protected]/gnus--rel--5.10--patch-197
Merge from emacs--devo--0
* [email protected]/gnus--rel--5.10--patch-198
Update from CVS
* [email protected]/gnus--rel--5.10--patch-199
Update from CVS
* [email protected]/gnus--rel--5.10--patch-200
Merge from emacs--devo--0
* [email protected]/gnus--rel--5.10--patch-201
Update from CVS: lisp/nnweb.el (nnweb-google-parse-1): Update parser.
* [email protected]/gnus--rel--5.10--patch-202
Update from CVS
git-archimport-id: [email protected]/emacs--multi-tty--0--patch-596
Diffstat (limited to 'lisp')
120 files changed, 3280 insertions, 1762 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7d30691f1a..008979f047 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,624 @@ +2007-02-24 Eli Zaretskii <[email protected]> + + * startup.el (command-line): If simple.el cannot be found, proceed + with a warning message. + +2007-02-24 Kenichi Handa <[email protected]> + + * international/utf-8.el (utf-8-pre-write-conversion): Handle the + case that BEG is a string. + +2007-02-24 Chris Moore <[email protected]> + + * pgg-pgp5.el (pgg-pgp5-encrypt-region): + * pgg-pgp.el (pgg-pgp-encrypt-region): + * pgg-gpg.el (pgg-gpg-encrypt-region): + Check pgg-encrypt-for-me if no other recipients. + +2007-02-23 Eli Zaretskii <[email protected]> + + * mail/rmailedit.el (rmail-cease-edit): Restore the Rmail toolbar. + + * textmodes/sgml-mode.el (sgml-validate): Quote the file name with + shell-quote-argument. + +2007-02-23 Andreas Seltenreich <[email protected]> + + * comint.el (comint-read-input-ring): Use comint-input-ring-size + from the comint buffer instead of the temporary one. + +2007-02-23 David Reitter <[email protected]> + + * cus-edit.el (custom-save-all): Canonicalize custom-file before + storing it in recentf-exclude. + +2007-02-23 Chong Yidong <[email protected]> + + * startup.el (fancy-splash-screens): Make cursor-type buffer-local + in splash screen. + +2007-02-22 J.D. Smith <[email protected]> + + * progmodes/idlw-shell.el (idlwave-shell-mode): Clean up pending + commands, for restart. + (idlwave-shell-current-module): Fix handling of module name by + type. + (idlwave-shell-break-in): Update type handling. + (idlwave-shell-bp-get): Encode type in BP structure. + (idlwave-shell-set-bp): Fix setting condition/count on disabled + BPs. + (idlwave-shell-module-source-query): Query routine info based on + type. Fix path parsing for non-compiled files. + (idlwave-shell-module-source-filter): Don't signal error in + filter if no source found. + (idlwave-shell-set-bp-in-module): Use fallback source to prevent + filter race. + +2007-02-22 Kim F. Storm <[email protected]> + + * wid-edit.el (widget-default-create): Undo 2007-02-04 change. + (editable-field): Document need to put some text before the %v + escape in :format string. + +2007-02-19 Stefan Monnier <[email protected]> + + * vc-svn.el: Remove the code inherited from CVSREAD and `cvs edit'. + (vc-svn-use-edit): Remove unused config var. + (vc-svn-update, vc-svn-revert): Checkout is always implicit. + + * outline.el (hide-sublevels): Keep empty last line, if available. + + * buff-menu.el (list-buffers-noselect): Use explicit unicode code + rather than the corresponding unicode char, to make the code + more readable. + +2007-02-19 Juanma Barranquero <[email protected]> + + * speedbar.el (speedbar-frame-mode, speedbar-frame-width) + (speedbar-show-unknown-files, speedbar-item-info-file-helper) + (speedbar-item-info-tag-helper): Doc fixes. + +2007-02-19 Kenichi Handa <[email protected]> + + * international/mule-cmds.el (locale-language-names): + Map "eo" to "Esperanto". + + * language/european.el ("Esperanto"): New language environment. + +2007-02-17 Sven Joachim <[email protected]> (tiny change) + + * simple.el (kill-line): Doc fix. + +2007-02-17 Kim F. Storm <[email protected]> + + * emacs-lisp/bindat.el (bindat--unpack-u*): Optimize. + (bindat--unpack-item, bindat--length-group, bindat--pack-item) + (bindat--unpack-group, bindat--pack-group): + Handle vectors with optional element type. + +2007-02-17 Daiki Ueno <[email protected]> + + * pgg-gpg.el (pgg-gpg-process-region): Make USE-AGENT nil + if PASSPHRASE is given. + +2007-02-17 Chris Moore <[email protected]> + + * jka-cmpr-hook.el (jka-compr-compression-info-list): + Recognize backups of bz2 compressed files. + +2007-02-17 Eli Zaretskii <[email protected]> + + * info-look.el (info-lookup): Bind Info-fontify-maximum-menu-size + to nil to speed up lookup of the symbol in index nodes. + +2007-02-17 Alin C. Soare <[email protected]> (tiny change) + + * emacs-lisp/lisp-mode.el (calculate-lisp-indent): + Add indentation for the constants of Lisp. + +2007-02-16 Stefan Monnier <[email protected]> + + * ps-print.el: Use (defvar <foo>) where applicable. + (ps-print-emacs-type): Remove. + (ps-x-frame-property, ps-e-frame-parameter): Remove. + (ps-frame-parameter): Align its call-convention with frame-parameter. + (ps-begin-job): Adjust calls to it appropriately. + (ps-setup): Don't print ps-print-emacs-type. + (ps-e-find-composition, ps-mark-active-p, ps-color-device): + Define in such a way that it's obvious that it's defined. + (ps-prsc, ps-c-prsc, ps-s-prsc): Remove. + (ps-rmail-mode-hook, ps-vm-mode-hook, ps-gnus-summary-setup) + (ps-jts-ps-setup): Use flavor-neutral syntax instead. + +2007-02-15 Alan Mackenzie <[email protected]> + + * progmodes/cc-cmds.el (c-indent-new-comment-line): When splitting + an empty one-line C-style comment, post-position point properly. + +2007-02-15 Chris Moore <[email protected]> + + * isearch.el (isearch-lazy-highlight-space-regexp): New variable. + (isearch-lazy-highlight-new-loop): Bind it. + (isearch-lazy-highlight-search): Use it. + + * replace.el (replace-highlight): Bind search-whitespace-regexp to nil. + +2007-02-15 Stefan Monnier <[email protected]> + + * font-lock.el (font-lock-extend-region-wholelines): + Only return non-nil if the region has really been changed. + Reported by David Hansen <[email protected]> + +2007-02-15 Juanma Barranquero <[email protected]> + + * play/5x5.el (5x5-crack-xor-mutate): Doc fix. + (5x5-draw-grid-end, 5x5-make-xor-with-mutation, 5x5-mode, 5x5-crack) + (5x5-play-solution, 5x5-y-or-n-p): Fix typos in docstrings. + +2007-02-14 Juanma Barranquero <[email protected]> + + * faces.el (color-values): Revert changes to docstring from + 2007-01-31 and 2000-09-07. + + * textmodes/ispell.el (ispell-keep-choices-win, ispell-word) + (ispell-begin-skip-region-regexp): Fix typos in docstrings. + (ispell-dictionary-alist, ispell-process-line): Doc fixes. + (ispell-help): Fix typos in docstring and output message. + +2007-02-14 Kim F. Storm <[email protected]> + + * progmodes/grep.el (grep-files-aliases): Add tex and texi aliases. + (lgrep): Add DIR arg to start grep in specific directory, like rgrep. + (grep): Fix lgrep reference. + + * disp-table.el (make-glyph-code, glyph-char, glyph-face): New defuns. + (standard-display-underline): Use make-glyph-code. + + * descr-text.el (describe-char): Use glyph-char and glyph-face. + + * international/latin1-disp.el (latin1-display-char): + Use make-glyph-code. + +2007-02-13 Juanma Barranquero <[email protected]> + + * ehelp.el (with-electric-help, electric-help-exit) + (electric-help-retain): Doc fixes. + + * emacs-lisp/bytecomp.el (byte-compile-dest-file) + (byte-compile-file): Doc fixes. + +2007-02-13 YAMAMOTO Mitsuharu <[email protected]> + + * term/mac-win.el: Change all uses of + mac-set-font-panel-visibility to mac-set-font-panel-visible-p. + (mac-ae-number): Return integer 0 if coerced result is float 0.0. + (mac-ae-get-url): Call select-frame-set-input-focus. + (mac-dnd-handle-drag-n-drop-event): Don't call + select-frame-set-input-focus. + +2007-02-13 Kenichi Handa <[email protected]> + + * international/characters.el: Fix documentation of category `a'. + +2007-02-11 Dan Nicolaescu <[email protected]> + + * progmodes/grep.el (grep): Mention lgrep and rgrep in the docstring. + +2007-02-12 Michael Albinus <[email protected]> + + * net/tramp.el (tramp-get-ls-command, tramp-get-file-exists-command) + (tramp-get-remote-ln): Handle error case. + Reported by Chris Moore <[email protected]>. + +2007-02-11 Kim F. Storm <[email protected]> + + * bindings.el (ctl-x-map): Remove register compatibility bindings + C-x /, C-x j, C-x x, and C-x g (deprecated since Emacs 19). + +2007-02-11 Richard Stallman <[email protected]> + + * loadhist.el (unload-feature): Handle (t . SYMBOL) entries + in load history. + + * emacs-lisp/lisp-mode.el (indent-sexp): Clean up termination + condition -- don't fail to stop at endpos. + +2007-02-11 Carsten Dominik <[email protected]> + + * textmodes/org.el (org-agenda-get-todos) + (org-agenda-get-timestamps, org-agenda-get-closed) + (org-agenda-get-deadlines, org-agenda-get-scheduled) + (org-agenda-get-blocks, org-format-agenda-item) + (org-agenda-change-all-lines, org-scan-tags): Rename text property + from `category' to `org-category'. + +2007-02-11 Kenichi Handa <[email protected]> + + * international/titdic-cnv.el (titdic-convert): Force files be written + with Unix-like eol format. Read files under CXTERM-DIC by raw-text. + (miscdic-convert): Force files be written with Unix-like eol format. + +2007-02-11 Juanma Barranquero <[email protected]> + + * files.el (change-major-mode-with-file-name): Fix typo in docstring. + + * calculator.el (calculator-prompt): Doc fix. + (calculator-mode-map): Fix typo in menu entry. + +2007-02-10 Jay Belanger <[email protected]> + + * calculator.el (calculator): Do more extensive checking for when + 3 lines should be used for the calculator. + +2007-02-10 Eli Zaretskii <[email protected]> + + * info-look.el (info-lookup-make-completions): + Bind Info-fontify-maximum-menu-size to nil to speed up lookup of + index nodes. + + * info.el (Info-fontify-maximum-menu-size): Document the effect + of a nil value. + (Info-fontify-node): Make sure Info-fontify-maximum-menu-size is + non-nil before using it as size. + +2007-02-09 Chong Yidong <[email protected]> + + * subr.el (insert-for-yank-1): Prevent read-only properties from + interfering with text property operations. + + * image-mode.el (image-mode): Revert 2007-01-30 changes. + + * image.el (image-type-auto-detectable): Don't autodetect x[pb]m. + (image-type-auto-detected-p): Fail if another match is found in + auto-mode-alist. + + * files.el (magic-mode-alist): Call image-mode instead of + image-mode-maybe for autodetected images. + +2007-02-09 Juanma Barranquero <[email protected]> + + * mail/smtpmail.el (smtpmail-smtp-service, smtpmail-queue-index-file): + Fix typos in docstrings. + (smtpmail-local-domain, smtpmail-queue-mail): Doc fixes. + +2007-02-09 Kim F. Storm <[email protected]> + + * emacs-lisp/float-sup.el: Remove obsolete comment. + +2007-02-08 Stefan Monnier <[email protected]> + + * diff-mode.el (diff-sanity-check-hunk): Fix last fix. + +2007-02-08 Karl Fogel <[email protected]> + + * simple.el: Revert previous change, at request of RMS: + (fundamental-mode-hook): Remove. + (fundamental-mode): Run after-change-major-mode-hooks manually, + and don't run the now-nonexistent fundamental-mode-hook. + +2007-02-08 Karl Fogel <[email protected]> + + * simple.el (fundamental-mode-hook): Declare new hook. + (fundamental-mode): Run the new dedicated hook, and don't run + after-change-major-mode-hooks manually anymore. + +2007-02-07 Stefan Monnier <[email protected]> + + * vc-svn.el (vc-svn-merge-news): Understand the new format with two + added columns of chars. Remove support for the "no-meta-info" format. + Prompted by Romain Francoise <[email protected]>. + +2007-02-07 Nick Roberts <[email protected]> + + * progmodes/gdb-ui.el (gdb-if-arrow): New macro. + (gdb-mouse-until, gdb-mouse-jump): Use it. + +2007-02-07 Nick Roberts <[email protected]> + + * progmodes/gdb-ui.el (gdb-mouse-until, gdb-mouse-jump): Make them + work when there is just an assembler buffer (no source buffer). + +2007-02-07 Per Cederqvist <[email protected]> (tiny change) + + * diff-mode.el (diff-sanity-check-hunk): Don't reject the hunk + just because the diff was produced using "-p" (--show-c-function). + +2007-02-07 Juanma Barranquero <[email protected]> + + * faces.el (frame-set-background-mode): Use `color-values' and + `display-color-p', not `x-color-values' and `x-display-color-p'. + (face-valid-attribute-values): Use `defined-colors' instead of + `x-defined-colors'. + +2007-02-07 Vinicius Jose Latorre <[email protected]> + + * ps-print.ps: The ps-print commands without face printing should not + print background color. Reported by Leo <[email protected]>. + (ps-print-version): New version 6.7.3. + (ps-begin-job): New arg. Fix ps-default-background and + ps-default-foreground initialization. + (ps-face-attributes): Fix doc string. + (ps-face-background, ps-generate-postscript, ps-generate): Fix code. + + * printing.el: Fix ps-print link. + +2007-02-06 Chong Yidong <[email protected]> + + * faces.el (face-set-after-frame-default): Compile attributes to + be set by frame parameters before merging in X resources. + +2007-02-06 Juanma Barranquero <[email protected]> + + * simple.el (blink-matching-paren-dont-ignore-comments): + (blink-matching-paren-on-screen): Doc fixes. + +2007-02-06 Nick Roberts <[email protected]> + + * progmodes/gdb-ui.el (gdb-frames-mode): Truncate lines in stack buffer. + +2007-02-05 Juanma Barranquero <[email protected]> + + * loadhist.el (unload-feature): Silently ignore `load-history' entries + of the form `(defface . SYMBOL)', and treat `(autoload . SYMBOL)' + entries like `defun'. Return nil. + +2007-02-05 Kim F. Storm <[email protected]> + + * ido.el: Doc fixes. + +2007-02-04 David Kastrup <[email protected]> + + * play/mpuz.el (mpuz-random-puzzle): Fix potential lockup when + `mpuz-allow-double-multiplicator' is non-zero, and correct + calculation of `min'. + +2007-02-04 Per Abrahamsen <[email protected]> + + * wid-edit.el (widget-default-create): Insert new text at the + :from marker _after_ the marker, not before it. + +2007-02-04 Alan Mackenzie <[email protected]> + + * progmodes/cc-cmds.el (c-indent-line): Don't erase ^L when a line + containing it is re-indented. + +2007-02-03 Chong Yidong <[email protected]> + + * net/newsticker.el (newsticker--insert-image): Update docstring, + and insert the image directly. + (newsticker--buffer-redraw): Update docstring. + + * emacs-lisp/easy-mmode.el (define-globalized-minor-mode): + Rename from define-global-minor-mode. + + * progmodes/cwarn.el (global-cwarn-mode): + * emacs-lisp/autoload.el (make-autoload): + * hi-lock.el (global-hi-lock-mode): + * font-core.el (global-font-lock-mode): All callers changed. + +2007-02-03 Eli Zaretskii <[email protected]> + + * textmodes/texnfo-upd.el (texinfo-menu-copy-old-description): + Don't copy @ignore lines into menu descriptions. + (texinfo-multi-file-update): Goto the @node line before attempting + to pluck the node name. + (texinfo-multiple-files-update): Reverse the optional arguments' + order, as per the doc string and the `interactive' form. + +2007-02-03 Chong Yidong <[email protected]> + + * image-mode.el: Use autoload to avoid overriding disabled setting + applied in .emacs. + +2007-02-03 Alan Mackenzie <[email protected]> + + * progmodes/cc-engine.el (c-in-knr-argdecl): Slight correction + for, e.g. "void (*hdone)();" in a k&r list. (No WS between + adjacent paren groups). + +2007-02-02 Vinicius Jose Latorre <[email protected]> + + * progmodes/ebnf2ps.el: Doc fixes. + (ebnf-eps-buffer, ebnf-eps-region, ebnf-syntax-alist): Doc fixes. + +2007-02-02 Eli Zaretskii <[email protected]> + + * dired-x.el (dired-do-relsymlink): Add reference to + dired-do-symlink. Add an autoload cookie. + + * dired-aux.el (dired-do-symlink): Add reference to + dired-do-relsymlink. + +2007-02-02 Doug Maxey <[email protected]> (tiny change) + + * mouse.el <left-fringe mouse-2, right-fringe mouse-3>: + <left-fringe mouse-3>: New bindings. + +2007-02-02 Ulf Jasper <[email protected]> + + * newsticker.el (newsticker-version): Changed to "1.10". + (newsticker--set-customvar): Doc string. + (newsticker-new-item-face): Doc string. + (newsticker-mode): Initialize `invisibility-spec' with t. + (newsticker-mode-map): Added + `newsticker-mark-all-items-at-point-as-read'. + (newsticker-menu): Added narrow-to-item and narrow-to-feed. + (newsticker-w3m-show-inline-images): Do not call + `w3m-remove-image'. + (newsticker--buffer-after-w3m-insert-image): New advice for + w3m-insert-image to cache images. + (newsticker-next-item-same-feed): New. + (newsticker-mark-all-items-at-point-as-read-and-redraw): New. + (newsticker-mark-all-items-of-feed-as-read): New. + (newsticker-mark-all-items-at-point-as-read): Use new functions. + (newsticker-mark-item-at-point-as-read): Doc string. + (newsticker-mark-item-at-point-as-read): Use new functions. + (newsticker--do-mark-item-at-point-as-read): New, extracted from + `newsticker-mark-item-at-point-as-read'. + (newsticker-hide-entry): Use (t) instead of t for invisibility. + (newsticker--sentinel): Yet another xml-parser workaround. + (newsticker--decode-iso8601-date): Bugfix for datestrings without + days. + (newsticker--buffer-do-insert-text): Fix. + (newsticker--buffer-insert-enclosure): Fix. length might be missing. + (newsticker--buffer-make-item-completely-visible): + `switch-to-buffer' not necessary. + +2007-02-02 Eli Zaretskii <[email protected]> + + * progmodes/ebnf2ps.el (ebnf-eps-buffer, ebnf-eps-region) + (ebnf-syntax-directory, ebnf-syntax-file, ebnf-syntax-region) + (ebnf-style-database, ebnf-apply-style, ebnf-reset-style) + (ebnf-push-style, ebnf-pop-style, ebnf-eps-production-list) + (ebnf-directory, ebnf-file, ebnf-syntax-alist): Doc fixes. + +2007-02-02 Kenichi Handa <[email protected]> + + * international/quail.el (quail-show-key): Fix an error message. + +2007-02-01 Juanma Barranquero <[email protected]> + + * faces.el (set-face-underline-p, modify-face): Rename arg + UNDERLINE-P to UNDERLINE (it is not a flag). + +2007-02-01 Nick Roberts <[email protected]> + + * progmodes/gdb-ui.el (gdb-speedbar-update): Avoid duplication + when adding gdb-speedbar-update to gdb-input-queue. + +2007-02-01 Kenichi Handa <[email protected]> + + * international/quail.el (quail-show-key): Signal an error if the + current input method is not using Quail. + +2007-02-01 J.D. Smith <[email protected]> + + * progmodes/idlwave.el (idlwave-xml-create-sysvar-alist): + Trim leading whitespace in sysvar names. + +2007-02-01 Juanma Barranquero <[email protected]> + + * faces.el (internal-find-face, internal-get-face): Doc fixes. + +2007-01-31 Juanma Barranquero <[email protected]> + + * ido.el (ido-set-common-completion): Use `let', not `let*'. + +2007-01-31 Romain Francoise <[email protected]> + + * comint.el: Delete extra copy of `comint-copy-old-input' added in + previous change to this file. + +2007-01-31 Jason Rumney <[email protected]> + + * files.el (magic-mode-alist): Use image-mode-maybe rather than + image-mode. + + * image-mode.el (image-mode-maybe): Prevent magic-mode-alist from + interfering with attempt to set major mode from modified + auto-mode-alist. + +2007-01-31 Juanma Barranquero <[email protected]> + + * faces.el (color-values): Doc fix. + (face-differs-from-default-p): Don't check :foreground twice. + +2007-01-31 J.D. Smith <[email protected]> + + * comint.el (comint-mode): Prevent non-keyword fontification by default. + +2007-01-31 Kenichi Handa <[email protected]> + + * international/quail.el (quail-store-decode-map-key): Store a + translated character too. + (quail-char-equal-p): New function. + (quail-find-key1): Check character equality by quail-char-equal-p. + (quail-decode-map-generated): New variable. + (quail-find-key): Check quail-decode-map-generated and re-generate + a decode map if necessary. + +2007-01-30 Richard Stallman <[email protected]> + + * tutorial.el (tutorial--detailed-help): Make the list of + changed keys look nicer. + +2007-01-30 Nick Roberts <[email protected]> + + * progmodes/gdb-ui.el (gdb-var-delete-1): New function. + (gdb-var-delete): Use it. + (gdb-var-update-handler-1): Handle value "invalid" for MI field + `in_scope'. + +2007-01-30 Michael Albinus <[email protected]> + + * files.el (get-free-disk-space): Return nil for remote directories. + + * net/ange-ftp.el (ange-ftp-ls): In case of wildcards, use "ls" + instead of "dir". + +2007-01-30 Chong Yidong <[email protected]> + + * type-break.el (type-break-catch-up-event): New function. + (type-break-demo-hanoi, type-break-demo-life) + (type-break-demo-boring): Use it. + + * image-mode.el (image-mode): Don't automatically view as image. + (image-toggle-display): Add `disabled' property. + +2007-01-29 Juanma Barranquero <[email protected]> + + * isearchb.el (isearchb-iswitchb): + * ps-print.el (ps-build-face-reference): + * emacs-lisp/shadow.el (list-load-path-shadows): + * eshell/esh-cmd.el (eshell-rewrite-for-command): + * international/mule.el (find-auto-coding): + * mail/supercite.el (sc-attrib-selection-list): + * progmodes/cc-defs.el (c-emacs-features): + * progmodes/cc-vars.el (c-offsets-alist): + * progmodes/flymake.el + (flymake-init-create-temp-source-and-master-buffer-copy): + Fix typos in docstrings (some suggested by Chris Moore). + + * progmodes/vhdl-mode.el (vhdl-components-package-name) + (vhdl-get-library-unit, vhdl-corresponding-begin) + (vhdl-skip-case-alternative, vhdl-backward-skip-label) + (vhdl-align-region-2, vhdl-electric-dash, vhdl-case-word) + (vhdl-hooked-abbrev, vhdl-hs-forward-sexp-func) + (vhdl-font-lock-match-item): Fix typos in docstrings. + (vhdl-get-library-unit, vhdl-get-block-state, vhdl-sort-alist) + (vhdl-set-offset, vhdl-fix-case-region-1, vhdl-scan-directory-contents) + (vhdl-speedbar-insert-project-hierarchy): + Improve argument/docstring consistency. + +2007-01-29 Kenichi Handa <[email protected]> + + * international/titdic-cnv.el (py-converter): Fix previous change. + +2007-01-29 Chong Yidong <[email protected]> + + * jka-compr.el (jka-compr-partial-uncompress) + (jka-compr-call-process): Rebind default-directory if it is + invalid. Suggested by Chris Moore. + + * comint.el (comint-insert-input): Handle situation where the + selected buffer is not the clicked buffer. + +2007-01-29 Kenichi Handa <[email protected]> + + * international/ja-dic-cnv.el (skkdic-convert): + Add byte-compile-disable-print-circle:t at the head. + + * international/titdic-cnv.el (tit-process-header): + Add byte-compile-disable-print-circle:t at the head. + (miscdic-convert): Likewise. + (py-converter): Skip the header comments. + + * emacs-lisp/bytecomp.el (byte-compile-disable-print-circle): + New variable. + (byte-compile-output-file-form): Bing print-circle to nil if + byte-compile-output-file-form is not nil. + (byte-compile-output-docform): Likewise. + 2007-01-28 Kim F. Storm <[email protected]> * emulation/cua-base.el (cua-global-keymap, cua--region-keymap): @@ -148,7 +769,7 @@ (ido-initiate-auto-merge, ido-exhibit, ido-minibuffer-setup) (ido-tidy): Use ido-active. -2007-01-22 Chris Moore <[email protected]> (tiny change) +2007-01-22 Chris Moore <[email protected]> * hexl.el (hexl-mode-exit): Add missing quote. @@ -277,7 +898,7 @@ * paths.el (Info-default-directory-list): Ditto. -2007-01-18 Chris Moore <[email protected]> (tiny change) +2007-01-18 Chris Moore <[email protected]> * hexl.el (hexl-before-revert-hook): New function. (hexl-mode): Use it. @@ -429,7 +1050,7 @@ * progmodes/vhdl-mode.el (vhdl-save-caches): Fix typo in error message. -2007-01-07 Chris Moore <[email protected]> (tiny change) +2007-01-07 Chris Moore <[email protected]> * replace.el (replace-regexp): Fix typo in docstring. @@ -498,7 +1119,7 @@ * progmode/cc-cmds.el (c-mask-paragraph): Fix yesterday's buggy patch. -2007-01-03 Chris Moore <[email protected]> (tiny change) +2007-01-03 Chris Moore <[email protected]> * tutorial.el (tutorial--describe-nonstandard-key): Fix typo. @@ -1019,7 +1640,7 @@ * shell.el (shell): Doc fix. -2006-12-15 Kevin Gallagher <[email protected]> +2006-12-15 Kevin Gallagher <[email protected]> * emulation/edt.el (edt-xserver): * emulation/edt-mapper.el (edt-xserver): Replace `/' with a `-', @@ -1033,8 +1654,7 @@ 2006-12-15 Simon Marshall <[email protected]> - * progmodes/cc-fonts.el (c-font-lock-declarations): Fix previous - change. + * progmodes/cc-fonts.el (c-font-lock-declarations): Fix previous change. 2006-12-15 YAMAMOTO Mitsuharu <[email protected]> @@ -3468,7 +4088,7 @@ * international/code-pages.el (iso-8859-6): Table fixed. -2006-10-01 Chris Moore <[email protected]> (tiny change) +2006-10-01 Chris Moore <[email protected]> * dired.el (dired-build-subdir-alist): Fix previous change. @@ -3642,7 +4262,7 @@ * font-lock.el (font-lock-compile-keywords): Allow value of syntax-begin-function to enable paren-column-0 highlighting. -2006-09-24 Chris Moore <[email protected]> (tiny change) +2006-09-24 Chris Moore <[email protected]> * dired.el (dired-build-subdir-alist): When file ends in colon, don't exit the loop, just disregard that file. @@ -10995,7 +11615,7 @@ (tumme-create-thumbs, tumme-display-previous-thumbnail-original): Fix typos in docstrings. -2006-02-07 Chris Moore <[email protected]> (tiny change) +2006-02-07 Chris Moore <[email protected]> * wdired.el (wdired-get-filename): Fix bug: Don't re-normalize OLD. @@ -31082,7 +31702,22 @@ See ChangeLog.11 for earlier changes. ;; End: Copyright (C) 2005, 2006, 2007 Free Software Foundation, Inc. - Copying and distribution of this file, with or without modification, - are permitted provided the copyright notice and this notice are preserved. + + This file is part of GNU Emacs. + + GNU Emacs is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2, or (at your option) + any later version. + + GNU Emacs is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with GNU Emacs; see the file COPYING. If not, write to the + Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, + Boston, MA 02110-1301, USA. ;;; arch-tag: e39939be-dab3-400e-86f5-0e2701a883c1 diff --git a/lisp/ChangeLog.1 b/lisp/ChangeLog.1 index 76f9040c98..e068ee4cff 100644 --- a/lisp/ChangeLog.1 +++ b/lisp/ChangeLog.1 @@ -3247,8 +3247,23 @@ in case user's init file has changed them. Copyright (C) 1985, 1986, 2001, 2002, 2003, 2004, 2005, 2006, 2007 - Free Software Foundation, Inc. - Copying and distribution of this file, with or without modification, - are permitted provided the copyright notice and this notice are preserved. + Free Software Foundation, Inc. + + This file is part of GNU Emacs. + + GNU Emacs is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2, or (at your option) + any later version. + + GNU Emacs is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with GNU Emacs; see the file COPYING. If not, write to the + Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, + Boston, MA 02110-1301, USA. ;;; arch-tag: b6060738-7fac-4c9c-80ae-67995bae78a7 diff --git a/lisp/ChangeLog.10 b/lisp/ChangeLog.10 index 02affab175..d7264dfb0b 100644 --- a/lisp/ChangeLog.10 +++ b/lisp/ChangeLog.10 @@ -11,7 +11,7 @@ 2003-07-03 Alan Mackenzie <[email protected]> - * progmodes/cc-mode.el: awk-mode: Call c-awk-after-change to + * progmodes/cc-mode.el (awk-mode): Call c-awk-after-change to ensure syntax-table props at loading. * progmodes/cc-fonts.el: Put (cc-require-when-compile 'cc-awk) @@ -2176,7 +2176,7 @@ (gdb-assembler-mode): Keep fringe outside margin as the overlay arrow is not used for assembler. -2003-05-25 Tim Van Holder <[email protected]> +2003-05-25 Tim Van Holder <[email protected]> * which-func.el (which-func-update-timer): New variable. (which-function-mode): Use it. @@ -23533,9 +23533,25 @@ See ChangeLog.9 for earlier changes. ;; coding: iso-2022-7bit ;; End: - Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007 - Free Software Foundation, Inc. - Copying and distribution of this file, with or without modification, - are permitted provided the copyright notice and this notice are preserved. + Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, + 2007 Free Software Foundation, Inc. + + This file is part of GNU Emacs. + + GNU Emacs is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2, or (at your option) + any later version. + + GNU Emacs is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with GNU Emacs; see the file COPYING. If not, write to the + Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, + Boston, MA 02110-1301, USA. + ;;; arch-tag: 5fcf8004-6f58-452a-b9d6-6950323a19c1 diff --git a/lisp/ChangeLog.11 b/lisp/ChangeLog.11 index 40482ce2f8..e9c752464f 100644 --- a/lisp/ChangeLog.11 +++ b/lisp/ChangeLog.11 @@ -12127,7 +12127,7 @@ (xml-parse-dtd): Change parsing so that it produces strings instead of interned symbols. -2003-11-01 [email protected] <[email protected]> (tiny change) +2003-11-01 Era Eriksson <[email protected]> (tiny change) * dired.el (dired-ls-sorting-switches): Doc fix. @@ -14336,8 +14336,24 @@ See ChangeLog.10 for earlier changes. ;; coding: iso-2022-7bit ;; End: - Copyright (C) 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. - Copying and distribution of this file, with or without modification, - are permitted provided the copyright notice and this notice are preserved. + Copyright (C) 2003, 2004, 2005, 2006, 2007 + Free Software Foundation, Inc. + + This file is part of GNU Emacs. + + GNU Emacs is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2, or (at your option) + any later version. + + GNU Emacs is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with GNU Emacs; see the file COPYING. If not, write to the + Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, + Boston, MA 02110-1301, USA. ;; arch-tag: 2fe8d7b0-27e3-4634-a0b7-db70ff071825 diff --git a/lisp/ChangeLog.2 b/lisp/ChangeLog.2 index af450e18cd..fd3d0a16b4 100644 --- a/lisp/ChangeLog.2 +++ b/lisp/ChangeLog.2 @@ -3994,9 +3994,24 @@ See ChangeLog.1 for earlier changes. - Copyright (C) 1986, 1987, 1988, 2001, 2002, 2003, 2004, 2005, 2006, 2007 - Free Software Foundation, Inc. - Copying and distribution of this file, with or without modification, - are permitted provided the copyright notice and this notice are preserved. + Copyright (C) 1986, 1987, 1988, 2001, 2002, 2003, 2004, 2005, 2006, + 2007 Free Software Foundation, Inc. + + This file is part of GNU Emacs. + + GNU Emacs is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2, or (at your option) + any later version. + + GNU Emacs is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with GNU Emacs; see the file COPYING. If not, write to the + Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, + Boston, MA 02110-1301, USA. ;;; arch-tag: c315ba16-14ba-4b07-86e6-013a18f11be7 diff --git a/lisp/ChangeLog.3 b/lisp/ChangeLog.3 index 71ac61138d..1fcfc5bd94 100644 --- a/lisp/ChangeLog.3 +++ b/lisp/ChangeLog.3 @@ -117,16 +117,16 @@ * completion.el: Pervasive changes to use Emacs 19 features and conform to Emacs conventions. -1993-05-27 Jim Blandy ([email protected]) +1993-05-27 Jim Blandy ([email protected]) * Version 19.9 released. -1993-05-27 Jim Blandy ([email protected]) +1993-05-27 Jim Blandy ([email protected]) * term/x-win.el: Check for a geometry resource, and apply it to the initial frame. -1993-05-26 Jim Blandy ([email protected]) +1993-05-26 Jim Blandy ([email protected]) * isearch.el (isearch-forward): Remove the claim that isearch-whitespace-chars matches any string of whitespace. @@ -178,7 +178,7 @@ * paths.el (gnus-local-organization): Renamed from ...-your-... (gnus-local-domain): Likewise. -1993-05-26 Jim Blandy ([email protected]) +1993-05-26 Jim Blandy ([email protected]) * faces.el (x-resolve-font-name): If PATTERN is nil, return the frame's face. @@ -245,12 +245,12 @@ (x-handle-rn-switch): New function. (command-switch-alist): Add -rn. -1993-05-25 Jim Blandy ([email protected]) +1993-05-25 Jim Blandy ([email protected]) * term/x-win.el (command-switch-alist, x-switch-definitions): Treat `-i' like `-itype', as in Emacs 18. -1993-05-25 Jim Blandy ([email protected]) +1993-05-25 Jim Blandy ([email protected]) * Version 19.8 released. @@ -297,7 +297,7 @@ * simple.el (kill-new): Pass t as 2nd arg to interprogram-cut-function. * select.el (x-set-cut-buffer): New arg PUSH. -1993-05-24 Jim Blandy ([email protected]) +1993-05-24 Jim Blandy ([email protected]) * disp-table.el (standard-display-default): New function. (standard-display-european): New command. @@ -308,7 +308,7 @@ * simple.el (shell-command): Don't activate mark even momentarily. -1993-05-24 Jim Blandy ([email protected]) +1993-05-24 Jim Blandy ([email protected]) * case-table.el, disp-table.el, finder.el, iso-ascii.el, iso-insert.el, iso-swed.el, iso-syntax.el, iso8859-1.el, @@ -319,7 +319,7 @@ * menu-bar.el (menu-bar-mode): Doc fix. -1993-05-23 Jim Blandy ([email protected]) +1993-05-23 Jim Blandy ([email protected]) * lucid.el (switch-to-other-buffer): Build the list of acceptable buffers properly. @@ -346,7 +346,7 @@ calendar-daylight-savings-ends): Default to nil if the locale never has DST. -1993-05-22 Jim Blandy ([email protected]) +1993-05-22 Jim Blandy ([email protected]) * Version 19.7 released. @@ -358,7 +358,7 @@ file-relative-name. (vc-update-change-log): Use find-change-log instead of hardcoding. -1993-05-22 Jim Blandy ([email protected]) +1993-05-22 Jim Blandy ([email protected]) * cl.el (cl-floor, cl-ceiling, cl-truncate, cl-round): Renamed from floor, ceiling, truncate, and round; the old names conflict @@ -393,7 +393,7 @@ * apropos.el (apropos-print-matches): Bind tem. -1993-05-21 Edward M. Reingold ([email protected]) +1993-05-21 Edward M. Reingold ([email protected]) * holidays.el: Update reference to the papers in S-P&E. (filter-visible-calendar-holidays): Test for nil date. @@ -422,7 +422,7 @@ (minibuffer-keyboard-quit): If Delete Selection mode is off, do abort even if mark is active. -1993-05-19 Jim Blandy ([email protected]) +1993-05-19 Jim Blandy ([email protected]) Some time-handling patches from Paul Eggert: * calendar.el (calendar-current-time-zone): New function. @@ -447,13 +447,13 @@ (outline-minor-mode): Work with above change. Do not set outline-regexp or outline-header-end-regexp. -1993-05-19 Edward M. Reingold ([email protected]) +1993-05-19 Edward M. Reingold ([email protected]) * calendar.el (hebrew-calendar-yahrzeit): Correct error from S-P&E paper in test for Adar I 30 date of death for yahrzeit in a non-leap year when Shevat 29 must be used. -1993-05-19 Jim Blandy ([email protected]) +1993-05-19 Jim Blandy ([email protected]) * files.el (set-auto-mode): If the buffer's file name is nil, don't try to compare it against the entries in auto-mode-alist. @@ -465,7 +465,7 @@ * isearch.el (isearch-mode-map): Use vector, not string, to bind printing characters. -1993-05-18 Jim Blandy ([email protected]) +1993-05-18 Jim Blandy ([email protected]) * select.el (xselect-convert-to-class): Just return "Emacs" here. That's what the class will always be. @@ -474,7 +474,7 @@ * loaddefs.el: Add bindings for C-SPC and C-/, like C-@ and C-_. -1993-05-18 Jim Blandy ([email protected]) +1993-05-18 Jim Blandy ([email protected]) * startup.el (normal-top-level, command-line, command-line-1): Don't call the frame and face initialization functions unless @@ -579,7 +579,7 @@ (x-create-frame-with-faces): Simplify; do nothing special with `default' or `modeline' face. -1993-05-15 Jim Blandy ([email protected]) +1993-05-15 Jim Blandy ([email protected]) * version.el (emacs-version): Alpha release 19.6. @@ -628,7 +628,7 @@ * isearch.el (isearch-mode-map): Handle any length vector in keymap. (isearch-char-to-string): Handle non-character events properly. -1993-05-14 Jim Blandy ([email protected]) +1993-05-14 Jim Blandy ([email protected]) * subr.el (overlay-start, overlay-end, overlay-buffer): Removed. @@ -731,7 +731,7 @@ (function ...) for Emacs 18. (compilation-old-error-list): Set if undefined, for Emacs 18. -1993-05-11 Jim Blandy ([email protected]) +1993-05-11 Jim Blandy ([email protected]) * faces.el: Re-arranged to put accessors at the top. @@ -800,7 +800,7 @@ * comint.el (comint-filter): Increment opoint only if after insertion point. -1993-05-08 Jim Blandy ([email protected]) +1993-05-08 Jim Blandy ([email protected]) * faces.el: Call internal-set-face-1, not internat-set-face-1. @@ -812,7 +812,7 @@ * faces.el: Provide 'faces. -1993-05-08 Jim Blandy ([email protected]) +1993-05-08 Jim Blandy ([email protected]) * term/x-win.el: Since we require faces.el, there's no point in setting frame-creation-function to x-create-frame - just set it directly @@ -851,12 +851,12 @@ * rmail.el (rmail-resend): Add `resent' attribute. (rmail-forward): With prefix arg, run rmail-resend. -1993-05-07 Jim Blandy ([email protected]) +1993-05-07 Jim Blandy ([email protected]) * term/x-win.el: (require 'faces), too. Move (require 'select) to top, with the other requires. -1993-05-06 Jim Blandy ([email protected]) +1993-05-06 Jim Blandy ([email protected]) * finder.el: Bind finder-exit to 'q', not 'x'; the former is the conventional way to get out of such a package. @@ -901,7 +901,7 @@ (vc-backend-diff): Use diff-switches, not vc-diff-options. (vc-diff-options): Variable deleted. -1993-05-03 Edward M. Reingold ([email protected]) +1993-05-03 Edward M. Reingold ([email protected]) * calendar.el: Update reference to the papers in S-P&E. (calendar-print-astro-day-number): Correct spelling error in @@ -933,7 +933,7 @@ * files.el (find-file-noselect): Do set buffer-file-name to the truename, when find-file-visit-truename. -1993-04-29 Jim Blandy ([email protected]) +1993-04-29 Jim Blandy ([email protected]) * yow.el (yow): Fix interactive spec. @@ -1023,7 +1023,7 @@ * gud.el (gud-format-command): Fix %f expansion to send ondly the basename of files to gdb. -1993-04-27 Jim Blandy ([email protected]) +1993-04-27 Jim Blandy ([email protected]) * disp-table.el (describe-display-table): Don't use the term "rope"; we're using vectors of characters now. @@ -1126,7 +1126,7 @@ patched it to fix that I found its algorithm was broken). (ring-ref): Added doc string. -1993-04-25 Jim Blandy ([email protected]) +1993-04-25 Jim Blandy ([email protected]) * bytecomp.el (meta-flag): Declare this an obsolete variable. @@ -1242,7 +1242,7 @@ * electric.el (shrink-window-if-larger-than-buffer): Moved to window.el. -1993-04-16 Jim Blandy ([email protected]) +1993-04-16 Jim Blandy ([email protected]) * comint.el (comint-match-partial-pathname): Move "---" range in character class in regular expressions to the end of the character @@ -1319,12 +1319,12 @@ * lisp-mnt.el (lm-commentary-region): Gone. (lm-commentary): New function, replacing lm-commentary-region. -1993-04-12 Jim Blandy ([email protected]) +1993-04-12 Jim Blandy ([email protected]) * bytecomp.el: The `suspend-hooks' variable is obsolete now, and `suspend-hook' is the right name. -1993-04-12 Jim Blandy ([email protected]) +1993-04-12 Jim Blandy ([email protected]) * term/sun-mouse.el (suspend-emacstool): Run suspend-hook, not suspend-hooks. @@ -1358,12 +1358,12 @@ * comint.el: Clean up cmu* uses in header comments. -1993-04-10 Jim Blandy ([email protected]) +1993-04-10 Jim Blandy ([email protected]) * subr.el (overlay-start, overlay-end, overlay-buffer): New defsubsts. -1993-04-10 Jim Blandy ([email protected]) +1993-04-10 Jim Blandy ([email protected]) * paragraphs.el (sentence-end, forward-sentence): Doc fixes. @@ -1374,7 +1374,7 @@ empty string in response to the keyword prompt, restore the old window configuration properly. -1993-04-10 Jim Blandy ([email protected]) +1993-04-10 Jim Blandy ([email protected]) * paragraphs.el (sentence-end, forward-sentence): Doc fixes. @@ -1387,7 +1387,7 @@ preceed the file 2 info for that same diff. So we save and restore point to overcome this." -1993-04-09 Jim Blandy ([email protected]) +1993-04-09 Jim Blandy ([email protected]) * subr.el (overlay-start, overlay-end, overlay-buffer): New defsubsts. @@ -1551,7 +1551,7 @@ * etags.el (etags-tags-completion-table): Rewritten with a mondo regexp. -1993-03-31 Jim Blandy ([email protected]) +1993-03-31 Jim Blandy ([email protected]) * timer.el (timer-program): New defconst. (run-at-time): Use timer-program as the name of the program the @@ -1589,7 +1589,7 @@ * files.el (find-backup-file-name): Delete nothing if overflow in number of versions to keep. -1993-03-30 Jim Blandy ([email protected]) +1993-03-30 Jim Blandy ([email protected]) * subr.el (int-to-string): Make this an alias for the subr number-to-string. @@ -1780,13 +1780,13 @@ * emacsbug.el: Added a (provide 'emacsbug); lisp-mnt.el needs this. -1993-03-24 Jim Blandy ([email protected]) +1993-03-24 Jim Blandy ([email protected]) * term/x-win.el (x-defined-colors): Use x-color-defined-p instead of x-defined-color. (x-handle-geometry): Use x-parse-geometry instead of x-geometry. -1993-03-24 Jim Blandy ([email protected]) +1993-03-24 Jim Blandy ([email protected]) * calendar.el (calendar-standard-time-zone-name, calendar-daylight-time-zone-name): Initialize these at load-time, @@ -1804,7 +1804,7 @@ * compile.el: Fix library headers. -1993-03-23 Jim Blandy ([email protected]) +1993-03-23 Jim Blandy ([email protected]) * files.el (insert-directory): Do chase symlinks before passing the directory name to ls. @@ -1846,7 +1846,7 @@ spook.el, studly.el, tabify.el, text-mode.el: Added or corrected Commentary headers. -1993-03-22 Edward M. Reingold ([email protected]) +1993-03-22 Edward M. Reingold ([email protected]) * diary-insert.el: Change the name to diary-ins.el. * calendar.el: Change all autoload references to diary-ins. @@ -1889,7 +1889,7 @@ * loaddefs.el (default-mode-line-format-default): Use %l. -1993-03-21 Jim Blandy ([email protected]) +1993-03-21 Jim Blandy ([email protected]) * time.el (display-time): Doc fix. @@ -1904,7 +1904,7 @@ comment-indent-function. * bytecomp.el: Declare comment-indent-hook an obsolete variable. -1993-03-20 Jim Blandy ([email protected]) +1993-03-20 Jim Blandy ([email protected]) * time.el (display-time): Doc fix. @@ -1918,7 +1918,7 @@ * finder.el: Make sure that when new keywords are compiled, we see them immediately. -1993-03-19 Jim Blandy ([email protected]) +1993-03-19 Jim Blandy ([email protected]) * tex-mode.el (tex-send-command): Fix the command sent so that no blank is inserted when replacing the asterisk with the file name. @@ -1939,7 +1939,7 @@ * ftp.el: Nuked (actually, moved to =ftp.el). ange-ftp.el replaces this. -1993-03-18 Jim Blandy ([email protected]) +1993-03-18 Jim Blandy ([email protected]) * solar.el (solar-time-string): Round the time properly. @@ -1965,7 +1965,7 @@ * frame.el (make-frame): Renamed from new-frame. (new-frame): Alias for make-frame. -1993-03-18 Edward M. Reingold ([email protected]) +1993-03-18 Edward M. Reingold ([email protected]) * tex-mode.el (tex-send-command): Fix the command sent so that no blank is inserted when replacing the asterisk with the file name. @@ -2035,7 +2035,7 @@ * vc-hooks.el: Merge today's change by eric with everybody else's change (from 1992/08/04 through 1993/02/24). -1993-03-16 Jim Blandy ([email protected]) +1993-03-16 Jim Blandy ([email protected]) * bytecomp.el (byte-compile-from-buffer): Put buffer containing compiled code in binary overwrite mode. @@ -2055,12 +2055,12 @@ * vc.el, vc-hooks.el: the macro vc-error-occurred has to move from vc.el to vc-hooks.el for C-x C-f of a nonexistent file to work. -1993-03-16 Jim Blandy ([email protected]) +1993-03-16 Jim Blandy ([email protected]) * calendar.el (calendar-time-zone): Initialize this when calendar.el loads, not in the defvar. -1993-03-15 Jim Blandy ([email protected]) +1993-03-15 Jim Blandy ([email protected]) * register.el (view-register): Neglect not to avoid failing to properly display all the possible sorts of things one might find @@ -2079,7 +2079,7 @@ * indent.el (indent-line-function): Doc fix. -1993-03-14 Jim Blandy ([email protected]) +1993-03-14 Jim Blandy ([email protected]) * sort.el (sort-float-fields, sort-numeric-fields): Use string-to-number, not string-to-float or string-to-int. @@ -2147,7 +2147,7 @@ * term/keyswap.el: Initial revision -1993-03-11 Jim Blandy ([email protected]) +1993-03-11 Jim Blandy ([email protected]) * term/x-win.el: Disable suspending under X windows by setting suspend-hooks, not suspend-hook. The latter is an obsolete name. @@ -2222,12 +2222,12 @@ * startup.el (command-line-1): Fix copyright year. -1993-03-10 Edward M. Reingold ([email protected]) +1993-03-10 Edward M. Reingold ([email protected]) * diary-insert.el (insert-anniversary-diary-entry, insert-block-diary-entry): Fix calendar-date-display-form used. -1993-03-10 Jim Blandy ([email protected]) +1993-03-10 Jim Blandy ([email protected]) * files.el (basic-save-buffer): If file-precious-flag is set, and we write the buffer to a temp file and then rename it, don't @@ -2411,7 +2411,7 @@ * compare-w.el (compare-windows): Use compare-buffer-substrings. -1993-03-05 Jim Blandy ([email protected]) +1993-03-05 Jim Blandy ([email protected]) * term/x-win.el: Disable suspending under X windows by setting suspend-hooks, not suspend-hook. The latter is an obsolete name. @@ -2419,7 +2419,7 @@ * bytecomp.el: Declare suspend-hook to be an obsolete variable. -1993-03-05 Edward M. Reingold ([email protected]) +1993-03-05 Edward M. Reingold ([email protected]) * calendar.el (hebrew-calendar-yahrzeit): Change reference to nonexistent function last-month-of-hebrew-year to the correct @@ -2431,7 +2431,7 @@ * cal-mayan.el (calendar-next-tzolkin-date): Delete bogus second defun. -1993-03-04 Jim Blandy ([email protected]) +1993-03-04 Jim Blandy ([email protected]) * simple.el (kill-ring-save): Doc fix. @@ -2482,7 +2482,7 @@ * add-log.el (add-change-log-entry): Never move past second hdr line. -1993-03-02 Jim Blandy ([email protected]) +1993-03-02 Jim Blandy ([email protected]) * term/x-win.el (x-switch-definitions): Use the proper names for the scroll bar parameters. @@ -2493,7 +2493,7 @@ * term/x-win.el: Require `scroll-bar', not `scrollbar'. -1993-03-02 Jim Blandy ([email protected]) +1993-03-02 Jim Blandy ([email protected]) * frame.el (new-frame): Doc fix. @@ -2525,7 +2525,7 @@ * rmail.el (rmail-get-new-mail): Reset read-only after find-file. -1993-03-01 Jim Blandy ([email protected]) +1993-03-01 Jim Blandy ([email protected]) * simple.el (kill-region): If the buffer is read-only, call `barf-if-buffer-read-only' instead of just `ding', to get the @@ -2540,7 +2540,7 @@ too small to be split anywhere. (mouse-split-window-horizontally): Similar changes. -1993-02-28 Jim Blandy ([email protected]) +1993-02-28 Jim Blandy ([email protected]) * simple.el (insert-buffer): Make sure this returns nil. @@ -2560,7 +2560,7 @@ * frame.el (auto-raise-mode): Renamed from toggle-auto-raise. (auto-lower-mode): Renamed from toggle-auto-lower. -1993-02-26 Jim Blandy ([email protected]) +1993-02-26 Jim Blandy ([email protected]) * timer.el (run-at-time): Doc fix. @@ -2579,7 +2579,7 @@ (window-configuration-to-register): Likewise. (frame-configuration-to-register): Likewise. -1993-02-24 Jim Blandy ([email protected]) +1993-02-24 Jim Blandy ([email protected]) * term/x-win.el (scroll-bar-mode, scroll-bar-mode): Move these functions to scrolbar.el. @@ -2593,7 +2593,7 @@ * vc-hooks.el (vc-find-file-hook): Discard vc status of file if we will actually have to create the buffer. -1993-02-22 Jim Blandy ([email protected]) +1993-02-22 Jim Blandy ([email protected]) * gud.el (gud-break): With a prefix argument, set a temporary breakpoint. @@ -2611,7 +2611,7 @@ * subr.el (string-to-int): Make this an alias for string-to-number. -1993-02-21 Jim Blandy ([email protected]) +1993-02-21 Jim Blandy ([email protected]) * two-column.el: Add autoloads for the functions defined in tc-mode-map. @@ -2635,7 +2635,7 @@ * help.el (describe-function): Print the arglist if the function is bytecode or a list. -1993-02-17 Jim Blandy ([email protected]) +1993-02-17 Jim Blandy ([email protected]) * files.el (revert-buffer): Reverse the sense of the first argument, but leave interactive usage the same. @@ -2667,7 +2667,7 @@ (set-foreground-color, set-background-color): Renamed from set-frame-{fore,back}ground. -1993-02-15 Jim Blandy ([email protected]) +1993-02-15 Jim Blandy ([email protected]) * informat.el (Info-tagify): Change the regular expression which recognizes node names to work properly with Emacs 19's regexp @@ -2681,7 +2681,7 @@ * bytecomp.el (byte-compile-lambda): Test of byte-compile-compatibility was backwards. -1993-02-12 Jim Blandy ([email protected]) +1993-02-12 Jim Blandy ([email protected]) * gosmacs.el: Bind M-h to delete-previous-word, not backward-kill-word; the latter has different prefix semantics. @@ -2728,7 +2728,7 @@ * gosmacs.el (set-gosmacs-bindings): Fix binding of \eh. -1993-02-10 Jim Blandy ([email protected]) +1993-02-10 Jim Blandy ([email protected]) * gosmacs.el: Require 'mlsupport, to get definition of backward-kill-word. @@ -2757,7 +2757,7 @@ sure to examine buffer local value of compilation-old-error-list before switching to source file buffer. -1993-02-08 Jim Blandy ([email protected]) +1993-02-08 Jim Blandy ([email protected]) * rmailout.el (rmail-output, rmail-output-to-mail-file): Reverse the order of the arguments and make COUNT optional, for backward @@ -2765,7 +2765,7 @@ * cl.el (cl-version): Mark as no longer in beta test. -1993-02-07 Jim Blandy ([email protected]) +1993-02-07 Jim Blandy ([email protected]) * subr.el (mod): Add back this alias for %. @@ -2802,7 +2802,7 @@ * sendmail.el (mail-do-fcc): Allow dash in timezone name. -1993-02-01 Jim Blandy ([email protected]) +1993-02-01 Jim Blandy ([email protected]) * texinfo.el (texinfo-mode): Make page-delimiter buffer-local, and set it according to texinfo-chapter-level-regexp. @@ -2830,7 +2830,7 @@ * simple.el: Don't use the completion-oriented history commands. * paths.el (sendmail-program): Try /usr/ucblib/sendmail. -1993-01-26 Jim Blandy ([email protected]) +1993-01-26 Jim Blandy ([email protected]) * term/x-win.el: x-selection-value has been renamed to x-selection. x-own-selection has been renamed to x-set-selection, and the order @@ -2842,7 +2842,7 @@ * term/x-win.el: Doc fix. -1993-01-25 Jim Blandy ([email protected]) +1993-01-25 Jim Blandy ([email protected]) * frame.el (frame-notice-user-settings): Use new name frame-live-p, instead of live-frame-p. @@ -2882,7 +2882,7 @@ * simple.el ({next,previous}-complete-history-element): New functions. Bind them to M-n/M-p and next/prior in minibuffer completion maps. -1993-01-24 Jim Blandy ([email protected]) +1993-01-24 Jim Blandy ([email protected]) unread-command-event has been replaced by unread-command-events. * simple.el (prefix-arg-internal): Use this to push back all @@ -2916,7 +2916,7 @@ * simple.el (quoted-insert): Doc fix. -1993-01-23 Jim Blandy ([email protected]) +1993-01-23 Jim Blandy ([email protected]) * mouse.el (mouse-save-then-kill): Instead of deleting the text whenever the text of the region happens to be the same as the @@ -2933,7 +2933,7 @@ screws up the undo record we create, corrupting the undo list pretty nastily. -1993-01-22 Jim Blandy ([email protected]) +1993-01-22 Jim Blandy ([email protected]) * term/x-win.el: Doc fix. @@ -2946,7 +2946,7 @@ out of the commented-out scrollbar section, so it is on S-mouse-2 on the mode line. -1993-01-21 Jim Blandy ([email protected]) +1993-01-21 Jim Blandy ([email protected]) * c-mode.el (c-fill-paragraph): Fix the regular expressions used for finding paragraph beginnings and endings so that they think @@ -2965,7 +2965,7 @@ name after file-find-noselect, refer to tags-file-name, not the undefined var FILE. -1993-01-20 Jim Blandy ([email protected]) +1993-01-20 Jim Blandy ([email protected]) * c-mode.el (c-fill-paragraph): When modifying the paragraph-separate regexp, don't let it match paragraph starts. @@ -2975,7 +2975,7 @@ * etags.el (visit-tags-table-buffer): Error if called with 'same and no current table. -1993-01-19 Jim Blandy ([email protected]) +1993-01-19 Jim Blandy ([email protected]) * mouse.el (event-end): Work on click events, too. (mouse-split-window-vertically): Use event-end and @@ -2998,12 +2998,12 @@ (scrollbar-set-window-start, scrollbar-scroll-down, scrollbar-scroll-up): Use event-end, from mouse.el. -1993-01-19 Jim Blandy ([email protected]) +1993-01-19 Jim Blandy ([email protected]) * x-mouse.el: Deleted; it was the interface to the Emacs 18-style mouse interface, which doesn't exist anymore. -1993-01-15 Jim Blandy ([email protected]) +1993-01-15 Jim Blandy ([email protected]) * c-mode.el (c-switch-label-regexp): New constant. (electric-c-terminator, c-indent-line, indent-c-exp): Use it to @@ -3017,12 +3017,12 @@ * files.el (switch-to-buffer-other-frame): Pass t to pop-to-buffer. -1993-01-14 Jim Blandy ([email protected]) +1993-01-14 Jim Blandy ([email protected]) * scrollbar.el: New file. * term/x-win.el: Require 'scrollbar. -1993-01-13 Edward M. Reingold ([email protected]) +1993-01-13 Edward M. Reingold ([email protected]) * solar.el (solar-time-string): Round the time properly. @@ -3032,7 +3032,7 @@ and don't set the mark. Replace obsolete fn event-point. (mouse-kill): Replace obsolete fn event-point. -1993-01-11 Jim Blandy ([email protected]) +1993-01-11 Jim Blandy ([email protected]) * page-ext.el (next-page): Correctly handle negative page count. @@ -3040,7 +3040,7 @@ * simple.el (kill-append): Doc fix. -1993-01-09 Jim Blandy ([email protected]) +1993-01-09 Jim Blandy ([email protected]) * frame.el (frame-notice-user-settings): Don't try to delete the initial frame if the user took care of that. @@ -3066,7 +3066,7 @@ * timer.el (run-at-time): Use a pipe to talk to the timer process. -1993-01-07 Jim Blandy ([email protected]) +1993-01-07 Jim Blandy ([email protected]) * simple.el (set-goal-column): Make this disabled by default. @@ -3141,14 +3141,14 @@ Use defun instead of fset to define; the byte compiler is smart enough now not to compile this trivial function into slow byte code. -1992-12-21 Jim Blandy ([email protected]) +1992-12-21 Jim Blandy ([email protected]) * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix shouldn't change the buffer text. Make it not. If we're in the blank space before another comment, fill that one as a comment, not as normal text. -1992-12-20 Jim Blandy ([email protected]) +1992-12-20 Jim Blandy ([email protected]) * simple.el (kill-region): Change interactive spec to signal an error if the buffer is read-only, and remove the code to do a @@ -3158,7 +3158,7 @@ * loadup.el: Display load-path at start. -1992-12-19 Jim Blandy ([email protected]) +1992-12-19 Jim Blandy ([email protected]) * sendmail.el (mail-position-on-field): `end' is guaranteed to be at the beginning of the header separator; don't skip back to the @@ -3170,7 +3170,7 @@ BSD/GNU regexp to insist that line number end with a colon or close-paren. -1992-12-17 Jim Blandy ([email protected]) +1992-12-17 Jim Blandy ([email protected]) * rmail.el (rmail-unix-mail-delimiter): Not all time zone names end with "T". Accept any sequence of three or four alphabetic @@ -3181,23 +3181,23 @@ * simple.el (prefix-arg-internal): Don't apply string-to-char to get the first element of the key sequence - it might be a vector. -1992-12-15 Jim Blandy ([email protected]) +1992-12-15 Jim Blandy ([email protected]) * c-mode.el (c-fill-paragraph): When guessing the fill prefix, don't ever grab any actual text. -1992-12-14 Jim Blandy ([email protected]) +1992-12-14 Jim Blandy ([email protected]) * compile.el (compilation-error-regexp-alist): Add regexp for the MIPS CC distributed with Ultrix. -1992-12-12 Jim Blandy ([email protected]) +1992-12-12 Jim Blandy ([email protected]) * paths.el (Info-default-directory-list): The info files are supposed to be in /usr/local/info these days. Add it to the list of directories to search. -1992-12-11 Jim Blandy ([email protected]) +1992-12-11 Jim Blandy ([email protected]) * vc.el (vc-do-command): Set the default directory of the *vc* buffer to the directory containing FILE. @@ -3207,7 +3207,7 @@ * info.el (Info-{first,second,third,fourth,fifth}-menu-item): Removed. (Info-nth-menu-item): New function; bound to 1..9. -1992-12-08 Jim Blandy ([email protected]) +1992-12-08 Jim Blandy ([email protected]) The find-file-name-handler function in ../src/fileio.c is now callable from lisp; use it instead of writing out its code. @@ -3222,25 +3222,25 @@ function. Set ange-ftp's `unhandled-file-name-property' to its name. -1992-12-07 Jim Blandy ([email protected]) +1992-12-07 Jim Blandy ([email protected]) * lpr.el (lpr-switches, lpr-command): Make these defvars, not defconsts. -1992-12-04 Jim Blandy ([email protected]) +1992-12-04 Jim Blandy ([email protected]) * c-mode.el (c-fill-paragraph): When trying to make sure that the comment ender isn't on its own line, don't signal an error if there is no comment ender. -1992-12-03 Jim Blandy ([email protected]) +1992-12-03 Jim Blandy ([email protected]) * sendmail.el (mail-self-blind, mail-interactive, mail-yank-ignored-headers): Make these defvars, not defconsts. Otherwise, they wipe out the user's customizations when we autoload sendmail.el. -1992-12-01 Jim Blandy ([email protected]) +1992-12-01 Jim Blandy ([email protected]) * hanoi.el (hanoi): If pole-spacing is odd, round down, not up. To see if the window is wide enough, just check if one half of a @@ -3255,7 +3255,7 @@ * vc.el (vc-next-action): Undo previous change. -1992-11-19 Jim Blandy ([email protected]) +1992-11-19 Jim Blandy ([email protected]) * vc.el (vc-next-action): Pass t as NOQUERY argument to vc-resynch-window here too. This means that all uses of @@ -3268,23 +3268,23 @@ (vc-position-context, vc-find-position-by-context): New functions to help with that, made out of the old innards of vc-revert-buffer1. -1992-11-18 Jim Blandy ([email protected]) +1992-11-18 Jim Blandy ([email protected]) * fortran.el: New version of version 1.30 (!) from Stephen A. Wood -1992-11-17 Jim Blandy ([email protected]) +1992-11-17 Jim Blandy ([email protected]) * fortran.el: New version (1.30) from "Stephen A. Wood" * subr.el (lambda): Doc fix. -1992-11-15 Jim Blandy ([email protected]) +1992-11-15 Jim Blandy ([email protected]) * simple.el (comment-column): Doc fix. -1992-11-13 Jim Blandy ([email protected]) +1992-11-13 Jim Blandy ([email protected]) * paths.el (rmail-spool-directory): Add dgux-unix to the list of systems which put their mail in "/usr/mail". @@ -3296,7 +3296,7 @@ * lpr.el (lpr-command): Add dgux-unix to the list of systems which want "lp". -1992-11-12 Jim Blandy ([email protected]) +1992-11-12 Jim Blandy ([email protected]) * bytecomp.el: Declare unread-command-char an obsolete variable. * vip.el (vip-escape-to-emacs, vip-prefix-arg-value, @@ -3344,7 +3344,7 @@ * disass.el (byte-compile): Specify that the 'byte-compile feature is provided in the file "bytecomp". -1992-11-11 Jim Blandy ([email protected]) +1992-11-11 Jim Blandy ([email protected]) * ange-ftp.el (ange-ftp-repaint-buffer): Give this a non-hacky definition using (message nil). @@ -3355,7 +3355,7 @@ * c-mode.el (c-style-alist): Add quotes around C++ style name. -1992-11-10 Jim Blandy ([email protected]) +1992-11-10 Jim Blandy ([email protected]) * rect.el (operate-on-rectangle): Use move-to-column's FORCE argument instead of implementing it ourselves. @@ -3376,7 +3376,7 @@ * startup.el (after-init-hook): Doc fix. -1992-11-05 Jim Blandy ([email protected]) +1992-11-05 Jim Blandy ([email protected]) * isearch.el (isearch-frames-exist): This isn't what we want - replaced by... @@ -3446,7 +3446,7 @@ * term/x-win.el (command-switch-alist, x-switch-definitions): -ib was used for two things. Use -itype for icon type. -1992-11-04 Jim Blandy ([email protected]) +1992-11-04 Jim Blandy ([email protected]) * term/x-win.el: Moved functions to support selections and cut buffers out from amidst the X initialization code. @@ -3458,7 +3458,7 @@ default-directory to PWD if PWD is shorter. And, if PWD isn't accurate, delete it. -1992-11-03 Jim Blandy ([email protected]) +1992-11-03 Jim Blandy ([email protected]) * compile.el (compile-internal): Use NAME-OF-MODE in the prompt when offering to kill an existing process. @@ -3497,7 +3497,7 @@ * bytecomp.el (byte-compile-lambda): Don't compile the interactive spec if it is a call to `list'. -1992-10-30 Jim Blandy ([email protected]) +1992-10-30 Jim Blandy ([email protected]) * ange-ftp.el: Tighten the regular expression used in file-name-handler-alist to recognized ange-ftp filenames; the @@ -3632,7 +3632,7 @@ * replace.el (occur): Always search entire buffer. -1992-10-17 Jim Blandy ([email protected]) +1992-10-17 Jim Blandy ([email protected]) * mouse.el (mouse-tear-off-window): New function. @@ -3644,7 +3644,7 @@ * telnet.el (telnet): Wait for telnet output before sending `open'. -1992-10-14 Jim Blandy ([email protected]) +1992-10-14 Jim Blandy ([email protected]) * files.el (file-truename): The variable ~ should be considered an absolute pathname; handle it correctly. Concatenate the directory @@ -3666,7 +3666,7 @@ * picture.el (edit-picture): Run picture-mode-hook. -1992-10-10 Jim Blandy ([email protected]) +1992-10-10 Jim Blandy ([email protected]) * dired-aux.el (dired-compress-file): Change references to `from-file' to use `file'; the former only works because @@ -3801,7 +3801,7 @@ * simple.el (insert-buffer): Before reading arg, barf if read-only. -1992-10-03 Jim Blandy ([email protected]) +1992-10-03 Jim Blandy ([email protected]) * mouse.el: Begin adapting this to the new event format. (event-window, event-point, mouse-coords, mouse-timestamp): @@ -3838,7 +3838,7 @@ * simple.el (kill-word): Don't change point before calling kill-region. (delete-indentation): Don't go beyond eob, comparing with fill-prefix. -1992-09-30 Jim Blandy ([email protected]) +1992-09-30 Jim Blandy ([email protected]) * gud.el (gud-last-frame): Added defvar for this. @@ -3865,7 +3865,7 @@ * rmail.el (mail-unsent-separator): Add another alternative. -1992-09-29 Jim Blandy ([email protected]) +1992-09-29 Jim Blandy ([email protected]) * term/x-win.el (x-select-text, x-cut-buffer-or-selection-value): Use x-get-cut-buffer and x-set-cut-buffer, instead of expecting @@ -4011,7 +4011,7 @@ * files.el (after-find-file): New arg NOAUTO. (revert-buffer, recover-file): Pass t for that arg. -1992-09-23 Edward M. Reingold ([email protected]) +1992-09-23 Edward M. Reingold ([email protected]) * cal-mayan.el (calendar-print-mayan-date): Fix conversion in output message. @@ -4111,7 +4111,7 @@ * ange-ftp.el (ange-ftp-file-name-as-directory): Fix typo. -1992-09-17 Jim Blandy ([email protected]) +1992-09-17 Jim Blandy ([email protected]) * gud.el (gud-mode-map): Bind gud-refresh to C-c C-l, not C-c l; the latter is reserved for the user's purposes. @@ -4181,7 +4181,7 @@ (tags-table-parent-pointer-list): Doc fix. (tags-table-including): New function, subr of visit-tags-table-buffer. -1992-09-14 Jim Blandy ([email protected]) +1992-09-14 Jim Blandy ([email protected]) * gud.el (gdb, sdb, dbx): Use C-c C-r ("resume") for continuing, instead of C-c C-c. C-c C-c should be comint-interrupt-subjob; @@ -4272,7 +4272,7 @@ (dired-revert, dired-insert-old-subdirs): Use it. (dired-view-file): Undo previous change. -1992-09-13 Jim Blandy ([email protected]) +1992-09-13 Jim Blandy ([email protected]) * mouse.el: Change uses of 'K' interactive spec to 'e'. @@ -4335,7 +4335,7 @@ * add-log.el (add-log-current-defun): Use eq instead of = when one side might be nil. -1992-09-09 Jim Blandy ([email protected]) +1992-09-09 Jim Blandy ([email protected]) * frame.el (frame-notice-user-settings): In situations where we have to delete the existing frame and create a new one, redirect @@ -4364,7 +4364,7 @@ * c-mode.el (c-fill-paragraph): Fix the cases where point is before or after the comment. This uses new var comment-start-place. -1992-09-04 Jim Blandy ([email protected]) +1992-09-04 Jim Blandy ([email protected]) * rmail.el (rmail-unix-mail-delimiter): Expand this to recognize time zones after the date too. Re-arranged some of the whitespace @@ -4390,7 +4390,7 @@ * sendmail.el (mail-do-fcc): Copy code from Emacs 18 to add time zone. -1992-09-03 Jim Blandy ([email protected]) +1992-09-03 Jim Blandy ([email protected]) * rmail.el (rmail-unix-mail-delimiter): Split this up and comment its various components so it looks a bit less like three lines of @@ -4401,7 +4401,7 @@ * compile.el (compile-goto-error): Move to bol before looking for the error. -1992-09-02 Jim Blandy ([email protected]) +1992-09-02 Jim Blandy ([email protected]) * c-mode.el (c-auto-newline): Added backslashed before quotes in docstring. @@ -4456,7 +4456,7 @@ * add-log.el (add-log-current-defun): Recognize Emacs DEFUN properly. -1992-08-24 Jim Blandy ([email protected]) +1992-08-24 Jim Blandy ([email protected]) * rnewspost.el (news-setup): Don't use kill-line; that puts trash in the kill ring; instead, use delete-region. @@ -4476,7 +4476,7 @@ * simple.el: Doc fixes. -1992-08-19 Jim Blandy ([email protected]) +1992-08-19 Jim Blandy ([email protected]) * sendmail.el (mail-signature-file): Undo the previous change - replace this with mail-signature. The manual has already gone to @@ -4498,7 +4498,7 @@ * rmail.el (rmail-next-undeleted-message): No error at eob, just message. (This reverses the previous change.) -1992-08-17 Jim Blandy ([email protected]) +1992-08-17 Jim Blandy ([email protected]) * sendmail.el (mail-signature): Variable replaced with... (mail-signature-file): This, since this is the way all the @@ -4511,12 +4511,12 @@ * sort.el (sort-subr): No progress messages if sorting less than 50k. -1992-08-17 Edward M. Reingold ([email protected]) +1992-08-17 Edward M. Reingold ([email protected]) * solar.el (sunrise-sunset): Get various values set properly when there is (or isn't) a double prefix arg. -1992-08-14 Jim Blandy ([email protected]) +1992-08-14 Jim Blandy ([email protected]) * timer.el (run-at-time, timer-process-filter): The character used to separate the time from the token in input to the timer @@ -4532,7 +4532,7 @@ * unrmail.el: New file. -1992-08-13 Jim Blandy ([email protected]) +1992-08-13 Jim Blandy ([email protected]) * hideif.el (hide-ifdef-mode): Made this function autoload. (hide-ifdef-initially, hide-ifdef-read-only, @@ -4552,7 +4552,7 @@ * add-log.el (change-log-mode): Make it autoload. -1992-08-12 Jim Blandy ([email protected]) +1992-08-12 Jim Blandy ([email protected]) * frame.el (initial-frame-alist): Change the initial frame alist from ((minibuffer . nil)), which asks for no minibuffer, @@ -4562,7 +4562,7 @@ already taken care of in x_term_init, which is called from Fx_open_connection. Rah. -1992-08-11 Jim Blandy ([email protected]) +1992-08-11 Jim Blandy ([email protected]) * calendar.el, diary.el, diary-insert.el, holidays.el, cal-french.el cal-mayan.el, solar.el, lunar.el: Installed the @@ -4584,14 +4584,14 @@ * add-log.el (add-log-current-defun): Protect against "Unbalanced parens" error from down-list. -1992-08-10 Jim Blandy ([email protected]) +1992-08-10 Jim Blandy ([email protected]) * frame.el (set-screen-width, set-screen-height): Make the docstring say that these are obsolete. (screen-width, screen-height, set-screen-width, set-screen-height): Apply make-obsolete to these. -1992-08-10 Edward M. Reingold ([email protected]) +1992-08-10 Edward M. Reingold ([email protected]) * calendar.el (calendar-mode): Update mode line. @@ -4619,7 +4619,7 @@ * Reinstalled a loaddefs.el backup dated Aug 4. The installed copy seems to be a very old version. -1992-08-08 Jim Blandy ([email protected]) +1992-08-08 Jim Blandy ([email protected]) * frame.el (set-screen-width, set-screen-height): Changed these from fset aliases to actual functions, since they aren't supposed @@ -4634,7 +4634,7 @@ instead of many looking-at calls. Use memq instead of (or (eq x a) (eq x b)). Stupidity reigns. -1992-08-07 Jim Blandy ([email protected]) +1992-08-07 Jim Blandy ([email protected]) * frame.el (set-frame-width, set-frame-height): Functions deleted *again*. Where did these come from? @@ -4672,7 +4672,7 @@ * compile.el (compilation-mode-map): Change compilation-previous/next-file bindings to M-{ and M-}. -1992-08-05 Jim Blandy ([email protected]) +1992-08-05 Jim Blandy ([email protected]) * cl.el (*cl-valid-named-list-accessors*, *cl-valid-nth-offsets*, byte-compile-named-accessors): Deleted. @@ -4747,7 +4747,7 @@ is visible. RET now goes to the next preorder node. These changes make sequential reading of info subtrees easier. -1992-08-04 Jim Blandy ([email protected]) +1992-08-04 Jim Blandy ([email protected]) * appt.el (appt-make-list): Add ;;;###autoload cookie for this function. @@ -4794,7 +4794,7 @@ * gud.el (gud-def): If KEY is nil, don't make a binding. -1992-08-03 Edward M. Reingold ([email protected]) +1992-08-03 Edward M. Reingold ([email protected]) * diary.el (print-diary-entries): Rewrote to work for either simple or fancy diary display. @@ -4807,7 +4807,7 @@ * map-ynp.el (map-y-or-n-p): Use key-description for USER-KEYS. -1992-08-03 Jim Blandy ([email protected]) +1992-08-03 Jim Blandy ([email protected]) * simple.el (current-kill): Reinstate interprogram-paste feature. It doesn't seem to be wedged for me, and I can't find out how it is @@ -4895,7 +4895,7 @@ * add-log.el (add-log-current-defun): In C and Lisp, verify the defun really starts at or before the original point. -1992-08-01 Jim Blandy ([email protected]) +1992-08-01 Jim Blandy ([email protected]) * mailalias.el: Provide 'mailalias. * mailpost.el: Require 'mailalias and 'sendmail, since we use @@ -4978,11 +4978,11 @@ Change these to work correctly with the Zawinski-Furuseth byte compiler. -1992-07-31 Robert J. Chassell ([email protected]) +1992-07-31 Robert J. Chassell ([email protected]) * loaddefs.el: New keybinding, `C-x r y', for `yank-rectangle'. -1992-07-31 Edward M. Reingold ([email protected]) +1992-07-31 Edward M. Reingold ([email protected]) * calendar.el (calendar-string-spread): New function. (calendar-mode-line-format): Redefine it. @@ -5006,7 +5006,7 @@ (next-error): Use the ARGP-1th, not ARGPth cdr of compilation-error-list. -1992-07-30 Jim Blandy ([email protected]) +1992-07-30 Jim Blandy ([email protected]) * bytecomp.el (byte-compile-warnings): By default, do not display warnings about references free variables. @@ -5015,7 +5015,7 @@ * sendmail.el (mail): Get rid of the multiple mail buffer feature. -1992-07-29 Edward M. Reingold ([email protected]) +1992-07-29 Edward M. Reingold ([email protected]) * calendar.el (general-holidays, hebrew-holidays, local-holidays, christian-holidays, islamic-holidays, solar-holidays, other-holidays): @@ -5086,7 +5086,7 @@ point is in or after; the error need not start at bol. Restore current buffer after calling other-window. -1992-07-28 Edward M. Reingold ([email protected]) +1992-07-28 Edward M. Reingold ([email protected]) * holidays.el (calendar-holiday-function-sexp): New function. @@ -5171,7 +5171,7 @@ * etags.el (tags-exact-match-p): Rewritten. (tags-with-syntax): New macro. -1992-07-26 Edward M. Reingold ([email protected]) +1992-07-26 Edward M. Reingold ([email protected]) * calendar.el (calendar-cursor-to-date): Change `current-day' to `starred-day'. @@ -5267,7 +5267,7 @@ * flow-ctrl.el: fixed set-input-mode call broken by new third arg for meta control. -1992-07-23 Edward M. Reingold ([email protected]) +1992-07-23 Edward M. Reingold ([email protected]) * calendar.el (cursor-to-islamic-calendar-date, cursor-to-hebrew-calendar-date): Add phrase "until sunset" to message. @@ -5305,7 +5305,7 @@ * etags.el (last-tag): New defvar. (find-tag-noselect): Set and use it. -1992-07-22 Jim Blandy ([email protected]) +1992-07-22 Jim Blandy ([email protected]) * edebug.el, gnus.el, gnusmail.el, gnusmisc.el, gnuspost.el, hideif.el, isearch-mode.el, mh-e.el, mhspool.el, netunam.el, @@ -5318,7 +5318,7 @@ * etags.el (find-tag-noselect): Properly return find-tag-in-order's value. -1992-07-22 Jim Blandy ([email protected]) +1992-07-22 Jim Blandy ([email protected]) * bytecomp.el: Removed relative jump instructions. (byte-rel-goto-ops): Variable deleted. @@ -5354,7 +5354,7 @@ (fill-c++-comment): Renamed from fill-C-comment. (c++-insert-header): Deleted. -1992-07-21 Jim Blandy ([email protected]) +1992-07-21 Jim Blandy ([email protected]) * inf-lisp.el: When creating inferior-lisp-mode-map, use shared-lisp-mode-map, instead of calling the function @@ -5365,7 +5365,7 @@ argument; there's no longer any need to adapt to different versions of Emacs. -1992-07-21 Edward M. Reingold ([email protected]) +1992-07-21 Edward M. Reingold ([email protected]) * calendar.el (calendar-set-mode-line): New function. (list-yahrzeit-dates): Use it for mode line. @@ -5403,7 +5403,7 @@ * Installed co-isearch.el, new gud.el (1.19) -1992-07-21 Jim Blandy ([email protected]) +1992-07-21 Jim Blandy ([email protected]) * frame.el (get-frame): Renamed to get-other-frame; get-frame sounds like a parallel to get-buffer or get-process. @@ -5421,7 +5421,7 @@ keys to which the movement commands are bound to blackbox's movement functions. Define the insert and kp-enter keys. -1992-07-20 Jim Blandy ([email protected]) +1992-07-20 Jim Blandy ([email protected]) * blackbox.el (blackbox): Doc fix. (bb-outside-box): For some reason, this function was replaced by @@ -5448,7 +5448,7 @@ * startup.el (command-line): Fixed typo in comment. -1992-07-20 Jim Blandy ([email protected]) +1992-07-20 Jim Blandy ([email protected]) * bytecomp.el (byte-compile-warnings): Include the full documentation given in the comments at the top of the file in this @@ -5470,7 +5470,7 @@ * window.el (window-config-to-register, register-to-window-config): Deleted, along with keybindings C-x 6 and C-x 7. -1992-07-19 Edward M. Reingold ([email protected]) +1992-07-19 Edward M. Reingold ([email protected]) * cal-mayan.el: New file. The only functions visible to the outside world are calendar-goto-mayan-date, @@ -5534,7 +5534,7 @@ * rmail.el (rmail-delete-forward): Removed the feature of moving back if there's nowhere to go forward. -1992-07-17 Jim Blandy ([email protected]) +1992-07-17 Jim Blandy ([email protected]) * etags.el (visit-tags-table-buffer): Call abbreviate-file-name on the argument before setting tags-file-name. @@ -5549,7 +5549,7 @@ * Keywords added for [n-z]*.el. Finder now under construction. -1992-07-17 Jim Blandy ([email protected]) +1992-07-17 Jim Blandy ([email protected]) * rmail.el (rmail-insert-inbox-text): Generate an alternate name to use for tofile by appending a `+' to file, not a `~'; files @@ -5573,7 +5573,7 @@ * Finished decorating the library files with new standard headers. -1992-07-16 Jim Blandy ([email protected]) +1992-07-16 Jim Blandy ([email protected]) * disass.el: Require `byte-compile', not 'bytecomp'. @@ -5593,7 +5593,7 @@ * etags.el: Major rewrite with many new features. * ctags.el: New file; goes with new etags.el. -1992-07-16 Jim Blandy ([email protected]) +1992-07-16 Jim Blandy ([email protected]) * byte-run.el (defsubst): Removed extra closing paren at the end of this function. @@ -5609,7 +5609,7 @@ * New library headers for [opqrst]*.el. Ghod, this is boring. -1992-07-15 Edward M. Reingold ([email protected]) +1992-07-15 Edward M. Reingold ([email protected]) * lunar.el: New file. The only functions known to outside world are calendar-phases-of-moon, diary-phases-of-moon, and @@ -5637,7 +5637,7 @@ * loaddefs.el: Key bindings moved here. * simple.el: From here. -1992-07-14 Jim Blandy ([email protected]) +1992-07-14 Jim Blandy ([email protected]) * byte-opt.el (byte-boolean-vars): Rebuilt for Emacs 19. @@ -5661,7 +5661,7 @@ * [uvwxy]*.el: Added headers for new Emacs Lisp documentation conventions. -1992-07-14 Edward M. Reingold ([email protected]) +1992-07-14 Edward M. Reingold ([email protected]) * calendar.el (calendar-mode): Change key bindings for all functions to make them consistent with Version 19 requirements. @@ -5721,12 +5721,12 @@ * loaddefs.el (completion-ignored-extensions): nconc together list of common extensions and list of unix or vms-specific ones. -1992-07-13 Jim Blandy ([email protected]) +1992-07-13 Jim Blandy ([email protected]) * simple.el (kill-region): The variable `undo-high-threshold' has been renamed to `undo-strong-limit'. Change its use here. -1992-07-13 Edward M. Reingold ([email protected]) +1992-07-13 Edward M. Reingold ([email protected]) * calendar.el (exit-calendar): Bury buffers instead of killing them. @@ -5749,7 +5749,7 @@ * c-mode.el (calculate-c-indent): Don't indent as argdecl after apparent function decl inside a comment. -1992-07-10 Jim Blandy ([email protected]) +1992-07-10 Jim Blandy ([email protected]) * bytecomp.el: Replaced with Jamie Zawinksi's byte compiler. * byte-optimize.el, bytecomp-runtime.el: New files, supporting @@ -5764,7 +5764,7 @@ * mouse.el (mouse-kill): Don't set the mark; pass point and the click's position to kill-region directly. -1992-07-09 Jim Blandy ([email protected]) +1992-07-09 Jim Blandy ([email protected]) * abbrev.el (write-abbrev-file): Removed extraneous interactive spec. @@ -5808,7 +5808,7 @@ * sendmail.el (mail-do-fcc): Call rmail-set-message-counters. -1992-07-06 Jim Blandy ([email protected]) +1992-07-06 Jim Blandy ([email protected]) * etags.el (visit-tags-table): Remove automounter prefixes before setting tags-file-name. @@ -5822,11 +5822,11 @@ * Installed tq.el. -1992-07-06 Edward M. Reingold ([email protected]) +1992-07-06 Edward M. Reingold ([email protected]) * tex-mode.el (tex-file): Fix reference to tex-offer-save. -1992-07-05 Edward M. Reingold ([email protected]) +1992-07-05 Edward M. Reingold ([email protected]) * tex-mode.el: Require comint instead of oshell. (tex-start-shell): Use comint, not oshell. @@ -5899,12 +5899,12 @@ * cmutex.el: Deleted, following recommendation of reingold. -1992-06-30 Jim Blandy ([email protected]) +1992-06-30 Jim Blandy ([email protected]) * startup.el (command-line-1): Signal an error if the argument to the `-insert' option isn't a string. -1992-06-28 Jim Blandy ([email protected]) +1992-06-28 Jim Blandy ([email protected]) * completion.el (completion-separator-self-insert-autofilling): Changed references to `auto-fill-hook' to `auto-fill-function'. @@ -5912,7 +5912,7 @@ * texinfo-upd.el (texinfo-update-node, texinfo-sequential-node-update): Same thing. -1992-06-28 Edward M. Reingold ([email protected]) +1992-06-28 Edward M. Reingold ([email protected]) * solar.el: New file. The only functions known to outside world are calendar-sunrise-sunset, @@ -5934,7 +5934,7 @@ * holidays.el: Autoload calendar-holiday-function-solar-equinoxes-solstices. -1992-06-27 Jim Blandy ([email protected]) +1992-06-27 Jim Blandy ([email protected]) * info.el: Bindings for Info-goto-emacs-command-node and Info-goto-emacs-key-command-node in help-map moved from here... @@ -5962,7 +5962,7 @@ * loaddefs.el: Bind [M-right], [M-left], [M-up], and [M-down] to backward-sexp, forward-sexp, backward-list, and forward-list. -1992-06-26 Edward M. Reingold ([email protected]) +1992-06-26 Edward M. Reingold ([email protected]) * holidays.el (calendar-holiday-list): Protect holiday evaluation from bogus holidays on list. @@ -5971,7 +5971,7 @@ * outline.el (outline-flag-region): Bind buffer-read-only to nil. -1992-06-25 Jim Blandy ([email protected]) +1992-06-25 Jim Blandy ([email protected]) * calendar.el, diary.el, holidays.el: Merged new versions from Ed Reingold. @@ -5985,11 +5985,11 @@ customize. * holiday.el (holidays): Added autoload cookie for this. -1992-06-25 Edward M. Reingold ([email protected]) +1992-06-25 Edward M. Reingold ([email protected]) * diary.el (diary-rosh-hodesh): Change mod to % in two places. -1992-06-24 Edward M. Reingold ([email protected]) +1992-06-24 Edward M. Reingold ([email protected]) * holidays.el (calendar-holiday-function-fixed, calendar-holiday-function-float. calendar-holiday-function-julian, @@ -6006,7 +6006,7 @@ calendar-load-hook: New variable; use it with run-hooks. calendar: Describe use of calendar-load-hook. -1992-06-23 Jim Blandy ([email protected]) +1992-06-23 Jim Blandy ([email protected]) * autoload.el: The docstring is the third element of a `defun' form, not the second. @@ -6023,7 +6023,7 @@ now has values like `enable-local-variables'. (hack-local-variables): Test `enable-local-eval' properly. -1992-06-22 Jim Blandy ([email protected]) +1992-06-22 Jim Blandy ([email protected]) * autoload.el (generate-file-autoloads): Do attach a `doc-string-elt' property to `defun', `defvar', `defconst', and @@ -6038,7 +6038,7 @@ Ensure we keep at least one word on each line. Also don't break after a period followed by just one space. -1992-06-21 Jim Blandy ([email protected]) +1992-06-21 Jim Blandy ([email protected]) * screen.el (ctl-x-5-map): Removed declaration and initialization of this here; it's done in subr.el, alongside ctl-x-4-map. @@ -6054,7 +6054,7 @@ * upd-copyr.el (update-copyright): Grok abbreviated years. -1992-06-19 Jim Blandy ([email protected]) +1992-06-19 Jim Blandy ([email protected]) * lisp-mode.el (indent-sexp): The local variable `last-point' was being asked to do double-duty - `calculate-lisp-indent' needs to @@ -6067,14 +6067,14 @@ * lisp-mode.el (indent-sexp): Change the `while' loop to an `if', using `make-list' and `-' instead of `(list nil)' and `1+'. -1992-06-18 Jim Blandy ([email protected]) +1992-06-18 Jim Blandy ([email protected]) * edebug.el (edebug-debug): Added autoload cookie for this. * etags.el (find-tag-other-frame): New function. Bind it to `C-x 5 .'. -1992-06-17 Jim Blandy ([email protected]) +1992-06-17 Jim Blandy ([email protected]) * compile.el (compilation-error-regexp-alist): Tightened up the regular expressions designed to match lint pass 2 and lint pass 3 @@ -6092,7 +6092,7 @@ * mailabbrev.el: New version from jwz. -1992-06-15 Jim Blandy ([email protected]) +1992-06-15 Jim Blandy ([email protected]) * compile.el (compilation-enter-directory-regexp, compilation-leave-directory-regexp): In strings, replace uses of @@ -6101,7 +6101,7 @@ all the complemented character sets; none of these should match across a newline. -1992-06-14 Jim Blandy ([email protected]) +1992-06-14 Jim Blandy ([email protected]) * isearch-mode.el (isearch-forward): Remove sentence from doc string claiming that the key bindings are controlled by variables @@ -6129,7 +6129,7 @@ * gnus.el (gnus-nntp-server): Eval gnus-default-nntp-server only if bound. -1992-06-12 Jim Blandy ([email protected]) +1992-06-12 Jim Blandy ([email protected]) * isearch-mode.el: New package, which will probably supercede isearch.el. @@ -6163,13 +6163,13 @@ * compile.el (compile-internal): Do buffer-disable-undo here. (compilation-mode): Not here. -1992-06-10 Jim Blandy ([email protected]) +1992-06-10 Jim Blandy ([email protected]) * simple.el (rotate-yank-pointer): Move the guts of this to current-kill, and get rid of the optional DO-NOT-MOVE argument. (current-kill): Rotate the yank pointer here. -1992-06-09 Jim Blandy ([email protected]) +1992-06-09 Jim Blandy ([email protected]) * subr.el (one-window-p): Rename argument ARG to NOMINI, so that the docstring will agree with the argument list generated @@ -6255,7 +6255,7 @@ the file name. Also removed setq of random variable `formatted-revision'. -1992-06-02 Jim Blandy ([email protected]) +1992-06-02 Jim Blandy ([email protected]) * yow.el: Somehow, the semicolons introducing the comment on the first line disappeared. Put them back. @@ -6286,7 +6286,7 @@ * ispell.el: Add some autoloads. (ispell-word): Accept prefix arg, meaning do ispell-next. -1992-06-01 Jim Blandy ([email protected]) +1992-06-01 Jim Blandy ([email protected]) * simple.el (current-kill): Name the variable which holds the value from other programs to be pasted interprogram-paste, not @@ -6346,7 +6346,7 @@ * cus-print.el: installed -1992-05-30 Jim Blandy ([email protected]) +1992-05-30 Jim Blandy ([email protected]) * startup.el (normal-top-level): Call abbreviate-file-name instead of writing out its code. @@ -6381,13 +6381,13 @@ non-nil, use comint-last-input-start and comint-last-input-end to delete the input we just sent. -1992-05-29 Jim Blandy ([email protected]) +1992-05-29 Jim Blandy ([email protected]) * simple.el (append-to-buffer): When called interactively, default to (other-buffer nil t). This way, it will offer to insert into the buffer in the other window. -1992-05-27 Jim Blandy ([email protected]) +1992-05-27 Jim Blandy ([email protected]) * term/x-win.el (x-cut-buffer-or-selection-value): New function. Set interprogram-paste-function to use it. @@ -6403,7 +6403,7 @@ * simple.el (set-selective-display): Keep vpos of point constant. -1992-05-24 Edward M. Reingold ([email protected]) +1992-05-24 Edward M. Reingold ([email protected]) * calendar.el (list-yahrzeit-dates): New function. (hebrew-calendar-yahrzeit): Moved from diary.el. @@ -6412,7 +6412,7 @@ diary-ordinal-suffix: Give correct suffix for 111, 112, 113, 211, 212, 213, etc. -1992-05-21 Jim Blandy ([email protected]) +1992-05-21 Jim Blandy ([email protected]) * mouse.el: Emulate the Emacs 18 mouse button bindings for now. (mouse-yank-at-click): New function. @@ -6463,7 +6463,7 @@ * window.el: Binding of split-window-horizontally moved from C-x 5 to C-x 3. -1992-05-20 Jim Blandy ([email protected]) +1992-05-20 Jim Blandy ([email protected]) * simple.el (kill-region): This used to forgo actually deleting the region if the buffer was read-only, meaning that the command @@ -6475,15 +6475,15 @@ * subr.el (one-window-p): If arg is t, completely avoid minibuffer. -1992-05-19 Jim Blandy ([email protected]) +1992-05-19 Jim Blandy ([email protected]) * version.el (version): New alias for emacs-version. -1992-05-19 Jim Blandy ([email protected]) +1992-05-19 Jim Blandy ([email protected]) * startup.el (normal-top-level): Typo: s/getev/getenv/. -1992-05-13 Jim Blandy ([email protected]) +1992-05-13 Jim Blandy ([email protected]) * subr.el (lambda): Define this as a macro which wraps the lambda expression in a (function ...) quoter. This means that you don't @@ -6494,7 +6494,7 @@ * loadup.el: Disable undo recording in scratch while we load all the files; re-enable them before we dump. -1992-05-12 Jim Blandy ([email protected]) +1992-05-12 Jim Blandy ([email protected]) * startup.el (normal-top-level): If (getenv "PWD") or (getenv "HOME") refer to the same directory as default-directory, change @@ -6533,17 +6533,17 @@ * mailabbrev.el (mail-abbrevs-v18-munge-map): Use define-key instead of making up an extra alist and nconcing it onto the keymap. -1992-05-02 Edward M. Reingold ([email protected]) +1992-05-02 Edward M. Reingold ([email protected]) * calendar.el (generate-calendar-month): Center heading over each month. -1992-04-30 Jim Blandy ([email protected]) +1992-04-30 Jim Blandy ([email protected]) * loaddefs.el: Moved (put 'narrow-to-page 'disabled t)... * page.el: To here. -1992-04-28 Jim Blandy ([email protected]) +1992-04-28 Jim Blandy ([email protected]) * mh-e.el (mh-signature-file-name): New variable. (mh-insert-signature): Use it. @@ -6557,17 +6557,17 @@ * loaddefs.el: Removed (put 'narrow-to-region 'disabled t). It is done in simple.el. -1992-04-25 Jim Blandy ([email protected]) +1992-04-25 Jim Blandy ([email protected]) * dired.el (dired-mode): Make the modeline display the entire path of the directory, not just the buffer name. -1992-04-24 Jim Blandy ([email protected]) +1992-04-24 Jim Blandy ([email protected]) * flame.el: Add "flame-" prefix to internal functions, to conform with the naming conventions of the rest of Emacs. -1992-04-21 Jim Blandy ([email protected]) +1992-04-21 Jim Blandy ([email protected]) * doctor.el (doctor-svo): Deleted second expression from top let binding; it used to read "(let ((foo <exp> sent)) ...)"; let @@ -6575,14 +6575,14 @@ * flame.el: We might as well (provide 'flame). -1992-04-18 Jim Blandy ([email protected]) +1992-04-18 Jim Blandy ([email protected]) * startup.el (normal-top-level): Don't change default-directory to (getenv "PWD") unless they actually refer to the same directory. * rmail.el (rmail-unix-mail-delimiter): Doc fix. -1992-04-17 Jim Blandy ([email protected]) +1992-04-17 Jim Blandy ([email protected]) * rmail.el (rmail-unix-mail-delimiter): Don't bother giving this a docstring; move it to a comment. @@ -6591,7 +6591,7 @@ * cmacexp.el: Doc fix. -1992-04-15 Jim Blandy ([email protected]) +1992-04-15 Jim Blandy ([email protected]) * simple.el (reindent-then-newline-and-indent, newline-and-indent): Call the newline function instead of saying @@ -6613,12 +6613,12 @@ * compile.el (compilation-find-buffer): Optional non-nil arg says to try to find some buffer other than the current one. -1992-04-10 Edward M. Reingold ([email protected]) +1992-04-10 Edward M. Reingold ([email protected]) * holidays.el (calendar-cursor-holidays): Signal error when cursor is not on a date. -1992-04-08 Jim Blandy ([email protected]) +1992-04-08 Jim Blandy ([email protected]) * doctex.el, gdb.el, mh-e.el, vip.el: Use point{,-min,-max,-marker} functions instead of @@ -6636,11 +6636,11 @@ (sendmail-pre-abbrev-expand-hook): Take optional arg; if non-nil, call self-insert-command with it, and don't do expand-abbrev; just -1992-04-06 Jim Blandy ([email protected]) +1992-04-06 Jim Blandy ([email protected]) * lpr.el (lpr-command): Make this variable settable. -1992-04-03 Jim Blandy ([email protected]) +1992-04-03 Jim Blandy ([email protected]) * files.el (revert-buffer): Reverse the sense of the prefix argument; by default, do not offer to revert from the auto-save @@ -6651,7 +6651,7 @@ * files.el (write-contents-hooks): New variable. (basic-save-buffer): Use write-contents-hooks like write-file-hooks. -1992-03-31 Jim Blandy ([email protected]) +1992-03-31 Jim Blandy ([email protected]) * bytecomp.el (byte-compile-let, byte-compile-let*): Signal an error message if a binding has more than one value form. @@ -6676,7 +6676,7 @@ * simple.el (copy-region-as-kill): Doc fix. -1992-03-16 Jim Blandy ([email protected]) +1992-03-16 Jim Blandy ([email protected]) * Moved provide clauses to bottom of every elisp file that contains one. @@ -6689,7 +6689,7 @@ * upd-copyr.el (update-copyright): Don't update the GPL version or replace the notice if the user said not to update the copyright. -1992-03-11 Jim Blandy ([email protected]) +1992-03-11 Jim Blandy ([email protected]) * sendmail.el (mail-fcc): New function. (mail-mode-map): Bind C-c C-f C-f to mail-fcc. @@ -6718,7 +6718,7 @@ (compilation-search-path): Made user variable, added autoload cookie. (compilaton-window-height): Added autoload cookie. -1992-02-27 Jim Blandy ([email protected]) +1992-02-27 Jim Blandy ([email protected]) * files.el (hack-local-variables): Don't take a FORCE argument; it's as easy to bind enable-local-variables to t for a while as it @@ -6732,16 +6732,16 @@ definition and initialization to be here; moved it to... * files.el: Here. -1992-02-21 Jim Blandy ([email protected]) +1992-02-21 Jim Blandy ([email protected]) * telnet.el (read-password): Let the quit character terminate password entry. -1992-02-07 Jim Blandy ([email protected]) +1992-02-07 Jim Blandy ([email protected]) * info.el: Doc fix. -1992-01-27 Jim Blandy ([email protected]) +1992-01-27 Jim Blandy ([email protected]) * simple.el (universal-argument): Read key sequences, not single keys. Renamed `c-u' to `factor'. Describe the argument in the @@ -6755,23 +6755,23 @@ * simple.el (digit-argument): Strip off high bit of last-command-char. -1992-01-17 Jim Blandy ([email protected]) +1992-01-17 Jim Blandy ([email protected]) * term/tvi970.el: New file. -1992-01-16 Jim Blandy ([email protected]) +1992-01-16 Jim Blandy ([email protected]) * screen.el: Don't automatically bind C-z to iconify; this is inappropriate on terminals. * term/x-win.el: Bind C-z to iconify here. -1992-01-15 Jim Blandy ([email protected]) +1992-01-15 Jim Blandy ([email protected]) * term/wyse50.el: Rewritten to use function-key-map. * simple.el: Include bindings for [up], [down], [left], and [right]. -1992-01-13 Jim Blandy ([email protected]) +1992-01-13 Jim Blandy ([email protected]) * setenv.el: New file. @@ -6785,7 +6785,7 @@ * flow-ctrl.el: installed. -1992-01-08 Jim Blandy ([email protected]) +1992-01-08 Jim Blandy ([email protected]) * simple.el (temporary-goal-column): Added missing closing paren. @@ -6797,12 +6797,12 @@ * debug.el (cancel-debug-on-entry): Complete over debugged functions. -1991-12-21 Jim Blandy ([email protected]) +1991-12-21 Jim Blandy ([email protected]) * at386.el: Moved to term/at386.el, changed to use function-key-map. -1991-12-20 Jim Blandy ([email protected]) +1991-12-20 Jim Blandy ([email protected]) * term/news.el, term/vt100.el: Converted to use function-key-map instead of old keypad.el. @@ -6853,7 +6853,7 @@ * sccs.el: installed 3.5 -1991-12-08 Jim Blandy ([email protected]) +1991-12-08 Jim Blandy ([email protected]) * simple.el (universal-argument): If there is already an argument specified, don't toss it and read a new one; instead, end argument @@ -6873,7 +6873,7 @@ (diff-sccs, diff-rcs): New commands using diff-internal-diff. (diff-rcs-extension): New variable. -1991-12-05 Jim Blandy ([email protected]) +1991-12-05 Jim Blandy ([email protected]) * apropos.el, doctex.el, help.el, paths.el, spook.el, yow.el: These files expected to find their data in exec-directory, but @@ -6898,7 +6898,7 @@ * simple.el: Doc fix. -1991-11-15 Jim Blandy ([email protected]) +1991-11-15 Jim Blandy ([email protected]) * startup.el (command-line): Don't bother catching errors that occur while the window system file is loading; cmd_error can now @@ -6908,7 +6908,7 @@ * startup.el (command-line): baud-rate is a variable, not a function. -1991-11-14 Jim Blandy ([email protected]) +1991-11-14 Jim Blandy ([email protected]) * info.el (Info-mode): Mention Info-directory in the list of commands in the docstring. @@ -6918,12 +6918,12 @@ * find-dired.el: New version munged by sk for tree dired. -1991-11-06 Jim Blandy ([email protected]) +1991-11-06 Jim Blandy ([email protected]) * screen.el (screen-initialize, screen-notice-user-settings): Renamed global-minibuffer-screen to default-minibuffer-screen. -1991-11-05 Edward M. Reingold ([email protected]) +1991-11-05 Edward M. Reingold ([email protected]) * diary.el (diary-rosh-hodesh): Add Erev Rosh Hodesh to the diary, as needed. @@ -6933,7 +6933,7 @@ * ebuff-menu.el (eletric-buffer-menu-mode-map): Define < and > to scroll-left and scroll-right per user suggestion. -1991-10-31 Jim Blandy ([email protected]) +1991-10-31 Jim Blandy ([email protected]) * files.el (cd): Don't bother calling pwd after changing the directory. @@ -6949,7 +6949,7 @@ prefix from names. (shell): Marked this to be autoloaded. -1991-10-29 Jim Blandy ([email protected]) +1991-10-29 Jim Blandy ([email protected]) * files.el (find-file-noselect): Extract filename abbreviation code into separate function. @@ -6959,13 +6959,13 @@ doesn't exist, offer to create it. (make-directory-path): New function to support this offer. -1991-10-28 Jim Blandy ([email protected]) +1991-10-28 Jim Blandy ([email protected]) * macros.el (apply-macro-to-region-lines): Use a marker to keep track of the next line to operate on, so the macro can delete or add lines. -1991-10-26 Jim Blandy ([email protected]) +1991-10-26 Jim Blandy ([email protected]) * disass.el (disassemble): Correctly distinguish functions with no interactive spec and functions that are (interactive). Correctly @@ -6975,7 +6975,7 @@ (disassemble-1): Use nth to extract components of explicit call to byte-code, not car and cdr. -1991-10-25 Jim Blandy ([email protected]) +1991-10-25 Jim Blandy ([email protected]) * lisp-mode.el (eval-print-last-sexp): Saying (terpri (current-buffer)) after evaluating the expression does bad things @@ -6987,7 +6987,7 @@ * compile.el (compilation-buffer-name-function, compilation-finish-function): Add autoload cookie for these. -1991-10-15 Jim Blandy ([email protected]) +1991-10-15 Jim Blandy ([email protected]) * info.el (Info-follow-nearest-node): Adjusted for new return value format from coordinates-in-window-p. @@ -7016,7 +7016,7 @@ to see if this is a compilation buffer, because the latter might not be local. -1991-10-04 Jim Blandy ([email protected]) +1991-10-04 Jim Blandy ([email protected]) * files.el (revert-buffer): Call verify-visited-file-modtime with one arg (the current buffer), instead of none. @@ -7031,7 +7031,7 @@ * version.el (emacs-version): (From Bob:) Take optional arg (prefix arg) to insert version text at point. -1991-09-26 Jim Blandy ([email protected]) +1991-09-26 Jim Blandy ([email protected]) * info.el (Info-default-directory-list): defvar this instead of defconsting it, so paths.el can set it. @@ -7083,7 +7083,7 @@ * map-ynp.el: No need for provide. * loadup.el: Load map-ynp. -1991-08-23 Edward M. Reingold ([email protected]) +1991-08-23 Edward M. Reingold ([email protected]) * calendar.el (calendar-last-day-of-month, calendar-leap-year-p, calendar-day-number, calendar-absolute-from-gregorian): Change @@ -7095,7 +7095,7 @@ (apply fun (cons first rest)) => (apply fun first rest). Come on, guys. -1991-08-20 Michael I Bushnell ([email protected]) +1991-08-20 Michael I Bushnell ([email protected]) * rmail.el (rmail-convert-to-babyl-format): Roland added the missing paren in the wrong place; fixed. @@ -7110,7 +7110,7 @@ * rmail.el (rmail-convert-to-babyl-format): Add missing paren. -1991-08-19 Edward M. Reingold ([email protected]) +1991-08-19 Edward M. Reingold ([email protected]) * calendar.el (redraw-calendar): Preserve cursor location in redrawing. @@ -7134,11 +7134,11 @@ (doctor-doc): Use member instead of doctor-member. (doctor-rms): Restored. -1991-08-16 Jim Blandy ([email protected]) +1991-08-16 Jim Blandy ([email protected]) * term/x-win.el: Removed obsolete definitions for function keys. -1991-08-15 Jim Blandy ([email protected]) +1991-08-15 Jim Blandy ([email protected]) * screen.el (screen-create-initial-screen): Renamed to screen-initialize. Arrange to cause errors if people try to @@ -7165,7 +7165,7 @@ find-file-read-only-other-screen): Here... * sendmail.el (mail-other-screen): And here. -1991-08-14 Jim Blandy ([email protected]) +1991-08-14 Jim Blandy ([email protected]) * files.el (generate-new-buffer): Function moved here from src/buffer.c. @@ -7194,7 +7194,7 @@ display time in 24-hour format, rather than using AM/PM suffix. Also, don't blow up in substring if load average is unavailable. -1991-08-13 Jim Blandy ([email protected]) +1991-08-13 Jim Blandy ([email protected]) * screen.el: Incorporated other-screen functions and key bindings. @@ -7216,7 +7216,7 @@ * files.el (save-some-buffers): Add missing `(and' and matching `)' so that buffer-offer-save is actually tested. -1991-08-12 Jim Blandy ([email protected]) +1991-08-12 Jim Blandy ([email protected]) * window.el (split-window-keep-point): New user option. (split-window-vertically): Modified to support it. @@ -7224,7 +7224,7 @@ split-window-keep-point according to the baud rate. * term/x-win.el: Set split-window-keep-point. -1991-08-10 Jim Blandy ([email protected]) +1991-08-10 Jim Blandy ([email protected]) * term/x-win.el (x-daemon-mode, x-establish-daemon-mode): Removed these functions; we do this differently now. @@ -7234,7 +7234,7 @@ * autoload.el (batch-update-autoloads): Do (save-some-buffers t) before killing emacs, so loaddefs.el will be saved. -1991-08-05 Jim Blandy ([email protected]) +1991-08-05 Jim Blandy ([email protected]) * screen.el (screen-creation-func): Renamed to screen-creation-function, as per the convention. @@ -7246,14 +7246,14 @@ * screen.el: All of the screen startup code reworked. -1991-08-01 Jim Blandy ([email protected]) +1991-08-01 Jim Blandy ([email protected]) * startup.el (pre-init-hook): New variable. (window-setup-hook): Doc fix. (command-line): Call pre-init-hook. (command-line-1): Updated copyright date. -1991-07-31 Jim Blandy ([email protected]) +1991-07-31 Jim Blandy ([email protected]) * rmailedit.el: When initializing rmail-edit-map, take the cdr of text-mode-map before nconcing it, to omit the keymap header. @@ -7268,7 +7268,7 @@ * apropos.el (apropos, super-apropos): Don't make window for no syms. -1991-07-29 Jim Blandy ([email protected]) +1991-07-29 Jim Blandy ([email protected]) * loaddefs.el: Don't make backup versions of this file. @@ -7276,7 +7276,7 @@ * autoload.el (generate-autoload-cookie): Doc fix. -1991-07-28 Jim Blandy ([email protected]) +1991-07-28 Jim Blandy ([email protected]) * etags.el: Renamed new-etags.el, copied Emacs 18's tags package into its place - the new version seemed to have half-completed @@ -7302,7 +7302,7 @@ * edebug.el: Version 2.5 from LaLiberte. -1991-07-25 Jim Blandy ([email protected]) +1991-07-25 Jim Blandy ([email protected]) * view.el: (define-key "C-xv" 'view-file). (view-file-other-window, view-buffer-other-window): New functions. @@ -7313,12 +7313,12 @@ * subr.el (search-forward-regexp, search-backward-regexp): Added alternate names. -1991-07-24 Jim Blandy ([email protected]) +1991-07-24 Jim Blandy ([email protected]) * diff.el (diff): Turn off read-only flag to insert "no differences" message. -1991-07-23 Jim Blandy ([email protected]) +1991-07-23 Jim Blandy ([email protected]) * isearch.el (isearch): If the user switches to a different screen, exit the isearch. @@ -7333,7 +7333,7 @@ * rmail.el (rmail-widen-to-current-msgbeg): Added missing close paren. -1991-07-21 Jim Blandy ([email protected]) +1991-07-21 Jim Blandy ([email protected]) * isearch.el (isearch): Don't assume that we're repeating a search that found an empty string; check history to make sure we're @@ -7366,7 +7366,7 @@ * sendmail.el (mail-do-fcc): Added missing close paren. -1991-07-15 Jim Blandy ([email protected]) +1991-07-15 Jim Blandy ([email protected]) * term/x-win.el: Enable interrupt-driven input after opening the X connection, so that the fcntls on file descriptor 0 apply to the @@ -7390,7 +7390,7 @@ `fortran-minimum-statement-indent' to (max tab-width 6) instead of 8. The minimum 6 insures legal indenting for lines with line numbers. -1991-07-13 Jim Blandy ([email protected]) +1991-07-13 Jim Blandy ([email protected]) * info.el (Info-find-node): Call buffer-flush-undo with one arg, instead of none. Change call to get-buffer-c>reate to @@ -7406,7 +7406,7 @@ occur-pos-list of nulls. And allocate the final-context-start marker once, so we don't allocate jillions of markers in the -1991-07-11 Jim Blandy ([email protected]) +1991-07-11 Jim Blandy ([email protected]) * term/x-win.el (x-handle-args): Re-written to take the command line switch as an argument, instead of just assuming it's in ARGS, @@ -7482,7 +7482,7 @@ Don't fail to advance args past -debug-init. (command-line-1): Ignore here options processed at earlier stages. -1991-06-26 Jim Blandy ([email protected]) +1991-06-26 Jim Blandy ([email protected]) * term/x-win.el (x-read-resources): When a resource is not available, use (nth 2 key-resname-default) to get the default, not @@ -7490,7 +7490,7 @@ Open the connection to the server *before* trying to read the resources, silly. -1991-06-20 Jim Blandy ([email protected]) +1991-06-20 Jim Blandy ([email protected]) * subr.el (ignore): Added docstring for this; it appears as a key binding, so it ought to be described. @@ -7516,12 +7516,12 @@ * disass.el (disassemble-internal): Fixed typo string? -> stringp. -1991-05-26 Edward M. Reingold ([email protected]) +1991-05-26 Edward M. Reingold ([email protected]) * holiday.el (calendar-holiday-function-passover-etc): Correct date and spelling of Yom HaAtzma'ut. -1991-05-23 Jim Blandy ([email protected]) +1991-05-23 Jim Blandy ([email protected]) * mail-utils.el: Require lisp-mode, because we use lisp-mode-syntax-table. Lisp-mode is usually in the dumped emacs, @@ -7540,7 +7540,7 @@ don't clobber the definition in text-mode-map, but DO share the rest of text-mode-map. -1991-05-23 Michael I Bushnell ([email protected]) +1991-05-23 Michael I Bushnell ([email protected]) * startup.el (command-line): don't do anything if $VERSION_CONTROL is not set; move code to import environment var ahead of .emacs @@ -7550,13 +7550,13 @@ * forms.el (scroll-up, scroll-down): Made argument &optional. -1991-05-22 Michael I Bushnell ([email protected]) +1991-05-22 Michael I Bushnell ([email protected]) * rmail.el (rmail-variables): Rmail should not be a save-buffer-skip buffer. If the user wants this confusing behavior, it can be personally customized. -1991-05-22 Jim Blandy ([email protected]) +1991-05-22 Jim Blandy ([email protected]) * term/x-win.el (x-switches-specified): Variable deleted; the options given on the command line are placed in screen-default @@ -7574,7 +7574,7 @@ (pop-initial-screen): Don't do a condition-case to call death-function. -1991-05-18 Jim Blandy ([email protected]) +1991-05-18 Jim Blandy ([email protected]) * macros.el (apply-macro-to-region-lines): Added a save-excursion around the macro invocation, so that the macro doesn't need to @@ -7589,12 +7589,12 @@ the window system, catch it and write the error message to external-debugging-output. -1991-05-17 Edward M. Reingold ([email protected]) +1991-05-17 Edward M. Reingold ([email protected]) * holiday.el: Add Erev Shavuot to the full list of Jewish holidays. -1991-05-16 Jim Blandy ([email protected]) +1991-05-16 Jim Blandy ([email protected]) * macros.el (apply-macro-to-region-lines): New function. @@ -7655,7 +7655,7 @@ able to grok the originals, but not the copies, so there will be only one copy of each docstring in the DOC file. -1991-05-13 Jim Blandy ([email protected]) +1991-05-13 Jim Blandy ([email protected]) * isearch.el (search-exit-char): As per the opinion poll results, change this to RET. @@ -7672,7 +7672,7 @@ * loaddefs.el (auto-mode-alist): Recognize .emacs only at end. -1991-05-13 Jim Blandy ([email protected]) +1991-05-13 Jim Blandy ([email protected]) * simple.el (blink-matching-open): Make this function interactive. @@ -7705,7 +7705,7 @@ * lisp-mode.el (eval-print-last-sexp): Use terpri instead of newline. -1991-05-09 Jim Blandy ([email protected]) +1991-05-09 Jim Blandy ([email protected]) * disass.el (disassemble-internal): Rearranged to conveniently handle compiled-function objects. @@ -7729,7 +7729,7 @@ * rmail.el: Doc fix. (rmail-first-message): New function; bound to "<". -1991-05-08 Jim Blandy ([email protected]) +1991-05-08 Jim Blandy ([email protected]) * screen.el: Removed temporary hack to set up auto-new-screen and auto-new-screen-function. @@ -7783,7 +7783,7 @@ (fortran-tab-mode, fortran-setup-tab-mode-style): (fortran-setup-fixed-format-style): New commands. -1991-05-05 Jim Blandy ([email protected]) +1991-05-05 Jim Blandy ([email protected]) * calc.el: When setting up calc-digit-map, don't try to apply aref to the keymaps; extract the vectors from the keymaps before @@ -7870,12 +7870,12 @@ * add-log.el (prompt-for-change-log-name): Made a defun rather than a defmacro (braino fix). -1991-04-18 Jim Blandy ([email protected]) +1991-04-18 Jim Blandy ([email protected]) * simple.el (count-lines-region): Display the number of characters in the region as well. -1991-04-14 Edward M. Reingold ([email protected]) +1991-04-14 Edward M. Reingold ([email protected]) * diary.el (diary-omer, diary-parasha): Fix punctuation in diary entries. @@ -7885,7 +7885,7 @@ * prolog.el, r2bibtex.el, rect.el, refbib.el, register.el: Doc fix. * remote.el, replace.el: Doc fix. -1991-04-11 Jim Blandy ([email protected]) +1991-04-11 Jim Blandy ([email protected]) * simple.el (kill-region): Don't print out a message saying how many characters are being killed. @@ -8041,7 +8041,7 @@ rather than goto-char, since the final character position is rendered obsolete by the intervening fill-region-as-paragraph. -1991-02-24 Edward M. Reingold ([email protected]) +1991-02-24 Edward M. Reingold ([email protected]) * diary.el (include-other-diary-files): Fix documentation string. @@ -8066,13 +8066,13 @@ * compile.el (next-error): Do rms's optimization (Feb 8 change) when moving backward, too. -1991-02-20 Jim Blandy ([email protected]) +1991-02-20 Jim Blandy ([email protected]) * startup.el (command-line): Re-arranged nested ifs that handle the different command-line arguments into a cond, to make it easier for me to read. -1991-02-15 Jim Blandy ([email protected]) +1991-02-15 Jim Blandy ([email protected]) * loaddefs.el: Bind \M-C-r to isearch-backward-regexp, since it really ought to be there. I want it often. @@ -8107,12 +8107,12 @@ * bg-mouse.el, bib-mode.el: Doc fix. -1991-02-04 Jim Blandy ([email protected]) +1991-02-04 Jim Blandy ([email protected]) * simple.el (eval-current-buffer): Removed, since it has been reintroduced to the C code. -1991-02-02 Jim Blandy ([email protected]) +1991-02-02 Jim Blandy ([email protected]) * comint.el (comint-mode): Move the creation of input-ring down with the other variables, and (golly!) initialize it to a ring. @@ -8124,7 +8124,7 @@ * replace.el (perform-replace): Prevent spurious match of ^foo in second part of foofoo after first part is deleted. -1991-01-31 Jim Blandy ([email protected]) +1991-01-31 Jim Blandy ([email protected]) * files.el (find-file-noselect): Strip auto-mount prefix only if safe. @@ -8155,7 +8155,7 @@ * appt.el: Doc fix. -1991-01-30 Jim Blandy ([email protected]) +1991-01-30 Jim Blandy ([email protected]) * paths.el (Info-directory-list): Look for info files in /usr/local/lib/info first, since this is the standard place for @@ -8165,7 +8165,7 @@ * info.el (info): With prefix arg, read file name and visit it. -1991-01-26 Jim Blandy ([email protected]) +1991-01-26 Jim Blandy ([email protected]) * term/x-win.el: Do not define the f1 function key to run rmail. @@ -8199,7 +8199,7 @@ * info.el (Info): Init Info-directory-list from INFOPATH. -1991-01-12 Jim Blandy ([email protected]) +1991-01-12 Jim Blandy ([email protected]) * etags.el (visit-tags-file-buffer): use progn instead of save-excursion, so the buffer actually gets visited. @@ -8220,14 +8220,14 @@ * compile.el (compilation-parse-errors): Fixed maintenance of last-linenum, so dups are really found. -1991-01-08 Jim Blandy ([email protected]) +1991-01-08 Jim Blandy ([email protected]) * bytecomp.el (byte-compile-byte-code-maker): Since byte-compile-lambda is free to return the original lambda expression, we'd better be prepared to handle things that aren't bytecode objects. -1991-01-07 Jim Blandy ([email protected]) +1991-01-07 Jim Blandy ([email protected]) * loaddefs.el: Don't forget to specify the filenames when autoload-ing byte-compile-buffer and byte-compile-defun. @@ -8544,7 +8544,7 @@ * diary.el (diary-float): Allow month to be a list of months, a single month, or t (for all months). -1990-11-26 Jim Blandy ([email protected]) +1990-11-26 Jim Blandy ([email protected]) * simple.el (copy-region-as-kill): No longer prints "Region copied" error message. @@ -8553,7 +8553,7 @@ * bg-mouse.el (bg-insert-moused-sexp): If before ')', just skip that. -1990-11-26 Neil Mager ([email protected]) +1990-11-26 Neil Mager ([email protected]) * appt.el: Fixed if construct for midnight update. @@ -8562,7 +8562,7 @@ * diary.el (insert-block-diary-entry): Change reference to mark-ring to calendar-mark-ring. -1990-11-21 Neil Mager ([email protected]) +1990-11-21 Neil Mager ([email protected]) * appt.el: Updated header of file to reflect changes. @@ -8646,7 +8646,7 @@ * calendar.el (describe-calendar-mode): Rewrote to give just a brief description of the mode instead of calling describe-mode. -1990-10-19 Neil Mager ([email protected]) +1990-10-19 Neil Mager ([email protected]) * appt.el: Changed issue-appointments-message to appt.issue.message in header. @@ -8666,7 +8666,7 @@ * files.el (basic-save-buffer): Run after-save-hooks. -1990-11-21 Robert J. Chassell ([email protected]) +1990-11-21 Robert J. Chassell ([email protected]) * texinfmt.el (texinfo-parse-line-arg): Ignore spaces@end of line. @@ -8853,7 +8853,7 @@ code which attempted to fake out mode-name in mode-line-list. Also, use slow \\<...> technology. -1990-11-13 David J. MacKenzie (djm@apple-gunkies) +1990-11-13 David J. MacKenzie (djm@apple-gunkies) * fortran.el: Use domain format instead of uucp format for bug list address. @@ -8930,7 +8930,7 @@ * info.el (Info-find-node): Simplify file search. Try appending `.info' to specified name. -1990-10-31 Jim Blandy ([email protected]) +1990-10-31 Jim Blandy ([email protected]) * bytecomp.el: Put properties on * so that the byte-compiler knows how to inline multiplication. @@ -8940,7 +8940,7 @@ * files.el (delete-auto-save-file-if-necessary): Don't delete if auto-saveing in visited file. -1990-10-29 Jim Blandy ([email protected]) +1990-10-29 Jim Blandy ([email protected]) * subr.el: `buffer-flush-undo' is now officially named `buffer-enable-undo'; added an alias for backward compatibility. @@ -8954,7 +8954,7 @@ * subr.el (keyboard-translate): New function. -1990-10-25 Robert J. Chassell ([email protected]) +1990-10-25 Robert J. Chassell ([email protected]) * texinfmt.el (texinfo-format-defun-1): Replace with new version that handles @deftypefn and related typed definition commands. @@ -9010,7 +9010,7 @@ * etags.el (visit-tags-table-buffer): Handle local bindings of tags-file-name. -1990-10-19 Robert J. Chassell ([email protected]) +1990-10-19 Robert J. Chassell ([email protected]) * texinfmt.el (texinfo-format-include, texinfo-format-setfilename): Redefined to handle new include @@ -9206,7 +9206,7 @@ * mouse.el (mouse-set-point): Compensate properly for hscroll. -1990-09-13 Robert J. Chassell ([email protected]) +1990-09-13 Robert J. Chassell ([email protected]) * texinfmt.el (texinfo-format-inforef): Item name now optional. @@ -9450,7 +9450,7 @@ * term/x-win.el: Don't define C-z here; it's now in screen.el. -1990-08-14 David J. MacKenzie (djm@apple-gunkies) +1990-08-14 David J. MacKenzie (djm@apple-gunkies) * time.el: New version that uses wakeup instead of loadst. @@ -9574,7 +9574,7 @@ * c-mode.el (c-comment-indent): Special case comment after }. -1990-07-05 Robert J. Chassell ([email protected]) +1990-07-05 Robert J. Chassell ([email protected]) * texinfmt.el: Renamed Lisp definitions section to `Description formatting' and revised `texinfo-format-defun-1' and format @@ -9588,7 +9588,7 @@ * sort.el: Doc fix. -1990-06-28 Robert J. Chassell ([email protected]) +1990-06-28 Robert J. Chassell ([email protected]) * texinfmt.el (texinfo-format-paragraph-break): @br{} no longer a noop. @@ -9661,7 +9661,7 @@ calling c-backward-to-start-of-continued-exp. (c-backward-to-start-of-continued-exp): Back up over strings. -1990-06-21 Robert J. Chassell ([email protected]) +1990-06-21 Robert J. Chassell ([email protected]) * texinfmt.el (texinfo-format-include): Include files ending with ".texi" as well as ".texinfo" and ".tex". @@ -9693,7 +9693,7 @@ * simple.el: Search-ring advance and recline characters are now M-n and M-p. -1990-06-15 Robert J. Chassell ([email protected]) +1990-06-15 Robert J. Chassell ([email protected]) * tex-mode.el (tex-start-shell): Don't put `require' in defun, put it@top level. @@ -9702,7 +9702,7 @@ accidently find a string in the description that is confused for a menu item. -1990-06-01 Robert J. Chassell (bob@wheat-chex) +1990-06-01 Robert J. Chassell (bob@wheat-chex) * texinfo.el: Added `texinfo-tex-region' (C-c C-r) to run TeX on the current region, `texinfo-tex-buffer' (C-c C-t) to run TeX on @@ -9718,7 +9718,7 @@ * startup.el (command-line): Check environment variable VERSION_CONTROL and set version-control appropriately. -1990-05-31 Robert J. Chassell (bob@wheat-chex) +1990-05-31 Robert J. Chassell (bob@wheat-chex) * texnfo-upd.el (texinfo-top-pointer-case): rewrote to handle @chapter (or other sectioning) command following Top node. @@ -9770,7 +9770,7 @@ * scheme.el (run-scheme): Autoload deleted. Already done in loaddefs. -1990-05-24 Robert J. Chassell (bob@rice-chex) +1990-05-24 Robert J. Chassell (bob@rice-chex) * page-ext.el (pages-directory-goto): Go to end of file if called from the last line (which is empty) of the pages-directory @@ -9785,7 +9785,7 @@ * c++-mode.el: Installed latest version from David Detlefs with all additions made since Sep 1989. -1990-05-24 Robert J. Chassell (bob@apple-gunkies) +1990-05-24 Robert J. Chassell (bob@apple-gunkies) * texinfmt.el: Added texinfo-format-defindex which provides @defindex and @defcodeindex. @@ -9809,12 +9809,12 @@ * buff-menu.el (Buffer-menu-buffer): Simplified. Set Buffer-menu-buffer-column initially. -1990-05-18 Robert J. Chassell (bob@apple-gunkies) +1990-05-18 Robert J. Chassell (bob@apple-gunkies) * page-ext.el: (pages-addresses-file-name): Renamed from addresses-file-name. -1990-05-17 Robert J. Chassell (bob@apple-gunkies) +1990-05-17 Robert J. Chassell (bob@apple-gunkies) * texinfo.el (texinfo-mode-map): Replace `C-c LETTER ...' key bindings for functions updating nodes and menus with `C-c C-...' @@ -9840,7 +9840,7 @@ was found the previous time. * replace.el (keep-lines): Likewise. -1990-05-10 Robert J. Chassell (bob@wheat-chex) +1990-05-10 Robert J. Chassell (bob@wheat-chex) * texinfmt.el: updated to correspond, more or less, to version 2.8 of texinfo.tex. Does not do refilling. @@ -10430,7 +10430,7 @@ * yow.el (yow): Don't be confused by percent in message. Use raw prefix arg as first argument; process it later. -1990-01-08 Robert J. Chassell ([email protected]) +1990-01-08 Robert J. Chassell ([email protected]) * texnfo-upd.el (texinfo-update-node, texinfo-sequential-node-update): fixed auto-fill-hook bug. @@ -10823,7 +10823,7 @@ * rmailout.el (rmail-output): Check for an RMAIL file, and get error. -1989-09-30 Robert J. Chassell (bob@rice-chex) +1989-09-30 Robert J. Chassell (bob@rice-chex) * texnfo-upd.el (texinfo-copy-menu): Don't enter infinite loop when copying a multi-line description@the end of a menu. @@ -10840,13 +10840,13 @@ * sendmail.el (mail-do-fcc): No blank line before iff file is new. -1989-09-25 Robert J. Chassell ([email protected]) +1989-09-25 Robert J. Chassell ([email protected]) * renamed texinfo-update.el to texnfo-upd.el and updated `provide' * texinfo.el: updated `require' to reflect new name for texnfo-upd -1989-09-23 Robert J. Chassell (bob@rice-chex) +1989-09-23 Robert J. Chassell (bob@rice-chex) * texinfo.el: Moved functions to update nodes and menus to texinfo-update.el. @@ -10949,7 +10949,7 @@ * startup.el (command-line): Rename local var for name of user to `init-file-user'. Advertise that for use in the init file. -1989-09-11 Robert J. Chassell ([email protected]) +1989-09-11 Robert J. Chassell ([email protected]) * texinfo.el (texinfo-update-node, texinfo-make-menu, texinfo-master-menu, texinfo-sequential-node-update): Added @@ -11359,7 +11359,7 @@ * isearch.el (isearch): Bug in previous change: was assuming regexp. -1989-05-17 Kyle Jones ([email protected]) +1989-05-17 Kyle Jones ([email protected]) * saveconf.el: Changed copying permissions and warranty disclaimer to those of the GNU General Public License @@ -11750,13 +11750,13 @@ * startup.el: doc fix. -1989-03-29 Edward M. Reingold ([email protected]) +1989-03-29 Edward M. Reingold ([email protected]) - * calendar.el: Change shift-three-month functions so the name - includes the word ``calendar''. + * calendar.el: Change shift-three-month functions so the name + includes the word ``calendar''. * calendar.el (list-diary-entries): Delete extraneous command - to indicate buffer is not modified. + to indicate buffer is not modified. 1989-03-15 Jeff Peck ([email protected]) @@ -12615,9 +12615,24 @@ See ChangeLog.2 for earlier changes. - Copyright (C) 1989, 1993, 2001, 2002, 2003, 2004, 2005, 2006, 2007 - Free Software Foundation, Inc. - Copying and distribution of this file, with or without modification, - are permitted provided the copyright notice and this notice are preserved. + Copyright (C) 1989, 1993, 2001, 2002, 2003, 2004, 2005, 2006, + 2007 Free Software Foundation, Inc. + + This file is part of GNU Emacs. + + GNU Emacs is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2, or (at your option) + any later version. + + GNU Emacs is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with GNU Emacs; see the file COPYING. If not, write to the + Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, + Boston, MA 02110-1301, USA. ;;; arch-tag: f07a3446-5672-464a-8fdc-2ca92e8e7b2a diff --git a/lisp/ChangeLog.4 b/lisp/ChangeLog.4 index d71a9f5d2b..fc7318d8fe 100644 --- a/lisp/ChangeLog.4 +++ b/lisp/ChangeLog.4 @@ -553,10 +553,10 @@ Delete duplicate entry for ISO calendar. (calendar-event-to-date): Set buffer in case calendar isn't current. -1994-05-08 David K}gedal ([email protected]) +1994-05-08 David K�gedal ([email protected]) - * tempo.el (tempo-insert-region, tempo-show-completion-buffer, - tempo-leave-completion-buffer): New variables. + * tempo.el (tempo-insert-region, tempo-show-completion-buffer) + (tempo-leave-completion-buffer): New variables. (tempo-complete-tag): Added a completion buffer mechanism. (tempo-display-completions): New function. (tempo-insert-template): An extension to the (p ...) tag @@ -8777,7 +8777,7 @@ calendar year) and when dst either starts or ends in a calendar year, but not both. -1993-06-01 Ken Manheimer ([email protected]) +1993-06-01 Ken Manheimer ([email protected]) * allout.el (outlineify-sticky): Reconciled provisions for non-standard and standard prefix leaders. @@ -8813,7 +8813,7 @@ * c++-mode-1.el: New file. -1993-06-01 Ken Manheimer ([email protected]) +1993-06-01 Ken Manheimer ([email protected]) * allout.el (move-to-column): Pass zero instead of negative arg. Added some free variables defvars, so byte-comple doesn't complain. @@ -8939,9 +8939,24 @@ See ChangeLog.3 for earlier changes. - Copyright (C) 1993, 1994, 2001, 2002, 2003, 2004, 2005, 2006, 2007 - Free Software Foundation, Inc. - Copying and distribution of this file, with or without modification, - are permitted provided the copyright notice and this notice are preserved. + Copyright (C) 1993, 1994, 2001, 2002, 2003, 2004, 2005, 2006, + 2007 Free Software Foundation, Inc. + + This file is part of GNU Emacs. + + GNU Emacs is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2, or (at your option) + any later version. + + GNU Emacs is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with GNU Emacs; see the file COPYING. If not, write to the + Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, + Boston, MA 02110-1301, USA. ;;; arch-tag: 91035822-35c7-44a9-8417-2454b88c3db2 diff --git a/lisp/ChangeLog.5 b/lisp/ChangeLog.5 index 62352984ed..dbc9ddc6b0 100644 --- a/lisp/ChangeLog.5 +++ b/lisp/ChangeLog.5 @@ -42,7 +42,7 @@ on things like "cdump". Don't use \\s patterns inside brackets. -1995-06-19 David K}gedal <[email protected]> +1995-06-19 David K�gedal <[email protected]> * tempo.el: Documented the `l' tag. (tempo-insert-template): Check for zmacs-regions. @@ -1506,7 +1506,7 @@ * mh-comp.el (mh-auto-fill-for-letter): Use fill-prefix to do message headers. -1995-04-20 Torbj|rn Einarsson <[email protected]> +1995-04-20 Torbjorn Einarsson <[email protected]> * f90.el (f90-keywords): "only" added to keyword list. (f90-font-lock-keywords-1): Type may now have attributes private @@ -2143,7 +2143,7 @@ (jka-compr-uninstall): Delete entries that jka-compr-install added to inhibit-first-line-modes-suffixes. -1995-04-03 David K}gedal <[email protected]> +1995-04-03 David K�gedal <[email protected]> * tempo.el (tempo-insert): Added the P tag and modified the s tag accordingly @@ -3765,7 +3765,7 @@ * bytecomp.el (byte-compile-defvar): Add the var to current-load-list. -1994-01-21 David K}gedal <[email protected]> +1994-01-21 David K�gedal <[email protected]> * tempo.el (tempo-insert-template): Quoted transient-mark-mode Expansion around region now puts point at the first mark. @@ -9261,9 +9261,24 @@ See ChangeLog.4 for earlier changes. - Copyright (C) 1994, 1995, 2001, 2002, 2003, 2004, 2005, 2006, 2007 - Free Software Foundation, Inc. - Copying and distribution of this file, with or without modification, - are permitted provided the copyright notice and this notice are preserved. + Copyright (C) 1994, 1995, 2001, 2002, 2003, 2004, 2005, 2006, + 2007 Free Software Foundation, Inc. + + This file is part of GNU Emacs. + + GNU Emacs is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2, or (at your option) + any later version. + + GNU Emacs is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with GNU Emacs; see the file COPYING. If not, write to the + Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, + Boston, MA 02110-1301, USA. ;;; arch-tag: 1a8fbb45-25d0-48e2-a926-29ca4e3d343a diff --git a/lisp/ChangeLog.6 b/lisp/ChangeLog.6 index 0d02bf4739..5475a7ee10 100644 --- a/lisp/ChangeLog.6 +++ b/lisp/ChangeLog.6 @@ -2668,7 +2668,7 @@ * timer.el (run-at-time): Handle numbers as relative times in seconds, as the original code did. -1996-02-06 Barry Warsaw <bwarsaw@anthem (Barry Warsaw)> +1996-02-06 Barry Warsaw <bwarsaw@anthem> * cc-mode.el (c-common-init): Fix typo. @@ -2866,7 +2866,7 @@ * winnt.el (mode-line-format): Include column-number-mode. -1996-01-30 David Kegedal <[email protected]> +1996-01-30 David K�gedal <[email protected]> * sendmail.el (mail-setup): For mail-self-blind, use user-mail-address. @@ -4054,7 +4054,7 @@ * files.el (wildcard-to-regexp): New function. -1995-12-28 1995 Marc Fleischeuers <[email protected]> +1995-12-28 Marc Fleischeuers <[email protected]> * files.el (make-auto-save-file-name): Make name always end in #, i.e. overwrite third char in extension if required. @@ -4597,7 +4597,7 @@ If BOLD-P, ITALIC-P or UNDERLINE-P not nil or t, don't change the display attribute corresponding to that arg. Doc fix. -1995-12-12 David K}gedal <[email protected]> +1995-12-12 David K�gedal <[email protected]> * sendmail.el (sendmail-send-it): Added support for Resent-CC and Resent-BCC headers. @@ -4795,7 +4795,7 @@ (completion-c-mode-hook): Encapsulate C-mode changes in new function. Either call it now or put it on c-mode-hook. -1995-11-22 Barry Warsaw <bwarsaw@anthem (Barry Warsaw)> +1995-11-22 Barry Warsaw <bwarsaw@anthem> * cc-mode.el (c-beginning-of-statement-1): CASE 3, can't just return t at end of let clause since this will break @@ -5700,13 +5700,13 @@ * hippie-exp.el (he-transfer-case): Fix typo in prev change. -1995-10-13 Michael Kifer <Michael Kifer <[email protected]>> +1995-10-13 Michael Kifer <[email protected]> * ediff.el (ediff-version): is now autoloaded. * ediff-init.el: Moved defsubsts up. * ediff-hook.el: Now defines [window] in menu-bar-ediff-menu. -1995-10-13 Michael Kifer <Michael Kifer <[email protected]>> +1995-10-13 Michael Kifer <[email protected]> * viper.el (vip-set-hooks): Use view-mode-hook in emacs and view hook in xemacs. @@ -5732,7 +5732,7 @@ * goto-addr.el: New file. * browse-url.el: New file. -1995-10-13 Anders Holst ([email protected]) +1995-10-13 Anders Holst ([email protected]) * hippie-exp.el: (hippie-expand): Removed bug - don't undo from another buffer. @@ -6357,7 +6357,7 @@ * sendmail.el (sendmail-send-it): Use user-mail-address. -1995-08-31 Barry Warsaw <bwarsaw@anthem (Barry Warsaw)> +1995-08-31 Barry Warsaw <bwarsaw@anthem> * cc-mode.el (c-backslashify-current-line): Obsolete. (c-append-backslash, c-delete-backslash): Taken from c-mode.el. @@ -7250,25 +7250,26 @@ * lisp-mode.el (shared-lisp-mode-map): Don't bind TAB, just set indent-line-function. -Wed Jul 26 15:40:00 Michael Kifer ([email protected]) +1995-07-26 Michael Kifer ([email protected]) - * viper-ex.el (vip-submit-report): fnc modified. + * viper-ex.el (vip-submit-report): Function modified. - * viper-keym.el (vip-overriding-map): new variable. + * viper-keym.el (vip-overriding-map): New variable. - * viper-macs.el (vip-repeat-from-history-key): new default. + * viper-macs.el (vip-repeat-from-history-key): New default. (vip-read-fast-keysequence, ex-unmap-read-args, ex-map-read-args): - changed to use vip-read-key. + Changed to use vip-read-key. - * viper-mous.el (vip-multiclick-timeout): new default. - (vip-surrounding-word, vip-mouse-click-get-word): fnc modified. + * viper-mous.el (vip-multiclick-timeout): New default. + (vip-surrounding-word, vip-mouse-click-get-word): Function modified. - * viper-util.el (vip-add-hook, vip-remove-hook): new fncs. + * viper-util.el (vip-add-hook, vip-remove-hook): New functions. - * viper.el (vip-info-file-name): variable removed. - (vip-envelop-ESC-key, vip-start-replace, vip-finish-R-mode, - vip-start-R-mode, vip-insert-state-pre-command-sentinel, - vip-R-state-post-command-sentinel, vip-replace-char) fncs modified. + * viper.el (vip-info-file-name): Variable removed. + (vip-envelop-ESC-key, vip-start-replace, vip-finish-R-mode) + (vip-start-R-mode, vip-insert-state-pre-command-sentinel) + (vip-R-state-post-command-sentinel, vip-replace-char): + Functions modified. 1995-07-25 Karl Heuer <[email protected]> @@ -8021,9 +8022,25 @@ Wed Jul 26 15:40:00 Michael Kifer ([email protected]) See ChangeLog.5 for earlier changes. - Copyright (C) 1995, 1996, 2001, 2002, 2003, 2004, 2005, 2006, 2007 - Free Software Foundation, Inc. - Copying and distribution of this file, with or without modification, - are permitted provided the copyright notice and this notice are preserved. + Copyright (C) 1995, 1996, 2001, 2002, 2003, 2004, 2005, 2006, + 2007 Free Software Foundation, Inc. + + This file is part of GNU Emacs. + + GNU Emacs is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2, or (at your option) + any later version. + + GNU Emacs is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with GNU Emacs; see the file COPYING. If not, write to the + Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, + Boston, MA 02110-1301, USA. + ;;; arch-tag: f90e8ffe-6bd0-4423-97d9-637ac4382520 diff --git a/lisp/ChangeLog.7 b/lisp/ChangeLog.7 index 461ecbd7b7..d9923a0201 100644 --- a/lisp/ChangeLog.7 +++ b/lisp/ChangeLog.7 @@ -3092,7 +3092,7 @@ (register-input-method): Rename argument. (activate-input-method): If INPUT-METHOD is nil, deactivate. -1998-05-19 Ed Reingold <[email protected]> +1998-05-19 Ed Reingold <[email protected]> * calendar/cal-tex.el (cal-tex-list-holidays): Rewritten. @@ -6260,7 +6260,7 @@ * mail/rmail.el (rmail-decode-babyl-format): Message modified. (rmail): Comment for the binding of rmail-enable-multibyte added. -1998-02-19 Kenichi Handa <[email protected]> +1998-02-19 Kenichi Handa <[email protected]> * international/mule.el (after-insert-file-set-buffer-file-coding-system): Call @@ -11843,7 +11843,7 @@ a temporary file name which includes an arbitrary buffer name to avoid losing on non-unixy systems. -1997-08-20 22:06:10 1997 Vinicius Jose Latorre <[email protected]> +1997-08-20 Vinicius Jose Latorre <[email protected]> * ps-print.el: A lot of comment and doc fixes. Replace: 'nil by nil, '() by nil, 't by t. @@ -12211,7 +12211,7 @@ * wid-edit.el (widget-before-change): Obey `inhibit-read-only'. -1997-08-12 +03 Eli Zaretskii <[email protected]> +1997-08-12 Eli Zaretskii <[email protected]> * add-log.el (change-log-font-lock-keywords): Don't consider a closeparen as part of a function or variable name. @@ -12440,7 +12440,7 @@ * help.el (describe-key): Don't put a colon after the command name. -1887-08-09 Barry A. Warsaw <[email protected]> +1997-08-09 Barry A. Warsaw <[email protected]> * progmodes/cc-engine.el (c-beginning-of-statement-1): When checking for bare semi, don't match @@ -12985,7 +12985,7 @@ (makefile-define-space-face): Function deleted. (makefile-mode): Don't call makefile-define-space-font. -1997-07-28 Per Abrahamsen <[email protected]> +1997-07-28 Per Abrahamsen <[email protected]> * cus-edit.el (customize-save-variable): New command. @@ -16522,7 +16522,7 @@ * widget.el: Removed :hide-front-space and :hide-rear-space. -1997-06-04 Richard Stallman <[email protected]> +1997-06-04 Richard Stallman <[email protected]> * informat.el (Info-tagify): Don't set Info-tag-table-marker if not in Info mode. @@ -16775,7 +16775,7 @@ * startup.el (command-line): Detect Latin-N character sets from envvars, both for multibyte mode and single-byte mode. -1997-05-31 Per Abrahamsen <[email protected]> +1997-05-31 Per Abrahamsen <[email protected]> * cus-edit.el (custom-format-handler): Don't show links for hidden items. @@ -17009,7 +17009,7 @@ * cus-edit.el (custom-face-display-set): Define if not defined. (custom-buffer-create-internal): Refer to the Emacs manual. -1997-05-29 Anders Holst ([email protected]) +1997-05-29 Anders Holst ([email protected]) * hippie-exp.el (he-file-name-beg): Don't trigger on parts of words with non-file chars. @@ -21130,7 +21130,7 @@ * sendmail.el (sendmail-send-it): If no recipients, don't run the mailer program. If there was also no fcc file, signal error. -1996-12-15 Ake Stenhoff <[email protected]> +1996-12-15 Ake Stenhoff <[email protected]> * imenu.el (imenu-generic-expression): Doc fix. (imenu--make-index-alist): Do `widen' and save-restriction here. @@ -21295,7 +21295,7 @@ * files.el (backup-buffer): Doc fix. -1996-12-06 Ake Stenhoff <[email protected]> +1996-12-06 Ake Stenhoff <[email protected]> * imenu.el (imenu): Support integers used as positions. @@ -21702,12 +21702,12 @@ * imenu.el (imenu-scanning-message): Use ellipsis. - * iso-acc.el (iso-langauges): Alphabetize list. + * iso-acc.el (iso-languages): Alphabetize list. Add Catalan, Spanish, and Esperanto. * dired.el (dired-insert-directory): Check for non-US LANG. -1996-10-24 Dave Gillespie <[email protected]> +1996-10-24 Dave Gillespie <[email protected]> * cl-macs.el (lexical-let): Fixed a bug involving nested lexical contexts and macros. @@ -21763,7 +21763,7 @@ (simula-find-next-comment-region): Function deleted. (simula-mode): Set font-lock-defaults. Add autoload cookie. -1996-10-20 Ake Stenhoff <[email protected]> +1996-10-20 Ake Stenhoff <[email protected]> * cc-mode.el (cc-imenu-java-generic-expression): New variable. (java-mode): Set imenu-generic-expression. @@ -22503,7 +22503,7 @@ * loadup.el: Load frame.elc unconditionally. -1996-09-12 Kevin Rodgers <[email protected]> +1996-09-12 Kevin Rodgers <[email protected]> * loadhist.el (read-feature): New function. (unload-feature): Read FEATURE interactively with read-feature. @@ -22716,7 +22716,7 @@ * vc.el (vc-register-switches): New variable. (vc-backend-admin): Use vc-register-switches. -1996-09-01 Vladimir Alexiev <[email protected]> +1996-09-01 Vladimir Alexiev <[email protected]> * tmm.el (tmm-add-one-shortcut): New subroutine. (tmm-add-shortcuts): Code moved to tmm-add-one-shortcut. @@ -23029,7 +23029,7 @@ * pc-select.el: Replace \n in doc strings. (pc-selection-mode): Big doc fix. Don't bind f1. -1996-08-21 Michael Staats <[email protected]> +1996-08-21 Michael Staats <[email protected]> * pc-select.el (forward-line-mark): New function. (forward-line-nomark): New function. @@ -23139,9 +23139,24 @@ See ChangeLog.6 for earlier changes. - Copyright (C) 1997, 1998, 2001, 2002, 2003, 2004, 2005, 2006, 2007 - Free Software Foundation, Inc. - Copying and distribution of this file, with or without modification, - are permitted provided the copyright notice and this notice are preserved. + Copyright (C) 1997, 1998, 2001, 2002, 2003, 2004, 2005, 2006, + 2007 Free Software Foundation, Inc. + + This file is part of GNU Emacs. + + GNU Emacs is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2, or (at your option) + any later version. + + GNU Emacs is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with GNU Emacs; see the file COPYING. If not, write to the + Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, + Boston, MA 02110-1301, USA. ;;; arch-tag: 0995d517-13da-45ab-9c2d-7911aa25512b diff --git a/lisp/ChangeLog.8 b/lisp/ChangeLog.8 index be532b1090..d89de848b5 100644 --- a/lisp/ChangeLog.8 +++ b/lisp/ChangeLog.8 @@ -136,13 +136,13 @@ (hs-hide-comment-region): New func. - (hs-discard-overlays, hs-flag-region, hs-hide-block-at-point, - hs-safety-is-job-n, hs-hide-initial-comment-block, - hs-inside-comment-p, hs-grok-mode-type, hs-find-block-beginning, - hs-hide-level-recursive, hs-life-goes-on, hs-already-hidden-p, - hs-c-like-adjust-block-beginning, hs-hide-all, hs-show-all, - hs-hide-block, hs-show-block, hs-show-region, hs-hide-level, - hs-mouse-toggle-hiding, hs-minor-mode): Rewrite. + (hs-discard-overlays, hs-flag-region, hs-hide-block-at-point) + (hs-safety-is-job-n, hs-hide-initial-comment-block) + (hs-inside-comment-p, hs-grok-mode-type, hs-find-block-beginning) + (hs-hide-level-recursive, hs-life-goes-on, hs-already-hidden-p) + (hs-c-like-adjust-block-beginning, hs-hide-all, hs-show-all) + (hs-hide-block, hs-show-block, hs-show-region, hs-hide-level) + (hs-mouse-toggle-hiding, hs-minor-mode): Rewrite. (hs-isearch-show): Renamed from `hs-isearch-open-invisible'. (hs-isearch-show-temporary): New funcs. @@ -337,94 +337,90 @@ 1999-12-15 Carsten Dominik <[email protected]> - * textmodes/reftex.el: (reftex-compile-variables): respect new + * textmodes/reftex.el (reftex-compile-variables): Respect new structure of `reftex-index-macro' (reftex-compile-variables): Use the changed structure of `reftex-label-alist'. - * textmodes/reftex-vars.el (reftex-index-math-format, + * textmodes/reftex-vars.el (reftex-index-math-format) (reftex-toc-max-level): New option. - reftex-index-phrases-search-whole-words, - reftex-index-phrases-case-fold-search, - reftex-index-phrases-skip-indexed-matches, - reftex-index-phrases-wrap-long-lines, - reftex-index-phrases-sort-prefers-entry, - reftex-index-phrases-sort-in-blocks): New options. + (reftex-index-phrases-search-whole-words) + (reftex-index-phrases-case-fold-search) + (reftex-index-phrases-skip-indexed-matches) + (reftex-index-phrases-wrap-long-lines) + (reftex-index-phrases-sort-prefers-entry) + (reftex-index-phrases-sort-in-blocks): New options. (reftex-index-macros): Option structure changed. (reftex-index-macros-builtin): Added `repeat' item to each entry. (reftex-label-alist): Additional item in each entry to specify if the environment should be listed in the TOC. (eval-when-compile (require 'cl)) added. - * textmodes/reftex-index.el (reftex-index-selection-or-word): No - longer deals with "repeat". - (reftex-index): "repeat property in `reftex-index-macro-alist' is - now used. - (reftex-index-phrases-comment-regexp, - reftex-index-phrases-macrodef-regexp, - reftex-index-phrases-phrase-regexp1, - reftex-index-phrases-phrase-regexp2, - reftex-index-phrases-phrase-regexp12, reftex-index-phrases-help): + * textmodes/reftex-index.el (reftex-index-selection-or-word): + No longer deals with "repeat". + (reftex-index): "repeat property in `reftex-index-macro-alist' + is now used. + (reftex-index-phrases-comment-regexp) + (reftex-index-phrases-macrodef-regexp) + (reftex-index-phrases-phrase-regexp1) + (reftex-index-phrases-phrase-regexp2) + (reftex-index-phrases-phrase-regexp12, reftex-index-phrases-help): New constants. - (reftex-index-phrases-macro-data, reftex-index-phrases-files, - reftex-index-phrases-font-lock-keywords, - reftex-index-phrases-font-lock-defaults, reftex-index-phrases-map, - reftex-index-phrases-restrict-file): New variables. - (reftex-index-phrase-selection-or-word, - reftex-index-visit-phrases-buffer, - reftex-index-initialize-phrases-buffer, - reftex-index-phrases-save-and-return, reftex-index-phrases-mode, - reftex-index-next-phrase, reftex-index-this-phrase, - reftex-index-all-phrases, reftex-index-region-phrases, - reftex-index-phrases-parse-header, - reftex-index-phrases-toggle-restricted, reftex-index-new-phrase, - reftex-index-find-next-conflict-phrase, reftex-index-phrases-info, - reftex-index-phrases-set-macro-key, reftex-index-sort-phrases, - reftex-compare-phrase-lines, reftex-index-make-phrase-regexp, - reftex-index-simplify-phrase, reftex-index-phrases-find-dup-re, - reftex-index-make-replace-string, - reftex-query-index-phrase-globally, reftex-query-index-phrase, - reftex-index-phrase-match-is-indexed, - reftex-index-phrases-fixup-line, - reftex-index-phrases-replace-space, - reftex-index-select-phrases-macro): New functions. - (reftex-index-globalize, reftex-index-globally): functions removed + (reftex-index-phrases-macro-data, reftex-index-phrases-files) + (reftex-index-phrases-font-lock-keywords) + (reftex-index-phrases-font-lock-defaults, reftex-index-phrases-map) + (reftex-index-phrases-restrict-file): New variables. + (reftex-index-phrase-selection-or-word) + (reftex-index-visit-phrases-buffer) + (reftex-index-initialize-phrases-buffer) + (reftex-index-phrases-save-and-return, reftex-index-phrases-mode) + (reftex-index-next-phrase, reftex-index-this-phrase) + (reftex-index-all-phrases, reftex-index-region-phrases) + (reftex-index-phrases-parse-header) + (reftex-index-phrases-toggle-restricted, reftex-index-new-phrase) + (reftex-index-find-next-conflict-phrase, reftex-index-phrases-info) + (reftex-index-phrases-set-macro-key, reftex-index-sort-phrases) + (reftex-compare-phrase-lines, reftex-index-make-phrase-regexp) + (reftex-index-simplify-phrase, reftex-index-phrases-find-dup-re) + (reftex-index-make-replace-string) + (reftex-query-index-phrase-globally, reftex-query-index-phrase) + (reftex-index-phrase-match-is-indexed) + (reftex-index-phrases-fixup-line) + (reftex-index-phrases-replace-space) + (reftex-index-select-phrases-macro): New functions. + (reftex-index-globalize, reftex-index-globally): Functions removed; (eval-when-compile (require 'cl)) added. - * textmodes/reftex-toc.el (reftex-toc-mode): Create new indicator - for max level. - (reftex-toc-max-level-indicator): New variable. - (reftex-toc-max-level): New command. - (reftex-toc-map): New keybinding `t'. - (reftex-toc-help): Constant updated. - (eval-when-compile (require 'cl)) added. + * textmodes/reftex-toc.el (reftex-toc-mode): Create new indicator + for max level. + (reftex-toc-max-level-indicator): New variable. + (reftex-toc-max-level): New command. + (reftex-toc-map): New keybinding `t'. + (reftex-toc-help): Constant updated. + (eval-when-compile (require 'cl)) added. - * textmodes/reftex-ref.el (reftex-offer-label-menu): Prefix to - `t' command key can change `reftex-toc-max-level' - (eval-when-compile (require 'cl)) added. + * textmodes/reftex-ref.el (reftex-offer-label-menu): Prefix to + `t' command key can change `reftex-toc-max-level'; + (eval-when-compile (require 'cl)) added. - * textmode/reftex-sel.el (reftex-insert-docstruct): Respect - `reftex-toc-max-level'. (eval-when-compile (require 'cl)) added. + * textmode/reftex-sel.el (reftex-insert-docstruct): Respect + `reftex-toc-max-level'. (eval-when-compile (require 'cl)) added. - * textmodes/reftex-auc.el (eval-when-compile (require 'cl)) - added. + * textmodes/reftex-auc.el: (eval-when-compile (require 'cl)) added. - * textmodes/reftex-vcr.el (eval-when-compile (require 'cl)) - added. + * textmodes/reftex-vcr.el: (eval-when-compile (require 'cl)) added. - * textmodes/reftex-cite.el (reftex-citep, reftex-citet): New - commands. - (reftex-citation, reftex-do-citation, - reftex-figure-out-cite-format): Additional argument FORMAT-KEY to - preselect a citation format. - (eval-when-compile (require 'cl)) added. + * textmodes/reftex-cite.el (reftex-citep, reftex-citet): New commands. + (reftex-citation, reftex-do-citation, reftex-figure-out-cite-format): + Additional argument FORMAT-KEY to preselect a citation format; + (eval-when-compile (require 'cl)) added. - * textmodes/reftex-parse.el (reftex-context-substring): Optional - parameter to-end - (reftex-section-info): Deal with environment matches. - (eval-when-compile (require 'cl)) added. + * textmodes/reftex-parse.el (reftex-context-substring): Optional + parameter to-end. + (reftex-section-info): Deal with environment matches; + (eval-when-compile (require 'cl)) added. - * reftex-global.el (eval-when-compile (require 'cl)) added. + * reftex-global.el: (eval-when-compile (require 'cl)) added. 1999-12-15 Kenichi Handa <[email protected]> @@ -464,8 +460,8 @@ * international/characters.el: Fix cateogries of Lao symbols. - * international/fontset.el (vertical-centering-font-regexp): New - variable. + * international/fontset.el (vertical-centering-font-regexp): + New variable. * international/mule.el (mule-version): Updated to 5.0 (AOI). (mule-version-date): Updated to 1999.12.7. @@ -474,19 +470,18 @@ * international/mule-cmds.el (encode-coding-char): Don't check composite character. - * international/mule-conf.el (iso-2022-7bit, iso-2022-7bit-ss2 - iso-2022-7bit-lock, iso-2022-7bit-lock-ss2, iso-2022-8bit-ss2, - x-ctext): Give `composition' property t. + * international/mule-conf.el (iso-2022-7bit, iso-2022-7bit-ss2) + (iso-2022-7bit-lock, iso-2022-7bit-lock-ss2, iso-2022-8bit-ss2) + (x-ctext): Give `composition' property t. * international/mule-util.el (set-nested-alist): Set BRANCHES (if non-nil) at the tail of ALIST. - (compose-region, decompose-region, decompse-string, - reference-point-alist, compose-chars): Moved to composite.el. - (compose-chars-component, compose-chars-rule, - decompose-composite-char): Deleted. + (compose-region, decompose-region, decompose-string) + (reference-point-alist, compose-chars): Moved to composite.el. + (compose-chars-component, compose-chars-rule, decompose-composite-char): + Deleted. - * international/quail.el (quail-install-map): New optional arg - NAME. + * international/quail.el (quail-install-map): New optional arg NAME. (quail-get-translation): If DEF is a symbol but not a function, ignore it. (quail-start-translation): Put a key sequence undefined in the @@ -498,11 +493,11 @@ (quail-show-translations): Don't show list of translations if the quail package is deterministic. (quail-completion-max-depth): New variable. - (quail-completion-1): Pay attention to the above variable. Fix - for the case that a translation is a function. - (quail-map-from-table, quail-map-from-table-1, - quail-map-from-table-2): New functions. - (quail-lookup-map-and-concat): New function + (quail-completion-1): Pay attention to the above variable. + Fix for the case that a translation is a function. + (quail-map-from-table, quail-map-from-table-1) + (quail-map-from-table-2): New functions. + (quail-lookup-map-and-concat): New function. * language/devan-util.el: Mostly rewritten. @@ -515,7 +510,7 @@ composition-function-table. (thai-tis620): Delete `pre-write-conversion' property. - * language/thai-util.el: (thai-category-table): Make it by + * language/thai-util.el (thai-category-table): Make it by make-category-table. (thai-composition-pattern): New variable. (thai-compose-region, thai-compose-string): Use @@ -526,8 +521,8 @@ * language/tibet-util.el: Most functions rewritten. (tibetan-char-p): Renamed from tibetan-char-examin. - (tibetan-composable-examin) (tibetan-complete-char-examin) - (tibetan-vertical-stacking) (tibetan-composition): Deleted. + (tibetan-composable-examin, tibetan-complete-char-examin) + (tibetan-vertical-stacking, tibetan-composition): Deleted. (tibetan-add-components): New function. (tibetan-composition-function): New function. @@ -553,8 +548,7 @@ * custom.el (custom-handle-keyword): Add :set-after. (custom-add-dependencies): New function. - (custom-set-variables): Take dependencies between args into - account. + (custom-set-variables): Take dependencies between args into account. * battery.el (battery): Doc fix. @@ -1163,8 +1157,7 @@ * textmodes/bibtex.el (bibtex-mode-map): Reserved the key `C-c &' for reftex.el. - (bibtex-edit-menu): Added `reftex-view-crossref-from-bibtex' - to menu. + (bibtex-edit-menu): Added `reftex-view-crossref-from-bibtex' to menu. 1999-12-04 Dave Love <[email protected]> @@ -1422,8 +1415,8 @@ (fortran-break-line): Simplified. (fortran-analyze-file-format): Use char-after, not looking-at. - * emacs-lisp/find-func.el (find-function-regexp): Use - `define-minor-mode' after easy-menu change. + * emacs-lisp/find-func.el (find-function-regexp): + Use `define-minor-mode' after easy-menu change. 1999-11-23 Gerd Moellmann <[email protected]> @@ -1762,7 +1755,7 @@ 1999-11-01 John Tobey <[email protected]> - * gud.el: (gud-perldb-massage-args): Massage correctly in the + * gud.el (gud-perldb-massage-args): Massage correctly in the presence of perl switches other than "-e". 1999-11-01 Markus Rost <[email protected]> @@ -1804,14 +1797,13 @@ windows. (ediff-file-checked-in-p): Don't consider CVS files checked in. - (ediff-make-temp-file,ediff-make-empty-tmp-file): Make sure you + (ediff-make-temp-file,ediff-make-empty-tmp-file): Make sure you are writing to a newly created empty file. * ediff-mult.el (ediff-show-session-group-hook): New default. - * ediff-vers.el (ediff-pcl-cvs-view-revision): - First cd to the file directory. reportedly works - better with remote files. + * ediff-vers.el (ediff-pcl-cvs-view-revision): First cd to the file + directory; reportedly works better with remote files. * ediff-vers.el (ediff-pcl-cvs-internal, ediff-pcl-cvs-merge-internal): Use file-name-nondirectory when passing files to CVS. @@ -1819,19 +1811,17 @@ * ediff-diff.el (ediff-cmp-options): New variable. (ediff-same-file-contents): Use ediff-cmp-options. - * ediff-ptch.el (ediff-prompt-for-patch-buffer, - ediff-get-patch-buffer): Use current buffer if it appears to be a - patch. + * ediff-ptch.el (ediff-prompt-for-patch-buffer, ediff-get-patch-buffer): + Use current buffer if it appears to be a patch. - * viper-keym.el: Fixed calls to viper-ex, change key C-c g to C-c - C-g + * viper-keym.el: Fixed calls to viper-ex, change key C-c g to C-c C-g. * viper-util.el (viper-nontrivial-find-file-function): Deleted. (viper-glob-unix-files, viper-glob-mswindows-files): New functions. (viper-save-cursor-color,viper-restore-cursor-color): Improved cursor color handling. - (viper-get-saved-cursor-color-in-replace-mode, - viper-get-saved-cursor-color-in-insert-mode): New functions for + (viper-get-saved-cursor-color-in-replace-mode) + (viper-get-saved-cursor-color-in-insert-mode): New functions for better cursor color handling. * viper-ex.el (ex-read,ex-edit): @@ -1842,10 +1832,10 @@ * viper-mous.el (viper-counting-clicks-p): Bug fixes. - * viper-cmd.el (viper-post-command-sentinel, - viper-insert-state-post-command-sentinel, - viper-insert-state-pre-command-sentinel): Takes better care of - cursor colors. + * viper-cmd.el (viper-post-command-sentinel) + (viper-insert-state-post-command-sentinel) + (viper-insert-state-pre-command-sentinel): Takes better care of + cursor colors. * viper.el: Version change. @@ -1902,7 +1892,7 @@ * paths.el (rmail-file-name): Make it an option. * progmodes/ada-mode.el, progmodes/ada-prj.el, - progmodes/ada-stmt.el, progmodes/ada-xref.el: Doc-string and + * progmodes/ada-stmt.el, progmodes/ada-xref.el: Doc-string and comment fixes. * progmodes/compile.el (compilation-error-regexp-alist): Recognize @@ -2061,8 +2051,7 @@ (ps-zebra-gray, ps-banner-page-when-duplexing): New vars. (ps-print-prologue-1): Adjust PostScript programming. (ps-print): Adjust group hierarchy. - (ps-print-n-up, ps-print-zebra, ps-print-background, - ps-print-printer) + (ps-print-n-up, ps-print-zebra, ps-print-background, ps-print-printer) (ps-print-page): New subgroups. (ps-print-prologue-header, ps-printer-name, ps-lpr-command) (ps-lpr-switches, ps-page-dimensions-database, ps-paper-type) @@ -2084,15 +2073,15 @@ (ps-page-dimensions-database): Added document media. (ps-n-up-printing, ps-n-up-margin, ps-n-up-border-p, ps-n-up-filling) (ps-page-order, ps-printing-region-p): New vars. - (ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): New - funs. + (ps-n-up-printing, ps-n-up-filling, ps-header-sheet, ps-end-job): + New funs. (ps-page-dimensions-get-media, ps-n-up-landscape, ps-n-up-lines) (ps-n-up-columns, ps-n-up-missing, ps-n-up-xcolumn, ps-n-up-ycolumn) (ps-n-up-xline, ps-n-up-yline, ps-n-up-repeat, ps-n-up-end) (ps-n-up-xstart, ps-n-up-ystart): New macros. (ps-print-begin-sheet-hook): New hook. - (ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): New - const. + (ps-boundingbox-re, ps-n-up-database, ps-n-up-filling-database): + New const. (ps-setup, ps-begin-file, ps-get-buffer-name, ps-begin-job) (ps-end-file, ps-dummy-page, ps-generate): Fix funs. (ps-print-prologue-1): Adjust PostScript programming for n-up printing. @@ -2100,8 +2089,8 @@ (ps-header-page): Changed to defsubst, fix fun. (ps-printing-region): Doc fix, adjust programming code. (ps-output-boolean, ps-background-pages, ps-background-text) - (ps-background-image, ps-background, ps-get-boundingbox): Adjust - programming code. + (ps-background-image, ps-background, ps-get-boundingbox): + Adjust programming code. 1999-10-20 Vinicius Jose Latorre <[email protected]> @@ -2152,7 +2141,7 @@ (ps-mode-show-version): New function, added key in ps-mode-map (ps-run-messages): Removed (ps-run-font-lock-keywords-2): New defcustom variable replacing - ps-run-messages. These keywords now include the value of + ps-run-messages. These keywords now include the value of ps-run-prompt, making its fontification customizable. (ps-run-init): Removed \\n from docstring, it is now added when the value is used @@ -2160,9 +2149,9 @@ ps-run-prompt (ps-mode): Added ps-run-font-lock-keywords-2 to list of customizable variables in doc-string (its equivalent - ps-run-messages was missing in previous version of the doc-string) + ps-run-messages was missing in previous version of the doc-string). (ps-run-mode): Simplified assignment to font-lock-defaults, using - symbols only + symbols only. 1999-10-19 Alex Schroeder <[email protected]> @@ -2176,12 +2165,12 @@ * international/mule-cmds.el (global-map): Do not use backquote, because that makes a bootstrapping problem if you need to recompile all Lisp files using interpreted code. - * international/mule.el (charset-id, charset-bytes, - charset-dimension, charset-chars, charset-width, - charset-direction, charset-iso-final-char, - charset-iso-graphic-plane, charset-reverse-charset, - charset-short-name, charset-long-name, charset-description, - charset-plist): Likewise. + * international/mule.el (charset-id, charset-bytes) + (charset-dimension, charset-chars, charset-width) + (charset-direction, charset-iso-final-char) + (charset-iso-graphic-plane, charset-reverse-charset) + (charset-short-name, charset-long-name, charset-description) + (charset-plist): Likewise. * subr.el (save-match-data): Likewise. * international/mule-cmds.el @@ -2315,8 +2304,7 @@ * international/fontset.el: * international/mule-conf.el: Add latin-iso8859-1[45]. - * language/european.el: Add Latin-8, Latin-9. Modify some doc - strings. + * language/european.el: Add Latin-8, Latin-9. Modify some doc strings. * startup.el (iso-8859-n-locale-regexp): Modify for Latin-[89]. (command-line): Detect Latin-[89] locales. @@ -2384,9 +2372,9 @@ (sh-mode-map): Added new bindings. (sh-mode): Updated mode doc-string for new commands, added make-local-variable calls, initialize mode-specific variables. - (sh-indent-line): Renamed to sh-basic-indent-line; sh-indent-line + (sh-indent-line): Renamed to sh-basic-indent-line; sh-indent-line is now a different function. - (sh-header-marker): Changed docstring. + (sh-header-marker): Changed docstring. (sh-set-shell): Initialize mode-specific variables. (sh-case, sh-for, sh-if, sh-indexed-loop, sh-repeat, sh-select) (sh-tmp-file, sh-until, sh-until, sh-while, sh-while-getopts): @@ -2416,8 +2404,8 @@ (sh-safe-forward-sexp, sh-save-styles-to-buffer, sh-scan-buffer) (sh-scan-case, sh-search-word, sh-set-char-syntax) (sh-set-here-doc-region, sh-set-indent, sh-set-var-value) - (sh-show-indent, sh-this-is-a-continuation, sh-var-value): New - functions. + (sh-show-indent, sh-this-is-a-continuation, sh-var-value): + New functions. (sh-debug, sh-electric-rparen-needed, sh-here-doc-syntax) (sh-indent-supported, sh-kw, sh-kw-alist, sh-kws-for-done) (sh-learned-buffer-hook, sh-make-vars-local, sh-regexp-for-done) @@ -2514,8 +2502,7 @@ 1999-10-07 Gerd Moellmann <[email protected]> - * custom.el (defface): Extend documentation for new values of - `type'. + * custom.el (defface): Extend documentation for new values of `type'. * faces.el (face-spec-set-match-display): Recognize `type' of `motif', `lucid', `x-toolkit'. @@ -2669,16 +2656,16 @@ * textmodes/reftex-cite.el (reftex-pop-to-bibtex-entry): Fixed bug with recentering window. - (reftex-extract-bib-entries-from-thebibliography, - reftex-offer-bib-menu,reftex-bibtex-selection-callback): Deal - with multiple thebibliography environments. + (reftex-extract-bib-entries-from-thebibliography) + (reftex-offer-bib-menu,reftex-bibtex-selection-callback): + Deal with multiple thebibliography environments. - * textmodes/reftex-vars.el - (reftex-section-levels): Function allowed as cdr. + * textmodes/reftex-vars.el (reftex-section-levels): + Function allowed as cdr. (reftex-max-section-depth) New option. - * textmodes/reftex-vcr.el (reftex-view-cr-cite): Deal - with multiple thebibliography environments. + * textmodes/reftex-vcr.el (reftex-view-cr-cite): + Deal with multiple thebibliography environments. 1999-09-23 Gerd Moellmann <[email protected]> @@ -2863,11 +2850,10 @@ (custom-comment): New widget. (custom-comment-create, custom-comment-delete) (custom-comment-value-set, custom-comment-show) - ()custom-comment-invisible-p): New functions. + (custom-comment-invisible-p): New functions. (custom-variable-value-create, custom-face-value-create): Create a comment field widget. - (custom-variable-menu, custom-face-menu): New entry for custom - comment. + (custom-variable-menu, custom-face-menu): New entry for custom comment. (custom-face-value-create): Remove compatibility code. (custom-save-variables, custom-save-faces): Possibly save custom comments. @@ -3075,7 +3061,7 @@ 1999-09-07 Dave Pearson <[email protected]> - * quickurl.el: (quickurl-list-focused-line): Removed. + * quickurl.el (quickurl-list-focused-line): Removed. (quickurl-list-insert): Now works out the focused line using `count-lines' instead of using `quickurl-list-focused-line'. @@ -3128,8 +3114,7 @@ 1999-09-06 Dave Love <[email protected]> - * emacs-lisp/byte-opt.el (byte-boolean-vars): Removed. (Now - primitive.) + * emacs-lisp/byte-opt.el (byte-boolean-vars): Removed. (Now primitive.) 1999-09-05 Richard Stallman <[email protected]> @@ -3329,7 +3314,7 @@ 1999-08-26 Stephen Gildea <[email protected]> * time-stamp.el: Put quote-backquote around all symbol names - in doc strings, for mousing. + in doc strings, for mousing. (time-stamp): Support multi-line patterns. (time-stamp-inserts-lines): New variable. (time-stamp-count): New variable. @@ -3465,40 +3450,37 @@ 1999-08-16 Carsten Dominik <[email protected]> * textmodes/reftex.el: Most of the code moved to other files. - * textmodes/reftex-auc.el: New file, split out from reftex.el - * textmodes/reftex-cite.el: New file, split out from reftex.el - * textmodes/reftex-global.el: New file, split out from reftex.el - * textmodes/reftex-index.el: New file, split out from reftex.el - * textmodes/reftex-parse.el: New file, split out from reftex.el - * textmodes/reftex-ref.el: New file, split out from reftex.el - * textmodes/reftex-sel.el: New file, split out from reftex.el - * textmodes/reftex-toc.el: New file, split out from reftex.el - * textmodes/reftex-vars.el: New file, split out from reftex.el - * textmodes/reftex-vcr.el: New file, split out from reftex.el + * textmodes/reftex-auc.el: New file, split out from reftex.el. + * textmodes/reftex-cite.el: New file, split out from reftex.el. + * textmodes/reftex-global.el: New file, split out from reftex.el. + * textmodes/reftex-index.el: New file, split out from reftex.el. + * textmodes/reftex-parse.el: New file, split out from reftex.el. + * textmodes/reftex-ref.el: New file, split out from reftex.el. + * textmodes/reftex-sel.el: New file, split out from reftex.el. + * textmodes/reftex-toc.el: New file, split out from reftex.el. + * textmodes/reftex-vars.el: New file, split out from reftex.el. + * textmodes/reftex-vcr.el: New file, split out from reftex.el. 1999-08-16 Carsten Dominik <[email protected]> - * textmodes/reftex.el: (reftex-pop-to-bibtex-entry): Fixed + * textmodes/reftex.el (reftex-pop-to-bibtex-entry): Fixed conflict with pop-up-frames. (reftex-special-environment-parsers): New constant. (reftex-label-alist): car of an entry can also be a function. (reftex-what-special-env): Cew function. (reftex-label-location): Call `reftex-what-special-env'. - (reftex-compile-variables): Check for symbol in - `reftex-label-alist'. + (reftex-compile-variables): Check for symbol in `reftex-label-alist'. (reftex-what-environment): Fixed bug with stacked environments of same kind (e.g. enumerate). (reftex-process-string): Preserve default directory. - (reftex-label-alist-builtin): Changed prefixes of endnote and - footnote. Also the magic words. - (reftex-reference): Interprete new option - `reftex-fref-is-default'. + (reftex-label-alist-builtin): Changed prefixes of endnote and footnote. + Also the magic words. + (reftex-reference): Interprete new option `reftex-fref-is-default'. (reftex-replace-prefix-escapes): Interprete new `%S' format. (reftex-toc-mouse-view-line): Command removed (had no binding). (reftex-everything-regexp): New function. (reftex-nearest-match): Made better. - (reftex-toc-find-section): Use new version of - `reftex-nearest-match'. + (reftex-toc-find-section): Use new version of `reftex-nearest-match'. (reftex-insert-docstruct): Adapted to work with the index stuff. (reftex-parse-from-file): Find index entries as well. (reftex-toc-toggle-index): New function @@ -3511,58 +3493,57 @@ buffers. (reftex-viewing-cross-references): Customization group renamed from reftex-viewing-cross-references-and-citations. - (reftex-index-macro-regexp, - reftex-find-index-entry-regexp-format): New variables - (reftex-macros-with-index): New variable - (reftex-add-index-macros): New function + (reftex-index-macro-regexp, reftex-find-index-entry-regexp-format): + New variables. + (reftex-macros-with-index): New variable. + (reftex-add-index-macros): New function. (reftex-renumber-simple-labels, reftex-translate): Allow for multiple labels in a single ref command. - (reftex-index-support): New customization group - (reftex-support-index, reftex-index-special-chars, - reftex-index-macros, reftex-index-default-macro, - reftex-index-default-tag, reftex-index-math-format, - reftex-index-section-letters, reftex-index-include-context, - reftex-index-follow-mode, reftex-index-header-face, - reftex-index-section-face, reftex-index-tag-face, - reftex-index-face): New options - (reftex-index-map, reftex-index-menu, reftex-last-index-file, - reftex-index-tag, reftex-index-return-marker, - reftex-index-restriction-indicator, reftex-index-restriction-data, - reftex-index-macro-regexp, reftex-index-level-re, - reftex-index-key-end-re, reftex-find-index-entry-regexp-format, - reftex-everything-regexp-no-index, reftex-index-re, - reftex-macros-with-index, reftex-index-macro-alist): New variables + (reftex-index-support): New customization group. + (reftex-support-index, reftex-index-special-chars) + (reftex-index-macros, reftex-index-default-macro) + (reftex-index-default-tag, reftex-index-math-format) + (reftex-index-section-letters, reftex-index-include-context) + (reftex-index-follow-mode, reftex-index-header-face) + (reftex-index-section-face, reftex-index-tag-face) + (reftex-index-face): New options + (reftex-index-map, reftex-index-menu, reftex-last-index-file) + (reftex-index-tag, reftex-index-return-marker) + (reftex-index-restriction-indicator, reftex-index-restriction-data) + (reftex-index-macro-regexp, reftex-index-level-re) + (reftex-index-key-end-re, reftex-find-index-entry-regexp-format) + (reftex-everything-regexp-no-index, reftex-index-re) + (reftex-macros-with-index, reftex-index-macro-alist): New variables. (reftex-index-help, reftex-index-macros-builtin, - reftex-key-to-index-macro-alist, reftex-query-index-macro-prompt, - reftex-query-index-macro-help): New constants - (reftex-index-selection-or-word, reftex-index, - reftex-default-index, reftex-update-default-index, - reftex-index-complete-tag, reftex-index-select-tag, - reftex-index-complete-key, reftex-index-update-taglist, - reftex-index-globally, reftex-index-mode, reftex-index-show-entry, - reftex-display-index, reftex-insert-index, - reftex-index-insert-new-letter, reftex-get-restriction, - reftex-index-pre-command-hook, reftex-index-post-command-hook, - reftex-index-show-help, reftex-index-next, reftex-index-previous, - reftex-index-toggle-follow, reftex-index-toggle-context, - reftex-index-view-entry, reftex-index-goto-entry-and-hide, - reftex-index-goto-entry, reftex-index-mouse-goto-line-and-hide, - reftex-index-quit, reftex-index-quit-and-kill, - reftex-index-goto-toc, reftex-index-rescan, reftex-index-Rescan, - reftex-index-revert, reftex-index-switch-index-tag, - reftex-index-restrict-to-section, reftex-index-widen, - reftex-index-restriction-forward, - reftex-index-restriction-backward, reftex-index-visit-location, - reftex-index-analyze-entry, reftex-index-globalize, - reftex-index-edit, reftex-index-toggle-range-beginning, - reftex-index-toggle-range-end, reftex-index-edit-key, - reftex-index-edit-attribute, reftex-index-edit-visual, - reftex-index-edit-part, reftex-index-level-down, - reftex-index-level-up, reftex-index-kill, reftex-index-undo, - reftex-index-change-entry, reftex-index-goto-letter, - reftex-add-index-macros, reftex-ensure-index-support, - reftex-index-info-safe, reftex-index-info): New functions. - + (reftex-key-to-index-macro-alist, reftex-query-index-macro-prompt) + (reftex-query-index-macro-help): New constants + (reftex-index-selection-or-word, reftex-index) + (reftex-default-index, reftex-update-default-index) + (reftex-index-complete-tag, reftex-index-select-tag) + (reftex-index-complete-key, reftex-index-update-taglist) + (reftex-index-globally, reftex-index-mode, reftex-index-show-entry) + (reftex-display-index, reftex-insert-index) + (reftex-index-insert-new-letter, reftex-get-restriction) + (reftex-index-pre-command-hook, reftex-index-post-command-hook) + (reftex-index-show-help, reftex-index-next, reftex-index-previous) + (reftex-index-toggle-follow, reftex-index-toggle-context) + (reftex-index-view-entry, reftex-index-goto-entry-and-hide) + (reftex-index-goto-entry, reftex-index-mouse-goto-line-and-hide) + (reftex-index-quit, reftex-index-quit-and-kill) + (reftex-index-goto-toc, reftex-index-rescan, reftex-index-Rescan) + (reftex-index-revert, reftex-index-switch-index-tag) + (reftex-index-restrict-to-section, reftex-index-widen) + (reftex-index-restriction-forward) + (reftex-index-restriction-backward, reftex-index-visit-location) + (reftex-index-analyze-entry, reftex-index-globalize) + (reftex-index-edit, reftex-index-toggle-range-beginning) + (reftex-index-toggle-range-end, reftex-index-edit-key) + (reftex-index-edit-attribute, reftex-index-edit-visual) + (reftex-index-edit-part, reftex-index-level-down) + (reftex-index-level-up, reftex-index-kill, reftex-index-undo) + (reftex-index-change-entry, reftex-index-goto-letter) + (reftex-add-index-macros, reftex-ensure-index-support) + (reftex-index-info-safe, reftex-index-info): New functions. 1999-08-15 Richard M. Stallman <[email protected]> @@ -4015,8 +3996,8 @@ 1999-07-25 Markus Rost <[email protected]> - * cus-edit.el (custom-save-variables, custom-save-faces): Sort - the entries to make custom-file more readable. + * cus-edit.el (custom-save-variables, custom-save-faces): + Sort the entries to make custom-file more readable. 1999-07-25 Richard M. Stallman <[email protected]> @@ -4033,7 +4014,7 @@ * info-look.el (info-lookup-interactive-arguments): Add optional argument query for new choice of help mode. - (info-lookup-symbol): Use it. + (info-lookup-symbol): Use it. (info-lookup-file): Ditto. (info-lookup): Don't switch to other window, if already in Info buffer. @@ -4670,9 +4651,8 @@ (fill-nonuniform-paragraphs, fill-individual-paragraphs): Check readonly buffer in interactive spec. - * paragraphs.el: (kill-paragraph, backward-kill-paragraph) - (backward-kill-sentence, kill-sentence): Add * to interactive - spec. + * paragraphs.el (kill-paragraph, backward-kill-paragraph) + (backward-kill-sentence, kill-sentence): Add * to interactive spec. 1999-07-19 Richard M. Stallman <[email protected]> @@ -5093,7 +5073,7 @@ 1999-05-31 Dave Love <[email protected]> - * ispell.el: (ispell-alternate-dictionary): Fix custom type. + * ispell.el (ispell-alternate-dictionary): Fix custom type. (ispell-complete-word-dict): Likewise. 1999-05-31 Eli Zaretskii <[email protected]> @@ -5124,7 +5104,7 @@ 1999-05-27 Dave Love <[email protected]> - * startup.el: (iso-8859-n-locale-regexp): Don't match 8859-15 &c. + * startup.el (iso-8859-n-locale-regexp): Don't match 8859-15 &c. 1999-05-27 Andreas Schwab <[email protected]> @@ -5276,8 +5256,8 @@ 1999-05-10 Andreas Schwab <[email protected]> - * emacs-lisp/byte-opt.el (byte-boolean-vars): Add - unibyte-display-via-language-environment. + * emacs-lisp/byte-opt.el (byte-boolean-vars): + Add unibyte-display-via-language-environment. * help.el (help-make-xrefs): Handle more cases when looking for commands in a keymap description. @@ -5540,8 +5520,7 @@ 1999-04-08 Dave Love <[email protected]> - * mail/supercite.el: (sc-attrib-selection-list): Fix custom type - more. + * mail/supercite.el (sc-attrib-selection-list): Fix custom type more. (sc-emacs-features): Recognize Emacs 20. (sc-read-string): Use history arg. (sc-scan-info-alist): Check for rtnvalue a cons. @@ -6419,7 +6398,7 @@ 1999-02-06 Markus Rost <[email protected]> * imenu.el (imenu--last-menubar-index-alist): Add doc. - (imenu-add-to-menubar): Reset imenu--last-menubar-index-alist. + (imenu-add-to-menubar): Reset imenu--last-menubar-index-alist. 1999-02-06 Richard Stallman <[email protected]> @@ -6569,8 +6548,8 @@ 1999-01-29 Dave Love <[email protected]> - * finder.el: (finder-commentary): Fix interactive spec. Try - appending .el to file name. + * finder.el (finder-commentary): Fix interactive spec. + Try appending .el to file name. (finder-find-library, finder-commentary): Doc fixes. 1999-01-29 Andrew Innes <[email protected]> @@ -6841,7 +6820,7 @@ 1999-01-18 Markus Rost <[email protected]> - * emacs-lisp/edebug.el (with-temp-message): Add def-edebug-spec call. + * emacs-lisp/edebug.el (with-temp-message): Add def-edebug-spec call. 1999-01-18 Espen Skoglund <[email protected]> @@ -6916,7 +6895,7 @@ 1999-01-17 Andrew Innes <[email protected]> - * dos-w32.el: (find-buffer-file-type-coding-system): Use + * dos-w32.el (find-buffer-file-type-coding-system): Use default-buffer-file-coding-system when file doesn't exist (and isn't covered by a special case) instead of forcing undecided-dos against the user's wishes. @@ -6936,13 +6915,13 @@ (ps-lpr-command): Comment out setq; leave as example usage. (ps-lpr-switches): Ditto. - * lpr.el: (printer-name): Update docstring about usage on MS-DOS + * lpr.el (printer-name): Update docstring about usage on MS-DOS and MS-Windows. (lpr-command) [ms-dos, windows-nt]: Initialize to empty string on DOS and Windows platforms, to indicate direct printing. Update the docstring accordingly. - * ps-print.el: (ps-printer-name): Update docstring about usage on + * ps-print.el (ps-printer-name): Update docstring about usage on MS-DOS and MS-Windows. (ps-lpr-command): Update docstring as for lpr-command. (ps-print-region-function): New variable. @@ -6992,7 +6971,7 @@ 1999-01-15 Johan Vromans <[email protected]> - * forms.el: (forms--show-record): Convert integers to string + * forms.el (forms--show-record): Convert integers to string expicitly since concat will no longer accept integers. (forms-print): Use local `total-nb-records' since `forms--total-records' will be inaccessible after buffer switching. @@ -7146,7 +7125,7 @@ change to callers. (browse-url-w3): Require w3 for w3-fetch-other-window. -1999-01-06 Markus Rost <[email protected]> +1999-01-06 Markus Rost <[email protected]> * browse-url.el (browse-url-w3): Give w3-fetch-other-window the argument. @@ -7215,7 +7194,7 @@ * progmodes/f90.el (f90-mode): Make imenu-case-fold-search buffer-local. -1998-01-05 Torbjorn Einarsson <[email protected]> +1998-01-05 Torbjorn Einarsson <[email protected]> * progmodes/f90.el: Change of regular expressions for type to correct highlighting and identation. Some small fixes for @@ -7232,13 +7211,13 @@ (reftex-section-info): Handle negative section levels. (reftex-view-crossref-extra): New option. (reftex-view-crossref): Generalized to work in more places. - (reftex-find-citation-regexp-format, reftex-find-reference-format, - reftex-macros-with-labels, reftex-global-search-marker): New variables. + (reftex-find-citation-regexp-format, reftex-find-reference-format) + (reftex-macros-with-labels, reftex-global-search-marker): New variables. (reftex-view-cite-locations-from-bibtex): New command. - (reftex-view-regexp-match, reftex-global-search, - reftex-global-search-continue): New functions. - (reftex-extract-bib-entries): No error for non-existing BibTeX - file, just a message. + (reftex-view-regexp-match, reftex-global-search) + (reftex-global-search-continue): New functions. + (reftex-extract-bib-entries): No error for non-existing BibTeX file, + just a message. (reftex-extract-bib-entries): Better error handling. (reftex-select-with-char): Use `*RefTeX Select*' for selection help and force it on current frame. @@ -7416,24 +7395,24 @@ * cperl-mode.el: Can use linear algorithm for indentation if Emacs supports it. - (cperl-after-expr-p): It is BLOCK if we reach lim when backup sexp. - (cperl-after-block-p): Likewise. + (cperl-after-expr-p): It is BLOCK if we reach lim when backup sexp. + (cperl-after-block-p): Likewise. (cperl-after-block-and-statement-beg): Likewise. - (cperl-after-block-p): After END/BEGIN we are a block. - (cperl-after-expr-p): Skip labels when checking - (cperl-indent-region): Make a marker for END - text added/removed. + (cperl-after-block-p): After END/BEGIN we are a block. + (cperl-after-expr-p): Skip labels when checking + (cperl-indent-region): Make a marker for END - text added/removed. Disable hooks during the call (how to call them later?). Now indents 820-line-long function in 6.5 sec (including - syntaxification) the first time (when buffer has few + syntaxification) the first time (when buffer has few properties), 7.1 sec the second time. - (cperl-indent-region): Do not indent whitespace lines - (cperl-style-alist) - Include `cperl-merge-trailing-else' where the value is clear. + (cperl-indent-region): Do not indent whitespace lines. + (cperl-style-alist): Include `cperl-merge-trailing-else' where the + value is clear. (cperl-styles-entries): Likewise. - (cperl-problems): Improvements to docs. - (cperl-tips): Likewise. - (cperl-non-problems): Likewise. - (cperl-mode): Make lazy syntaxification possible. + (cperl-problems): Improvements to docs. + (cperl-tips): Likewise. + (cperl-non-problems): Likewise. + (cperl-mode): Make lazy syntaxification possible. Loads pseudo-faces for the sake of `cperl-find-pods-heres' (for 19.30). `font-lock-unfontify-region-function' was set to a wrong function. @@ -7465,92 +7444,93 @@ `defface'd. (cperl-hash-face): Renamed from `font-lock-other-emphasized-face'. `defface'd. - (cperl-emacs-can-parse): New state variable. - (cperl-indent-line): Corrected to use global state. - (cperl-calculate-indent): Likewise. - (cperl-fix-line-spacing): Likewise (not used yet). - (cperl-calculate-indent): Did not consider `,' as - continuation mark for statements. + (cperl-emacs-can-parse): New state variable. + (cperl-indent-line): Corrected to use global state. + (cperl-calculate-indent): Likewise. + (cperl-fix-line-spacing): Likewise (not used yet). + (cperl-calculate-indent): Did not consider `,' as continuation mark + for statements. (cperl-calculate-indent): Avoid parse-data optimization at toplevel. Remove another parse-data optimization at toplevel: would indent correctly. Correct for labels when calculating indentation of continuations. Docstring updated. - (cperl-choose-color): Converted to a function (to be + (cperl-choose-color): Converted to a function (to be compilable in text-mode). - (cperl-dark-background): Disable without window-system. + (cperl-dark-background): Disable without window-system. Do `defface' only if window-system. - (cperl-fix-line-spacing): Sped up to bail out early. + (cperl-fix-line-spacing): Sped up to bail out early. (x-color-defined-p): Was not compiling on XEmacs Was defmacro'ed with a tick. Remove another def. (cperl-clobber-lisp-bindings): If set, C-c variants are the old ones - (cperl-unwind-to-safe): New function. - (cperl-fontify-syntaxically): Use `cperl-unwind-to-safe' to start at reasonable position. - (cperl-fontify-syntaxically): Unwinds start and end to go out of - long strings (not very successful). - (cperl-forward-re): Highlight the trailing / in s/foo// as string. + (cperl-unwind-to-safe): New function. + (cperl-fontify-syntaxically): Use `cperl-unwind-to-safe' to start at + reasonable position. + (cperl-fontify-syntaxically): Unwinds start and end to go out of long + strings (not very successful). + (cperl-forward-re): Highlight the trailing / in s/foo// as string. Highlight the starting // in s//foo/ as function-name. Emit a meaningful error instead of a cryptic one for an uncomplete REx near end-of-buffer. - (cperl-electric-keyword): `qr' recognized. - (cperl-electric-else): Likewise - (cperl-to-comment-or-eol): Likewise - (cperl-make-regexp-x): Likewise - (cperl-init-faces): Likewise, and `lock' (as overridable?). + (cperl-electric-keyword): `qr' recognized. + (cperl-electric-else): Likewise. + (cperl-to-comment-or-eol): Likewise. + (cperl-make-regexp-x): Likewise. + (cperl-init-faces): Likewise, and `lock' (as overridable?). Corrected to use new macros; `if' for copying `reference-face' to `constant-face' was backward. - remove init `font-lock-other-emphasized-face', + Remove init `font-lock-other-emphasized-face', `font-lock-emphasized-face', `font-lock-keyword-face'. Interpolate `cperl-invalid-face'. - (cperl-make-regexp-x): Misprint in a message. - (cperl-syntaxify-unwind): New configuration variable - (cperl-fontify-m-as-s): New configuration variable - (cperl-electric-pod): Check for after-expr was performed + (cperl-make-regexp-x): Misprint in a message. + (cperl-syntaxify-unwind): New configuration variable. + (cperl-fontify-m-as-s): New configuration variable. + (cperl-electric-pod): Check for after-expr was performed inside of POD too. - (cperl-backward-to-noncomment): Cetter treatment of PODs and HEREs. + (cperl-backward-to-noncomment): Cetter treatment of PODs and HEREs. (cperl-clobber-mode-lists): New configuration variable. - (cperl-not-bad-style-regexp): Updated. - Init: `cperl-is-face' was busted. - (cperl-make-face): New macros. - (cperl-force-face): New macros. + (cperl-not-bad-style-regexp): Updated. + Init: `cperl-is-face' was busted. + (cperl-make-face): New macros. + (cperl-force-face): New macros. (font-lock-other-type-face): Done via `defface' too. - (cperl-nonoverridable-face): New face. Renamed from + (cperl-nonoverridable-face): New face. Renamed from `font-lock-other-type-face'. - (cperl-init-faces-weak): Use `cperl-force-face'. - (cperl-comment-indent): Commenting __END__ was not working. - (cperl-indent-for-comment): Likewise. - (cperl-write-tags): Correct for XEmacs's `visit-tags-table-buffer'. + (cperl-init-faces-weak): Use `cperl-force-face'. + (cperl-comment-indent): Commenting __END__ was not working. + (cperl-indent-for-comment): Likewise. + (cperl-write-tags): Correct for XEmacs's `visit-tags-table-buffer'. When removing old TAGS info was not relativizing filename. - (cperl-tags-hier-init): Gross hack to pretend we work (are we?). + (cperl-tags-hier-init): Gross hack to pretend we work (are we?). Another try to work around XEmacs problems. Better progress messages. - (toplevel): Require custom unprotected => failure on 19.28. - (cperl-xemacs-p): Defined when compile too - (cperl-find-tags): Was writing line/pos in a wrong order, + (toplevel): Require custom unprotected => failure on 19.28. + (cperl-xemacs-p): Defined when compile too. + (cperl-find-tags): Was writing line/pos in a wrong order, pos off by 1 and not at beg-of-line. - (cperl-etags-snarf-tag): New macro - (cperl-etags-goto-tag-location): New macro - (cperl-version): New variable. New menu entry - random docstrings: References to "future" 20.3 removed. + (cperl-etags-snarf-tag): New macro. + (cperl-etags-goto-tag-location): New macro. + (cperl-version): New variable. New menu entry + random docstrings: References to "future" 20.3 removed. Menu was described as `CPerl' instead of `Perl' (perl-font-lock-keywords): Would not highlight `sub foo($$);'. (cperl-toggle-construct-fix): Was toggling to t instead of 1. - (cperl-ps-print-init): Associate `cperl-array-face', `cperl-hash-face' + (cperl-ps-print-init): Associate `cperl-array-face', `cperl-hash-face' Remove `font-lock-emphasized-face', `font-lock-other-emphasized-face', `font-lock-reference-face', `font-lock-keyword-face'. Use `eval-after-load'. Remove not-CPerl-related faces. - (cperl-tips-faces): New variable and an entry into Mini-docs. - (cperl-indent-exp): Was not processing else-blocks. - (cperl-get-state): NOP line removed. - (cperl-ps-print): New function and menu entry. - (cperl-ps-print-face-properties): New configuration variable. - (cperl-invalid-face): New configuration variable. - (perl-font-lock-keywords): Highlight trailing whitespace - (cperl-contract-levels): Documentation corrected. - (cperl-contract-level): Likewise. - (cperl-ps-extend-face-list): New macro. - (cperl-invalid-face): Change to ''underline. + (cperl-tips-faces): New variable and an entry into Mini-docs. + (cperl-indent-exp): Was not processing else-blocks. + (cperl-get-state): NOP line removed. + (cperl-ps-print): New function and menu entry. + (cperl-ps-print-face-properties): New configuration variable. + (cperl-invalid-face): New configuration variable. + (perl-font-lock-keywords): Highlight trailing whitespace. + (cperl-contract-levels): Documentation corrected. + (cperl-contract-level): Likewise. + (cperl-ps-extend-face-list): New macro. + (cperl-invalid-face): Change to ''underline. 1998-12-25 Markus Rost <[email protected]> @@ -7607,13 +7587,12 @@ (dos-codepage-setup): New function, sets up the MULE environment for the current value of dos-codepage. (top-level if): In the multibyte mode, turn on - unibyte-display-via-language-environment. In the unibyte mode, - set up the special syntax tables to map lower- to upper case and - back. + unibyte-display-via-language-environment. In the unibyte mode, set up + the special syntax tables to map lower- to upper case and back. 1998-12-19 Eric Ludlam <[email protected]> - * speedbar.el: (speedbar-frame-parameters) Add : to custom prompt. + * speedbar.el (speedbar-frame-parameters): Add : to custom prompt. (speedbar-frame-plist) Remove useless comments. (speedbar-frame-mode) Do not specify height if it is in the param list. Use default y position w/out changing it. @@ -7659,8 +7638,8 @@ 1998-12-16 Edward M. Reingold <[email protected]> - * diary-lib.el (diary-float): Fix end-of-year error and typos in - comments. + * diary-lib.el (diary-float): Fix end-of-year error and typos + in comments. 1998-12-16 Oleg S. Tihonov <[email protected]> @@ -7722,12 +7701,12 @@ (bdf-info-code-range, bdf-info-maxlen, bdf-info-offset-vector) (bdf-read-bitmap, bdf-get-bitmaps): Programming uniformization. (bdf-expand-file-name, bdf-file-newer-than-time, bdf-find-file) - (bdf-read-cache, bdf-read-font-info, bdf-generate-glyphs): Little code - improvement. + (bdf-read-cache, bdf-read-font-info, bdf-generate-glyphs): + Little code improvement. 1998-12-15 Vinicius Jose Latorre <[email protected]> - * ps-print.el: (ps-print-version): New version number (4.1.2), doc fix + * ps-print.el (ps-print-version): New version number (4.1.2), doc fix and mule related code extraction. Autoload ps-mule funs. * ps-mule.el: Doc fix. Require ps-print only when compiled. @@ -7788,8 +7767,7 @@ * international/mule-cmds.el (find-coding-systems-for-charsets): Handle the case of unknown charset. (find-multibyte-characters): If invalid multibyte characters are - found, return the corresponding strings instead of character - codes. + found, return the corresponding strings instead of character codes. (find-multibyte-characters): Adjusted for the above change. (select-safe-coding-system): For a unibyte buffer, always returns DEFAULT-CODING-SYSTEM. @@ -7799,8 +7777,8 @@ * international/mule.el (make-coding-system): Set mime-charset property of *-with-esc coding system to nil. - * international/quail.el (quail-point-in-conversion-region): New - function. + * international/quail.el (quail-point-in-conversion-region): + New function. (quail-conversion-backward-delete-char): When a key sequence is being translated, call quail-delete-last-char. @@ -7821,16 +7799,16 @@ 1998-12-13 Richard Stallman <[email protected]> - * progmodes/compile.el (compilation-error-regexp-alist): Insist - on a non-digit in the file name. + * progmodes/compile.el (compilation-error-regexp-alist): + Insist on a non-digit in the file name. * simple.el (comment-region): Handle comment-padding separately for insertion and for deletion, in the right way for each. 1998-12-13 Felix Lee <[email protected]> - * progmodes/compile.el (compilation-error-regexp-alist): Fix - regexp to match "ChangeLog:1:1998-12-09 ..." + * progmodes/compile.el (compilation-error-regexp-alist): + Fix regexp to match "ChangeLog:1:1998-12-09 ..." 1998-12-13 Eli Zaretskii <[email protected]> @@ -7838,8 +7816,8 @@ 1998-12-11 Dave Love <[email protected]> - * progmodes/fortran.el (fortran-font-lock-keywords-3): Wrap - forward-sexp in condition-case. + * progmodes/fortran.el (fortran-font-lock-keywords-3): + Wrap forward-sexp in condition-case. * emacs-lisp/find-func.el (find-function-search-for-symbol): Remove unnecessary test on `library' for explicit file name. @@ -7907,8 +7885,8 @@ with correct number of args. (browse-url-maybe-new-window): New arg. Callers changed. - * progmodes/fortran.el (fortran-check-end-prog-re): Allow trailing - comment. + * progmodes/fortran.el (fortran-check-end-prog-re): + Allow trailing comment. 1998-12-08 Geoff Voelker <[email protected]> @@ -8006,7 +7984,7 @@ ispell-begin-tex-skip-regexp, ispell-begin-skip-region, ispell-comments-and-strings, ispell-continue, ispell-complete-word, ispell-message-text-end, ispell-add-per-file-word-list. - (ispell-dictionary-alist-1): (ispell-dictionary-alist2): A coding + (ispell-dictionary-alist-1, ispell-dictionary-alist2): A coding system is now required for all languages. Casechars improved for castellano, castellano8, and norsk dictionaries. Dictionary norsk7-tex added. Dictionary polish added. @@ -8297,7 +8275,7 @@ 1998-11-13 Carsten Dominik <[email protected]> - * textmodes/reftex.el: (reftex-finding-files): Group documentation fixed. + * textmodes/reftex.el (reftex-finding-files): Group documentation fixed. (reftex-toc-toggle-file-boundary, reftex-toc-toggle-labels) (reftex-toc-toggle-context,reftex-find-start-point): New functions. (reftex-toc-include-labels, reftex-toc-include-context) @@ -8309,7 +8287,8 @@ (reftex-latin1-to-ascii): Works now with and without Mule. (reftex-truncate): Removed special stuff for Emacs 20.2. (reftex-get-offset): Made more general. - (reftex-show-label-location): Renamed from `reftex-select-label-callback'. + (reftex-show-label-location): Renamed from + `reftex-select-label-callback'. (reftex-pop-to-label): Function removed (using `reftex-show-label-location' instead. (reftex-insert-docstruct): Renamed from @@ -8350,9 +8329,8 @@ 1998-11-11 Per Starback <[email protected]> - * ispell.el: (ispell-dictionary-alist-2): Removed svenska, - renamed svenska8 to svenska, and fixed and extended CASECHARS - for it. + * ispell.el (ispell-dictionary-alist-2): Removed svenska, renamed + svenska8 to svenska, and fixed and extended CASECHARS for it. 1998-11-11 Andrew Innes <[email protected]> @@ -8639,8 +8617,8 @@ 1998-10-26 Edward M. Reingold <[email protected]> - * cal-x.el (diary-frame-parameters, calendar-frame-parameters, - calendar-and-diary-frame-parameters): Add title parameter. + * cal-x.el (diary-frame-parameters, calendar-frame-parameters) + (calendar-and-diary-frame-parameters): Add title parameter. 1998-10-26 Richard Stallman <[email protected]> @@ -8962,10 +8940,10 @@ 1998-10-13 Andreas Schwab <[email protected]> - * progmodes/hideif.el: (hide-ifdef-env, hif-outside-read-only): + * progmodes/hideif.el (hide-ifdef-env, hif-outside-read-only): Move declaration before first use. - (hif-parse-if-exp, hif-nexttoken, hif-expr, hif-term, hif-eq-expr, - hif-math, hif-factor): Rename token to hif-token and token-list to + (hif-parse-if-exp, hif-nexttoken, hif-expr, hif-term, hif-eq-expr) + (hif-math, hif-factor): Rename token to hif-token and token-list to hif-token-list. (hif-token, hif-token-list): Declare them. (hif-find-ifdef-block): Return cons of top and bottom point @@ -9196,7 +9174,7 @@ 1998-09-30 Markus Rost <[email protected]> - * gnus.el: (gnus-valid-select-methods): Fix type. + * gnus.el (gnus-valid-select-methods): Fix type. * gnus-sum.el (gnus-summary-respool-default-method): Fix type. * gnus-score.el (gnus-orphan-score): Fix type. (gnus-score-default-header, gnus-score-default-type): Fix type. @@ -9228,11 +9206,10 @@ 1998-09-28 Carsten Dominik <[email protected]> * textmodes/reftex.el (reftex-finding-files): New customize group. - (reftex-texpath-environment-variables, - reftex-use-external-file-finders, reftex-external-file-finders, - reftex-search-unrecursed-path-first): New options. - (reftex-process-string, reftex-find-file-externally): New - functions. + (reftex-texpath-environment-variables) + (reftex-use-external-file-finders, reftex-external-file-finders) + (reftex-search-unrecursed-path-first): New options. + (reftex-process-string, reftex-find-file-externally): New functions. (reftex-access-search-path): Execute shell commands to find the search path. (reftex-toggle-auto-view-crossref): When turning on, make sure @@ -9247,9 +9224,8 @@ 1998-09-27 Kurt Hornik <[email protected]> - * octave-inf.el (inferior-octave-prompt): Also match prompts of - the form `octave.bin:1>' which come from using precopiled binary - versions. + * octave-inf.el (inferior-octave-prompt): Also match prompts of the + form `octave.bin:1>' which come from using precopiled binary versions. 1998-09-27 Richard Stallman <[email protected]> @@ -9656,7 +9632,7 @@ 1998-09-05 Eric Ludlam <[email protected]> - * emacs-lisp/checkdoc.el: (checkdoc-buffer-label): New function. + * emacs-lisp/checkdoc.el (checkdoc-buffer-label): New function. (checkdoc-start-section, checkdoc-error): Use `checkdoc-buffer-label'. (checkdoc-this-string-valid-engine): Permit ? as terminating punctuation for first line sentence breaking. @@ -10000,9 +9976,9 @@ 1998-08-23 Eric Ludlam <[email protected]> - * speedbar.el: (speedbar-with-writable): Remove `toggle-read-only'. + * speedbar.el (speedbar-with-writable): Remove `toggle-read-only'. (speedbar-mode): Set buffer to read only. - (speedbar-temp-buffer-show-function): For emacs don't call hook + (speedbar-temp-buffer-show-function): For Emacs don't call hook with arguments. (speedbar-stealthy-updates): Do all updates w/ the buffer writable. @@ -10012,9 +9988,24 @@ See ChangeLog.7 for earlier changes. - Copyright (C) 1999, 2001, 2002, 2003, 2004, 2005, 2006, 2007 - Free Software Foundation, Inc. - Copying and distribution of this file, with or without modification, - are permitted provided the copyright notice and this notice are preserved. + Copyright (C) 1999, 2001, 2002, 2003, 2004, 2005, 2006, + 2007 Free Software Foundation, Inc. + + This file is part of GNU Emacs. + + GNU Emacs is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2, or (at your option) + any later version. + + GNU Emacs is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with GNU Emacs; see the file COPYING. If not, write to the + Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, + Boston, MA 02110-1301, USA. ;;; arch-tag: efdc1531-ed46-4e14-be59-bee4b23088f3 diff --git a/lisp/ChangeLog.9 b/lisp/ChangeLog.9 index 3d2b41b433..8f6177e9fe 100644 --- a/lisp/ChangeLog.9 +++ b/lisp/ChangeLog.9 @@ -20695,9 +20695,25 @@ See ChangeLog.8 for earlier changes. ;; coding: iso-2022-7bit ;; End: - Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007 - Free Software Foundation, Inc. - Copying and distribution of this file, with or without modification, - are permitted provided the copyright notice and this notice are preserved. + Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, + 2007 Free Software Foundation, Inc. + + This file is part of GNU Emacs. + + GNU Emacs is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2, or (at your option) + any later version. + + GNU Emacs is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with GNU Emacs; see the file COPYING. If not, write to the + Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, + Boston, MA 02110-1301, USA. + ;;; arch-tag: a7cd2b86-43eb-409b-883f-3700fa85334f diff --git a/lisp/bindings.el b/lisp/bindings.el index 669357de92..27d2794612 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -1020,18 +1020,6 @@ language you are using." (define-key ctl-x-map "rw" 'window-configuration-to-register) (define-key ctl-x-map "rf" 'frame-configuration-to-register) -;; These key bindings are deprecated; use the above C-x r map instead. -;; We use these aliases so \[...] will show the C-x r bindings instead. -(defalias 'point-to-register-compatibility-binding 'point-to-register) -(defalias 'jump-to-register-compatibility-binding 'jump-to-register) -(defalias 'copy-to-register-compatibility-binding 'copy-to-register) -(defalias 'insert-register-compatibility-binding 'insert-register) -(define-key ctl-x-map "/" 'point-to-register-compatibility-binding) -(define-key ctl-x-map "j" 'jump-to-register-compatibility-binding) -(define-key ctl-x-map "x" 'copy-to-register-compatibility-binding) -(define-key ctl-x-map "g" 'insert-register-compatibility-binding) -;; (define-key ctl-x-map "r" 'copy-rectangle-to-register) - (define-key esc-map "q" 'fill-paragraph) ;; (define-key esc-map "g" 'fill-region) (define-key ctl-x-map "." 'set-fill-prefix) diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el index d67173ce73..f1336a417b 100644 --- a/lisp/buff-menu.el +++ b/lisp/buff-menu.el @@ -721,7 +721,7 @@ For more information, see the function `buffer-menu'." (put-text-property 0 3 'face 'fixed-pitch header) ;; Add a "dummy" leading space to align the beginning of the header ;; line with the beginning of the text (rather than with the left - ;; scrollbar or the left fringe). –-Stef + ;; scrollbar or the left fringe). --Stef (setq header (concat (propertize " " 'display '(space :align-to 0)) header))) (with-current-buffer (get-buffer-create "*Buffer List*") @@ -729,8 +729,9 @@ For more information, see the function `buffer-menu'." (erase-buffer) (setq standard-output (current-buffer)) (unless Buffer-menu-use-header-line - ;; Use U+2014 (EM DASH) to underline if possible, else U+002D (HYPHEN-MINUS) - (let ((underline (if (char-displayable-p ?—) ?— ?-))) + ;; Use U+2014 (EM DASH) to underline if possible, else use ASCII + ;; (i.e. U+002D, HYPHEN-MINUS). + (let ((underline (if (char-displayable-p ?\u2014) ?\u2014 ?-))) (insert header (apply 'string (mapcar (lambda (c) diff --git a/lisp/calc/README b/lisp/calc/README index 0920f73eb3..a93092f3b1 100644 --- a/lisp/calc/README +++ b/lisp/calc/README @@ -1,3 +1,7 @@ +Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007 + Free Software Foundation, Inc. +See the end of the file for license conditions. + This directory contains Calc, an advanced desk calculator for GNU Emacs. @@ -224,3 +228,20 @@ Version 2.00: the FTP version of the Calc distribution, the file README.prev contains a detailed change history from 1.00 up to 2.00. + +This file is part of GNU Emacs. + +GNU Emacs is free software; you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 2, or (at your option) +any later version. + +GNU Emacs is distributed in the hope that it will be useful, +but WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +GNU General Public License for more details. + +You should have received a copy of the GNU General Public License +along with GNU Emacs; see the file COPYING. If not, write to the +Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +Boston, MA 02110-1301, USA. diff --git a/lisp/calc/README.prev b/lisp/calc/README.prev index 935ba6e08b..3dfcfc7fac 100644 --- a/lisp/calc/README.prev +++ b/lisp/calc/README.prev @@ -1,3 +1,6 @@ +Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007 + Free Software Foundation, Inc. +See the end of the file for license conditions. Summary of changes to "Calc" Preceding 2.00 @@ -979,3 +982,20 @@ Version 1.00: calc-fraction and calc-grab-region. The program has been split into two parts for faster loading, and the manual is more complete. + +This file is part of GNU Emacs. + +GNU Emacs is free software; you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 2, or (at your option) +any later version. + +GNU Emacs is distributed in the hope that it will be useful, +but WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +GNU General Public License for more details. + +You should have received a copy of the GNU General Public License +along with GNU Emacs; see the file COPYING. If not, write to the +Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +Boston, MA 02110-1301, USA. diff --git a/lisp/calculator.el b/lisp/calculator.el index 363e98a804..53a3c96d94 100644 --- a/lisp/calculator.el +++ b/lisp/calculator.el @@ -88,9 +88,9 @@ This determines the default behavior of unary operators." (defcustom calculator-prompt "Calc=%s> " "*The prompt used by the Emacs calculator. -It should contain a \"%s\" somewhere that will indicate the i/o radixes, -this string will be a two-character string as described in the -documentation for `calculator-mode'." +It should contain a \"%s\" somewhere that will indicate the i/o radixes; +this will be a two-character string as described in the documentation +for `calculator-mode'." :type 'string :group 'calculator) @@ -561,7 +561,7 @@ Used for repeating operations in calculator-repR/L.") calculator-output-radix)))] "---" ,@(mapcar 'car radix-selectors) - ("Seperate I/O" + ("Separate I/O" ,@(mapcar (lambda (x) (nth 1 x)) radix-selectors) "---" ,@(mapcar (lambda (x) (nth 2 x)) radix-selectors))) @@ -735,8 +735,42 @@ See the documentation for `calculator-mode' for more information." ;; `raised' modeline in Emacs 21 (select-window (split-window-vertically + ;; If the modeline might interfere with the calculator buffer, + ;; use 3 lines instead. (if (and (fboundp 'face-attr-construct) - (plist-get (face-attr-construct 'modeline) :box)) + (let* ((dh (plist-get (face-attr-construct 'default) :height)) + (mf (face-attr-construct 'modeline)) + (mh (plist-get mf :height))) + ;; If the modeline is shorter than the default, + ;; stick with 2 lines. (It may be necessary to + ;; check how much shorter.) + (and + (not + (or (and (integerp dh) + (integerp mh) + (< mh dh)) + (and (numberp mh) + (not (integerp mh)) + (< mh 1)))) + (or + ;; If the modeline is taller than the default, + ;; use 3 lines. + (and (integerp dh) + (integerp mh) + (> mh dh)) + (and (numberp mh) + (not (integerp mh)) + (> mh 1)) + ;; If the modeline has a box with non-negative line-width, + ;; use 3 lines. + (let* ((bx (plist-get mf :box)) + (lh (plist-get bx :line-width))) + (and bx + (or + (not lh) + (> lh 0)))) + ;; If the modeline has an overline, use 3 lines. + (plist-get (face-attr-construct 'modeline) :overline))))) -3 -2))) (switch-to-buffer calculator-buffer))) ((not (eq (current-buffer) calculator-buffer)) diff --git a/lisp/comint.el b/lisp/comint.el index cd5a9a9c13..19ce168a02 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -653,7 +653,7 @@ Entry to this mode runs the hooks on `comint-mode-hook'." (make-local-variable 'comint-accum-marker) (setq comint-accum-marker (make-marker)) (make-local-variable 'font-lock-defaults) - (setq font-lock-defaults '(nil)) + (setq font-lock-defaults '(nil t)) (add-hook 'change-major-mode-hook 'font-lock-defontify nil t) ;; This behavior is not useful in comint buffers, and is annoying (set (make-local-variable 'next-line-add-newlines) nil)) @@ -803,17 +803,27 @@ buffer. The hook `comint-exec-hook' is run after each exec." proc)) (defun comint-insert-input (event) - "In a Comint buffer, set the current input to the previous input at point." + "In a Comint buffer, set the current input to the previous input at point. +If there is no previous input at point, run the command specified +by the global keymap (usually `mouse-yank-at-point')." (interactive "e") - (mouse-set-point event) - (let ((pos (point))) - (if (not (eq (field-at-pos pos) 'input)) - ;; No input at POS, fall back to the global definition. + (let ((pos (posn-point (event-end event))) + field input) + (with-selected-window (posn-window (event-end event)) + (and (setq field (field-at-pos pos)) + (setq input (field-string-no-properties pos)))) + (if (or (null comint-accum-marker) + (not (eq field 'input))) + ;; Fall back to the global definition if (i) the selected + ;; buffer is not a comint buffer (which can happen if a + ;; non-comint window was selected and we clicked in a comint + ;; window), or (ii) there is no input at POS. (let* ((keys (this-command-keys)) (last-key (and (vectorp keys) (aref keys (1- (length keys))))) (fun (and last-key (lookup-key global-map (vector last-key))))) - (and fun (call-interactively fun))) - ;; There's previous input at POS, insert it at the end of the buffer. + (and fun (not (eq fun 'comint-insert-input)) + (call-interactively fun))) + ;; Otherwise, insert the previous input. (goto-char (point-max)) ;; First delete any old unsent input at the end (delete-region @@ -821,8 +831,7 @@ buffer. The hook `comint-exec-hook' is run after each exec." (process-mark (get-buffer-process (current-buffer)))) (point)) ;; Insert the input at point - (insert (field-string-no-properties pos))))) - + (insert input)))) ;; Input history processing in a buffer ;; =========================================================================== @@ -887,7 +896,7 @@ See also `comint-input-ignoredups' and `comint-write-input-ring'." ;; Watch for those date stamps in history files! (goto-char (point-max)) (let (start end history) - (while (and (< count comint-input-ring-size) + (while (and (< count size) (re-search-backward comint-input-ring-separator nil t) (setq end (match-beginning 0))) (if (re-search-backward comint-input-ring-separator nil t) diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index ce429a4082..c49328ac40 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -4192,11 +4192,13 @@ if only the first line of the docstring is shown.")) (when (and (null custom-file) init-file-had-error) (error "Cannot save customizations; init file was not fully loaded")) (let* ((filename (custom-file)) - (recentf-exclude (if recentf-mode - (cons (concat "\\`" - (regexp-quote (custom-file)) - "\\'") - recentf-exclude))) + (recentf-exclude + (if recentf-mode + (cons (concat "\\`" + (regexp-quote + (recentf-expand-file-name (custom-file))) + "\\'") + recentf-exclude))) (old-buffer (find-buffer-visiting filename))) (with-current-buffer (let ((find-file-visit-truename t)) (or old-buffer (find-file-noselect filename))) diff --git a/lisp/descr-text.el b/lisp/descr-text.el index 64920336db..8b36270f46 100644 --- a/lisp/descr-text.el +++ b/lisp/descr-text.el @@ -528,11 +528,11 @@ as well as widgets, buttons, overlays, and text properties." (setq char (aref disp-vector i)) (aset disp-vector i (cons char (describe-char-display - pos (logand char #x7ffff))))) + pos (glyph-char char))))) (format "by display table entry [%s] (see below)" (mapconcat #'(lambda (x) - (format "?%c" (logand (car x) #x7ffff))) + (format "?%c" (glyph-char (car x)))) disp-vector " "))) (composition (let ((from (car composition)) @@ -627,25 +627,19 @@ as well as widgets, buttons, overlays, and text properties." (progn (insert "these fonts (glyph codes):\n") (dotimes (i (length disp-vector)) - (insert (logand (car (aref disp-vector i)) #x7ffff) ?: + (insert (glyph-char (car (aref disp-vector i))) ?: (propertize " " 'display '(space :align-to 5)) (if (cdr (aref disp-vector i)) (format "%s (#x%02X)" (cadr (aref disp-vector i)) (cddr (aref disp-vector i))) "-- no font --") "\n") - (when (> (car (aref disp-vector i)) #x7ffff) - (let* ((face-id (lsh (car (aref disp-vector i)) -19)) - (face (car (delq nil (mapcar - (lambda (face) - (and (eq (face-id face) - face-id) face)) - (face-list)))))) - (when face - (insert (propertize " " 'display '(space :align-to 5)) - "face: ") - (insert (concat "`" (symbol-name face) "'")) - (insert "\n")))))) + (let ((face (glyph-face (car (aref disp-vector i))))) + (when face + (insert (propertize " " 'display '(space :align-to 5)) + "face: ") + (insert (concat "`" (symbol-name face) "'")) + (insert "\n"))))) (insert "these terminal codes:\n") (dotimes (i (length disp-vector)) (insert (car (aref disp-vector i)) diff --git a/lisp/diff-mode.el b/lisp/diff-mode.el index edf7317f2b..c4fac402db 100644 --- a/lisp/diff-mode.el +++ b/lisp/diff-mode.el @@ -1115,7 +1115,7 @@ Only works for unified diffs." ;; A context diff. ((eq (char-after) ?*) - (if (not (looking-at "\\*\\{15\\}\n\\*\\*\\* \\([0-9]+\\),\\([0-9]+\\) \\*\\*\\*\\*$")) + (if (not (looking-at "\\*\\{15\\}\\(?: .*\\)?\n\\*\\*\\* \\([0-9]+\\),\\([0-9]+\\) \\*\\*\\*\\*")) (error "Unrecognized context diff first hunk header format") (forward-line 2) (diff-sanity-check-context-hunk-half @@ -1131,7 +1131,7 @@ Only works for unified diffs." ;; A unified diff. ((eq (char-after) ?@) (if (not (looking-at - "@@ -[0-9]+,\\([0-9]+\\) \\+[0-9]+,\\([0-9]+\\) @@$")) + "@@ -[0-9]+,\\([0-9]+\\) \\+[0-9]+,\\([0-9]+\\) @@")) (error "Unrecognized unified diff hunk header format") (let ((before (string-to-number (match-string 1))) (after (string-to-number (match-string 2)))) diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index 6018d88219..4bad556e01 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el @@ -1583,7 +1583,9 @@ When operating on multiple or marked files, you specify a directory and new symbolic links are made in that directory with the same names that the files currently have. The default suggested for the target directory depends on the value of -`dired-dwim-target', which see." +`dired-dwim-target', which see. + +For relative symlinks, use \\[dired-do-relsymlink]." (interactive "P") (dired-do-create-files 'symlink (function make-symbolic-link) "Symlink" arg dired-keep-marker-symlink)) diff --git a/lisp/dired-x.el b/lisp/dired-x.el index ef4affcfe3..1a1cdd5a54 100644 --- a/lisp/dired-x.el +++ b/lisp/dired-x.el @@ -1297,6 +1297,7 @@ results in ; (trailing slash!) name2 ok-if-already-exists))) +;;;###autoload (defun dired-do-relsymlink (&optional arg) "Relative symlink all marked (or next ARG) files into a directory. Otherwise make a relative symbolic link to the current file. @@ -1306,7 +1307,9 @@ This creates relative symbolic links like not absolute ones like - foo -> /ugly/file/name/that/may/change/any/day/bar/foo" + foo -> /ugly/file/name/that/may/change/any/day/bar/foo + +For absolute symlinks, use \\[dired-do-symlink]." (interactive "P") (dired-do-create-files 'relsymlink (function dired-make-relative-symlink) "RelSymLink" arg dired-keep-marker-relsymlink)) diff --git a/lisp/disp-table.el b/lisp/disp-table.el index fa98086b0b..2a4dd01897 100644 --- a/lisp/disp-table.el +++ b/lisp/disp-table.el @@ -172,7 +172,7 @@ X frame." (aset standard-display-table c (vector (if window-system - (logior uc (lsh (face-id 'underline) 19)) + (make-glyph-code uc 'underline) (create-glyph (concat "\e[4m" (char-to-string uc) "\e[m")))))) ;;;###autoload @@ -187,6 +187,30 @@ X frame." (1- (length glyph-table))) ;;;###autoload +(defun make-glyph-code (char &optional face) + "Return a glyph code representing char CHAR with face FACE." + ;; Due to limitations on Emacs integer values, faces with + ;; face id greater that 4091 are silently ignored. + (if (and face (<= (face-id face) #xfff)) + (logior char (lsh (face-id face) 19)) + char)) + +;;;###autoload +(defun glyph-char (glyph) + "Return the character of glyph code GLYPH." + (logand glyph #x7ffff)) + +;;;###autoload +(defun glyph-face (glyph) + "Return the face of glyph code GLYPH, or nil if glyph has default face." + (let ((face-id (lsh glyph -19))) + (and (> face-id 0) + (car (delq nil (mapcar (lambda (face) + (and (eq (get face 'face) face-id) + face)) + (face-list))))))) + +;;;###autoload (defun standard-display-european (arg) "Semi-obsolete way to toggle display of ISO 8859 European characters. diff --git a/lisp/ehelp.el b/lisp/ehelp.el index 9b35298c29..80242ff2b0 100644 --- a/lisp/ehelp.el +++ b/lisp/ehelp.el @@ -113,7 +113,6 @@ ;;;###autoload (defun with-electric-help (thunk &optional buffer noerase minheight) "Pop up an \"electric\" help buffer. -The arguments are THUNK &optional BUFFER NOERASE MINHEIGHT. THUNK is a function of no arguments which is called to initialize the contents of BUFFER. BUFFER defaults to `*Help*'. BUFFER will be erased before THUNK is called unless NOERASE is non-nil. THUNK will @@ -125,7 +124,7 @@ shrink the window to fit. If THUNK returns non-nil, we don't do those things. After THUNK has been called, this function \"electrically\" pops up a window in which BUFFER is displayed and allows the user to scroll through that buffer -in electric-help-mode. The window's height will be at least MINHEIGHT if +in `electric-help-mode'. The window's height will be at least MINHEIGHT if this value is non-nil. If THUNK returns nil, we display BUFFER starting at the top, and @@ -134,7 +133,7 @@ If THUNK returns non-nil, we don't do those things. When the user exits (with `electric-help-exit', or otherwise), the help buffer's window disappears (i.e., we use `save-window-excursion'), and -BUFFER is put into `default-major-mode' (or `fundamental-mode') when we exit." +BUFFER is put into `default-major-mode' (or `fundamental-mode')." (setq buffer (get-buffer-create (or buffer "*Help*"))) (let ((one (one-window-p t)) (config (current-window-configuration)) @@ -246,7 +245,7 @@ BUFFER is put into `default-major-mode' (or `fundamental-mode') when we exit." ; (scroll-up arg))) (defun electric-help-exit () - "Exit `electric-help', restoring the previous window/buffer configuration. + "Exit `with-electric-help', restoring the previous window/buffer configuration. \(The *Help* buffer will be buried.)" (interactive) ;; Make sure that we don't throw twice, even if two events cause @@ -257,7 +256,7 @@ BUFFER is put into `default-major-mode' (or `fundamental-mode') when we exit." (throw 'exit t)))) (defun electric-help-retain () - "Exit `electric-help', retaining the current window/buffer configuration. + "Exit `with-electric-help', retaining the current window/buffer configuration. \(The *Help* buffer will not be selected, but \\[switch-to-buffer-other-window] RET will select it.)" (interactive) diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el index e6822d90ee..5e37e27563 100644 --- a/lisp/emacs-lisp/autoload.el +++ b/lisp/emacs-lisp/autoload.el @@ -73,6 +73,7 @@ or macro definition or a defcustom)." (cond ;; For complex cases, try again on the macro-expansion. ((and (memq car '(easy-mmode-define-global-mode define-global-minor-mode + define-globalized-minor-mode easy-mmode-define-minor-mode define-minor-mode)) (setq expand (let ((load-file-name file)) (macroexpand form))) (eq (car expand) 'progn) @@ -88,6 +89,7 @@ or macro definition or a defcustom)." ((memq car '(defun define-skeleton defmacro define-derived-mode define-compilation-mode define-generic-mode easy-mmode-define-global-mode define-global-minor-mode + define-globalized-minor-mode easy-mmode-define-minor-mode define-minor-mode defun* defmacro*)) (let* ((macrop (memq car '(defmacro defmacro*))) @@ -110,6 +112,7 @@ or macro definition or a defcustom)." define-generic-mode easy-mmode-define-global-mode define-global-minor-mode + define-globalized-minor-mode easy-mmode-define-minor-mode define-minor-mode)) t) (eq (car-safe (car body)) 'interactive)) diff --git a/lisp/emacs-lisp/bindat.el b/lisp/emacs-lisp/bindat.el index c58c286ef7..1e49169743 100644 --- a/lisp/emacs-lisp/bindat.el +++ b/lisp/emacs-lisp/bindat.el @@ -147,7 +147,7 @@ ;; | u16r | u24r | u32r -- little endian byte order. ;; | str LEN -- LEN byte string ;; | strz LEN -- LEN byte (zero-terminated) string -;; | vec LEN -- LEN byte vector +;; | vec LEN [TYPE] -- vector of LEN items of TYPE (default: u8) ;; | ip -- 4 byte vector ;; | bits LEN -- List with bits set in LEN bytes. ;; @@ -207,30 +207,24 @@ (setq bindat-idx (1+ bindat-idx)))) (defun bindat--unpack-u16 () - (let* ((a (bindat--unpack-u8)) (b (bindat--unpack-u8))) - (logior (lsh a 8) b))) + (logior (lsh (bindat--unpack-u8) 8) (bindat--unpack-u8))) (defun bindat--unpack-u24 () - (let* ((a (bindat--unpack-u16)) (b (bindat--unpack-u8))) - (logior (lsh a 8) b))) + (logior (lsh (bindat--unpack-u16) 8) (bindat--unpack-u8))) (defun bindat--unpack-u32 () - (let* ((a (bindat--unpack-u16)) (b (bindat--unpack-u16))) - (logior (lsh a 16) b))) + (logior (lsh (bindat--unpack-u16) 16) (bindat--unpack-u16))) (defun bindat--unpack-u16r () - (let* ((a (bindat--unpack-u8)) (b (bindat--unpack-u8))) - (logior a (lsh b 8)))) + (logior (bindat--unpack-u8) (lsh (bindat--unpack-u8) 8))) (defun bindat--unpack-u24r () - (let* ((a (bindat--unpack-u16r)) (b (bindat--unpack-u8))) - (logior a (lsh b 16)))) + (logior (bindat--unpack-u16r) (lsh (bindat--unpack-u8) 16))) (defun bindat--unpack-u32r () - (let* ((a (bindat--unpack-u16r)) (b (bindat--unpack-u16r))) - (logior a (lsh b 16)))) + (logior (bindat--unpack-u16r) (lsh (bindat--unpack-u16r) 16))) -(defun bindat--unpack-item (type len) +(defun bindat--unpack-item (type len &optional vectype) (if (eq type 'ip) (setq type 'vec len 4)) (cond @@ -274,9 +268,14 @@ (if (stringp s) s (string-make-unibyte (concat s))))) ((eq type 'vec) - (let ((v (make-vector len 0)) (i 0)) + (let ((v (make-vector len 0)) (i 0) (vlen 1)) + (if (consp vectype) + (setq vlen (nth 1 vectype) + vectype (nth 2 vectype)) + (setq type (or vectype 'u8) + vectype nil)) (while (< i len) - (aset v i (bindat--unpack-u8)) + (aset v i (bindat--unpack-item type vlen vectype)) (setq i (1+ i))) v)) (t nil))) @@ -288,6 +287,7 @@ (field (car item)) (type (nth 1 item)) (len (nth 2 item)) + (vectype (and (eq type 'vec) (nth 3 item))) (tail 3) data) (setq spec (cdr spec)) @@ -335,7 +335,7 @@ (setq data (bindat--unpack-group (cdr case)) cases nil))))) (t - (setq data (bindat--unpack-item type len) + (setq data (bindat--unpack-item type len vectype) last data))) (if data (if field @@ -384,6 +384,7 @@ e.g. corresponding to STRUCT.FIELD1[INDEX2].FIELD3..." (field (car item)) (type (nth 1 item)) (len (nth 2 item)) + (vectype (and (eq type 'vec) (nth 3 item))) (tail 3)) (setq spec (cdr spec)) (if (and (consp field) (eq (car field) 'eval)) @@ -401,6 +402,13 @@ e.g. corresponding to STRUCT.FIELD1[INDEX2].FIELD3..." (setq len (apply 'bindat-get-field struct len))) (if (not len) (setq len 1)) + (while (eq type 'vec) + (let ((vlen 1)) + (if (consp vectype) + (setq len (* len (nth 1 vectype)) + type (nth 2 vectype)) + (setq type (or vectype 'u8) + vectype nil)))) (cond ((eq type 'eval) (if field @@ -434,7 +442,7 @@ e.g. corresponding to STRUCT.FIELD1[INDEX2].FIELD3..." (setq cases nil)))))) (t (if (setq type (assq type bindat--fixed-length-alist)) - (setq len (cdr type))) + (setq len (* len (cdr type)))) (if field (setq last (bindat-get-field struct field))) (setq bindat-idx (+ bindat-idx len)))))))) @@ -478,7 +486,7 @@ e.g. corresponding to STRUCT.FIELD1[INDEX2].FIELD3..." (bindat--pack-u16r v) (bindat--pack-u16r (lsh v -16))) -(defun bindat--pack-item (v type len) +(defun bindat--pack-item (v type len &optional vectype) (if (eq type 'ip) (setq type 'vec len 4)) (cond @@ -511,13 +519,24 @@ e.g. corresponding to STRUCT.FIELD1[INDEX2].FIELD3..." (setq bnum (1- bnum) j (lsh j -1)))) (bindat--pack-u8 m)))) - ((memq type '(str strz vec)) + ((memq type '(str strz)) (let ((l (length v)) (i 0)) (if (> l len) (setq l len)) (while (< i l) (aset bindat-raw (+ bindat-idx i) (aref v i)) (setq i (1+ i))) (setq bindat-idx (+ bindat-idx len)))) + ((eq type 'vec) + (let ((l (length v)) (i 0) (vlen 1)) + (if (consp vectype) + (setq vlen (nth 1 vectype) + vectype (nth 2 vectype)) + (setq type (or vectype 'u8) + vectype nil)) + (if (> l len) (setq l len)) + (while (< i l) + (bindat--pack-item (aref v i) type vlen vectype) + (setq i (1+ i))))) (t (setq bindat-idx (+ bindat-idx len))))) @@ -528,6 +547,7 @@ e.g. corresponding to STRUCT.FIELD1[INDEX2].FIELD3..." (field (car item)) (type (nth 1 item)) (len (nth 2 item)) + (vectype (and (eq type 'vec) (nth 3 item))) (tail 3)) (setq spec (cdr spec)) (if (and (consp field) (eq (car field) 'eval)) @@ -578,7 +598,7 @@ e.g. corresponding to STRUCT.FIELD1[INDEX2].FIELD3..." (setq cases nil)))))) (t (setq last (bindat-get-field struct field)) - (bindat--pack-item last type len) + (bindat--pack-item last type len vectype) )))))) (defun bindat-pack (spec struct &optional bindat-raw bindat-idx) diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 4b31a0e694..1d7cbfc422 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -219,7 +219,9 @@ if you change this variable." ;; The user may want to redefine this along with emacs-lisp-file-regexp, ;; so only define it if it is undefined. (defun byte-compile-dest-file (filename) - "Convert an Emacs Lisp source file name to a compiled file name." + "Convert an Emacs Lisp source file name to a compiled file name. +If FILENAME matches `emacs-lisp-file-regexp' (by default, files +with the extension `.el'), add `c' to it; otherwise add `.elc'." (setq filename (byte-compiler-base-file-name filename)) (setq filename (file-name-sans-versions filename)) (cond ((eq system-type 'vax-vms) @@ -296,6 +298,10 @@ When this option is true, if you load the compiled file and then move it, the functions you loaded will not be able to run.") ;;;###autoload(put 'byte-compile-dynamic 'safe-local-variable 'booleanp) +(defvar byte-compile-disable-print-circle nil + "If non-nil, disable `print-circle' on printing a byte-compiled code.") +;;;###autoload(put 'byte-compile-disable-print-circle 'safe-local-variable 'booleanp) + (defcustom byte-compile-dynamic-docstrings t "*If non-nil, compile doc strings for lazy access. We bury the doc strings of functions and variables @@ -1611,7 +1617,8 @@ This is normally set in local file variables at the end of the elisp file: ;;;###autoload (defun byte-compile-file (filename &optional load) "Compile a file of Lisp code named FILENAME into a file of byte code. -The output file's name is made by appending `c' to the end of FILENAME. +The output file's name is generated by passing FILENAME to the +`byte-compile-dest-file' function (which see). With prefix arg (noninteractively: 2nd arg), LOAD the file after compiling. The value is non-nil if there were no errors, nil if errors." ;; (interactive "fByte compile file: \nP") @@ -2003,7 +2010,8 @@ With argument, insert value in current buffer after the form." (print-level nil) (print-quoted t) (print-gensym t) - (print-circle t)) ; handle circular data structures + (print-circle ; handle circular data structures + (not byte-compile-disable-print-circle))) (princ "\n" outbuffer) (prin1 form outbuffer) nil))) @@ -2060,7 +2068,8 @@ list that represents a doc string reference. ;; print-gensym-alist not to be cleared ;; between calls to print functions. (print-gensym '(t)) - (print-circle t) ; handle circular data structures + (print-circle ; handle circular data structures + (not byte-compile-disable-print-circle)) print-gensym-alist ; was used before print-circle existed. (print-continuous-numbering t) print-number-table diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el index 7c6a26e59d..8b8dc6ba09 100644 --- a/lisp/emacs-lisp/easy-mmode.el +++ b/lisp/emacs-lisp/easy-mmode.el @@ -271,9 +271,11 @@ With zero or negative ARG turn mode off. ;;; ;;;###autoload -(defalias 'easy-mmode-define-global-mode 'define-global-minor-mode) +(defalias 'easy-mmode-define-global-mode 'define-globalized-minor-mode) ;;;###autoload -(defmacro define-global-minor-mode (global-mode mode turn-on &rest keys) +(defalias 'define-global-minor-mode 'define-globalized-minor-mode) +;;;###autoload +(defmacro define-globalized-minor-mode (global-mode mode turn-on &rest keys) "Make a global mode GLOBAL-MODE corresponding to buffer-local minor MODE. TURN-ON is a function that will be called with no args in every buffer and that should try to turn MODE on if applicable for that buffer. @@ -283,7 +285,7 @@ KEYS is a list of CL-style keyword arguments. As the minor mode which see. In particular, :group specifies the custom group. The most useful keywords are those that are passed on to the `defcustom'. It normally makes no sense to pass the :lighter - or :keymap keywords to `define-global-minor-mode', since these + or :keymap keywords to `define-globalized-minor-mode', since these are usually passed to the buffer-local version of the minor mode. If MODE's set-up depends on the major mode in effect when it was @@ -348,7 +350,7 @@ in which `%s' turns it on." (with-current-buffer buf (if ,global-mode (,turn-on) (when ,mode (,mode -1)))))) - ;; Autoloading define-global-minor-mode autoloads everything + ;; Autoloading define-globalized-minor-mode autoloads everything ;; up-to-here. :autoload-end diff --git a/lisp/emacs-lisp/float-sup.el b/lisp/emacs-lisp/float-sup.el index 6f24e9bb74..68326c1bc0 100644 --- a/lisp/emacs-lisp/float-sup.el +++ b/lisp/emacs-lisp/float-sup.el @@ -37,14 +37,11 @@ ;; provide an easy hook to tell if we are running with floats or not. ;; define pi and e via math-lib calls. (much less prone to killer typos.) (defconst pi (* 4 (atan 1)) "The value of Pi (3.1415926...).") + ;; It's too inconvenient to make `e' a constant because it's used as ;; a temporary variable all the time. (defvar e (exp 1) "The value of e (2.7182818...).") -;; Careful when editing this file ... typos here will be hard to spot. -;; (defconst pi 3.14159265358979323846264338327 -;; "The value of Pi (3.14159265358979323846264338327...)") - (defconst degrees-to-radians (/ pi 180.0) "Degrees to radian conversion constant.") (defconst radians-to-degrees (/ 180.0 pi) diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index 5aa656bd2b..5576a4882b 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el @@ -97,6 +97,7 @@ '("defun" "defun*" "defsubst" "defmacro" "defadvice" "define-skeleton" "define-minor-mode" "define-global-minor-mode" + "define-globalized-minor-mode" "define-derived-mode" "define-generic-mode" "define-compiler-macro" "define-modify-macro" "defsetf" "define-setf-expander" @@ -143,6 +144,7 @@ (put 'define-minor-mode 'doc-string-elt 2) (put 'easy-mmode-define-global-mode 'doc-string-elt 2) (put 'define-global-minor-mode 'doc-string-elt 2) +(put 'define-globalized-minor-mode 'doc-string-elt 2) (put 'define-generic-mode 'doc-string-elt 7) (put 'define-ibuffer-filter 'doc-string-elt 2) (put 'define-ibuffer-op 'doc-string-elt 3) @@ -907,6 +909,24 @@ is the buffer position of the start of the containing expression." (cond ((elt state 3) ;; Inside a string, don't change indentation. nil) + ((save-excursion + ;; test whether current line begins with a constant + (goto-char indent-point) + (skip-chars-forward " \t") + (looking-at ":")) + (let ((desired-indent + (save-excursion + (goto-char (1+ containing-sexp)) + (parse-partial-sexp (point) calculate-lisp-indent-last-sexp 0 t) + (point))) + (parse-sexp-ignore-comments t)) + ;; Align a constant symbol under the last constant symbol + (goto-char calculate-lisp-indent-last-sexp) + (while (> (point) desired-indent) + (if (looking-at ":") + (setq desired-indent (point)) + (backward-sexp 1)))) + (current-column)) ((and (integerp lisp-indent-offset) containing-sexp) ;; Indent by constant offset (goto-char containing-sexp) @@ -1128,19 +1148,25 @@ ENDPOS is encountered." (make-list (- next-depth) nil)) last-depth (- last-depth next-depth) next-depth 0))) - (or outer-loop-done endpos - (setq outer-loop-done (<= next-depth 0))) - (if outer-loop-done - (forward-line 1) + (forward-line 1) + ;; Decide whether to exit. + (if endpos + ;; If we have already reached the specified end, + ;; give up and do not reindent this line. + (if (<= endpos (point)) + (setq outer-loop-done t)) + ;; If no specified end, we are done if we have finished one sexp. + (if (<= next-depth 0) + (setq outer-loop-done t))) + (unless outer-loop-done (while (> last-depth next-depth) (setq indent-stack (cdr indent-stack) last-depth (1- last-depth))) (while (< last-depth next-depth) (setq indent-stack (cons nil indent-stack) last-depth (1+ last-depth))) - ;; Now go to the next line and indent it according + ;; Now indent the next line according ;; to what we learned from parsing the previous one. - (forward-line 1) (setq bol (point)) (skip-chars-forward " \t") ;; But not if the line is blank, or just a comment diff --git a/lisp/emacs-lisp/shadow.el b/lisp/emacs-lisp/shadow.el index 827ee9c4e6..03c3c94b54 100644 --- a/lisp/emacs-lisp/shadow.el +++ b/lisp/emacs-lisp/shadow.el @@ -93,7 +93,7 @@ See the documentation for `list-load-path-shadows' for further information." (setq dir (directory-file-name (file-truename (or (car path) ".")))) (if (member dir true-names) ;; We have already considered this PATH redundant directory. - ;; Show the redundancy if we are interactiver, unless the PATH + ;; Show the redundancy if we are interactive, unless the PATH ;; dir is nil or "." (these redundant directories are just a ;; result of the current working directory, and are therefore ;; not always redundant). @@ -170,8 +170,8 @@ See the documentation for `list-load-path-shadows' for further information." (defun list-load-path-shadows () "Display a list of Emacs Lisp files that shadow other files. -This function lists potential load-path problems. Directories in the -`load-path' variable are searched, in order, for Emacs Lisp +This function lists potential load path problems. Directories in +the `load-path' variable are searched, in order, for Emacs Lisp files. When a previously encountered file name is found again, a message is displayed indicating that the later file is \"hidden\" by the earlier. diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog index f47e7d798c..62e7eaa21f 100644 --- a/lisp/erc/ChangeLog +++ b/lisp/erc/ChangeLog @@ -1343,8 +1343,23 @@ See ChangeLog.05 for earlier changes. Copyright (C) 2006, 2007 Free Software Foundation, Inc. - Copying and distribution of this file, with or without modification, - are permitted provided the copyright notice and this notice are preserved. + + This file is part of GNU Emacs. + + GNU Emacs is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2, or (at your option) + any later version. + + GNU Emacs is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with GNU Emacs; see the file COPYING. If not, write to the + Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, + Boston, MA 02110-1301, USA. ;; Local Variables: ;; coding: utf-8 diff --git a/lisp/erc/ChangeLog.01 b/lisp/erc/ChangeLog.01 index fd0be8bbb8..5137366990 100644 --- a/lisp/erc/ChangeLog.01 +++ b/lisp/erc/ChangeLog.01 @@ -1036,8 +1036,23 @@ * erc-speak.el, erc.el: New file. Copyright (C) 2001, 2006, 2007 Free Software Foundation, Inc. - Copying and distribution of this file, with or without modification, - are permitted provided the copyright notice and this notice are preserved. + + This file is part of GNU Emacs. + + GNU Emacs is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2, or (at your option) + any later version. + + GNU Emacs is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with GNU Emacs; see the file COPYING. If not, write to the + Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, + Boston, MA 02110-1301, USA. ;; Local Variables: ;; coding: utf-8 diff --git a/lisp/erc/ChangeLog.02 b/lisp/erc/ChangeLog.02 index eaa94c1c1e..811199b8e3 100644 --- a/lisp/erc/ChangeLog.02 +++ b/lisp/erc/ChangeLog.02 @@ -2597,8 +2597,23 @@ See ChangeLog.01 for earlier changes. Copyright (C) 2002, 2006, 2007 Free Software Foundation, Inc. - Copying and distribution of this file, with or without modification, - are permitted provided the copyright notice and this notice are preserved. + + This file is part of GNU Emacs. + + GNU Emacs is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2, or (at your option) + any later version. + + GNU Emacs is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with GNU Emacs; see the file COPYING. If not, write to the + Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, + Boston, MA 02110-1301, USA. ;; Local Variables: ;; coding: utf-8 diff --git a/lisp/erc/ChangeLog.03 b/lisp/erc/ChangeLog.03 index ed3b4e24b7..be68faf255 100644 --- a/lisp/erc/ChangeLog.03 +++ b/lisp/erc/ChangeLog.03 @@ -2141,8 +2141,23 @@ See ChangeLog.02 for earlier changes. Copyright (C) 2003, 2006, 2007 Free Software Foundation, Inc. - Copying and distribution of this file, with or without modification, - are permitted provided the copyright notice and this notice are preserved. + + This file is part of GNU Emacs. + + GNU Emacs is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2, or (at your option) + any later version. + + GNU Emacs is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with GNU Emacs; see the file COPYING. If not, write to the + Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, + Boston, MA 02110-1301, USA. ;; Local Variables: ;; coding: utf-8 diff --git a/lisp/erc/ChangeLog.04 b/lisp/erc/ChangeLog.04 index 61af66db2a..b8cb429878 100644 --- a/lisp/erc/ChangeLog.04 +++ b/lisp/erc/ChangeLog.04 @@ -2070,8 +2070,23 @@ See ChangeLog.03 for earlier changes. Copyright (C) 2004, 2006, 2007 Free Software Foundation, Inc. - Copying and distribution of this file, with or without modification, - are permitted provided the copyright notice and this notice are preserved. + + This file is part of GNU Emacs. + + GNU Emacs is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2, or (at your option) + any later version. + + GNU Emacs is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with GNU Emacs; see the file COPYING. If not, write to the + Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, + Boston, MA 02110-1301, USA. ;; Local Variables: ;; coding: utf-8 diff --git a/lisp/erc/ChangeLog.05 b/lisp/erc/ChangeLog.05 index 6f3207bb47..12a51bb44e 100644 --- a/lisp/erc/ChangeLog.05 +++ b/lisp/erc/ChangeLog.05 @@ -1218,8 +1218,23 @@ See ChangeLog.04 for earlier changes. Copyright (C) 2005, 2006, 2007 Free Software Foundation, Inc. - Copying and distribution of this file, with or without modification, - are permitted provided the copyright notice and this notice are preserved. + + This file is part of GNU Emacs. + + GNU Emacs is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2, or (at your option) + any later version. + + GNU Emacs is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with GNU Emacs; see the file COPYING. If not, write to the + Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, + Boston, MA 02110-1301, USA. ;; Local Variables: ;; coding: utf-8 diff --git a/lisp/eshell/esh-cmd.el b/lisp/eshell/esh-cmd.el index cc81865057..2b48bad016 100644 --- a/lisp/eshell/esh-cmd.el +++ b/lisp/eshell/esh-cmd.el @@ -497,7 +497,7 @@ the second is ignored." (defun eshell-rewrite-for-command (terms) "Rewrite a `for' command into its equivalent Eshell command form. Because the implementation of `for' relies upon conditional evaluation -of its argumbent (i.e., use of a Lisp special form), it must be +of its argument (i.e., use of a Lisp special form), it must be implemented via rewriting, rather than as a function." (if (and (stringp (car terms)) (string= (car terms) "for") diff --git a/lisp/faces.el b/lisp/faces.el index 29f2729094..4c058ba1fd 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -181,20 +181,16 @@ to NEW-FACE on frame NEW-FRAME." (defun internal-find-face (name &optional frame) "Retrieve the face named NAME. Return nil if there is no such face. -If the optional argument FRAME is given, this gets the face NAME for -that frame; otherwise, it uses the selected frame. -If FRAME is the symbol t, then the global, non-frame face is returned. -If NAME is already a face, it is simply returned." +If NAME is already a face, it is simply returned. +The optional argument FRAME is ignored." (facep name)) (make-obsolete 'internal-find-face 'facep "21.1") (defun internal-get-face (name &optional frame) "Retrieve the face named NAME; error if there is none. -If the optional argument FRAME is given, this gets the face NAME for -that frame; otherwise, it uses the selected frame. -If FRAME is the symbol t, then the global, non-frame face is returned. -If NAME is already a face, it is simply returned." +If NAME is already a face, it is simply returned. +The optional argument FRAME is ignored." (or (facep name) (check-face name))) (make-obsolete 'internal-get-face "see `facep' and `check-face'." "21.1") @@ -248,8 +244,8 @@ If FRAME is t, report on the defaults for face FACE (for new frames). If FRAME is omitted or nil, use the selected frame." (let ((attrs '(:family :width :height :weight :slant :foreground - :foreground :background :underline :overline - :strike-through :box :inverse-video)) + :background :underline :overline :strike-through + :box :inverse-video)) (differs nil)) (while (and attrs (not differs)) (let* ((attr (pop attrs)) @@ -780,7 +776,7 @@ and DATA is a string, containing the raw bits of the bitmap." (set-face-attribute face frame :stipple (or stipple 'unspecified))) -(defun set-face-underline-p (face underline-p &optional frame) +(defun set-face-underline-p (face underline &optional frame) "Specify whether face FACE is underlined. UNDERLINE nil means FACE explicitly doesn't underline. UNDERLINE non-nil means FACE explicitly does underlining @@ -791,7 +787,7 @@ Use `set-face-attribute' to ``unspecify'' underlining." (interactive (let ((list (read-face-and-attribute :underline))) (list (car list) (eq (car (cdr list)) t)))) - (set-face-attribute face frame :underline underline-p)) + (set-face-attribute face frame :underline underline)) (define-obsolete-function-alias 'set-face-underline 'set-face-underline-p "22.1") @@ -948,7 +944,7 @@ an integer value." (nconc (mapcar #'(lambda (x) (cons (symbol-name x) x)) (internal-lisp-face-attribute-values attribute)) (mapcar #'(lambda (c) (cons c c)) - (x-defined-colors frame))) + (defined-colors frame))) (mapcar #'(lambda (x) (cons (symbol-name x) x)) (internal-lisp-face-attribute-values attribute)))) ((:foreground :background) @@ -1115,7 +1111,7 @@ Value is a property list of attribute names and new values." result)))))) (defun modify-face (&optional face foreground background stipple - bold-p italic-p underline-p inverse-p frame) + bold-p italic-p underline inverse-p frame) "Modify attributes of faces interactively. If optional argument FRAME is nil or omitted, modify the face used for newly created frame, i.e. the global face. @@ -1130,7 +1126,7 @@ and the face and its settings are obtained by querying the user." :stipple stipple :bold bold-p :italic italic-p - :underline underline-p + :underline underline :inverse-video inverse-p) (setq face (read-face-name "Modify face")) (apply #'set-face-attribute face frame @@ -1540,8 +1536,9 @@ If COLOR is the symbol `unspecified' or one of the strings (defun color-values (color &optional frame) "Return a description of the color named COLOR on frame FRAME. -The value is a list of integer RGB values--\(RED GREEN BLUE\). -These values appear to range from 0 65535; white is \(65535 65535 65535\). +The value is a list of integer RGB values--(RED GREEN BLUE). +These values appear to range from 0 to 65280 or 65535, depending +on the system; white is \(65280 65280 65280\) or \(65535 65535 65535\). If FRAME is omitted or nil, use the selected frame. If FRAME cannot display COLOR, the value is nil. If COLOR is the symbol `unspecified' or one of the strings @@ -1626,17 +1623,17 @@ according to the `background-mode' and `display-type' frame parameters." tty-type)) 'dark 'light)) - ((>= (apply '+ (x-color-values bg-color frame)) + ((>= (apply '+ (color-values bg-color frame)) ;; Just looking at the screen, colors whose ;; values add up to .6 of the white total ;; still look dark to me. - (* (apply '+ (x-color-values "white" frame)) .6)) + (* (apply '+ (color-values "white" frame)) .6)) 'light) (t 'dark))) (display-type (cond ((null (window-system frame)) (if (tty-display-color-p frame) 'color 'mono)) - ((x-display-color-p frame) + ((display-color-p frame) 'color) ((x-display-grayscale-p frame) 'grayscale) @@ -1772,35 +1769,48 @@ Initialize colors of certain faces from frame parameters." (face-attribute 'default :weight t)) (set-face-attribute 'default frame :width (face-attribute 'default :width t)))) - (dolist (face (face-list)) - ;; Don't let frame creation fail because of an invalid face spec. - (condition-case () - (when (not (equal face 'default)) - (face-spec-set face (face-user-default-spec face) frame) - (internal-merge-in-global-face face frame) - (when (and (memq (window-system frame) '(x w32 mac)) - (or (not (boundp 'inhibit-default-face-x-resources)) - (not (eq face 'default)))) - (make-face-x-resource-internal face frame))) - (error nil))) - ;; Initialize attributes from frame parameters. - (let ((params '((foreground-color default :foreground) - (background-color default :background) - (border-color border :background) - (cursor-color cursor :background) - (scroll-bar-foreground scroll-bar :foreground) - (scroll-bar-background scroll-bar :background) - (mouse-color mouse :background)))) - (dolist (param params) - (let ((frame-param (frame-parameter frame (nth 0 param))) - (face (nth 1 param)) - (attr (nth 2 param))) - (when (and frame-param - ;; Don't override face attributes explicitly - ;; specified for new frames. - (eq (face-attribute face attr t) 'unspecified)) - (set-face-attribute face frame attr frame-param)))))) - + ;; Find attributes that should be initialized from frame parameters. + (let ((face-params '((foreground-color default :foreground) + (background-color default :background) + (border-color border :background) + (cursor-color cursor :background) + (scroll-bar-foreground scroll-bar :foreground) + (scroll-bar-background scroll-bar :background) + (mouse-color mouse :background))) + apply-params) + (dolist (param face-params) + (let* ((value (frame-parameter frame (nth 0 param))) + (face (nth 1 param)) + (attr (nth 2 param)) + (default-value (face-attribute face attr t))) + ;; Compile a list of face attributes to set, but don't set + ;; them yet. The call to make-face-x-resource-internal, + ;; below, can change frame parameters, and the final set of + ;; frame parameters should be the ones acquired at this step. + (if (eq default-value 'unspecified) + ;; The face spec does not specify a new-frame value for + ;; this attribute. Check if the existing frame parameter + ;; specifies it. + (if value + (push (list face frame attr value) apply-params)) + ;; The face spec specifies a value for this attribute, to be + ;; applied to the face on all new frames. + (push (list face frame attr default-value) apply-params)))) + ;; Initialize faces from face specs and X resources. The + ;; condition-case prevents invalid specs from causing frame + ;; creation to fail. + (dolist (face (delq 'default (face-list))) + (condition-case () + (progn + (face-spec-set face (face-user-default-spec face) frame) + (internal-merge-in-global-face face frame) + (if (memq (window-system frame) '(x w32 mac)) + (make-face-x-resource-internal face frame))) + (error nil))) + ;; Apply the attributes specified by frame parameters. This + ;; rewrites parameters changed by make-face-x-resource-internal + (dolist (param apply-params) + (apply 'set-face-attribute param)))) (defun tty-handle-reverse-video (frame parameters) "Handle the reverse-video frame parameter for terminal frames." diff --git a/lisp/files.el b/lisp/files.el index e32fa42795..3b089c06d9 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -2830,7 +2830,7 @@ It is dangerous if either of these conditions are met: However, the mode will not be changed if \(1) a local variables list or the `-*-' line specifies a major mode, or \(2) the current major mode is a \"special\" mode, -\ not suitable for ordinary files, or +\ not suitable for ordinary files, or \(3) the new file name does not particularly specify any mode." :type 'boolean :group 'editing-basics) @@ -4750,36 +4750,37 @@ preference to the program given by this variable." "Return the amount of free space on directory DIR's file system. The result is a string that gives the number of free 1KB blocks, or nil if the system call or the program which retrieve the information -fail. +fail. It returns also nil when DIR is a remote directory. This function calls `file-system-info' if it is available, or invokes the program specified by `directory-free-space-program' if that is non-nil." - ;; Try to find the number of free blocks. Non-Posix systems don't - ;; always have df, but might have an equivalent system call. - (if (fboundp 'file-system-info) - (let ((fsinfo (file-system-info dir))) - (if fsinfo - (format "%.0f" (/ (nth 2 fsinfo) 1024)))) - (save-match-data - (with-temp-buffer - (when (and directory-free-space-program - (eq 0 (call-process directory-free-space-program - nil t nil - directory-free-space-args - dir))) - ;; Usual format is a header line followed by a line of - ;; numbers. - (goto-char (point-min)) - (forward-line 1) - (if (not (eobp)) - (progn - ;; Move to the end of the "available blocks" number. - (skip-chars-forward "^ \t") - (forward-word 3) - ;; Copy it into AVAILABLE. - (let ((end (point))) - (forward-word -1) - (buffer-substring (point) end))))))))) + (when (not (file-remote-p dir)) + ;; Try to find the number of free blocks. Non-Posix systems don't + ;; always have df, but might have an equivalent system call. + (if (fboundp 'file-system-info) + (let ((fsinfo (file-system-info dir))) + (if fsinfo + (format "%.0f" (/ (nth 2 fsinfo) 1024)))) + (save-match-data + (with-temp-buffer + (when (and directory-free-space-program + (eq 0 (call-process directory-free-space-program + nil t nil + directory-free-space-args + dir))) + ;; Usual format is a header line followed by a line of + ;; numbers. + (goto-char (point-min)) + (forward-line 1) + (if (not (eobp)) + (progn + ;; Move to the end of the "available blocks" number. + (skip-chars-forward "^ \t") + (forward-word 3) + ;; Copy it into AVAILABLE. + (let ((end (point))) + (forward-word -1) + (buffer-substring (point) end)))))))))) ;; The following expression replaces `dired-move-to-filename-regexp'. (defvar directory-listing-before-filename-regexp diff --git a/lisp/font-core.el b/lisp/font-core.el index 8202a82000..da355b8b6a 100644 --- a/lisp/font-core.el +++ b/lisp/font-core.el @@ -291,7 +291,7 @@ means that Font Lock mode is turned on for buffers in C and C++ modes only." (let (inhibit-quit) (turn-on-font-lock)))) -(define-global-minor-mode global-font-lock-mode +(define-globalized-minor-mode global-font-lock-mode font-lock-mode turn-on-font-lock-if-enabled :extra-args (dummy) :initialize 'custom-initialize-safe-default diff --git a/lisp/font-lock.el b/lisp/font-lock.el index a1e103624b..c398ca0a01 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el @@ -1075,22 +1075,25 @@ Put first the functions more likely to cause a change and cheaper to compute.") (setq font-lock-beg (or (previous-single-property-change font-lock-beg 'font-lock-multiline) (point-min)))) - ;; + ;; (when (get-text-property font-lock-end 'font-lock-multiline) (setq changed t) (setq font-lock-end (or (text-property-any font-lock-end (point-max) 'font-lock-multiline nil) (point-max)))) changed)) - - + (defun font-lock-extend-region-wholelines () "Move fontification boundaries to beginning of lines." (let ((changed nil)) (goto-char font-lock-beg) - (unless (bolp) (setq changed t font-lock-beg (line-beginning-position))) + (unless (bolp) + (setq changed t font-lock-beg (line-beginning-position))) (goto-char font-lock-end) - (unless (bolp) (setq changed t font-lock-end (line-beginning-position 2))) + (unless (bolp) + (unless (eq font-lock-end + (setq font-lock-end (line-beginning-position 2))) + (setq changed t))) changed)) (defun font-lock-default-fontify-region (beg end loudly) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 7197ca2705..c6205eac0c 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,31 @@ +2007-02-15 Andreas Seltenreich <[email protected]> + + * nnweb.el (nnweb-google-parse-1): Fix date parsing to also match on + articles posted in the last 24 hours. + +2007-02-14 Chong Yidong <[email protected]> + + * smiley.el (smiley-regexp-alist): Add "dead" smiley. + +2007-02-01 Andreas Seltenreich <[email protected]> + + * nnweb.el (nnweb-google-parse-1): Update parser. + +2007-01-29 Juanma Barranquero <[email protected]> + + * gnus-art.el (gnus-button-prefer-mid-or-mail): Fix typo in docstring. + +2007-01-28 Andreas Seltenreich <[email protected]> + + * nnslashdot.el (nnslashdot-request-article): Update end-of-article + regexp. + +2007-01-24 Katsumi Yamaoka <[email protected]> + + * uudecode.el (uudecode-string-to-multibyte): New function emulating + string-to-multibyte. + (uudecode-decode-region-internal): Use it. + 2007-01-23 Reiner Steib <[email protected]> * gnus-score.el (gnus-home-score-file, gnus-home-adapt-file): Fix @@ -131,7 +159,7 @@ (gnus-sort-threads-recursive): Renamed from gnus-sort-thread-1. (gnus-sort-threads-loop): New function. -2006-12-06 Chris Moore <[email protected]> (tiny change) +2006-12-06 Chris Moore <[email protected]> * gnus-sum.el (gnus-sort-threads, gnus-summary-limit-children): Use `max' to avoid the value of `max-lisp-eval-depth' decreasing. @@ -4715,8 +4743,23 @@ See ChangeLog.2 for earlier changes. Copyright (C) 2004, 2005, 2006, 2007 Free Software Foundation, Inc. - Copying and distribution of this file, with or without modification, - are permitted provided the copyright notice and this notice are preserved. + + This file is part of GNU Emacs. + + GNU Emacs is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2, or (at your option) + any later version. + + GNU Emacs is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with GNU Emacs; see the file COPYING. If not, write to the + Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, + Boston, MA 02110-1301, USA. ;; Local Variables: ;; coding: iso-2022-7bit diff --git a/lisp/gnus/ChangeLog.1 b/lisp/gnus/ChangeLog.1 index e4c39387d3..c6550dfbcf 100644 --- a/lisp/gnus/ChangeLog.1 +++ b/lisp/gnus/ChangeLog.1 @@ -3727,8 +3727,23 @@ Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, - 2005, 2006, 2007 Free Software Foundation, Inc. - Copying and distribution of this file, with or without modification, - are permitted provided the copyright notice and this notice are preserved. + 2005, 2006, 2007 Free Software Foundation, Inc. + + This file is part of GNU Emacs. + + GNU Emacs is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2, or (at your option) + any later version. + + GNU Emacs is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with GNU Emacs; see the file COPYING. If not, write to the + Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, + Boston, MA 02110-1301, USA. ;;; arch-tag: c2f4e9c8-94fb-4c63-bdfd-4ab680cc9db7 diff --git a/lisp/gnus/ChangeLog.2 b/lisp/gnus/ChangeLog.2 index b20dc6646f..69794a18fa 100644 --- a/lisp/gnus/ChangeLog.2 +++ b/lisp/gnus/ChangeLog.2 @@ -18858,9 +18858,24 @@ See ChangeLog.1 for earlier changes. Copyright (C) 2000, 2001, 2002, 2004, 2005, 2006, 2007 - Free Software Foundation, Inc. - Copying and distribution of this file, with or without modification, - are permitted provided the copyright notice and this notice are preserved. + Free Software Foundation, Inc. + + This file is part of GNU Emacs. + + GNU Emacs is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2, or (at your option) + any later version. + + GNU Emacs is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with GNU Emacs; see the file COPYING. If not, write to the + Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, + Boston, MA 02110-1301, USA. ;; Local Variables: ;; coding: iso-2022-7bit diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index e757406f00..c6ac13af6c 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -6238,7 +6238,7 @@ Strings like this can be either a message ID or a mail address. If it is one of the symbols `mid' or `mail', Gnus will always assume that the string is a message ID or a mail address, respectively. If this variable is set to the symbol `ask', always query the user what do do. If it is a function, this -function will be called with the string as it's only argument. The function +function will be called with the string as its only argument. The function must return `mid', `mail', `invalid' or `ask'." :version "22.1" :group 'gnus-article-buttons diff --git a/lisp/gnus/nnslashdot.el b/lisp/gnus/nnslashdot.el index 28fd34b0da..35ce9f385e 100644 --- a/lisp/gnus/nnslashdot.el +++ b/lisp/gnus/nnslashdot.el @@ -259,7 +259,7 @@ (buffer-substring (search-forward "<div class=\"commentBody\">") (progn - (search-forward "<div class=\"commentSub\">") + (search-forward "<div class=\"commentSub\"") (match-beginning 0)))))))) (search-failed (nnslashdot-lose why))) diff --git a/lisp/gnus/nnweb.el b/lisp/gnus/nnweb.el index 088aeee3bd..92d90eb061 100644 --- a/lisp/gnus/nnweb.el +++ b/lisp/gnus/nnweb.el @@ -360,23 +360,24 @@ Valid types include `google', `dejanews', and `gmane'.") (goto-char (point-max)) (widen) (narrow-to-region (point) - (search-forward "</td" nil t)) + (search-forward "</table" nil t)) (mm-url-remove-markup) (mm-url-decode-entities) - (search-backward " - ") - (when (looking-at - "\\W+\\(\\w+\\) \\([0-9]+\\)\\(?: \\([0-9]\\{4\\}\\)\\)?") - (setq Date (format "%s %s 00:00:00 %s" - (match-string 1) - (match-string 2) - (or (match-string 3) - (substring (current-time-string) -4)))) - (goto-char (match-end 0))) - (when (looking-at "[^b]+by\\W+\\([^<\n]+\\)") - (setq From (match-string 1))) + (goto-char (point-max)) + (when + (re-search-backward + "^\\(?:\\(\\w+\\) \\([0-9]+\\)\\|\\S-+\\)\\(?: \\([0-9]\\{4\\}\\)\\)? by \\(.*\\)" + nil t) + (setq Date (if (match-string 1) + (format "%s %s 00:00:00 %s" + (match-string 1) + (match-string 2) + (or (match-string 3) + (substring (current-time-string) -4))) + (current-time-string))) + (setq From (match-string 4))) (widen) - (forward-line 1) (incf i) (unless (nnweb-get-hashtb url) (push diff --git a/lisp/gnus/smiley.el b/lisp/gnus/smiley.el index e74d6ddee6..82813aa9aa 100644 --- a/lisp/gnus/smiley.el +++ b/lisp/gnus/smiley.el @@ -74,6 +74,7 @@ ("\\(:-|\\)\\W" 1 "indifferent") ("\\(:-[/\\]\\)\\W" 1 "wry") ("\\(:-(\\)\\W" 1 "sad") + ("\\(X-)\\)\\W" 1 "dead") ("\\(:-{\\)\\W" 1 "frown")) "*A list of regexps to map smilies to images. The elements are (REGEXP MATCH IMAGE), where MATCH is the submatch in diff --git a/lisp/gnus/uudecode.el b/lisp/gnus/uudecode.el index 41b8c228d1..d0eb8ae3ec 100644 --- a/lisp/gnus/uudecode.el +++ b/lisp/gnus/uudecode.el @@ -128,6 +128,20 @@ used is specified by `uudecode-decoder-program'." (message "Can not uudecode"))) (ignore-errors (or file-name (delete-file tempfile)))))) +(eval-and-compile + (defalias 'uudecode-string-to-multibyte + (cond + ((featurep 'xemacs) + 'identity) + ((fboundp 'string-to-multibyte) + 'string-to-multibyte) + (t + (lambda (string) + "Return a multibyte string with the same individual chars as string." + (mapconcat + (lambda (ch) (string-as-multibyte (char-to-string ch))) + string "")))))) + ;;;###autoload (defun uudecode-decode-region-internal (start end &optional file-name) "Uudecode region between START and END without using an external program. @@ -206,7 +220,7 @@ If FILE-NAME is non-nil, save the result to FILE-NAME." (or (markerp end) (setq end (set-marker (make-marker) end))) (goto-char start) (if enable-multibyte-characters - (mapc #'(lambda (x) (insert (string-to-multibyte x))) + (mapc #'(lambda (x) (insert (uudecode-string-to-multibyte x))) (nreverse result)) (insert (apply 'concat (nreverse result)))) (delete-region (point) end)))))) diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el index 26451faf1c..889b13cfa5 100644 --- a/lisp/hi-lock.el +++ b/lisp/hi-lock.el @@ -347,7 +347,7 @@ versions before 22 use the following in your .emacs file: (remove-hook 'font-lock-mode-hook 'hi-lock-font-lock-hook t))) ;;;###autoload -(define-global-minor-mode global-hi-lock-mode +(define-globalized-minor-mode global-hi-lock-mode hi-lock-mode turn-on-hi-lock-if-enabled :group 'hi-lock) diff --git a/lisp/ido.el b/lisp/ido.el index 10418d209a..ad3f4329e6 100644 --- a/lisp/ido.el +++ b/lisp/ido.el @@ -2403,8 +2403,8 @@ If cursor is not at the end of the user input, move to end of input." (defun ido-set-common-completion () ;; Find common completion of `ido-text' in `ido-matches' ;; The result is stored in `ido-common-match-string' - (let* (val) - (setq ido-common-match-string nil) + (let (val) + (setq ido-common-match-string nil) (if (and ido-matches (not ido-enable-regexp) ;; testing (stringp ido-text) @@ -3939,7 +3939,7 @@ in a separate window. (defun ido-switch-buffer-other-window () "Switch to another buffer and show it in another window. The buffer name is selected interactively by typing a substring. -For details of keybindings, do `\\[describe-function] ido'." +For details of keybindings, see `ido-switch-buffer'." (interactive) (ido-buffer-internal 'other-window 'switch-to-buffer-other-window)) @@ -3947,7 +3947,7 @@ For details of keybindings, do `\\[describe-function] ido'." (defun ido-display-buffer () "Display a buffer in another window but don't select it. The buffer name is selected interactively by typing a substring. -For details of keybindings, do `\\[describe-function] ido'." +For details of keybindings, see `ido-switch-buffer'." (interactive) (ido-buffer-internal 'display 'display-buffer nil nil nil 'ignore)) @@ -3955,7 +3955,7 @@ For details of keybindings, do `\\[describe-function] ido'." (defun ido-kill-buffer () "Kill a buffer. The buffer name is selected interactively by typing a substring. -For details of keybindings, do `\\[describe-function] ido'." +For details of keybindings, see `ido-switch-buffer'." (interactive) (ido-buffer-internal 'kill 'kill-buffer "Kill buffer: " (buffer-name (current-buffer)) nil 'ignore)) @@ -3963,7 +3963,7 @@ For details of keybindings, do `\\[describe-function] ido'." (defun ido-insert-buffer () "Insert contents of a buffer in current buffer after point. The buffer name is selected interactively by typing a substring. -For details of keybindings, do `\\[describe-function] ido'." +For details of keybindings, see `ido-switch-buffer'." (interactive) (ido-buffer-internal 'insert 'insert-buffer "Insert buffer: " nil nil 'ido-enter-insert-file)) @@ -3971,7 +3971,7 @@ For details of keybindings, do `\\[describe-function] ido'." (defun ido-switch-buffer-other-frame () "Switch to another buffer and show it in another frame. The buffer name is selected interactively by typing a substring. -For details of keybindings, do `\\[describe-function] ido'." +For details of keybindings, see `ido-switch-buffer'." (interactive) (if ido-mode (ido-buffer-internal 'other-frame) @@ -4034,7 +4034,7 @@ in a separate window. (defun ido-find-file-other-window () "Switch to another file and show it in another window. The file name is selected interactively by typing a substring. -For details of keybindings, do `\\[describe-function] ido-find-file'." +For details of keybindings, see `ido-find-file'." (interactive) (ido-file-internal 'other-window 'find-file-other-window)) @@ -4042,7 +4042,7 @@ For details of keybindings, do `\\[describe-function] ido-find-file'." (defun ido-find-alternate-file () "Switch to another file and show it in another window. The file name is selected interactively by typing a substring. -For details of keybindings, do `\\[describe-function] ido-find-file'." +For details of keybindings, see `ido-find-file'." (interactive) (ido-file-internal 'alt-file 'find-alternate-file nil "Find alternate file: ")) @@ -4050,7 +4050,7 @@ For details of keybindings, do `\\[describe-function] ido-find-file'." (defun ido-find-file-read-only () "Edit file read-only with name obtained via minibuffer. The file name is selected interactively by typing a substring. -For details of keybindings, do `\\[describe-function] ido-find-file'." +For details of keybindings, see `ido-find-file'." (interactive) (ido-file-internal 'read-only 'find-file-read-only nil "Find file read-only: ")) @@ -4058,7 +4058,7 @@ For details of keybindings, do `\\[describe-function] ido-find-file'." (defun ido-find-file-read-only-other-window () "Edit file read-only in other window with name obtained via minibuffer. The file name is selected interactively by typing a substring. -For details of keybindings, do `\\[describe-function] ido-find-file'." +For details of keybindings, see `ido-find-file'." (interactive) (ido-file-internal 'read-only 'find-file-read-only-other-window nil "Find file read-only other window: ")) @@ -4066,7 +4066,7 @@ For details of keybindings, do `\\[describe-function] ido-find-file'." (defun ido-find-file-read-only-other-frame () "Edit file read-only in other frame with name obtained via minibuffer. The file name is selected interactively by typing a substring. -For details of keybindings, do `\\[describe-function] ido-find-file'." +For details of keybindings, see `ido-find-file'." (interactive) (ido-file-internal 'read-only 'find-file-read-only-other-frame nil "Find file read-only other frame: ")) @@ -4074,7 +4074,7 @@ For details of keybindings, do `\\[describe-function] ido-find-file'." (defun ido-display-file () "Display a file in another window but don't select it. The file name is selected interactively by typing a substring. -For details of keybindings, do `\\[describe-function] ido-find-file'." +For details of keybindings, see `ido-find-file'." (interactive) (ido-file-internal 'display nil nil nil nil nil 'ignore)) @@ -4082,7 +4082,7 @@ For details of keybindings, do `\\[describe-function] ido-find-file'." (defun ido-find-file-other-frame () "Switch to another file and show it in another frame. The file name is selected interactively by typing a substring. -For details of keybindings, do `\\[describe-function] ido-find-file'." +For details of keybindings, see `ido-find-file'." (interactive) (ido-file-internal 'other-frame 'find-file-other-frame)) @@ -4090,7 +4090,7 @@ For details of keybindings, do `\\[describe-function] ido-find-file'." (defun ido-write-file () "Write current buffer to a file. The file name is selected interactively by typing a substring. -For details of keybindings, do `\\[describe-function] ido-find-file'." +For details of keybindings, see `ido-find-file'." (interactive) (let ((ido-process-ignore-lists t) (ido-work-directory-match-only nil) @@ -4104,7 +4104,7 @@ For details of keybindings, do `\\[describe-function] ido-find-file'." (defun ido-insert-file () "Insert contents of file in current buffer. The file name is selected interactively by typing a substring. -For details of keybindings, do `\\[describe-function] ido-find-file'." +For details of keybindings, see `ido-find-file'." (interactive) (ido-file-internal 'insert 'insert-file nil "Insert file: " nil nil 'ido-enter-insert-buffer)) @@ -4112,7 +4112,7 @@ For details of keybindings, do `\\[describe-function] ido-find-file'." (defun ido-dired () "Call `dired' the ido way. The directory is selected interactively by typing a substring. -For details of keybindings, do `\\[describe-function] ido-find-file'." +For details of keybindings, see `ido-find-file'." (interactive) (let ((ido-report-no-match nil) (ido-auto-merge-work-directories-length -1)) @@ -4121,7 +4121,7 @@ For details of keybindings, do `\\[describe-function] ido-find-file'." (defun ido-list-directory () "Call `list-directory' the ido way. The directory is selected interactively by typing a substring. -For details of keybindings, do `\\[describe-function] ido-find-file'." +For details of keybindings, see `ido-find-file'." (interactive) (let ((ido-report-no-match nil) (ido-auto-merge-work-directories-length -1)) diff --git a/lisp/image-mode.el b/lisp/image-mode.el index 5b24aa316d..eb08de1d6b 100644 --- a/lisp/image-mode.el +++ b/lisp/image-mode.el @@ -70,7 +70,7 @@ to toggle between display as an image and display as text." (if (display-images-p) (message "%s" (concat (substitute-command-keys - "Type \\[image-toggle-display] to view the image as ") + "Type \\[image-toggle-display] to view as ") (if (get-text-property (point-min) 'display) "text" "an image") ".")))) @@ -111,7 +111,8 @@ information on these modes." elt)) auto-mode-alist)))) (if (assoc-default buffer-file-name mode-alist 'string-match) - (let ((auto-mode-alist mode-alist)) + (let ((auto-mode-alist mode-alist) + (magic-mode-alist nil)) (set-auto-mode) (image-minor-mode t)) (image-mode)))) diff --git a/lisp/image.el b/lisp/image.el index 22fa704d22..c9269abce3 100644 --- a/lisp/image.el +++ b/lisp/image.el @@ -65,13 +65,16 @@ a non-nil value, TYPE is the image's type.") When the name of an image file match REGEXP, it is assumed to be of image type IMAGE-TYPE.") +;; We rely on `auto-mode-alist' to detect xbm and xpm files, instead +;; of content autodetection. Their contents are just C code, so it is +;; easy to generate false matches. (defvar image-type-auto-detectable '((pbm . t) - (xbm . t) + (xbm . nil) (bmp . maybe) (gif . maybe) (png . maybe) - (xpm . maybe) + (xpm . nil) (jpeg . maybe) (tiff . maybe) (postscript . nil)) @@ -340,15 +343,30 @@ Image types are symbols like `xbm' or `jpeg'." ;;;###autoload (defun image-type-auto-detected-p () "Return t iff the current buffer contains an auto-detectable image. -Whether image types are auto-detectable or not depends on the setting -of the variable `image-type-auto-detectable'. - -This function is intended to be used from `magic-mode-alist' (which see)." +This function is intended to be used from `magic-mode-alist' (which see). + +First, compare the beginning of the buffer with `image-type-header-regexps'. +If an appropriate image type is found, check if that image type can be +autodetected using the variable `image-type-auto-detectable'. Finally, +if `buffer-file-name' is non-nil, check if it matches another major mode +in `auto-mode-alist' apart from `image-mode'; if there is another match, +the autodetection is considered to have failed. Return t if all the above +steps succeed." (let* ((type (image-type-from-buffer)) (auto (and type (cdr (assq type image-type-auto-detectable))))) (and auto - (or (eq auto t) - (image-type-available-p type))))) + (or (eq auto t) (image-type-available-p type)) + (or (null buffer-file-name) + (not (assoc-default + buffer-file-name + (delq nil (mapcar + (lambda (elt) + (unless (memq (or (car-safe (cdr elt)) + (cdr elt)) + '(image-mode image-mode-maybe)) + elt)) + auto-mode-alist)) + 'string-match)))))) ;;;###autoload diff --git a/lisp/info-look.el b/lisp/info-look.el index d7001cc027..a4280e97c9 100644 --- a/lisp/info-look.el +++ b/lisp/info-look.el @@ -353,8 +353,11 @@ If optional argument QUERY is non-nil, query for the help mode." suffix (nth 3 (car doc-spec))) (when (condition-case error-data (progn - (Info-goto-node node) - (setq doc-found t)) + ;; Don't need Index menu fontifications here, and + ;; they slow down the lookup. + (let (Info-fontify-maximum-menu-size) + (Info-goto-node node) + (setq doc-found t))) (error (message "Cannot access Info node %s" node) (sit-for 1) @@ -441,6 +444,7 @@ If optional argument QUERY is non-nil, query for the help mode." (let ((doc-spec (info-lookup->doc-spec topic mode)) (regexp (concat "^\\(" (info-lookup->regexp topic mode) "\\)\\([ \t].*\\)?$")) + Info-fontify-maximum-menu-size node trans entry item prefix result doc-found (buffer (get-buffer-create " temp-info-look"))) (with-current-buffer buffer diff --git a/lisp/info.el b/lisp/info.el index fb124d6ff5..ec2ff23b57 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -146,7 +146,8 @@ The Lisp code is executed when the node is selected.") :group 'info) (defcustom Info-fontify-maximum-menu-size 1000000 - "*Maximum size of menu to fontify if `font-lock-mode' is non-nil." + "*Maximum size of menu to fontify if `font-lock-mode' is non-nil. +Set to nil to disable node fontification." :type 'integer :group 'info) @@ -3705,6 +3706,7 @@ the variable `Info-file-list-for-emacs'." (fontify-visited-p ; visited nodes need to be re-fontified (and Info-fontify-visited-nodes ;; Don't take time to refontify visited nodes in huge nodes + Info-fontify-maximum-menu-size (< (- (point-max) (point-min)) Info-fontify-maximum-menu-size))) rbeg rend) @@ -3940,6 +3942,7 @@ the variable `Info-file-list-for-emacs'." (when (and (or not-fontified-p fontify-visited-p) (search-forward "\n* Menu:" nil t) ;; Don't take time to annotate huge menus + Info-fontify-maximum-menu-size (< (- (point-max) (point)) Info-fontify-maximum-menu-size)) (let ((n 0) cont) diff --git a/lisp/international/characters.el b/lisp/international/characters.el index acc1458ac9..4ac067c2b3 100644 --- a/lisp/international/characters.el +++ b/lisp/international/characters.el @@ -45,7 +45,7 @@ ;; For each character set. -(define-category ?a "ASCII") +(define-category ?a "ASCII graphic characters 32-126 (ISO646 IRV:1983[4/0])") (define-category ?l "Latin") (define-category ?t "Thai") (define-category ?g "Greek") diff --git a/lisp/international/ja-dic-cnv.el b/lisp/international/ja-dic-cnv.el index babfc5bacf..c4475d84c1 100644 --- a/lisp/international/ja-dic-cnv.el +++ b/lisp/international/ja-dic-cnv.el @@ -361,7 +361,7 @@ The name of generated file is specified by the variable `ja-dic-filename'." (erase-buffer) (buffer-disable-undo) (insert ";;; ja-dic.el --- dictionary for Japanese input method" - " -*-coding: iso-2022-jp;-*-\n" + " -*-coding: iso-2022-jp; byte-compile-disable-print-circle:t; -*-\n" ";;\tGenerated by the command `skkdic-convert'\n" ";;\tDate: " (current-time-string) "\n" ";;\tOriginal SKK dictionary file: " diff --git a/lisp/international/latin1-disp.el b/lisp/international/latin1-disp.el index 6b2b6c5076..7a78e6628b 100644 --- a/lisp/international/latin1-disp.el +++ b/lisp/international/latin1-disp.el @@ -177,14 +177,10 @@ asis." (if (eq 'default latin1-display-face) (standard-display-ascii char (format latin1-display-format display)) (aset standard-display-table char - (vconcat (mapcar (lambda (c) - (logior c (lsh (face-id latin1-display-face) - 19))) + (vconcat (mapcar (lambda (c) (make-glyph-code c latin1-display-face)) display)))) (aset standard-display-table char - (if (eq 'default latin1-display-face) - display - (logior display (lsh (face-id latin1-display-face) 19)))))) + (make-glyph-code display latin1-display-face)))) (defun latin1-display-identities (charset) "Display each character in CHARSET as the corresponding Latin-1 character. diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 5d71935c0d..c9a788f0ec 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -2185,7 +2185,7 @@ specifies the character set for the major languages of Western Europe." ;; en_IN -- fx. ("en_IN" "English" utf-8) ; glibc uses utf-8 for English in India ("en" "English" iso-8859-1) ; English - ("eo" . "Latin-3") ; Esperanto + ("eo" . "Esperanto") ; Esperanto ("es" "Spanish" iso-8859-1) ("et" . "Latin-1") ; Estonian ("eu" . "Latin-1") ; Basque diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 5df2d48387..d2c83d75e0 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -1683,7 +1683,7 @@ cons (CODING . SOURCE), where CODING is the specified coding system and SOURCE is a symbol `auto-coding-alist', `auto-coding-regexp-alist', `coding:', or `auto-coding-functions' indicating by what CODING is specified. Note that the validity -of CODING is not checked; it's callers responsibility to check it. +of CODING is not checked; it's the caller's responsibility to check it. If nothing is specified, the return value is nil." (or (let ((coding-system (auto-coding-alist-lookup filename))) diff --git a/lisp/international/quail.el b/lisp/international/quail.el index 3244a6a1c0..340c035ca4 100644 --- a/lisp/international/quail.el +++ b/lisp/international/quail.el @@ -2634,7 +2634,11 @@ KEY BINDINGS FOR CONVERSION (aset table char (cons key elt))) (or (string= key elt) (aset table char (list key elt)))) - (aset table char key)))) + (aset table char key)) + (if (and translation-table-for-input + (setq char (aref translation-table-for-input char))) + (let ((translation-table-for-input nil)) + (quail-store-decode-map-key table char key))))) ;; Helper function for quail-gen-decode-map. Store key strings to ;; type each character under MAP in TABLE (char-table). MAP is an @@ -2678,6 +2682,15 @@ KEY BINDINGS FOR CONVERSION (quail-gen-decode-map1 (cdr elt) (string (car elt)) table)) table)) +;; Check if CHAR equals to TARGET while also trying to translate CHAR +;; by translation-table-for-input. + +(defsubst quail-char-equal-p (char target) + (or (= char target) + (and translation-table-for-input + (setq char (aref translation-table-for-input char)) + (= char target)))) + ;; Helper function for quail-find-key. Prepend key strings to type ;; for inputting CHAR by the current input method to KEY-LIST and ;; return the result. MAP is an element of the current Quail map @@ -2688,7 +2701,8 @@ KEY BINDINGS FOR CONVERSION (found-here nil)) (cond ((stringp trans) (setq found-here - (and (= (length trans) 1) (= (aref trans 0) char)))) + (and (= (length trans) 1) + (quail-char-equal-p (aref trans 0) char)))) ((or (vectorp trans) (consp trans)) (if (consp trans) (setq trans (cdr trans))) @@ -2697,14 +2711,13 @@ KEY BINDINGS FOR CONVERSION (dotimes (i (length trans)) (let ((target (aref trans i))) (if (integerp target) - (if (= target char) + (if (quail-char-equal-p target char) (throw 'tag t)) (if (and (= (length target) 1) - (= (aref target 0) char)) + (quail-char-equal-p (aref target 0) char)) (throw 'tag t)))))))) ((integerp trans) - (if (= trans char) - (setq found-here t)))) + (setq found-here (quail-char-equal-p trans char)))) (if found-here (setq key-list (cons key key-list))) (if (> (length key) 1) @@ -2714,12 +2727,25 @@ KEY BINDINGS FOR CONVERSION char key-list)))) key-list)) +;; If non-nil, the value has the form (QUAIL-MAP . CODING-SYSTEM) +;; where QUAIL-MAP is a quail-map of which decode map was generated +;; while buffer-file-coding-system was CODING-SYSTEM. + +(defvar quail-decode-map-generated nil) + (defun quail-find-key (char) "Return a list of keys to type to input CHAR in the current input method. If CHAR is an ASCII character and can be input by typing itself, return t." - (let ((decode-map (or (quail-decode-map) - (setcar (nthcdr 10 quail-current-package) - (quail-gen-decode-map)))) + (let ((decode-map (or (and (or (not quail-decode-map-generated) + (and (eq (car quail-decode-map-generated) (quail-map)) + (eq (cdr quail-decode-map-generated) + (or buffer-file-coding-system t)))) + (quail-decode-map)) + (let ((map (quail-gen-decode-map))) + (setq quail-decode-map-generated + (cons (quail-map) (or buffer-file-coding-system t))) + (setcar (nthcdr 10 quail-current-package) map) + map))) (key-list nil)) (if (consp decode-map) (let ((str (string char))) @@ -2746,6 +2772,8 @@ If CHAR is an ASCII character and can be input by typing itself, return t." (interactive) (or current-input-method (error "No input method is activated")) + (or (assoc current-input-method quail-package-alist) + (error "The current input method does not use Quail")) (let* ((char (following-char)) (key-list (quail-find-key char))) (cond ((consp key-list) diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el index 9577ccf50a..ed5df5b959 100644 --- a/lisp/international/titdic-cnv.el +++ b/lisp/international/titdic-cnv.el @@ -271,7 +271,9 @@ SPC, 6, 3, 4, or 7 specifing a tone (SPC:$(0?v(N(B, 6:$(0Dm(N(B, 3:$(0&9Vy (tit-keyprompt nil)) (princ ";; Quail package `") - (princ package) (princ "' -*- coding:iso-2022-7bit; -*-\n") + (princ package) + (princ "' -*- coding:iso-2022-7bit; ") + (princ "byte-compile-disable-print-circle:t; -*-\n") (princ ";; Generated by the command `titdic-convert'\n;;\tDate: ") (princ (current-time-string)) (princ "\n;;\tOriginal TIT dictionary file: ") @@ -469,13 +471,16 @@ SPC, 6, 3, 4, or 7 specifing a tone (SPC:$(0?v(N(B, 6:$(0Dm(N(B, 3:$(0&9Vy Optional argument DIRNAME if specified is the directory name under which the generated Quail package is saved." (interactive "FTIT dictionary file: ") - (let ((coding-system-for-write 'iso-2022-7bit)) + (let ((coding-system-for-write 'iso-2022-7bit-unix)) (with-temp-file (tit-make-quail-package-file-name filename dirname) - (set-buffer-file-coding-system 'iso-2022-7bit) + ;; Explicitly speficy eol format to `unix'. + (set-buffer-file-coding-system 'iso-2022-7bit-unix) (let ((standard-output (current-buffer))) (with-temp-buffer (set-buffer-multibyte nil) - (let ((coding-system-for-read 'no-conversion)) + ;; Here we must use `raw-text' instead of `no-conversion' to + ;; enable auto-decoding of eol format (CRLF->LF). + (let ((coding-system-for-read 'raw-text)) (insert-file-contents (expand-file-name filename))) ;; Decode the buffer contents from the encoding specified by a @@ -908,6 +913,9 @@ method `chinese-tonepy' with which you must specify tones by digits (let ((pos (point))) (insert-buffer-substring dicbuf) (goto-char pos) + (re-search-forward "^[a-z]") + (beginning-of-line) + (delete-region pos (point)) (while (not (eobp)) (insert "(\"") (skip-chars-forward "a-z") @@ -1140,8 +1148,10 @@ the generated Quail package is saved." copyright (nth 6 slot)) (message "Converting %s to %s..." dicfile quailfile) (with-temp-file (expand-file-name quailfile dirname) - (set-buffer-file-coding-system 'iso-2022-7bit) - (insert ";; Quail package `" name "' -*- coding:iso-2022-7bit; -*-\n") + ;; Explicitly speficy eol format to `unix'. + (set-buffer-file-coding-system 'iso-2022-7bit-unix) + (insert ";; Quail package `" name "' -*- coding:iso-2022-7bit; ") + (insert "byte-compile-disable-print-circle:t; -*-\n"); (insert ";; Generated by the command `miscdic-convert'\n") (insert ";; Date: " (current-time-string) "\n") (insert ";; Source dictionary file: " dicfile "\n") diff --git a/lisp/international/utf-8.el b/lisp/international/utf-8.el index 2e4a2f6f49..2d8791b49e 100644 --- a/lisp/international/utf-8.el +++ b/lisp/international/utf-8.el @@ -1008,9 +1008,11 @@ Also compose particular scripts if `utf-8-compose-scripts' is non-nil." This is used as a post-read-conversion of utf-8 coding system." (if (and utf-translate-cjk-mode (not utf-translate-cjk-lang-env) - (save-excursion - (goto-char beg) - (re-search-forward "\\cc\\|\\cj\\|\\ch" end t))) + (if (stringp beg) + (string-match "\\cc\\|\\cj\\|\\ch" beg) + (save-excursion + (goto-char beg) + (re-search-forward "\\cc\\|\\cj\\|\\ch" end t)))) (utf-translate-cjk-load-tables)) nil) diff --git a/lisp/isearch.el b/lisp/isearch.el index 121ccefacd..8c248dbc25 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -2321,6 +2321,7 @@ since they have special meaning in a regexp." (defvar isearch-lazy-highlight-window-end nil) (defvar isearch-lazy-highlight-case-fold-search nil) (defvar isearch-lazy-highlight-regexp nil) +(defvar isearch-lazy-highlight-space-regexp nil) (defun lazy-highlight-cleanup (&optional force) "Stop lazy highlighting and remove extra highlighting from current buffer. @@ -2374,7 +2375,8 @@ by other Emacs features." isearch-lazy-highlight-last-string isearch-string isearch-lazy-highlight-case-fold-search isearch-case-fold-search isearch-lazy-highlight-regexp isearch-regexp - isearch-lazy-highlight-wrapped nil) + isearch-lazy-highlight-wrapped nil + isearch-lazy-highlight-space-regexp search-whitespace-regexp) (unless (equal isearch-string "") (setq isearch-lazy-highlight-timer (run-with-idle-timer lazy-highlight-initial-delay nil @@ -2385,7 +2387,7 @@ by other Emacs features." Attempt to do the search exactly the way the pending isearch would." (let ((case-fold-search isearch-lazy-highlight-case-fold-search) (isearch-regexp isearch-lazy-highlight-regexp) - (search-spaces-regexp search-whitespace-regexp)) + (search-spaces-regexp isearch-lazy-highlight-space-regexp)) (condition-case nil (isearch-search-string isearch-lazy-highlight-last-string diff --git a/lisp/isearchb.el b/lisp/isearchb.el index 0f46969a2d..72a06fa687 100644 --- a/lisp/isearchb.el +++ b/lisp/isearchb.el @@ -115,7 +115,7 @@ If nil, don't use a timeout." (defun isearchb-iswitchb () "isearchb's custom version of the `iswitchb' command. -It's purpose is to pass different call arguments to +Its purpose is to pass different call arguments to `iswitchb-read-buffer'." (interactive) (let* ((prompt "iswitch ") diff --git a/lisp/jka-cmpr-hook.el b/lisp/jka-cmpr-hook.el index ce00181aaa..b13ca7181e 100644 --- a/lisp/jka-cmpr-hook.el +++ b/lisp/jka-cmpr-hook.el @@ -191,7 +191,7 @@ options through Custom does this automatically." ;; Formerly, these had an additional arg "-c", but that fails with ;; "Version 0.1pl2, 29-Aug-97." (RedHat 5.1 GNU/Linux) and ;; "Version 0.9.0b, 9-Sept-98". - ["\\.bz2\\'" + ["\\.bz2\\(~\\|\\.~[0-9]+~\\)?\\'" "bzip2ing" "bzip2" nil "bunzip2ing" "bzip2" ("-d") nil t "BZh"] diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el index 8c107cc327..32df6ce53f 100644 --- a/lisp/jka-compr.el +++ b/lisp/jka-compr.el @@ -155,6 +155,12 @@ to keep: LEN chars starting BEG chars from the beginning." ;; to discard the part we don't want. (let ((skip (/ beg jka-compr-dd-blocksize)) (err-file (jka-compr-make-temp-name)) + ;; call-process barfs if default-directory is inaccessible. + (default-directory + (if (and default-directory + (file-accessible-directory-p default-directory)) + default-directory + (file-name-directory infile))) count) ;; Update PREFIX based on the text that we won't read in. (setq prefix (- beg (* skip jka-compr-dd-blocksize)) @@ -193,45 +199,41 @@ to keep: LEN chars starting BEG chars from the beginning." (defun jka-compr-call-process (prog message infile output temp args) - (if jka-compr-use-shell - - (let ((err-file (jka-compr-make-temp-name)) - (coding-system-for-read (or coding-system-for-read 'undecided)) - (coding-system-for-write 'no-conversion)) - - (unwind-protect - - (or (memq - (call-process jka-compr-shell infile - (if (stringp output) nil output) - nil - "-c" - (format "%s %s 2> %s %s" - prog - (mapconcat 'identity args " ") - err-file - (if (stringp output) - (concat "> " output) - ""))) - jka-compr-acceptable-retval-list) - - (jka-compr-error prog args infile message err-file)) - - (jka-compr-delete-temp-file err-file))) - - (or (eq 0 - (apply 'call-process - prog - infile - (if (stringp output) temp output) - nil - args)) - (jka-compr-error prog args infile message)) - - (and (stringp output) - (with-current-buffer temp - (write-region (point-min) (point-max) output) - (erase-buffer))))) + ;; call-process barfs if default-directory is inaccessible. + (let ((default-directory + (if (and default-directory + (file-accessible-directory-p default-directory)) + default-directory + (file-name-directory infile)))) + (if jka-compr-use-shell + (let ((err-file (jka-compr-make-temp-name)) + (coding-system-for-read (or coding-system-for-read 'undecided)) + (coding-system-for-write 'no-conversion)) + (unwind-protect + (or (memq + (call-process jka-compr-shell infile + (if (stringp output) nil output) + nil + "-c" + (format "%s %s 2> %s %s" + prog + (mapconcat 'identity args " ") + err-file + (if (stringp output) + (concat "> " output) + ""))) + jka-compr-acceptable-retval-list) + (jka-compr-error prog args infile message err-file)) + (jka-compr-delete-temp-file err-file))) + (or (eq 0 + (apply 'call-process + prog infile (if (stringp output) temp output) + nil args)) + (jka-compr-error prog args infile message)) + (and (stringp output) + (with-current-buffer temp + (write-region (point-min) (point-max) output) + (erase-buffer)))))) ;; Support for temp files. Much of this was inspired if not lifted diff --git a/lisp/language/european.el b/lisp/language/european.el index ccbbf8318c..75d9d1fb33 100644 --- a/lisp/language/european.el +++ b/lisp/language/european.el @@ -485,6 +485,19 @@ and it selects the Spanish tutorial.")) (sample-text . "Oi") (documentation . "Support for Brazilian Portuguese.")) '("European")) + +(set-language-info-alist + "Esperanto" '((tutorial . "TUTORIAL.eo") + (charset ascii latin-iso8859-3) + (coding-system iso-latin-3) + (coding-priority iso-latin-3) + (nonascii-translation . latin-iso8859-3) + (unibyte-syntax . "latin-3") + (unibyte-display . iso-latin-3) + (input-method . "latin-3-prefix") + (documentation . "Support for Esperanto with ISO-8859-3 character set.")) + '("European")) + ;; Definitions for the Mac Roman character sets and coding system. ;; The Mac Roman encoding uses all 128 code points in the range 128 to diff --git a/lisp/ldefs-boot.el b/lisp/ldefs-boot.el index 82b8aeea05..f69fba42ac 100644 --- a/lisp/ldefs-boot.el +++ b/lisp/ldefs-boot.el @@ -46,7 +46,7 @@ Attempt to crack 5x5 by mutating the best solution. \(fn)" t nil) (autoload (quote 5x5-crack-xor-mutate) "5x5" "\ -Attempt to crack 5x5 by xor the current and best solution. +Attempt to crack 5x5 by xoring the current and best solution. Mutate the result. \(fn)" t nil) @@ -56,7 +56,7 @@ Attempt to find a solution for 5x5. 5x5-crack takes the argument BREEDER which should be a function that takes two parameters, the first will be a grid vector array that is the current -solution and the second will be the best solution so far. The function +solution and the second will be the best solution so far. The function should return a grid vector array that is the new solution. \(fn BREEDER)" t nil) @@ -2720,7 +2720,8 @@ recompile every `.el' file that already has a `.elc' file. (autoload (quote byte-compile-file) "bytecomp" "\ Compile a file of Lisp code named FILENAME into a file of byte code. -The output file's name is made by appending `c' to the end of FILENAME. +The output file's name is generated by passing FILENAME to the +`byte-compile-dest-file' function (which see). With prefix arg (noninteractively: 2nd arg), LOAD the file after compiling. The value is non-nil if there were no errors, nil if errors. @@ -6871,7 +6872,7 @@ may contain even `F', `b', `i' and `s'. See also the variable `dired-ls-F-marks-symlinks' concerning the `F' switch. On systems such as MS-DOS and MS-Windows, which use `ls' emulation in Lisp, some of the `ls' switches are not supported; see the doc string of -`insert-directory' on `ls-lisp.el' for more details.") +`insert-directory' in `ls-lisp.el' for more details.") (custom-autoload (quote dired-listing-switches) "dired" t) @@ -7306,6 +7307,8 @@ with the same names that the files currently have. The default suggested for the target directory depends on the value of `dired-dwim-target', which see. +For relative symlinks, use \\[dired-do-relsymlink]. + \(fn &optional ARG)" t nil) (autoload (quote dired-do-hardlink) "dired-aux" "\ @@ -7490,6 +7493,21 @@ buffer and try again. \(fn &optional OTHER-WINDOW)" t nil) +(autoload (quote dired-do-relsymlink) "dired-x" "\ +Relative symlink all marked (or next ARG) files into a directory. +Otherwise make a relative symbolic link to the current file. +This creates relative symbolic links like + + foo -> ../bar/foo + +not absolute ones like + + foo -> /ugly/file/name/that/may/change/any/day/bar/foo + +For absolute symlinks, use \\[dired-do-symlink]. + +\(fn &optional ARG)" t nil) + ;;;*** ;;;### (autoloads (dirtrack) "dirtrack" "dirtrack.el" (17817 13975)) @@ -7603,6 +7621,21 @@ Allocate a glyph code to display by sending STRING to the terminal. \(fn STRING)" nil nil) +(autoload (quote make-glyph-code) "disp-table" "\ +Return a glyph code representing char CHAR with face FACE. + +\(fn CHAR &optional FACE)" nil nil) + +(autoload (quote glyph-char) "disp-table" "\ +Return the character of glyph code GLYPH. + +\(fn GLYPH)" nil nil) + +(autoload (quote glyph-face) "disp-table" "\ +Return the face of glyph code GLYPH, or nil if glyph has default face. + +\(fn GLYPH)" nil nil) + (autoload (quote standard-display-european) "disp-table" "\ Semi-obsolete way to toggle display of ISO 8859 European characters. @@ -7792,9 +7825,11 @@ For example, you could write \(fn MODE DOC &optional INIT-VALUE LIGHTER KEYMAP &rest BODY)" nil (quote macro)) -(defalias (quote easy-mmode-define-global-mode) (quote define-global-minor-mode)) +(defalias (quote easy-mmode-define-global-mode) (quote define-globalized-minor-mode)) + +(defalias (quote define-global-minor-mode) (quote define-globalized-minor-mode)) -(autoload (quote define-global-minor-mode) "easy-mmode" "\ +(autoload (quote define-globalized-minor-mode) "easy-mmode" "\ Make a global mode GLOBAL-MODE corresponding to buffer-local minor MODE. TURN-ON is a function that will be called with no args in every buffer and that should try to turn MODE on if applicable for that buffer. @@ -7804,7 +7839,7 @@ KEYS is a list of CL-style keyword arguments. As the minor mode which see. In particular, :group specifies the custom group. The most useful keywords are those that are passed on to the `defcustom'. It normally makes no sense to pass the :lighter - or :keymap keywords to `define-global-minor-mode', since these + or :keymap keywords to `define-globalized-minor-mode', since these are usually passed to the buffer-local version of the minor mode. If MODE's set-up depends on the major mode in effect when it was @@ -8105,9 +8140,9 @@ See also `ebnf-eps-buffer'. \(fn FILE &optional DO-NOT-KILL-BUFFER-WHEN-DONE)" t nil) (autoload (quote ebnf-eps-buffer) "ebnf2ps" "\ -Generate a PostScript syntactic chart image of the buffer in a EPS file. +Generate a PostScript syntactic chart image of the buffer in an EPS file. -Indeed, for each production is generated a EPS file. +Generate an EPS file for each production in the buffer. The EPS file name has the following form: <PREFIX><PRODUCTION>.eps @@ -8116,18 +8151,20 @@ The EPS file name has the following form: The default value is \"ebnf--\". <PRODUCTION> is the production name. - The production name is mapped to form a valid file name. - For example, the production name \"A/B + C\" is mapped to - \"A_B_+_C\" and the EPS file name used is \"ebnf--A_B_+_C.eps\". + Some characters in the production file name are replaced to + produce a valid file name. For example, the production name + \"A/B + C\" is modified to produce \"A_B_+_C\", and the EPS + file name used in this case will be \"ebnf--A_B_+_C.eps\". -WARNING: It's *NOT* asked any confirmation to override an existing file. +WARNING: This function does *NOT* ask any confirmation to override existing + files. \(fn)" t nil) (autoload (quote ebnf-eps-region) "ebnf2ps" "\ -Generate a PostScript syntactic chart image of the region in a EPS file. +Generate a PostScript syntactic chart image of the region in an EPS file. -Indeed, for each production is generated a EPS file. +Generate an EPS file for each production in the region. The EPS file name has the following form: <PREFIX><PRODUCTION>.eps @@ -8136,30 +8173,32 @@ The EPS file name has the following form: The default value is \"ebnf--\". <PRODUCTION> is the production name. - The production name is mapped to form a valid file name. - For example, the production name \"A/B + C\" is mapped to - \"A_B_+_C\" and the EPS file name used is \"ebnf--A_B_+_C.eps\". + Some characters in the production file name are replaced to + produce a valid file name. For example, the production name + \"A/B + C\" is modified to produce \"A_B_+_C\", and the EPS + file name used in this case will be \"ebnf--A_B_+_C.eps\". -WARNING: It's *NOT* asked any confirmation to override an existing file. +WARNING: This function does *NOT* ask any confirmation to override existing + files. \(fn FROM TO)" t nil) (defalias (quote ebnf-despool) (quote ps-despool)) (autoload (quote ebnf-syntax-directory) "ebnf2ps" "\ -Does a syntactic analysis of the files in DIRECTORY. +Do a syntactic analysis of the files in DIRECTORY. -If DIRECTORY is nil, it's used `default-directory'. +If DIRECTORY is nil, use `default-directory'. -The files in DIRECTORY that matches `ebnf-file-suffix-regexp' (which see) are -processed. +Only the files in DIRECTORY that match `ebnf-file-suffix-regexp' (which see) +are processed. See also `ebnf-syntax-buffer'. \(fn &optional DIRECTORY)" t nil) (autoload (quote ebnf-syntax-file) "ebnf2ps" "\ -Does a syntactic analysis of the FILE. +Do a syntactic analysis of the named FILE. If optional arg DO-NOT-KILL-BUFFER-WHEN-DONE is non-nil, the buffer isn't killed after syntax checking. @@ -8169,12 +8208,12 @@ See also `ebnf-syntax-buffer'. \(fn FILE &optional DO-NOT-KILL-BUFFER-WHEN-DONE)" t nil) (autoload (quote ebnf-syntax-buffer) "ebnf2ps" "\ -Does a syntactic analysis of the current buffer. +Do a syntactic analysis of the current buffer. \(fn)" t nil) (autoload (quote ebnf-syntax-region) "ebnf2ps" "\ -Does a syntactic analysis of a region. +Do a syntactic analysis of region. \(fn FROM TO)" t nil) @@ -8207,7 +8246,7 @@ See `ebnf-style-database' documentation. (autoload (quote ebnf-apply-style) "ebnf2ps" "\ Set STYLE as the current style. -It returns the old style symbol. +Returns the old style symbol. See `ebnf-style-database' documentation. @@ -8216,25 +8255,29 @@ See `ebnf-style-database' documentation. (autoload (quote ebnf-reset-style) "ebnf2ps" "\ Reset current style. -It returns the old style symbol. +Returns the old style symbol. See `ebnf-style-database' documentation. \(fn &optional STYLE)" t nil) (autoload (quote ebnf-push-style) "ebnf2ps" "\ -Push the current style and set STYLE as the current style. +Push the current style onto a stack and set STYLE as the current style. + +Returns the old style symbol. -It returns the old style symbol. +See also `ebnf-pop-style'. See `ebnf-style-database' documentation. \(fn &optional STYLE)" t nil) (autoload (quote ebnf-pop-style) "ebnf2ps" "\ -Pop a style and set it as the current style. +Pop a style from the stack of pushed styles and set it as the current style. + +Returns the old style symbol. -It returns the old style symbol. +See also `ebnf-push-style'. See `ebnf-style-database' documentation. @@ -8892,7 +8935,7 @@ shrink the window to fit. If THUNK returns non-nil, we don't do those things. After THUNK has been called, this function \"electrically\" pops up a window in which BUFFER is displayed and allows the user to scroll through that buffer -in electric-help-mode. The window's height will be at least MINHEIGHT if +in `electric-help-mode'. The window's height will be at least MINHEIGHT if this value is non-nil. If THUNK returns nil, we display BUFFER starting at the top, and @@ -8901,7 +8944,7 @@ If THUNK returns non-nil, we don't do those things. When the user exits (with `electric-help-exit', or otherwise), the help buffer's window disappears (i.e., we use `save-window-excursion'), and -BUFFER is put into `default-major-mode' (or `fundamental-mode') when we exit. +BUFFER is put into `default-major-mode' (or `fundamental-mode'). \(fn THUNK &optional BUFFER NOERASE MINHEIGHT)" nil nil) @@ -12689,6 +12732,9 @@ While grep runs asynchronously, you can use \\[next-error] (M-x next-error), or \\<grep-mode-map>\\[compile-goto-error] in the grep output buffer, to go to the lines where grep found matches. +For doing a recursive `grep', see the `rgrep' command. For running +`grep' in a specific directory, see `lgrep'. + This command uses a special history list for its COMMAND-ARGS, so you can easily repeat a grep command. @@ -12713,7 +12759,7 @@ easily repeat a find command. (defalias (quote find-grep) (quote grep-find)) (autoload (quote lgrep) "grep" "\ -Run grep, searching for REGEXP in FILES in current directory. +Run grep, searching for REGEXP in FILES in directory DIR. The search is limited to file names matching shell pattern FILES. FILES may use abbreviations defined in `grep-files-aliases', e.g. entering `ch' is equivalent to `*.[ch]'. @@ -12728,7 +12774,7 @@ in the grep output buffer, to go to the lines where grep found matches. This command shares argument histories with \\[rgrep] and \\[grep]. -\(fn REGEXP &optional FILES)" t nil) +\(fn REGEXP &optional FILES DIR)" t nil) (autoload (quote rgrep) "grep" "\ Recursively grep for REGEXP in FILES in directory tree rooted at DIR. @@ -14722,35 +14768,35 @@ in a separate window. (autoload (quote ido-switch-buffer-other-window) "ido" "\ Switch to another buffer and show it in another window. The buffer name is selected interactively by typing a substring. -For details of keybindings, do `\\[describe-function] ido'. +For details of keybindings, see `ido-switch-buffer'. \(fn)" t nil) (autoload (quote ido-display-buffer) "ido" "\ Display a buffer in another window but don't select it. The buffer name is selected interactively by typing a substring. -For details of keybindings, do `\\[describe-function] ido'. +For details of keybindings, see `ido-switch-buffer'. \(fn)" t nil) (autoload (quote ido-kill-buffer) "ido" "\ Kill a buffer. The buffer name is selected interactively by typing a substring. -For details of keybindings, do `\\[describe-function] ido'. +For details of keybindings, see `ido-switch-buffer'. \(fn)" t nil) (autoload (quote ido-insert-buffer) "ido" "\ Insert contents of a buffer in current buffer after point. The buffer name is selected interactively by typing a substring. -For details of keybindings, do `\\[describe-function] ido'. +For details of keybindings, see `ido-switch-buffer'. \(fn)" t nil) (autoload (quote ido-switch-buffer-other-frame) "ido" "\ Switch to another buffer and show it in another frame. The buffer name is selected interactively by typing a substring. -For details of keybindings, do `\\[describe-function] ido'. +For details of keybindings, see `ido-switch-buffer'. \(fn)" t nil) @@ -14805,70 +14851,70 @@ in a separate window. (autoload (quote ido-find-file-other-window) "ido" "\ Switch to another file and show it in another window. The file name is selected interactively by typing a substring. -For details of keybindings, do `\\[describe-function] ido-find-file'. +For details of keybindings, see `ido-find-file'. \(fn)" t nil) (autoload (quote ido-find-alternate-file) "ido" "\ Switch to another file and show it in another window. The file name is selected interactively by typing a substring. -For details of keybindings, do `\\[describe-function] ido-find-file'. +For details of keybindings, see `ido-find-file'. \(fn)" t nil) (autoload (quote ido-find-file-read-only) "ido" "\ Edit file read-only with name obtained via minibuffer. The file name is selected interactively by typing a substring. -For details of keybindings, do `\\[describe-function] ido-find-file'. +For details of keybindings, see `ido-find-file'. \(fn)" t nil) (autoload (quote ido-find-file-read-only-other-window) "ido" "\ Edit file read-only in other window with name obtained via minibuffer. The file name is selected interactively by typing a substring. -For details of keybindings, do `\\[describe-function] ido-find-file'. +For details of keybindings, see `ido-find-file'. \(fn)" t nil) (autoload (quote ido-find-file-read-only-other-frame) "ido" "\ Edit file read-only in other frame with name obtained via minibuffer. The file name is selected interactively by typing a substring. -For details of keybindings, do `\\[describe-function] ido-find-file'. +For details of keybindings, see `ido-find-file'. \(fn)" t nil) (autoload (quote ido-display-file) "ido" "\ Display a file in another window but don't select it. The file name is selected interactively by typing a substring. -For details of keybindings, do `\\[describe-function] ido-find-file'. +For details of keybindings, see `ido-find-file'. \(fn)" t nil) (autoload (quote ido-find-file-other-frame) "ido" "\ Switch to another file and show it in another frame. The file name is selected interactively by typing a substring. -For details of keybindings, do `\\[describe-function] ido-find-file'. +For details of keybindings, see `ido-find-file'. \(fn)" t nil) (autoload (quote ido-write-file) "ido" "\ Write current buffer to a file. The file name is selected interactively by typing a substring. -For details of keybindings, do `\\[describe-function] ido-find-file'. +For details of keybindings, see `ido-find-file'. \(fn)" t nil) (autoload (quote ido-insert-file) "ido" "\ Insert contents of file in current buffer. The file name is selected interactively by typing a substring. -For details of keybindings, do `\\[describe-function] ido-find-file'. +For details of keybindings, see `ido-find-file'. \(fn)" t nil) (autoload (quote ido-dired) "ido" "\ Call `dired' the ido way. The directory is selected interactively by typing a substring. -For details of keybindings, do `\\[describe-function] ido-find-file'. +For details of keybindings, see `ido-find-file'. \(fn)" t nil) @@ -15006,11 +15052,16 @@ This function is intended to be used from `magic-mode-alist' (which see). (autoload (quote image-type-auto-detected-p) "image" "\ Return t iff the current buffer contains an auto-detectable image. -Whether image types are auto-detectable or not depends on the setting -of the variable `image-type-auto-detectable'. - This function is intended to be used from `magic-mode-alist' (which see). +First, compare the beginning of the buffer with `image-type-header-regexps'. +If an appropriate image type is found, check if that image type can be +autodetected using the variable `image-type-auto-detectable'. Finally, +if `buffer-file-name' is non-nil, check if it matches another major mode +in `auto-mode-alist' apart from `image-mode'; if there is another match, +the autodetection is considered to have failed. Return t if all the above +steps succeed. + \(fn)" nil nil) (autoload (quote create-image) "image" "\ @@ -15944,8 +15995,7 @@ Each element of this list is also a list: DICTIONARY-NAME is a possible string value of variable `ispell-dictionary', nil means the default dictionary. -CASECHARS is a regular expression of valid characters that comprise a -word. +CASECHARS is a regular expression of valid characters that comprise a word. NOT-CASECHARS is the opposite regexp of CASECHARS. @@ -15959,7 +16009,7 @@ regular expression \"[']\" for OTHERCHARS. Then \"they're\" and If you want OTHERCHARS to be empty, use the empty string. Hint: regexp syntax requires the hyphen to be declared first here. -CASECHAS, NOT-CASECHARS, and OTHERCHARS must be a unibyte string +CASECHARS, NOT-CASECHARS, and OTHERCHARS must be unibyte strings containing bytes of CHARACTER-SET. In addition, if they contain a non-ASCII byte, the regular expression must be a single `character set' construct that doesn't specify a character range @@ -16047,7 +16097,7 @@ which is in `ispell-local-dictionary-alist' or `ispell-dictionary-alist'. This will check or reload the dictionary. Use \\[ispell-change-dictionary] or \\[ispell-region] to update the Ispell process. -return values: +Return values: nil word is correct or spelling is accepted. 0 word is inserted into buffer-local definitions. \"word\" word corrected from word list. @@ -16082,9 +16132,9 @@ SPC: Accept word this time. `l': Look up typed-in replacement in alternate dictionary. Wildcards okay. `u': Like `i', but the word is lower-cased first. `m': Place typed-in value in personal dictionary, then recheck current word. -`C-l': redraws screen -`C-r': recursive edit -`C-z': suspend Emacs or iconify frame +`C-l': Redraw screen. +`C-r': Recursive edit. +`C-z': Suspend Emacs or iconify frame. \(fn)" nil nil) @@ -28567,7 +28617,7 @@ TYPE is the type of authentication to be returned. This is either a string representing the type (basic, digest, etc), or nil or the symbol 'any' to specify that any authentication is acceptable. If requesting 'any' the strongest matching authentication will be returned. If this is - wrong, its no big deal, the error from the server will specify exactly + wrong, it's no big deal, the error from the server will specify exactly what type of auth to use PROMPT is boolean - specifies whether to ask the user for a username/password if one cannot be found in the cache @@ -30390,7 +30440,7 @@ If Viper is enabled, turn it off. Otherwise, turn it on. \(fn)" t nil) (autoload (quote viper-mode) "viper" "\ -Turn on Viper emulation of Vi in Emacs. See Info node `(viper)Viper'. +Turn on Viper emulation of Vi in Emacs. See Info node `(viper)Top'. \(fn)" t nil) diff --git a/lisp/loadhist.el b/lisp/loadhist.el index c6c767f736..39d51a280f 100644 --- a/lisp/loadhist.el +++ b/lisp/loadhist.el @@ -173,6 +173,9 @@ such as redefining an Emacs function." (prin1-to-string dependents) file)))) (let* ((unload-hook-features-list (feature-symbols feature)) (file (pop unload-hook-features-list)) + ;; If non-nil, this is a symbol for which we should + ;; restore a previous autoload if possible. + restore-autoload (unload-hook (intern-soft (concat (symbol-name feature) "-unload-hook")))) ;; Try to avoid losing badly when hooks installed in critical @@ -209,22 +212,27 @@ such as redefining an Emacs function." (dolist (elt unload-hook-features-list) (when (symbolp elt) (elp-restore-function elt)))) + (dolist (x unload-hook-features-list) (if (consp x) (case (car x) ;; Remove any feature names that this file provided. (provide (setq features (delq (cdr x) features))) - (defun + ((defun autoload) (let ((fun (cdr x))) (when (fboundp fun) (when (fboundp 'ad-unadvise) (ad-unadvise fun)) (let ((aload (get fun 'autoload))) - (if aload + (if (and aload (eq fun restore-autoload)) (fset fun (cons 'autoload aload)) (fmakunbound fun)))))) - ((t require) nil) + ;; (t . SYMBOL) comes before (defun . SYMBOL) + ;; and says we should restore SYMBOL's autoload + ;; when we undefine it. + ((t) (setq restore-autoload (cdr x))) + ((require defface) nil) (t (message "Unexpected element %s in load-history" x))) ;; Kill local values as much as possible. (dolist (buf (buffer-list)) @@ -238,7 +246,9 @@ such as redefining an Emacs function." (unless (local-variable-if-set-p x) (makunbound x)))) ;; Delete the load-history element for this file. - (setq load-history (delq (assoc file load-history) load-history)))) + (setq load-history (delq (assoc file load-history) load-history))) + ;; Don't return load-history, it is not useful. + nil) (provide 'loadhist) diff --git a/lisp/mail/rmailedit.el b/lisp/mail/rmailedit.el index cede281639..a03edb9862 100644 --- a/lisp/mail/rmailedit.el +++ b/lisp/mail/rmailedit.el @@ -120,6 +120,7 @@ This functions runs the normal hook `rmail-edit-mode-hook'. (force-mode-line-update) (kill-all-local-variables) (rmail-mode-1) + (set (make-local-variable 'tool-bar-map) rmail-tool-bar-map) (rmail-variables) ;; As the local value of save-buffer-coding-system is changed by ;; rmail-variables, we restore the original value. diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index 2dba755081..e1e742a1d7 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -99,13 +99,13 @@ This only has effect if you specify it before loading the smtpmail library." (defcustom smtpmail-smtp-service 25 "*SMTP service port number. -The default value would be \"smtp\" or 25 ." +The default value would be \"smtp\" or 25." :type '(choice (integer :tag "Port") (string :tag "Service")) :group 'smtpmail) (defcustom smtpmail-local-domain nil "*Local domain name without a host name. -If the function (system-name) returns the full internet address, +If the function `system-name' returns the full internet address, don't define this value." :type '(choice (const nil) string) :group 'smtpmail) @@ -145,7 +145,7 @@ The commands enables verbose information from the SMTP server." :group 'smtpmail) (defcustom smtpmail-queue-mail nil - "*Specify if mail is queued (if t) or sent immediately (if nil). + "*If set, mail is queued; otherwise it is sent immediately. If queued, it is stored in the directory `smtpmail-queue-dir' and sent with `smtpmail-send-queued-mail'." :type 'boolean @@ -198,7 +198,7 @@ new SMTP extensions that might be useful to support." :group 'smtpmail) (defvar smtpmail-queue-index-file "index" - "File name of queued mail index, + "File name of queued mail index. This is relative to `smtpmail-queue-dir'.") (defvar smtpmail-address-buffer) diff --git a/lisp/mail/supercite.el b/lisp/mail/supercite.el index 8d20ea7d2b..a752f4d298 100644 --- a/lisp/mail/supercite.el +++ b/lisp/mail/supercite.el @@ -422,8 +422,8 @@ Each element of this list has the following form: (...))) Where INFOKEY is a key for `sc-mail-field', REGEXP is a regular -expression to match against the INFOKEY's value. ATTRIBUTION can be a -string or a list. If its a string, then it is the attribution that is +expression to match against the INFOKEY's value. ATTRIBUTION can be a +string or a list. If it's a string, then it is the attribution that is selected by `sc-select-attribution'. If it is a list, it is `eval'd and the return value must be a string, which is used as the selected attribution. Note that the variable `sc-preferred-attribution-list' diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog index c603ecba27..8b122f89b4 100644 --- a/lisp/mh-e/ChangeLog +++ b/lisp/mh-e/ChangeLog @@ -2870,9 +2870,22 @@ Copyright (C) 2005, 2006, 2007 Free Software Foundation, Inc. - Copying and distribution of this file, with or without modification, - are permitted in any medium without royalty provided the copyright - notice and this notice are preserved. + This file is part of GNU Emacs. + + GNU Emacs is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2, or (at your option) + any later version. + + GNU Emacs is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with GNU Emacs; see the file COPYING. If not, write to the + Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, + Boston, MA 02110-1301, USA. ;; Local Variables: ;; sentence-end-double-space: nil diff --git a/lisp/mh-e/ChangeLog.1 b/lisp/mh-e/ChangeLog.1 index a28ca7292f..e88199649b 100644 --- a/lisp/mh-e/ChangeLog.1 +++ b/lisp/mh-e/ChangeLog.1 @@ -11409,8 +11409,21 @@ Copyright (C) 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. - Copying and distribution of this file, with or without modification, - are permitted in any medium without royalty provided the copyright - notice and this notice are preserved. + This file is part of GNU Emacs. + + GNU Emacs is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2, or (at your option) + any later version. + + GNU Emacs is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with GNU Emacs; see the file COPYING. If not, write to the + Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, + Boston, MA 02110-1301, USA. ;; arch-tag: 2577172b-b1bf-4d87-acfb-c9d8780e8851 diff --git a/lisp/mouse.el b/lisp/mouse.el index c221a9bee9..dae098ec11 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -2426,7 +2426,10 @@ and selects that window." (global-set-key [mouse-2] 'mouse-yank-at-click) ;; Allow yanking also when the corresponding cursor is "in the fringe". (global-set-key [right-fringe mouse-2] 'mouse-yank-at-click) +(global-set-key [left-fringe mouse-2] 'mouse-yank-at-click) (global-set-key [mouse-3] 'mouse-save-then-kill) +(global-set-key [right-fringe mouse-3] 'mouse-save-then-kill) +(global-set-key [left-fringe mouse-3] 'mouse-save-then-kill) ;; By binding these to down-going events, we let the user use the up-going ;; event to make the selection, saving a click. diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index 19041d046d..08efbb1e10 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el @@ -2599,7 +2599,7 @@ away in the internal cache." (if wildcard (progn (ange-ftp-cd host user (file-name-directory name)) - (setq lscmd (list 'dir file temp lsargs))) + (setq lscmd (list 'ls file temp lsargs))) (setq lscmd (list 'dir name temp lsargs))) (unwind-protect (if (car (setq result (ange-ftp-send-cmd diff --git a/lisp/net/newsticker.el b/lisp/net/newsticker.el index 509d63e990..32097f57b9 100644 --- a/lisp/net/newsticker.el +++ b/lisp/net/newsticker.el @@ -9,7 +9,7 @@ ;; URL: http://www.nongnu.org/newsticker ;; Created: 17. June 2003 ;; Keywords: News, RSS, Atom -;; Time-stamp: "1. November 2005, 21:16:53 (ulf)" +;; Time-stamp: "29. Januar 2007, 21:05:09 (ulf)" ;; ====================================================================== @@ -27,7 +27,7 @@ ;; along with this program; if not, write to the Free Software Foundation, ;; Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. -(defconst newsticker-version "1.9" "Version number of newsticker.el.") +(defconst newsticker-version "1.10" "Version number of newsticker.el.") ;; ====================================================================== ;;; Commentary: @@ -169,6 +169,17 @@ ;; ====================================================================== ;;; History: +;; 1.10 (2007-01-29) +;; * Bugfixes mostly: `newsticker--decode-iso8601-date', +;; `newsticker--sentinel', and others. +;; * Renamed `newsticker--retrieval-timer-list' to +;; `newsticker-retrieval-timer-list'. Removed +;; `newsticker-running-p' -- check newsticker-retrieval-timer-list +;; to find out whether newsticker is running. Removed +;; `newsticker-ticker-running-p'. +;; * Try to cache images in w3m-rendered HTML text. +;; * Other minor changes. + ;; 1.9 (2005-11-01) ;; * Rewrote feed parsing part. Newsticker now supports RSS 0.91, ;; 0.92, 1.0, 2.0 as well as Atom 0.3 and 1.0 -- thanks to Thien-Thi @@ -485,8 +496,8 @@ This list is fed into defcustom via `newsticker--splicer'.") (defun newsticker--set-customvar (symbol value) "Set newsticker-variable SYMBOL value to VALUE. -Calls all actions which are necessary in order to make the new -value effective. Changing `newsticker-url-list', for example, +Calls all necessary actions which are necessary in order to make +the new value effective. Changing `newsticker-url-list', for example, will re-start the retrieval-timers." (unless (condition-case nil (eq (symbol-value symbol) value) @@ -940,7 +951,7 @@ or, if you use htmlr (:family "helvetica" :bold t)) (((class color) (background light)) (:family "helvetica" :bold t))) - "Face for news items." + "Face for new news items." :group 'newsticker-faces) (defface newsticker-old-item-face @@ -2233,6 +2244,7 @@ static char * visit_xpm[] = { ": " '(:eval (newsticker--buffer-get-item-title-at-point)) " %-")) + (add-to-invisibility-spec 't) (unless newsticker-show-all-news-elements (add-to-invisibility-spec 'extra)) (newsticker--buffer-set-uptodate nil)) @@ -2264,9 +2276,11 @@ static char * visit_xpm[] = { (define-key newsticker-mode-map "f" 'newsticker-next-feed) (define-key newsticker-mode-map "M" 'newsticker-mark-all-items-as-read) (define-key newsticker-mode-map "m" - 'newsticker-mark-all-items-at-point-as-read) + 'newsticker-mark-all-items-at-point-as-read-and-redraw) (define-key newsticker-mode-map "o" 'newsticker-mark-item-at-point-as-read) +(define-key newsticker-mode-map "O" + 'newsticker-mark-all-items-at-point-as-read) (define-key newsticker-mode-map "G" 'newsticker-get-all-news) (define-key newsticker-mode-map "g" 'newsticker-get-news-at-point) (define-key newsticker-mode-map "u" 'newsticker-buffer-update) @@ -2323,6 +2337,10 @@ static char * visit_xpm[] = { newsticker-mark-item-at-point-as-immortal)) (define-key newsticker-menu [newsticker-separator-4] '("--")) +(define-key newsticker-menu [newsticker-toggle-auto-narrow-to-item] + '("Narrow to single item" . newsticker-toggle-auto-narrow-to-item)) +(define-key newsticker-menu [newsticker-toggle-auto-narrow-to-feed] + '("Narrow to single news feed" . newsticker-toggle-auto-narrow-to-feed)) (define-key newsticker-menu [newsticker-hide-old-items] '("Hide old items" . newsticker-hide-old-items)) (define-key newsticker-menu [newsticker-show-old-items] @@ -2602,11 +2620,41 @@ calls `w3m-toggle-inline-image'. It works only if (get-text-property (1- (point)) 'invisible) buffer-invisibility-spec))) - (if invis - (w3m-remove-image - pos (next-single-property-change pos - 'w3m-image)) - (w3m-toggle-inline-image t)))))))))))) + (unless (car (get-text-property (1- (point)) + 'display)) + (unless invis + (w3m-toggle-inline-image t))))))))))))) + +(defadvice w3m-insert-image (after newsticker activate) + (newsticker--buffer-after-w3m-insert-image (ad-get-arg 0) (ad-get-arg 1))) + +(defun newsticker--buffer-after-w3m-insert-image (beg end) + "Save preformatted contents after an image has been inserted +between BEG and END." + (when (string= (buffer-name) "*newsticker*") + (save-excursion + (newsticker--buffer-beginning-of-item) + (let* ((pos (point)) + (feed (get-text-property pos 'feed)) + (age (get-text-property pos 'nt-age)) + (title (get-text-property pos 'nt-title)) + (guid (get-text-property pos 'nt-guid)) + (nt-desc (get-text-property pos 'nt-desc)) + (item (newsticker--cache-contains newsticker--cache + feed title nt-desc + nil nil guid)) + (desc-beg (newsticker--buffer-goto '(desc))) + (desc-end (newsticker--buffer-end-of-item))) + ;;(add-text-properties beg end (list nt-type desc)) + (add-text-properties beg end (list 'invisible + (get-text-property end 'invisible))) + ;;(message "newsticker--buffer-after-w3m-insert-image at %s, %s: `%s'" + ;; beg feed title) + (if item + (newsticker--cache-set-preformatted-contents + item (buffer-substring desc-beg desc-end)) + (message "ooops in newsticker--buffer-after-w3m-insert-image at %s, %s: `%s'" + beg feed title)))))) ;; ====================================================================== ;;; keymap stuff @@ -2686,6 +2734,29 @@ non-nil." (force-mode-line-update) (point)) +(defun newsticker-next-item-same-feed () + "Go to next news item in the same feed. +Return new buffer position. If no item is found below point or if +auto-narrow-to-item is enabled, nil is returned." + (interactive) + (if newsticker--auto-narrow-to-item + nil + (let ((go-ahead t) + (current-pos (point)) + (end-of-feed (save-excursion (newsticker--buffer-end-of-feed)))) + (while go-ahead + (unless (newsticker--buffer-goto '(item)) + (setq go-ahead nil)) + (unless (newsticker--lists-intersect-p + (get-text-property (point) 'invisible) + buffer-invisibility-spec) + (setq go-ahead nil))) + (if (and (> (point) current-pos) + (< (point) end-of-feed)) + (point) + (goto-char current-pos) + nil)))) + (defun newsticker-previous-item (&optional do-not-wrap-at-bob) "Go to previous news item. Return new buffer position. @@ -2733,76 +2804,97 @@ Return new buffer position." (force-mode-line-update) (point)) +(defun newsticker-mark-all-items-at-point-as-read-and-redraw () + "Mark all items as read and clear ticker contents." + (interactive) + (when (or newsticker--buffer-uptodate-p + (y-or-n-p + "Buffer is not up to date -- really mark items as read? ")) + (newsticker-mark-all-items-of-feed-as-read + (get-text-property (point) 'feed)))) + +(defun newsticker-mark-all-items-of-feed-as-read (feed) + "Mark all items as read, clear ticker, and redraw *newsticker* buffer." + (when feed + (let ((pos (point))) + (message "Marking all items as read for %s" (symbol-name feed)) + (newsticker--cache-replace-age newsticker--cache feed 'new 'old) + (newsticker--cache-replace-age newsticker--cache feed 'obsolete + 'old) + (newsticker--cache-update) + (newsticker--buffer-set-uptodate nil) + (newsticker--ticker-text-setup) + (newsticker-buffer-update) + ;; go back to where we came frome + (goto-char pos) + (end-of-line) + (newsticker--buffer-goto '(feed) nil t)))) + (defun newsticker-mark-all-items-at-point-as-read () "Mark all items as read and clear ticker contents." (interactive) (when (or newsticker--buffer-uptodate-p (y-or-n-p "Buffer is not up to date -- really mark items as read? ")) - (let ((feed (get-text-property (point) 'feed)) - (pos (point))) - (when feed - (message "Marking all items as read for %s" (symbol-name feed)) - (newsticker--cache-replace-age newsticker--cache feed 'new 'old) - (newsticker--cache-replace-age newsticker--cache feed 'obsolete - 'old) - (newsticker--cache-update) - (newsticker--buffer-set-uptodate nil) - (newsticker--ticker-text-setup) - (newsticker-buffer-update) - ;; go back to where we came frome - (goto-char pos) - (end-of-line) - (newsticker--buffer-goto '(feed) nil t))))) + (newsticker--do-mark-item-at-point-as-read t) + (while (newsticker-next-item-same-feed) + (newsticker--do-mark-item-at-point-as-read t)) + (newsticker-next-item t))) (defun newsticker-mark-item-at-point-as-read (&optional respect-immortality) - "Mark item at point as read. + "Mark item at point as read and move to next item. If optional argument RESPECT-IMMORTALITY is not nil immortal items do not get changed." (interactive) (when (or newsticker--buffer-uptodate-p (y-or-n-p "Buffer is not up to date -- really mark this item as read? ")) - (let ((feed (get-text-property (point) 'feed)) - (item nil)) - (when feed - (save-excursion - (newsticker--buffer-beginning-of-item) - (let ((inhibit-read-only t) - (age (get-text-property (point) 'nt-age)) - (title (get-text-property (point) 'nt-title)) - (guid (get-text-property (point) 'nt-guid)) - (nt-desc (get-text-property (point) 'nt-desc)) - (pos (save-excursion (newsticker--buffer-end-of-item)))) - (when (or (eq age 'new) - (eq age 'obsolete) - (and (eq age 'immortal) - (not respect-immortality))) - ;; find item - (setq item (newsticker--cache-contains newsticker--cache - feed title nt-desc - nil nil guid)) - ;; mark as old - (when item - (setcar (nthcdr 4 item) 'old) - (newsticker--do-forget-preformatted item)) - ;; clean up ticker - (if (or (and (eq age 'new) - newsticker-hide-immortal-items-in-echo-area) - (and (memq age '(old immortal)) - (not - (eq newsticker-hide-old-items-in-newsticker-buffer - newsticker-hide-immortal-items-in-echo-area)))) - (newsticker--ticker-text-remove feed title)) - ;; set faces etc. - (save-excursion - (save-restriction - (widen) - (put-text-property (point) pos 'nt-age 'old) - (newsticker--buffer-set-faces (point) pos))) - (set-buffer-modified-p nil)))) - ;; move forward - (newsticker-next-item t))))) + (newsticker--do-mark-item-at-point-as-read respect-immortality) + ;; move forward + (newsticker-next-item t))) + +(defun newsticker--do-mark-item-at-point-as-read (&optional respect-immortality) + "Mark item at point as read. +If optional argument RESPECT-IMMORTALITY is not nil immortal items do +not get changed." + (let ((feed (get-text-property (point) 'feed))) + (when feed + (save-excursion + (newsticker--buffer-beginning-of-item) + (let ((inhibit-read-only t) + (age (get-text-property (point) 'nt-age)) + (title (get-text-property (point) 'nt-title)) + (guid (get-text-property (point) 'nt-guid)) + (nt-desc (get-text-property (point) 'nt-desc)) + (pos (save-excursion (newsticker--buffer-end-of-item))) + item) + (when (or (eq age 'new) + (eq age 'obsolete) + (and (eq age 'immortal) + (not respect-immortality))) + ;; find item + (setq item (newsticker--cache-contains newsticker--cache + feed title nt-desc + nil nil guid)) + ;; mark as old + (when item + (setcar (nthcdr 4 item) 'old) + (newsticker--do-forget-preformatted item)) + ;; clean up ticker + (if (or (and (eq age 'new) + newsticker-hide-immortal-items-in-echo-area) + (and (memq age '(old immortal)) + (not + (eq newsticker-hide-old-items-in-newsticker-buffer + newsticker-hide-immortal-items-in-echo-area)))) + (newsticker--ticker-text-remove feed title)) + ;; set faces etc. + (save-excursion + (save-restriction + (widen) + (put-text-property (point) pos 'nt-age 'old) + (newsticker--buffer-set-faces (point) pos))) + (set-buffer-modified-p nil))))))) (defun newsticker-mark-item-at-point-as-immortal () "Mark item at point as read." @@ -2969,7 +3061,7 @@ not get changed." ) ((eq org-inv-prop nil) (add-text-properties pos1 pos2 - (list 'invisible t + (list 'invisible (list t) 'org-invisible inv-prop))) (t ;; toggle @@ -3246,11 +3338,19 @@ Argument EVENT tells what has happened to the process." ;; encoded and starts with a `<', wrap the whole ;; description in a CDATA expression. This happened for ;; http://www.thefreedictionary.com/_/WoD/rss.aspx?type=quote - (goto-char (point-min)) - (while (re-search-forward - "<description>\\(<img.*?\\)</description>" nil t) - (replace-match - "<description><![CDATA[ \\1 ]]></description>")) + (goto-char (point-min)) + (while (re-search-forward + "<description>\\(<img.*?\\)</description>" nil t) + (replace-match + "<description><![CDATA[ \\1 ]]></description>")) + ;; And another one (20051123)! XML parser does not like this: + ;; <yweather:location city="Frankfurt/Main" region="" country="GM" /> + ;; try to "fix" empty attributes + ;; This happened for + ;; http://xml.weather.yahoo.com/forecastrss?p=GMXX0040&u=f + (goto-char (point-min)) + (while (re-search-forward "\\(<[^>]*\\)=\"\"" nil t) + (replace-match "\\1=\" \"")) ;; (set-buffer-modified-p nil) ;; check coding system @@ -3976,18 +4076,20 @@ Examples: (if iso8601-string (when (string-match (concat - "\\([0-9]\\{4\\}\\)" + "^ *\\([0-9]\\{4\\}\\)" "\\(-\\([0-9]\\{2\\}\\)" "\\(-\\([0-9]\\{2\\}\\)" "\\(T" "\\([0-9]\\{2\\}\\):\\([0-9]\\{2\\}\\)" "\\(:\\([0-9]\\{2\\}\\)\\)?" "\\(\\([-+Z]\\)\\(\\([0-9]\\{2\\}\\):\\([0-9]\\{2\\}\\)\\)?\\)?" - "\\)?\\)?\\)?") + "\\)?\\)?\\)? *$") iso8601-string) (let ((year (read (match-string 1 iso8601-string))) - (month (read (match-string 3 iso8601-string))) - (day (read (match-string 5 iso8601-string))) + (month (read (or (match-string 3 iso8601-string) + "1"))) + (day (read (or (match-string 5 iso8601-string) + "1"))) (hour (read (or (match-string 7 iso8601-string) "0"))) (minute (read (or (match-string 8 iso8601-string) @@ -4252,7 +4354,7 @@ The mode-line is changed accordingly." (force-mode-line-update 0)))) (defun newsticker--buffer-redraw () - "Sometimes (CVS) Emacs forgets to update the window..." + "Redraw the newsticker window." (if (fboundp 'force-window-update) (force-window-update (current-buffer)) (redraw-frame (selected-frame))) @@ -4466,7 +4568,7 @@ FEED-NAME-SYMBOL tells to which feed this item belongs." (replace-match " " nil nil)) (goto-char (point-max))) (when (and newsticker-justification - (eq type 'desc) + (memq type '(item desc)) (not is-rendered-HTML)) (condition-case nil (let ((use-hard-newlines t)) @@ -4598,7 +4700,8 @@ FEED-NAME-SYMBOL tells to which feed this item belongs." (beg (point))) (when enclosure (let ((url (cdr (assoc 'url enclosure))) - (length (string-to-number (cdr (assoc 'length enclosure)))) + (length (string-to-number (or (cdr (assoc 'length enclosure)) + "0"))) (type (cdr (assoc 'type enclosure)))) (cond ((> length 1048576) (insert (format "Enclosed file (%s, %1.2f MBytes)" type @@ -4732,17 +4835,8 @@ The face is chosen according the values of NT-FACE and AGE." (put-text-property pos1 (max pos1 pos2) 'face face)))) (defun newsticker--insert-image (img string) - "Insert IMG with STRING at point. -This is a work-around for a strange behavior of Emacs versions before -21.3.50. Images inserted with `insert-image' vanished after doing -`fill-region'." - ;; This should work: - ;;(insert-image img string) - ;; but it does not. Therefore we do this, which should be equivalent! - (let ((pos (point))) - ;;(insert string) - (insert ":-)") - (add-text-properties pos (point) (list 'display img)))) + "Insert IMG with STRING at point." + (insert-image img string)) ;; ====================================================================== ;;; HTML rendering @@ -4769,7 +4863,6 @@ Renders the HTML code in the region POS1 to POS2 using htmlr." ;; ====================================================================== (defun newsticker--buffer-make-item-completely-visible () "Scroll buffer until current item is completely visible." - (switch-to-buffer (get-buffer-create "*newsticker*")) (when newsticker--auto-narrow-to-feed (let* ((min (or (save-excursion (newsticker--buffer-beginning-of-feed)) (point-min))) diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 257fbc4e47..602c6d25ea 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -7105,10 +7105,12 @@ If both MULTI-METHOD and METHOD are nil, do a lookup in ;; Variables local to connection. (defun tramp-get-ls-command (multi-method method user host) - (save-excursion - (tramp-maybe-open-connection multi-method method user host) - (set-buffer (tramp-get-buffer multi-method method user host)) - tramp-ls-command)) + (or + (save-excursion + (tramp-maybe-open-connection multi-method method user host) + (set-buffer (tramp-get-buffer multi-method method user host)) + tramp-ls-command) + (error "Couldn't find remote `ls' command"))) (defun tramp-get-test-groks-nt (multi-method method user host) (save-excursion @@ -7117,16 +7119,20 @@ If both MULTI-METHOD and METHOD are nil, do a lookup in tramp-test-groks-nt)) (defun tramp-get-file-exists-command (multi-method method user host) - (save-excursion - (tramp-maybe-open-connection multi-method method user host) - (set-buffer (tramp-get-buffer multi-method method user host)) - tramp-file-exists-command)) + (or + (save-excursion + (tramp-maybe-open-connection multi-method method user host) + (set-buffer (tramp-get-buffer multi-method method user host)) + tramp-file-exists-command) + (error "Couldn't find remote `test -e' command"))) (defun tramp-get-remote-perl (multi-method method user host) (tramp-get-connection-property "perl" nil multi-method method user host)) (defun tramp-get-remote-ln (multi-method method user host) - (tramp-get-connection-property "ln" nil multi-method method user host)) + (or + (tramp-get-connection-property "ln" nil multi-method method user host) + (error "Couldn't find remote `ln' command"))) (defun tramp-get-remote-uid (multi-method method user host) (tramp-get-connection-property "uid" nil multi-method method user host)) diff --git a/lisp/outline.el b/lisp/outline.el index 20dfb2429e..579997754f 100644 --- a/lisp/outline.el +++ b/lisp/outline.el @@ -856,19 +856,25 @@ Show the heading too, if it is currently invisible." (t 1)))) (if (< levels 1) (error "Must keep at least one level of headers")) - (let (outline-view-change-hook) - (save-excursion - (goto-char (point-min)) - ;; Skip the prelude, if any. - (unless (outline-on-heading-p t) (outline-next-heading)) + (save-excursion + (let* (outline-view-change-hook + (beg (progn + (goto-char (point-min)) + ;; Skip the prelude, if any. + (unless (outline-on-heading-p t) (outline-next-heading)) + (point))) + (end (progn + (goto-char (point-max)) + ;; Keep empty last line, if available. + (if (bolp) (1- (point)) (point))))) ;; First hide everything. - (outline-flag-region (point) (point-max) t) + (outline-flag-region beg end t) ;; Then unhide the top level headers. (outline-map-region (lambda () (if (<= (funcall outline-level) levels) (outline-show-heading))) - (point) (point-max)))) + beg end))) (run-hooks 'outline-view-change-hook)) (defun hide-other () diff --git a/lisp/pgg-gpg.el b/lisp/pgg-gpg.el index 84bf81a858..014357aa4e 100644 --- a/lisp/pgg-gpg.el +++ b/lisp/pgg-gpg.el @@ -61,7 +61,7 @@ "GnuPG ID of your default identity.") (defun pgg-gpg-process-region (start end passphrase program args) - (let* ((use-agent (pgg-gpg-use-agent-p)) + (let* ((use-agent (and (null passphrase) (pgg-gpg-use-agent-p))) (output-file-name (pgg-make-temp-file "pgg-output")) (args `("--status-fd" "2" @@ -224,7 +224,7 @@ passphrase cache or user." (list "--batch" "--armor" "--always-trust" "--encrypt") (if pgg-text-mode (list "--textmode")) (if sign (list "--sign" "--local-user" pgg-gpg-user-id)) - (if recipients + (if (or recipients pgg-encrypt-for-me) (apply #'nconc (mapcar (lambda (rcpt) (list pgg-gpg-recipient-argument rcpt)) diff --git a/lisp/pgg-pgp.el b/lisp/pgg-pgp.el index 1e1bd6d0fd..9bc494a5ef 100644 --- a/lisp/pgg-pgp.el +++ b/lisp/pgg-pgp.el @@ -143,7 +143,7 @@ Bourne shell or its equivalent \(not tcsh) is needed for \"2>\"." (args (concat "+encrypttoself=off +verbose=1 +batchmode +language=us -fate " - (if recipients + (if (or recipients pgg-encrypt-for-me) (mapconcat 'shell-quote-argument (append recipients (if pgg-encrypt-for-me diff --git a/lisp/pgg-pgp5.el b/lisp/pgg-pgp5.el index b438843e73..7525ee3d98 100644 --- a/lisp/pgg-pgp5.el +++ b/lisp/pgg-pgp5.el @@ -155,7 +155,7 @@ Bourne shell or its equivalent \(not tcsh) is needed for \"2>\"." (args (append `("+NoBatchInvalidKeys=off" "-fat" "+batchmode=1" - ,@(if recipients + ,@(if (or recipients pgg-encrypt-for-me) (apply #'append (mapcar (lambda (rcpt) (list "-r" diff --git a/lisp/play/5x5.el b/lisp/play/5x5.el index e311804222..5dad84fadc 100644 --- a/lisp/play/5x5.el +++ b/lisp/play/5x5.el @@ -170,7 +170,7 @@ (put '5x5-mode 'mode-class 'special) (defun 5x5-mode () - "A mode for playing `5x5' + "A mode for playing `5x5'. The key bindings for 5x5-mode are: @@ -282,7 +282,7 @@ Quit current game \\[5x5-quit-game]" (loop for y from 0 to (1- 5x5-grid-size) sum (5x5-row-value (aref grid y)))) (defun 5x5-draw-grid-end () - "Draw the top/bottom of the grid" + "Draw the top/bottom of the grid." (insert "+") (loop for x from 0 to (1- 5x5-grid-size) do (insert "-" (make-string 5x5-x-scale ?-))) @@ -347,7 +347,7 @@ Quit current game \\[5x5-quit-game]" ;;;###autoload (defun 5x5-crack-xor-mutate () - "Attempt to crack 5x5 by xor the current and best solution. + "Attempt to crack 5x5 by xoring the current and best solution. Mutate the result." (interactive) (5x5-crack #'5x5-make-xor-with-mutation)) @@ -358,7 +358,7 @@ Mutate the result." 5x5-crack takes the argument BREEDER which should be a function that takes two parameters, the first will be a grid vector array that is the current -solution and the second will be the best solution so far. The function +solution and the second will be the best solution so far. The function should return a grid vector array that is the new solution." (interactive "aBreeder function: ") @@ -393,7 +393,7 @@ should return a grid vector array that is the new solution." (5x5-mutate-solution best)) (defun 5x5-make-xor-with-mutation (current best) - "xor current and best solution then mutate the result." + "Xor current and best solution then mutate the result." (let ((xored (5x5-make-new-grid))) (loop for y from 0 to (1- 5x5-grid-size) do (loop for x from 0 to (1- 5x5-grid-size) do @@ -412,8 +412,8 @@ should return a grid vector array that is the new solution." solution) (defun 5x5-play-solution (solution best) - "Play a solution on an empty grid. This destroys the current game in -progress because it is an animated attempt." + "Play a solution on an empty grid. This destroys the current game +in progress because it is an animated attempt." (5x5-new-game) (let ((inhibit-quit t)) (loop for y from 0 to (1- 5x5-grid-size) do @@ -514,7 +514,7 @@ progress because it is an animated attempt." (and (or x y) (not (and x y)))) (defun 5x5-y-or-n-p (prompt) - "5x5 wrapper for y-or-n-p which respects the 5x5-hassle-me setting." + "5x5 wrapper for `y-or-n-p' which respects the `5x5-hassle-me' setting." (if 5x5-hassle-me (y-or-n-p prompt) t)) diff --git a/lisp/play/mpuz.el b/lisp/play/mpuz.el index fdc30c0570..5cb2ed0c9c 100644 --- a/lisp/play/mpuz.el +++ b/lisp/play/mpuz.el @@ -262,8 +262,9 @@ You may abort a game by typing \\<mpuz-mode-map>\\[mpuz-offer-abort]." (fillarray mpuz-board nil) ; erase the board ;; A,B,C,D & E, are the five rows of our multiplication. ;; Choose random values, discarding cases with leading zeros in C or D. - (let* ((A (+ 112 (random 888))) - (min (1+ (/ 1000 A))) + (let* ((A (if mpuz-allow-double-multiplicator (+ 112 (random 888)) + (+ 125 (random 875)))) + (min (1+ (/ 999 A))) (B1 (+ min (random (- 10 min)))) B2 C D E) (while (if (= B1 (setq B2 (+ min (random (- 10 min))))) diff --git a/lisp/printing.el b/lisp/printing.el index 515ac97c91..2f6035a732 100644 --- a/lisp/printing.el +++ b/lisp/printing.el @@ -67,7 +67,7 @@ Please send all bug fixes and enhancements to ;; interface to ps-print package and it also provides some extra stuff. ;; ;; To download the latest ps-print package see -;; `http://www.emacswiki.org/cgi-bin/emacs/download/ps-print.tar.gz'. +;; `http://www.emacswiki.org/cgi-bin/wiki/PsPrintPackage'. ;; Please, see README file for ps-print installation instructions. ;; ;; `printing' was inspired on: @@ -958,7 +958,7 @@ Please send all bug fixes and enhancements to ;; * For `printing' package: ;; ;; printing `http://www.emacswiki.org/cgi-bin/emacs/download/printing.el' -;; ps-print `http://www.emacswiki.org/cgi-bin/emacs/download/ps-print.tar.gz' +;; ps-print `http://www.emacswiki.org/cgi-bin/wiki/PsPrintPackage' ;; ;; * For GNU or Unix system: ;; diff --git a/lisp/progmodes/cc-cmds.el b/lisp/progmodes/cc-cmds.el index 96924899ea..4f9e194773 100644 --- a/lisp/progmodes/cc-cmds.el +++ b/lisp/progmodes/cc-cmds.el @@ -78,8 +78,10 @@ indentation change \(in columns)." (save-excursion (beginning-of-line) (looking-at (if line-cont-backslash - "\\(\\s *\\)\\\\$" - "\\(\\s *\\)$"))) + ;; Don't use "\\s " - ^L doesn't count as WS + ;; here + "\\([ \t]*\\)\\\\$" + "\\([ \t]*\\)$"))) (<= (point) (match-end 1))) ;; Delete all whitespace after point if there's only whitespace ;; on the line, so that any code that does back-to-indentation @@ -4236,6 +4238,7 @@ If a fill prefix is specified, it overrides all the above." (c-collect-line-comments c-lit-limits)) c-lit-type))) (pos (point)) + (start-col (current-column)) (comment-text-end (or (and (eq c-lit-type 'c) (save-excursion @@ -4252,6 +4255,11 @@ If a fill prefix is specified, it overrides all the above." ;; ;; If point is on the 'B' then the line will be ;; broken after "Bla b". + ;; + ;; If we have an empty comment, /* */, the next + ;; lot of code pushes point to the */. We fix + ;; this by never allowing point to end up to the + ;; right of where it started. (while (and (< (current-column) (cdr fill)) (not (eolp))) (forward-char 1)) @@ -4274,7 +4282,10 @@ If a fill prefix is specified, it overrides all the above." ((< (point) (+ (car c-lit-limits) 2)) (goto-char (+ (car c-lit-limits) 2)))) (funcall do-line-break) - (insert-and-inherit (car fill)))) + (insert-and-inherit (car fill)) + (if (> (current-column) start-col) + (move-to-column start-col)))) ; can this hit the + ; middle of a TAB? ;; Inside a comment that should be broken. (let ((comment-start comment-start) (comment-end comment-end) diff --git a/lisp/progmodes/cc-defs.el b/lisp/progmodes/cc-defs.el index 1858b43f32..43fa0ab593 100644 --- a/lisp/progmodes/cc-defs.el +++ b/lisp/progmodes/cc-defs.el @@ -740,7 +740,7 @@ be after it." ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; V i r t u a l S e m i c o l o n s +;; V i r t u a l S e m i c o l o n s ;; ;; In most CC Mode languages, statements are terminated explicitly by ;; semicolons or closing braces. In some of the CC modes (currently only AWK @@ -784,7 +784,7 @@ be after it." ;; ;; The macro `c-vsemi-status-unknown-p' will typically check the cacheing ;; scheme used by the `c-at-vsemi-p-fn', hence the name - the status is -;; "unknown" if there is no cache entry current for the line. +;; "unknown" if there is no cache entry current for the line. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defmacro c-at-vsemi-p (&optional pos) @@ -1514,8 +1514,8 @@ might be present: (i.e. the syntax class `|'). 'pps-extended-state `parse-partial-sexp' returns a list with at least 10 elements, i.e. it contains the position of the start of - the last comment or string. It's always set - CC Mode no - longer works in emacsen without this feature. + the last comment or string. It's always set - CC Mode + no longer works in emacsen without this feature. 'posix-char-classes The regexp engine understands POSIX character classes. 'col-0-paren It's possible to turn off the ad-hoc rule that a paren in column zero is the start of a defun. diff --git a/lisp/progmodes/cc-engine.el b/lisp/progmodes/cc-engine.el index f05d663247..f69382c9d7 100644 --- a/lisp/progmodes/cc-engine.el +++ b/lisp/progmodes/cc-engine.el @@ -6256,13 +6256,13 @@ comment at the start of cc-engine.el for more info." (catch 'knr (while t ; go round one paren/bracket construct each time round. - (or (c-syntactic-skip-backward "^)]}") - (throw 'knr nil)) ; no more bpb pairs left. + (c-syntactic-skip-backward "^)]}") (cond ((eq (char-before) ?\)) (setq after-rparen (point))) - ((eq (char-before) ?\}) - (throw 'knr nil)) - (t (setq after-rparen nil))) ; "]" + ((eq (char-before) ?\]) + (setq after-rparen nil)) + (t ; either } (hit previous defun) or no more parens/brackets + (throw 'knr nil))) (if after-rparen ;; We're inside a paren. Could it be our argument list....? diff --git a/lisp/progmodes/cc-vars.el b/lisp/progmodes/cc-vars.el index 3aac25b43e..cbf2b44de2 100644 --- a/lisp/progmodes/cc-vars.el +++ b/lisp/progmodes/cc-vars.el @@ -1168,7 +1168,7 @@ OFFSET can specify an offset in several different ways: If OFFSET is a symbol with a value binding then that value, which must be an integer, is used as relative offset. - If OFFSET is a vector then it's first element, which must be an + If OFFSET is a vector then its first element, which must be an integer, is used as an absolute indentation column. This overrides the previous base indentation and the relative offsets applied to it, and it becomes the new base indentation. diff --git a/lisp/progmodes/cwarn.el b/lisp/progmodes/cwarn.el index b1b22ed353..8f710bf20b 100644 --- a/lisp/progmodes/cwarn.el +++ b/lisp/progmodes/cwarn.el @@ -372,7 +372,7 @@ The mode is turned if some feature is enabled for the current (if (cwarn-is-enabled major-mode) (turn-on-cwarn-mode))) ;;;###autoload -(define-global-minor-mode global-cwarn-mode +(define-globalized-minor-mode global-cwarn-mode cwarn-mode turn-on-cwarn-mode-if-enabled) (provide 'cwarn) diff --git a/lisp/progmodes/ebnf2ps.el b/lisp/progmodes/ebnf2ps.el index d6c3d99677..23ba4b55f3 100644 --- a/lisp/progmodes/ebnf2ps.el +++ b/lisp/progmodes/ebnf2ps.el @@ -100,7 +100,7 @@ Please send all bug fixes and enhancements to ;; send the spooled images to the printer, use the command ;; `ebnf-despool'. ;; -;; eps - The PostScript image is immediately sent to a EPS file. +;; eps - The PostScript image is immediately sent to an EPS file. ;; ;; The spooling mechanism is the same as used by ps-print and was designed for ;; printing lots of small files to save paper that would otherwise be wasted on @@ -807,11 +807,10 @@ Please send all bug fixes and enhancements to ;; and name this group. So when you wish to apply these settings it's only ;; needed to give the name. ;; -;; There is also a notion of simple inheritance of style; so, if you declare -;; that a style A inherits from a style B, all settings of B is applied first -;; and then the settings of A is applied. This is useful when you wish to -;; modify some aspects of an existing style, but at same time wish to keep it -;; unmodified. +;; There is also a notion of simple inheritance of style: if you declare that +;; style A inherits from style B, all settings of B are applied first and then +;; the settings of A are applied. This is useful when you wish to modify some +;; aspects of an existing style, but at same time wish to keep it unmodified. ;; ;; See documentation for `ebnf-style-database'. ;; @@ -1094,6 +1093,8 @@ Please send all bug fixes and enhancements to ;; Acknowledgements ;; ---------------- ;; +;; Thanks to Eli Zaretskii <[email protected]> for some doc fixes. +;; ;; Thanks to Drew Adams <[email protected]> for suggestions: ;; - `ebnf-arrow-extra-width', `ebnf-arrow-scale', ;; `ebnf-production-name-p', `ebnf-stop-on-error', @@ -2182,9 +2183,9 @@ See also `ebnf-eps-buffer'." ;;;###autoload (defun ebnf-eps-buffer () - "Generate a PostScript syntactic chart image of the buffer in a EPS file. + "Generate a PostScript syntactic chart image of the buffer in an EPS file. -Indeed, for each production is generated a EPS file. +Generate an EPS file for each production in the buffer. The EPS file name has the following form: <PREFIX><PRODUCTION>.eps @@ -2193,20 +2194,22 @@ The EPS file name has the following form: The default value is \"ebnf--\". <PRODUCTION> is the production name. - The production name is mapped to form a valid file name. - For example, the production name \"A/B + C\" is mapped to - \"A_B_+_C\" and the EPS file name used is \"ebnf--A_B_+_C.eps\". + Some characters in the production file name are replaced to + produce a valid file name. For example, the production name + \"A/B + C\" is modified to produce \"A_B_+_C\", and the EPS + file name used in this case will be \"ebnf--A_B_+_C.eps\". -WARNING: It's *NOT* asked any confirmation to override an existing file." +WARNING: This function does *NOT* ask any confirmation to override existing + files." (interactive) (ebnf-eps-region (point-min) (point-max))) ;;;###autoload (defun ebnf-eps-region (from to) - "Generate a PostScript syntactic chart image of the region in a EPS file. + "Generate a PostScript syntactic chart image of the region in an EPS file. -Indeed, for each production is generated a EPS file. +Generate an EPS file for each production in the region. The EPS file name has the following form: <PREFIX><PRODUCTION>.eps @@ -2215,11 +2218,13 @@ The EPS file name has the following form: The default value is \"ebnf--\". <PRODUCTION> is the production name. - The production name is mapped to form a valid file name. - For example, the production name \"A/B + C\" is mapped to - \"A_B_+_C\" and the EPS file name used is \"ebnf--A_B_+_C.eps\". + Some characters in the production file name are replaced to + produce a valid file name. For example, the production name + \"A/B + C\" is modified to produce \"A_B_+_C\", and the EPS + file name used in this case will be \"ebnf--A_B_+_C.eps\". -WARNING: It's *NOT* asked any confirmation to override an existing file." +WARNING: This function does *NOT* ask any confirmation to override existing + files." (interactive "r") (let ((ebnf-eps-executing t)) (ebnf-generate-region from to 'ebnf-generate-eps))) @@ -2231,12 +2236,12 @@ WARNING: It's *NOT* asked any confirmation to override an existing file." ;;;###autoload (defun ebnf-syntax-directory (&optional directory) - "Does a syntactic analysis of the files in DIRECTORY. + "Do a syntactic analysis of the files in DIRECTORY. -If DIRECTORY is nil, it's used `default-directory'. +If DIRECTORY is nil, use `default-directory'. -The files in DIRECTORY that matches `ebnf-file-suffix-regexp' (which see) are -processed. +Only the files in DIRECTORY that match `ebnf-file-suffix-regexp' (which see) +are processed. See also `ebnf-syntax-buffer'." (interactive @@ -2247,7 +2252,7 @@ See also `ebnf-syntax-buffer'." ;;;###autoload (defun ebnf-syntax-file (file &optional do-not-kill-buffer-when-done) - "Does a syntactic analysis of the FILE. + "Do a syntactic analysis of the named FILE. If optional arg DO-NOT-KILL-BUFFER-WHEN-DONE is non-nil, the buffer isn't killed after syntax checking. @@ -2259,14 +2264,14 @@ See also `ebnf-syntax-buffer'." ;;;###autoload (defun ebnf-syntax-buffer () - "Does a syntactic analysis of the current buffer." + "Do a syntactic analysis of the current buffer." (interactive) (ebnf-syntax-region (point-min) (point-max))) ;;;###autoload (defun ebnf-syntax-region (from to) - "Does a syntactic analysis of a region." + "Do a syntactic analysis of region." (interactive "r") (ebnf-generate-region from to nil)) @@ -2572,23 +2577,22 @@ Where: NAME is a symbol name style. INHERITS is a symbol name style from which the current style inherits - the context. If INHERITS is nil, means that there is no - inheritance. + the context. If INHERITS is nil, then there is no inheritance. - This is a simple inheritance of style; so if you declare that a - style A inherits from a style B, all settings of B is applied - first and then the settings of A is applied. This is useful + This is a simple inheritance of style: if you declare that + style A inherits from style B, all settings of B are applied + first, and then the settings of A are applied. This is useful when you wish to modify some aspects of an existing style, but - at same time wish to keep it unmodified. + at the same time wish to keep it unmodified. VAR is a valid ebnf2ps symbol custom variable. - See `ebnf-style-custom-list' for valid symbol variable. + See `ebnf-style-custom-list' for valid symbol variables. -VALUE is a sexp which it'll be evaluated to set the value to VAR. - So, don't forget to quote symbols and constant lists. +VALUE is a sexp which will be evaluated to set the value of VAR. + Don't forget to quote symbols and constant lists. See `default' style for an example. -Don't handle this variable directly. Use functions `ebnf-insert-style', +Don't use this variable directly. Use functions `ebnf-insert-style', `ebnf-delete-style' and `ebnf-merge-style'.") @@ -2655,7 +2659,7 @@ See `ebnf-style-database' documentation." (defun ebnf-apply-style (style) "Set STYLE as the current style. -It returns the old style symbol. +Returns the old style symbol. See `ebnf-style-database' documentation." (interactive "SApply style: ") @@ -2669,7 +2673,7 @@ See `ebnf-style-database' documentation." (defun ebnf-reset-style (&optional style) "Reset current style. -It returns the old style symbol. +Returns the old style symbol. See `ebnf-style-database' documentation." (interactive "SReset style: ") @@ -2679,9 +2683,11 @@ See `ebnf-style-database' documentation." ;;;###autoload (defun ebnf-push-style (&optional style) - "Push the current style and set STYLE as the current style. + "Push the current style onto a stack and set STYLE as the current style. -It returns the old style symbol. +Returns the old style symbol. + +See also `ebnf-pop-style'. See `ebnf-style-database' documentation." (interactive "SPush style: ") @@ -2694,9 +2700,11 @@ See `ebnf-style-database' documentation." ;;;###autoload (defun ebnf-pop-style () - "Pop a style and set it as the current style. + "Pop a style from the stack of pushed styles and set it as the current style. + +Returns the old style symbol. -It returns the old style symbol. +See also `ebnf-push-style'. See `ebnf-style-database' documentation." (interactive) @@ -2758,7 +2766,7 @@ Each element has the following form: PRODUCTION is the production name. EPS-FILENAME is the EPS file name. -It's generated during parsing and used during EPS generation. +This is generated during parsing and used during EPS generation. See `ebnf-eps-context' and section \"Actions in Comments\" in ebnf2ps documentation.") @@ -4603,9 +4611,9 @@ end (defun ebnf-directory (fun &optional directory) "Process files in DIRECTORY applying function FUN on each file. -If DIRECTORY is nil, it's used `default-directory'. +If DIRECTORY is nil, use `default-directory'. -The files in DIRECTORY that matches `ebnf-file-suffix-regexp' (which see) are +Only files in DIRECTORY that match `ebnf-file-suffix-regexp' (which see) are processed." (let ((files (directory-files (or directory default-directory) t ebnf-file-suffix-regexp))) @@ -4619,7 +4627,7 @@ processed." (defun ebnf-file (fun file &optional do-not-kill-buffer-when-done) - "Process file FILE applying function FUN. + "Process the named FILE applying function FUN. If optional arg DO-NOT-KILL-BUFFER-WHEN-DONE is non-nil, the buffer isn't killed after process termination." @@ -4821,7 +4829,7 @@ killed after process termination." (ebnf ebnf-bnf-parser ebnf-bnf-initialize) (ebnfx ebnf-ebx-parser ebnf-ebx-initialize) (dtd ebnf-dtd-parser ebnf-dtd-initialize)) - "Alist associating ebnf syntax with a parser and a initializer.") + "Alist associating EBNF syntax with a parser and an initializer.") (defun ebnf-begin-job () diff --git a/lisp/progmodes/flymake.el b/lisp/progmodes/flymake.el index 80015795cd..8d126c8a41 100644 --- a/lisp/progmodes/flymake.el +++ b/lisp/progmodes/flymake.el @@ -1626,7 +1626,7 @@ Return full-name. Names are real, not patched." buildfile-name source-file-name))))) (defun flymake-init-create-temp-source-and-master-buffer-copy (get-incl-dirs-f create-temp-f master-file-masks include-regexp) - "Find master file (or buffer), create it's copy along with a copy of the source file." + "Find master file (or buffer), create its copy along with a copy of the source file." (let* ((source-file-name buffer-file-name) (temp-source-file-name (flymake-init-create-temp-buffer-copy create-temp-f)) (master-and-temp-master (flymake-create-master-file diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el index c2811a9658..02c65ae07d 100644 --- a/lisp/progmodes/gdb-ui.el +++ b/lisp/progmodes/gdb-ui.el @@ -114,7 +114,7 @@ Set to \"main\" at start if gdb-show-main is t.") (defvar gdb-var-list nil "List of variables in watch window. Each element has the form (VARNUM EXPRESSION NUMCHILD TYPE VALUE STATUS FP) -where STATUS is nil (unchanged), `changed' or `out-of-scope', FP the frame +where STATUS is nil (`unchanged'), `changed' or `out-of-scope', FP the frame address for root variables.") (defvar gdb-main-file nil "Source file from which program execution begins.") (defvar gud-old-arrow nil) @@ -606,34 +606,31 @@ With arg, use separate IO iff arg is positive." (setq gdb-version "6.4+")) (gdb-init-2)) +(defmacro gdb-if-arrow (arrow-position &rest body) + `(if ,arrow-position + (let ((buffer (marker-buffer ,arrow-position)) (line)) + (if (equal buffer (window-buffer (posn-window end))) + (with-current-buffer buffer + (when (or (equal start end) + (equal (posn-point start) + (marker-position ,arrow-position))) + ,@body)))))) + (defun gdb-mouse-until (event) "Continue running until a source line past the current line. The destination source line can be selected either by clicking with mouse-2 on the fringe/margin or dragging the arrow with mouse-1 (default bindings)." (interactive "e") - (if gud-overlay-arrow-position - (let ((start (event-start event)) - (end (event-end event)) - (buffer (marker-buffer gud-overlay-arrow-position)) (line)) - (if (not (string-match "Machine" mode-name)) - (if (equal buffer (window-buffer (posn-window end))) - (with-current-buffer buffer - (when (or (equal start end) - (equal (posn-point start) - (marker-position - gud-overlay-arrow-position))) - (setq line (line-number-at-pos (posn-point end))) - (gud-call (concat "until " (number-to-string line)))))) - (if (equal (marker-buffer gdb-overlay-arrow-position) - (window-buffer (posn-window end))) - (when (or (equal start end) - (equal (posn-point start) - (marker-position - gdb-overlay-arrow-position))) - (save-excursion - (goto-line (line-number-at-pos (posn-point end))) - (forward-char 2) - (gud-call (concat "until *%a"))))))))) + (let ((start (event-start event)) + (end (event-end event))) + (gdb-if-arrow gud-overlay-arrow-position + (setq line (line-number-at-pos (posn-point end))) + (gud-call (concat "until " (number-to-string line)))) + (gdb-if-arrow gdb-overlay-arrow-position + (save-excursion + (goto-line (line-number-at-pos (posn-point end))) + (forward-char 2) + (gud-call (concat "until *%a")))))) (defun gdb-mouse-jump (event) "Set execution address/line. @@ -642,32 +639,20 @@ on the fringe/margin or dragging the arrow with mouse-1 (default bindings). Unlike gdb-mouse-until the destination address can be before the current line, and no execution takes place." (interactive "e") - (if gud-overlay-arrow-position - (let ((start (event-start event)) - (end (event-end event)) - (buffer (marker-buffer gud-overlay-arrow-position)) (line)) - (if (not (string-match "Machine" mode-name)) - (if (equal buffer (window-buffer (posn-window end))) - (with-current-buffer buffer - (when (or (equal start end) - (equal (posn-point start) - (marker-position - gud-overlay-arrow-position))) - (setq line (line-number-at-pos (posn-point end))) - (progn (gud-call (concat "tbreak " (number-to-string line))) - (gud-call (concat "jump " (number-to-string line))))))) - (if (equal (marker-buffer gdb-overlay-arrow-position) - (window-buffer (posn-window end))) - (when (or (equal start end) - (equal (posn-point start) - (marker-position - gdb-overlay-arrow-position))) - (save-excursion - (goto-line (line-number-at-pos (posn-point end))) - (forward-char 2) + (let ((start (event-start event)) + (end (event-end event))) + (gdb-if-arrow gud-overlay-arrow-position + (setq line (line-number-at-pos (posn-point end))) (progn - (gud-call (concat "tbreak *%a")) - (gud-call (concat "jump *%a")))))))))) + (gud-call (concat "tbreak " (number-to-string line))) + (gud-call (concat "jump " (number-to-string line))))) + (gdb-if-arrow gdb-overlay-arrow-position + (save-excursion + (goto-line (line-number-at-pos (posn-point end))) + (forward-char 2) + (progn + (gud-call (concat "tbreak *%a")) + (gud-call (concat "jump *%a"))))))) (defcustom gdb-speedbar-auto-raise nil "If non-nil raise speedbar every time display of watch expressions is\ @@ -739,7 +724,7 @@ With arg, enter name of variable to be watched in the minibuffer." (match-string 2) (match-string 4) (if (match-string 3) (read (match-string 3))) - nil gdb-frame-address))) + nil gdb-frame-address))) (push var gdb-var-list) (unless (string-equal speedbar-initial-expansion-list-name "GUD") @@ -759,7 +744,8 @@ With arg, enter name of variable to be watched in the minibuffer." (message-box "No symbol \"%s\" in current context." expr)))) (defun gdb-speedbar-update () - (when (and (boundp 'speedbar-frame) (frame-live-p speedbar-frame)) + (when (and (boundp 'speedbar-frame) (frame-live-p speedbar-frame) + (not (member 'gdb-speedbar-timer gdb-pending-triggers))) ;; Dummy command to update speedbar even when idle. (gdb-enqueue-input (list "server pwd\n" 'gdb-speedbar-timer-fn)) ;; Keep gdb-pending-triggers non-nil till end. @@ -848,6 +834,19 @@ type_changed=\".*?\".*?}") (setq gdb-pending-triggers (delq 'gdb-var-update gdb-pending-triggers))) +(defun gdb-var-delete-1 (varnum) + (gdb-enqueue-input + (list + (if (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer) + 'gdba) + (concat "server interpreter mi \"-var-delete " varnum "\"\n") + (concat "-var-delete " varnum "\n")) + 'ignore)) + (setq gdb-var-list (delq var gdb-var-list)) + (dolist (varchild gdb-var-list) + (if (string-match (concat (car var) "\\.") (car varchild)) + (setq gdb-var-list (delq varchild gdb-var-list))))) + (defun gdb-var-delete () "Delete watch expression at point from the speedbar." (interactive) @@ -857,17 +856,7 @@ type_changed=\".*?\".*?}") (varnum (car var))) (if (string-match "\\." (car var)) (message-box "Can only delete a root expression") - (gdb-enqueue-input - (list - (if (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer) - 'gdba) - (concat "server interpreter mi \"-var-delete " varnum "\"\n") - (concat "-var-delete " varnum "\n")) - 'ignore)) - (setq gdb-var-list (delq var gdb-var-list)) - (dolist (varchild gdb-var-list) - (if (string-match (concat (car var) "\\.") (car varchild)) - (setq gdb-var-list (delq varchild gdb-var-list)))))))) + (gdb-var-delete-1 varnum))))) (defun gdb-var-delete-children (varnum) "Delete children of variable object at point from the speedbar." @@ -2154,8 +2143,9 @@ static char *magick[] = { (kill-all-local-variables) (setq major-mode 'gdb-frames-mode) (setq mode-name "Frames") - (setq gdb-stack-position nil) + (setq gdb-stack-position nil) (add-to-list 'overlay-arrow-variable-list 'gdb-stack-position) + (setq truncate-lines t) ;; Make it easier to see overlay arrow. (setq buffer-read-only t) (use-local-map gdb-frames-mode-map) (run-mode-hooks 'gdb-frames-mode-hook) @@ -3443,16 +3433,8 @@ in_scope=\"\\(.*?\\)\".*?}") (setcar (nthcdr 5 var) 'changed) (setcar (nthcdr 4 var) (read (match-string 2)))) -;; ((string-equal match "invalid") -;; (gdb-enqueue-input -;; (list -;; (if (eq (buffer-local-value -;; 'gud-minor-mode gud-comint-buffer) 'gdba) -;; (concat "server interpreter mi \"-var-delete " -;; varnum "\"\n") -;; (concat "-var-delete " varnum "\n")) -;; 'ignore))) - ))))) + ((string-equal match "invalid") + (gdb-var-delete-1 varnum))))))) (setq gdb-pending-triggers (delq 'gdb-var-update gdb-pending-triggers)) (gdb-speedbar-update)) diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el index c692876883..a0dd83fb97 100644 --- a/lisp/progmodes/grep.el +++ b/lisp/progmodes/grep.el @@ -150,6 +150,8 @@ The following place holders should be present in the string: ("asm" . "*.[sS]") ("m" . "[Mm]akefile*") ("l" . "[Cc]hange[Ll]og*") + ("tex" . "*.tex") + ("texi" . "*.texi") ) "*Alist of aliases for the FILES argument to `lgrep' and `rgrep'." :type 'alist @@ -531,6 +533,9 @@ or \\<grep-mode-map>\\[compile-goto-error] in the grep \ output buffer, to go to the lines where grep found matches. +For doing a recursive `grep', see the `rgrep' command. For running +`grep' in a specific directory, see `lgrep'. + This command uses a special history list for its COMMAND-ARGS, so you can easily repeat a grep command. @@ -654,8 +659,8 @@ substitution string. Note dynamic scoping of variables.") files)))) ;;;###autoload -(defun lgrep (regexp &optional files) - "Run grep, searching for REGEXP in FILES in current directory. +(defun lgrep (regexp &optional files dir) + "Run grep, searching for REGEXP in FILES in directory DIR. The search is limited to file names matching shell pattern FILES. FILES may use abbreviations defined in `grep-files-aliases', e.g. entering `ch' is equivalent to `*.[ch]'. @@ -681,13 +686,16 @@ This command shares argument histories with \\[rgrep] and \\[grep]." (list nil (read-string "grep.el: No `grep-template' available. Press RET."))) (t (let* ((regexp (grep-read-regexp)) - (files (grep-read-files regexp))) - (list regexp files)))))) + (files (grep-read-files regexp)) + (dir (read-directory-name "In directory: " + nil default-directory t))) + (list regexp files dir)))))) (when (and (stringp regexp) (> (length regexp) 0)) (let ((command regexp)) (if (null files) (if (string= command grep-command) (setq command nil)) + (setq dir (file-name-as-directory (expand-file-name dir))) (setq command (grep-expand-template grep-template regexp @@ -699,11 +707,15 @@ This command shares argument histories with \\[rgrep] and \\[grep]." command nil nil 'grep-history)) (add-to-history 'grep-history command)))) (when command - ;; Setting process-setup-function makes exit-message-function work - ;; even when async processes aren't supported. - (compilation-start (if (and grep-use-null-device null-device) - (concat command " " null-device) - command) 'grep-mode))))) + (let ((default-directory dir)) + ;; Setting process-setup-function makes exit-message-function work + ;; even when async processes aren't supported. + (compilation-start (if (and grep-use-null-device null-device) + (concat command " " null-device) + command) 'grep-mode)) + (if (eq next-error-last-buffer (current-buffer)) + (setq default-directory dir)))))) + ;;;###autoload diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index b9de6fab9b..312b718722 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el @@ -3177,20 +3177,25 @@ class of the file (using s to separate nested class ids)." ("\\$\\(\\w+\\)" (1 font-lock-variable-name-face)) ("^\\s-*\\(\\w\\(\\w\\|\\s_\\)*\\)" (1 font-lock-keyword-face)))) -;; FIXME: The keyword "end" associated with "document" -;; should have font-lock-keyword-face (currently font-lock-doc-face). (defvar gdb-script-font-lock-syntactic-keywords '(("^document\\s-.*\\(\n\\)" (1 "< b")) - ;; It would be best to change the \n in front, but it's more difficult. ("^end\\>" - (0 (progn - (unless (eq (match-beginning 0) (point-min)) - (put-text-property (1- (match-beginning 0)) (match-beginning 0) - 'syntax-table (eval-when-compile - (string-to-syntax "> b"))) - (put-text-property (1- (match-beginning 0)) (match-end 0) - 'font-lock-multiline t) - nil)))))) + (0 (unless (eq (match-beginning 0) (point-min)) + ;; We change the \n in front, which is more difficult, but results + ;; in better highlighting. If the doc is empty, the single \n is + ;; both the beginning and the end of the docstring, which can't be + ;; expressed in syntax-tables. Instead, we place the "> b" after + ;; placing the "< b", so the start marker is overwritten by the + ;; termination marker and in the end Emacs simply considers that + ;; there's no docstring at all, which is fine. + (put-text-property (1- (match-beginning 0)) (match-beginning 0) + 'syntax-table (eval-when-compile + (string-to-syntax "> b"))) + ;; Make sure that rehighlighting the previous line won't erase our + ;; syntax-table property. + (put-text-property (1- (match-beginning 0)) (match-end 0) + 'font-lock-multiline t) + nil))))) (defun gdb-script-font-lock-syntactic-face (state) (cond diff --git a/lisp/progmodes/idlw-shell.el b/lisp/progmodes/idlw-shell.el index 64f359aa1e..aa2d1b32d1 100644 --- a/lisp/progmodes/idlw-shell.el +++ b/lisp/progmodes/idlw-shell.el @@ -1026,7 +1026,8 @@ IDL has currently stepped.") (setq idlwave-shell-ready nil) (setq idlwave-shell-bp-alist nil) (idlwave-shell-update-bp-overlays) ; Throw away old overlays - (setq idlwave-shell-sources-alist nil) + (setq idlwave-shell-post-command-hook nil ;clean up any old stuff + idlwave-shell-sources-alist nil) (setq idlwave-shell-default-directory default-directory) (setq idlwave-shell-hide-output nil) @@ -1303,7 +1304,7 @@ output to complete and the next prompt to arrive before returning \(useful if you need an answer now\). IDL is considered ready if the prompt is present and if `idlwave-shell-ready' is non-nil. -If SHOW-IF-ERROR is non-nil, show the output it it contains an error +If SHOW-IF-ERROR is non-nil, show the output if it contains an error message, independent of what HIDE is set to." ; (setq hide nil) ; FIXME: turn this on for debugging only @@ -2621,7 +2622,10 @@ Returns nil if unable to obtain a module name." (widen) (save-excursion (if (idlwave-prev-index-position) - (upcase (idlwave-unit-name))))))) + (let* ((module (idlwave-what-module)) + (name (idlwave-make-full-name (nth 2 module) (car module))) + (type (nth 1 module))) + (list (upcase name) type))))))) (defun idlwave-shell-clear-current-bp () "Remove breakpoint at current line. @@ -2634,7 +2638,10 @@ at a breakpoint." (defun idlwave-shell-toggle-enable-current-bp (&optional bp force no-update) - "Disable or enable current bp." + "Disable or enable current breakpoint or a breakpoint passed in BP. +If FORCE is 'disable or 'enable, for that condition instead of +toggling. If NO-UPDATE is non-nil, don't update the breakpoint +list after toggling." (interactive) (let* ((bp (or bp (idlwave-shell-find-current-bp))) (disabled (idlwave-shell-bp-get bp 'disabled))) @@ -2685,22 +2692,28 @@ The command looks for an identifier near point and sets a breakpoint for the first line of the corresponding module. If MODULE is `t', set in the current routine." (interactive) - (let ((module (idlwave-fix-module-if-obj_new (idlwave-what-module)))) + (let* ((module (idlwave-fix-module-if-obj_new (idlwave-what-module))) + (type (nth 1 module)) + (name (car module)) + (class (nth 2 module))) (if module (progn (setq module (idlwave-make-full-name (nth 2 module) (car module))) - (idlwave-shell-module-source-query module) - (idlwave-shell-set-bp-in-module module)) + (idlwave-shell-module-source-query module type) + (idlwave-shell-set-bp-in-module name type class)) (error "No identifier at point")))) -(defun idlwave-shell-set-bp-in-module (module) +(defun idlwave-shell-set-bp-in-module (name type class) "Set breakpoint in module. Assumes that `idlwave-shell-sources-alist' contains an entry for that module." - (let ((source-file (car-safe - (cdr-safe - (assoc (upcase module) - idlwave-shell-sources-alist)))) + (let ((source-file + (car-safe (cdr-safe + (or + (assoc (upcase (idlwave-make-full-name class name)) + idlwave-shell-sources-alist) + (nth 3 (idlwave-best-rinfo-assoc name type class + (idlwave-routines))))))) buf) (if (or (not source-file) (not (file-regular-p source-file)) @@ -3376,12 +3389,12 @@ Queries IDL using the string in `idlwave-shell-bp-query'." 'hide)) (defun idlwave-shell-bp-get (bp &optional item) - "Get a value for a breakpoint. -BP has the form of elements in idlwave-shell-bp-alist. Optional -second arg ITEM is the particular value to retrieve. ITEM can be -'file, 'line, 'index, 'module, 'count, 'cmd, 'condition, 'disabled or -'data. 'data returns a list of 'count, 'cmd and 'condition. Defaults -to 'index." + "Get a value for a breakpoint. BP has the form of elements in +idlwave-shell-bp-alist. Optional second arg ITEM is the +particular value to retrieve. ITEM can be 'file, 'line, 'index, +'module, 'count, 'cmd, 'condition, 'disabled, 'type, or +'data. 'data returns a list of 'count, 'cmd and 'condition. +Defaults to 'index." (cond ;; Frame ((eq item 'line) (nth 1 (car bp))) @@ -3393,7 +3406,12 @@ to 'index." ((eq item 'condition) (nth 2 (cdr (cdr bp)))) ((eq item 'disabled) (nth 3 (cdr (cdr bp)))) ;; IDL breakpoint info - ((eq item 'module) (nth 1 (car (cdr bp)))) + ((eq item 'module) + (let ((module (nth 1 (car (cdr bp))))) + (if (listp module) (car module) module))) + ((eq item 'type) + (let ((module (nth 1 (car (cdr bp))))) + (if (listp module) (nth 1 module)))) ;; index - default (t (nth 0 (car (cdr bp)))))) @@ -3486,7 +3504,9 @@ If BP frame is in `idlwave-shell-bp-alist' updates the breakpoint data." and third args, DATA and MODULE, are optional. Returns a breakpoint of the format used in `idlwave-shell-bp-alist'. Can be used in commands attempting match a breakpoint in `idlwave-shell-bp-alist'." - (cons frame (cons (list nil module) data))) + (cons frame ;; (file line) + (cons (list nil module) ;; (index_id (module type) | module) + data))) ;; (count command condition disabled) (defvar idlwave-shell-old-bp nil "List of breakpoints previous to setting a new breakpoint.") @@ -3522,20 +3542,24 @@ specified. If NO-SHOW is non-nil, don't do any updating." 'hide) ;; Get sources for this routine in the sources list - (idlwave-shell-module-source-query (idlwave-shell-bp-get bp 'module)) + (idlwave-shell-module-source-query (idlwave-shell-bp-get bp 'module) + (idlwave-shell-bp-get bp 'type)) (let* - ((arg (idlwave-shell-bp-get bp 'count)) - (key (cond - ((not (and arg (numberp arg))) "") - ((= arg 1) - ",/once") - ((> arg 1) - (format ",after=%d" arg)))) + ((count (idlwave-shell-bp-get bp 'count)) (condition (idlwave-shell-bp-get bp 'condition)) (disabled (idlwave-shell-bp-get bp 'disabled)) - (key (concat key - (if condition (concat ",CONDITION=\"" condition "\"")))) - (key (concat key (if disabled ",/DISABLE"))) + (key (concat (if (and count (numberp count)) + (cond + ((= count 1) ",/once") + ((> count 1) (format ",after=%d" count)))) + (if condition (concat ",CONDITION=\"" condition "\"")) + ;; IDL can't simultaneously set a condition/count + ;; and disable a breakpoint, but it does keep both + ;; of these when resetting the same BP. We assume + ;; DISABLE and CONDITION/COUNT are not set + ;; together for a newly created breakpoint. + (if (and disabled (not condition) (not count)) + ",/DISABLE"))) (line (idlwave-shell-bp-get bp 'line))) (idlwave-shell-send-command (concat "breakpoint,'" @@ -3936,30 +3960,31 @@ Elements of the alist have the form: (module name . (source-file-truename idlwave-internal-filename)).") -(defun idlwave-shell-module-source-query (module) - "Determine the source file for a given module." +(defun idlwave-shell-module-source-query (module &optional type) + "Determine the source file for a given module. +Query as a function if TYPE set to something beside 'pro." (if module (idlwave-shell-send-command - (format "print,(routine_info('%s',/SOURCE)).PATH" module) + (format "print,(routine_info('%s',/SOURCE%s)).PATH" module + (if (eq type 'pro) "" ",/FUNCTIONS")) `(idlwave-shell-module-source-filter ,module) - 'hide))) + 'hide 'wait))) (defun idlwave-shell-module-source-filter (module) "Get module source, and update idlwave-shell-sources-alist." (let ((old (assoc (upcase module) idlwave-shell-sources-alist)) filename) - (if (string-match "\.PATH *[\n\r]\\([^\r\n]+\\)[\n\r]" - idlwave-shell-command-output) - (setq filename (substring idlwave-shell-command-output - (match-beginning 1) (match-end 1))) - (error "No file matching module found.")) - (if old - (setcdr old (list (idlwave-shell-file-name filename) filename)) - (setq idlwave-shell-sources-alist - (append idlwave-shell-sources-alist - (list (cons (upcase module) - (list (idlwave-shell-file-name filename) - filename)))))))) + (when (string-match "\.PATH *[\n\r]\\([^%][^\r\n]+\\)[\n\r]" + idlwave-shell-command-output) + (setq filename (substring idlwave-shell-command-output + (match-beginning 1) (match-end 1))) + (if old + (setcdr old (list (idlwave-shell-file-name filename) filename)) + (setq idlwave-shell-sources-alist + (append idlwave-shell-sources-alist + (list (cons (upcase module) + (list (idlwave-shell-file-name filename) + filename))))))))) (defun idlwave-shell-sources-query () "Determine source files for all IDL compiled procedures. @@ -4101,6 +4126,7 @@ Otherwise, just expand the file name." ;(define-key idlwave-shell-mode-map "\M-?" 'comint-dynamic-list-completions) ;(define-key idlwave-shell-mode-map "\t" 'comint-dynamic-complete) + (define-key idlwave-shell-mode-map "\C-w" 'comint-kill-region) (define-key idlwave-shell-mode-map "\t" 'idlwave-shell-complete) (define-key idlwave-shell-mode-map "\M-\t" 'idlwave-shell-complete) diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el index b5b1e05546..c4349e9c09 100644 --- a/lisp/progmodes/idlwave.el +++ b/lisp/progmodes/idlwave.el @@ -3497,8 +3497,7 @@ if `idlwave-auto-fill-split-string' is non-nil." (save-excursion (end-of-line 0) ;; Indent the split line - (idlwave-indent-line) - ) + (idlwave-indent-line)) (if (save-excursion (beginning-of-line) (looking-at idlwave-comment-line-start-skip)) @@ -4843,7 +4842,9 @@ Gets set in cached XML rinfo, or `idlw-rinfo.el'.") (defun idlwave-xml-create-sysvar-alist (xml-entry) ;; Create a sysvar list entry from the xml parsed list. (let* ((nameblock (nth 1 xml-entry)) - (sysvar (substring (cdr (assq 'name nameblock)) 1)) + (name (cdr (assq 'name nameblock))) + (sysvar (substring name (progn (string-match "^ *!" name) + (match-end 0)))) (link (cdr (assq 'link nameblock))) (params (cddr xml-entry)) (case-fold-search t) diff --git a/lisp/progmodes/vhdl-mode.el b/lisp/progmodes/vhdl-mode.el index dbd8e2b080..2d7bbd79c6 100644 --- a/lisp/progmodes/vhdl-mode.el +++ b/lisp/progmodes/vhdl-mode.el @@ -1147,7 +1147,7 @@ default setting as example)." (concat "*Specifies how the name for the components package is obtained. The components package is a package containing all component declarations for -the current design. It's name can be obtained by modifying the project name +the current design. Its name can be obtained by modifying the project name \(e.g. attaching or stripping off a substring). If no project is defined, the DIRECTORY entry is chosen." vhdl-name-doc-string) @@ -2434,7 +2434,7 @@ conversion." (insert-file-contents filename t))) (defun vhdl-sort-alist (alist) - "Sort alist." + "Sort ALIST." (sort alist (function (lambda (a b) (string< (car a) (car b)))))) (defun vhdl-get-subdirs (directory) @@ -5239,7 +5239,7 @@ Return a valid value only." (defun vhdl-set-offset (symbol offset &optional add-p) "Change the value of a syntactic element symbol in `vhdl-offsets-alist'. SYMBOL is the syntactic element symbol to change and OFFSET is the new -offset for that syntactic element. Optional ADD says to add SYMBOL to +offset for that syntactic element. Optional ADD-P says to add SYMBOL to `vhdl-offsets-alist' if it doesn't already appear there." (interactive (let* ((langelem @@ -5765,7 +5765,7 @@ keyword." "If the word at the current position corresponds to an \"end\" keyword, then return a vector containing enough information to find the corresponding \"begin\" keyword, else return nil. The keyword to -search backward for is aref 0. The column in which the keyword must +search backward for is aref 0. The column in which the keyword must appear is aref 1 or nil if any column is suitable. The supplementary keyword to search forward for is aref 2 or nil if this is not required. If aref 3 is t, then the \"begin\" keyword may be found in @@ -6424,8 +6424,8 @@ statement if already at the beginning of one." ;; Defuns for calculating the current syntactic state: (defun vhdl-get-library-unit (bod placeholder) - "If there is an enclosing library unit at bod, with it's \"begin\" -keyword at placeholder, then return the library unit type." + "If there is an enclosing library unit at BOD, with its \"begin\" +keyword at PLACEHOLDER, then return the library unit type." (let ((here (vhdl-point 'bol))) (if (save-excursion (goto-char placeholder) @@ -6448,7 +6448,7 @@ keyword at placeholder, then return the library unit type." (defun vhdl-get-block-state (&optional lim) "Finds and records all the closest opens. -lim is the furthest back we need to search (it should be the +LIM is the furthest back we need to search (it should be the previous libunit keyword)." (let ((here (point)) (lim (or lim (point-min))) @@ -6514,8 +6514,8 @@ previous libunit keyword)." (defun vhdl-skip-case-alternative (&optional lim) "Skip forward over case/when bodies, with optional maximal -limit. If no next case alternative is found, nil is returned and point -is not moved." +limit. If no next case alternative is found, nil is returned and +point is not moved." (let ((lim (or lim (point-max))) (here (point)) donep foundp) @@ -6541,7 +6541,7 @@ is not moved." (defun vhdl-backward-skip-label (&optional lim) "Skip backward over a label, with optional maximal -limit. If label is not found, nil is returned and point +limit. If label is not found, nil is returned and point is not moved." (let ((lim (or lim (point-min))) placeholder) @@ -7306,9 +7306,9 @@ indentation is done before aligning." (defun vhdl-align-region-2 (begin end match &optional substr spacing) "Align a range of lines from BEGIN to END. The regular expression -MATCH must match exactly one fields: the whitespace to be +MATCH must match exactly one field: the whitespace to be contracted/expanded. The alignment column will equal the -rightmost column of the widest whitespace block. SPACING is +rightmost column of the widest whitespace block. SPACING is the amount of extra spaces to add to the calculated maximum required. SPACING defaults to 1 so that at least one space is inserted after the token in MATCH." @@ -8101,7 +8101,7 @@ Turn on if ARG positive, turn off if ARG negative, toggle if ARG zero or nil." (defun vhdl-electric-dash (count) "-- starts a comment, --- draws a horizontal line, ----- starts a display comment" +---- starts a display comment." (interactive "p") (if (and vhdl-stutter-mode (not (vhdl-in-literal))) (cond @@ -10448,7 +10448,7 @@ with double-quotes is to be inserted. DEFAULT specifies a default string." (if vhdl-upper-case-keywords (upcase keyword) (downcase keyword))) (defun vhdl-case-word (num) - "Adjust case or following NUM words." + "Adjust case of following NUM words." (if vhdl-upper-case-keywords (upcase-word num) (downcase-word num))) (defun vhdl-minibuffer-tab (&optional prefix-arg) @@ -10586,7 +10586,7 @@ else insert tab (used for word completion in VHDL minibuffer)." (defun vhdl-hooked-abbrev (func) "Do function, if syntax says abbrev is a keyword, invoked by hooked abbrev, -but not if inside a comment or quote)." +but not if inside a comment or quote." (if (or (vhdl-in-literal) (save-excursion (forward-word -1) @@ -12083,8 +12083,8 @@ expressions (e.g. for index ranges of types and signals)." ;; Case fixing (defun vhdl-fix-case-region-1 (beg end upper-case word-regexp &optional count) - "Convert all words matching word-regexp in region to lower or upper case, -depending on parameter upper-case." + "Convert all words matching WORD-REGEXP in region to lower or upper case, +depending on parameter UPPER-CASE." (let ((case-replace nil) (last-update 0)) (vhdl-prepare-search-2 @@ -12463,7 +12463,7 @@ File statistics: \"%s\"\n\ "Regexp to match start of construct to hide.") (defun vhdl-hs-forward-sexp-func (count) - "Find end of construct to hide (for hideshow). Only searches forward." + "Find end of construct to hide (for hideshow). Only searches forward." (let ((pos (point))) (vhdl-prepare-search-2 (beginning-of-line) @@ -12586,7 +12586,7 @@ File statistics: \"%s\"\n\ (goto-char end)))))) (defun vhdl-font-lock-match-item (limit) - "Match, and move over, any declaration item after point. Adapted from + "Match, and move over, any declaration item after point. Adapted from `font-lock-match-c-style-declaration-item-and-skip-to-next'." (condition-case nil (save-restriction @@ -13130,7 +13130,7 @@ hierarchy otherwise.") (defun vhdl-scan-directory-contents (name &optional project update num-string non-final) - "Scan contents of VHDL files in directory or file pattern DIR-NAME." + "Scan contents of VHDL files in directory or file pattern NAME." (string-match "\\(.*[/\\]\\)\\(.*\\)" name) ; (unless (file-directory-p (match-string 1 name)) ; (message "No such directory: \"%s\"" (match-string 1 name))) @@ -14172,7 +14172,7 @@ if required." ) (defun vhdl-speedbar-insert-project-hierarchy (project indent &optional rescan) - "Insert hierarchy of project. Rescan directories if RESCAN is non-nil, + "Insert hierarchy of PROJECT. Rescan directories if RESCAN is non-nil, otherwise use cached data." (when (or rescan (and (not (assoc project vhdl-file-alist)) (not (vhdl-load-cache project)))) diff --git a/lisp/ps-print.el b/lisp/ps-print.el index ca8cada2b2..751dd0fd9d 100644 --- a/lisp/ps-print.el +++ b/lisp/ps-print.el @@ -10,11 +10,11 @@ ;; Maintainer: Kenichi Handa <[email protected]> (multi-byte characters) ;; Vinicius Jose Latorre <[email protected]> ;; Keywords: wp, print, PostScript -;; Version: 6.7.2 +;; Version: 6.7.3 ;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre -(defconst ps-print-version "6.7.2" - "ps-print.el, v 6.7.2 <2007/01/26 vinicius> +(defconst ps-print-version "6.7.3" + "ps-print.el, v 6.7.3 <2007/02/06 vinicius> Vinicius's last change version -- this file may have been edited as part of Emacs without changes to the version number. When reporting bugs, please also @@ -1448,19 +1448,16 @@ Please send all bug fixes and enhancements to (or (featurep 'lisp-float-type) (error "`ps-print' requires floating point support")) - -(defvar ps-print-emacs-type - (let ((case-fold-search t)) - (cond ((string-match "XEmacs" emacs-version) 'xemacs) - ((string-match "Lucid" emacs-version) - (error "`ps-print' doesn't support Lucid")) - ((string-match "Epoch" emacs-version) - (error "`ps-print' doesn't support Epoch")) - (t - (unless (and (boundp 'emacs-major-version) - (>= emacs-major-version 22)) - (error "`ps-print' only supports Emacs 22 and higher")) - 'emacs)))) +(let ((case-fold-search t)) + (cond ((string-match "XEmacs" emacs-version)) + ((string-match "Lucid" emacs-version) + (error "`ps-print' doesn't support Lucid")) + ((string-match "Epoch" emacs-version) + (error "`ps-print' doesn't support Epoch")) + (t + (unless (and (boundp 'emacs-major-version) + (>= emacs-major-version 22)) + (error "`ps-print' only supports Emacs 22 and higher"))))) ;; GNU Emacs @@ -1490,7 +1487,6 @@ Please send all bug fixes and enhancements to (defalias 'ps-x-font-instance-properties 'font-instance-properties) (defalias 'ps-x-make-color-instance 'make-color-instance) (defalias 'ps-x-map-extents 'map-extents) -(defalias 'ps-x-frame-property 'frame-property) ;; GNU Emacs (defalias 'ps-e-face-bold-p 'face-bold-p) @@ -1501,10 +1497,9 @@ Please send all bug fixes and enhancements to (defalias 'ps-e-overlay-end 'overlay-end) (defalias 'ps-e-x-color-values 'x-color-values) (defalias 'ps-e-color-values 'color-values) -(defalias 'ps-e-frame-parameter 'frame-parameter) -(if (fboundp 'find-composition) - (defalias 'ps-e-find-composition 'find-composition) - (defalias 'ps-e-find-composition 'ignore)) +(defalias 'ps-e-find-composition (if (fboundp 'find-composition) + 'find-composition + 'ignore)) (defconst ps-windows-system @@ -1518,26 +1513,25 @@ Please send all bug fixes and enhancements to (ps-x-color-name color) color)) +(defalias 'ps-frame-parameter + (if (fboundp 'frame-parameter) 'frame-parameter 'frame-property)) +(defalias 'ps-mark-active-p + (if (fboundp 'region-active-p) + 'region-active-p ; XEmacs + (defvar mark-active) ; To shup up XEmacs's byte compiler. + (lambda () mark-active))) ; Emacs -(cond ((featurep 'xemacs) ; xemacs - (defalias 'ps-mark-active-p 'region-active-p) +(cond ((featurep 'xemacs) ; XEmacs (defun ps-face-foreground-name (face) (ps-xemacs-color-name (face-foreground face))) (defun ps-face-background-name (face) (ps-xemacs-color-name (face-background face))) - (defun ps-frame-parameter (param) - (ps-x-frame-property nil param)) ) - (t ; emacs 22 or higher - (defvar mark-active nil) - (defun ps-mark-active-p () - mark-active) + (t ; Emacs 22 or higher (defun ps-face-foreground-name (face) (face-foreground face nil t)) (defun ps-face-background-name (face) (face-background face nil t)) - (defun ps-frame-parameter (param) - (ps-e-frame-parameter nil param)) )) @@ -3313,7 +3307,7 @@ require slightly different versions of this line." "*Non-nil means build the reference face lists. ps-print sets this value to nil after it builds its internal reference lists of -bold and italic faces. By settings its value back to t, you can force ps-print +bold and italic faces. By setting its value back to t, you can force ps-print to rebuild the lists the next time you invoke one of the ...-with-faces commands. @@ -3594,7 +3588,6 @@ The table depends on the current ps-print setup." (concat "\n;;; ps-print version " ps-print-version "\n") ";; internal vars" (ps-comment-string "emacs-version " emacs-version) - (ps-comment-string "ps-print-emacs-type" ps-print-emacs-type) (ps-comment-string "ps-windows-system " ps-windows-system) (ps-comment-string "ps-lp-system " ps-lp-system) nil @@ -3848,19 +3841,20 @@ It can be retrieved with `(ps-get ALIST-SYM KEY)'." ;; Return t if the device (which can be changed during an emacs session) ;; can handle colors. ;; This function is not yet implemented for GNU emacs. -(cond ((and (featurep 'xemacs) - ;; XEmacs change: Need to check for emacs-major-version too. - (or (> emacs-major-version 19) - (and (= emacs-major-version 19) - (>= emacs-minor-version 12)))) ; xemacs >= 19.12 - (defun ps-color-device () - (eq (ps-x-device-class) 'color))) - - (t ; emacs - (defun ps-color-device () - (if (fboundp 'color-values) - (ps-e-color-values "Green") - t)))) +(defalias 'ps-color-device + (cond ((and (featurep 'xemacs) + ;; XEmacs change: Need to check for emacs-major-version too. + (or (> emacs-major-version 19) + (and (= emacs-major-version 19) + (>= emacs-minor-version 12)))) ; XEmacs >= 19.12 + (lambda () + (eq (ps-x-device-class) 'color))) + + (t ; Emacs + (lambda () + (if (fboundp 'color-values) + (ps-e-color-values "Green") + t))))) (defun ps-mapper (extent list) @@ -3883,12 +3877,12 @@ It can be retrieved with `(ps-get ALIST-SYM KEY)'." (case-fold-search t)) (and kind-spec (string-match kind-regex kind-spec)))) -(cond ((featurep 'xemacs) ; xemacs +(cond ((featurep 'xemacs) ; XEmacs ;; to avoid XEmacs compilation gripes - (defvar coding-system-for-write nil) - (defvar coding-system-for-read nil) - (defvar buffer-file-coding-system nil) + (defvar coding-system-for-write) + (defvar coding-system-for-read) + (defvar buffer-file-coding-system) (and (fboundp 'find-coding-system) (or (ps-x-find-coding-system 'raw-text-unix) @@ -3918,7 +3912,7 @@ It can be retrieved with `(ps-get ALIST-SYM KEY)'." (memq face ps-italic-faces))) ; Kludge-compatible ) - (t ; emacs + (t ; Emacs (defun ps-color-values (x-color) (cond @@ -4941,8 +4935,8 @@ page-height == ((floor print-height ((th + ls) * zh)) * ((th + ls) * zh)) - th ;; XEmacs will have to make do with %s (princ) for floats. (defvar ps-float-format (if (featurep 'xemacs) - "%s " ; xemacs - "%0.3f ")) ; emacs + "%s " ; XEmacs + "%0.3f ")) ; Emacs (defun ps-float-format (value &optional default) @@ -5838,7 +5832,7 @@ XSTART YSTART are the relative position for the first page in a sheet.") )) -(defun ps-begin-job () +(defun ps-begin-job (genfunc) ;; prologue files (or (equal ps-mark-code-directory ps-postscript-code-directory) (setq ps-print-prologue-0 (ps-prologue-file 0) @@ -5909,8 +5903,10 @@ XSTART YSTART are the relative position for the first page in a sheet.") (t "[\t\n\f]")) ps-default-background (ps-rgb-color (cond + ((eq genfunc 'ps-generate-postscript) + nil) ((eq ps-default-bg 'frame-parameter) - (ps-frame-parameter 'background-color)) + (ps-frame-parameter nil 'background-color)) ((eq ps-default-bg t) (ps-face-background-name 'default)) (t @@ -5918,8 +5914,10 @@ XSTART YSTART are the relative position for the first page in a sheet.") 1.0) ps-default-foreground (ps-rgb-color (cond + ((eq genfunc 'ps-generate-postscript) + nil) ((eq ps-default-fg 'frame-parameter) - (ps-frame-parameter 'foreground-color)) + (ps-frame-parameter nil 'foreground-color)) ((eq ps-default-fg t) (ps-face-foreground-name 'default)) (t @@ -6321,7 +6319,7 @@ If FACE is not in `ps-print-face-extension-alist' or in `ps-print-face-alist', insert it on `ps-print-face-alist' and return the attribute vector. -If FACE is not a valid face name, it is used default face." +If FACE is not a valid face name, use default face." (cond (ps-black-white-faces-alist (or (and (symbolp face) @@ -6346,23 +6344,25 @@ If FACE is not a valid face name, it is used default face." (defun ps-face-background (face background) - (and (or (eq ps-use-face-background t) - (cond ((symbolp face) - (memq face ps-use-face-background)) - ((listp face) - (or (memq (car face) '(foreground-color background-color)) - (let (ok) - (while face - (if (or (memq (car face) ps-use-face-background) - (memq (car face) - '(foreground-color background-color))) - (setq face nil - ok t) - (setq face (cdr face)))) - ok))) - (t - nil) - )) + (and (cond ((eq ps-use-face-background t)) ; always + ((null ps-use-face-background) nil) ; never + ;; ps-user-face-background is a symbol face list + ((symbolp face) + (memq face ps-use-face-background)) + ((listp face) + (or (memq (car face) '(foreground-color background-color)) + (let (ok) + (while face + (if (or (memq (car face) ps-use-face-background) + (memq (car face) + '(foreground-color background-color))) + (setq face nil + ok t) + (setq face (cdr face)))) + ok))) + (t + nil) + ) background)) @@ -6511,7 +6511,7 @@ If FACE is not a valid face name, it is used default face." (let ((face 'default) (position to)) (cond - ((featurep 'xemacs) ; xemacs + ((featurep 'xemacs) ; XEmacs ;; Build the list of extents... (let ((a (cons 'dummy nil)) record type extent extent-list) @@ -6555,7 +6555,7 @@ If FACE is not a valid face name, it is used default face." from position a (cdr a))))) - (t ; emacs + (t ; Emacs (let ((property-change from) (overlay-change from) (save-buffer-invisibility-spec buffer-invisibility-spec) @@ -6629,7 +6629,7 @@ If FACE is not a valid face name, it is used default face." (ps-plot-with-face from to face)))) (defun ps-generate-postscript (from to) - (ps-plot-region from to 0 nil)) + (ps-plot-region from to 0)) (defun ps-generate (buffer from to genfunc) (save-excursion @@ -6665,7 +6665,7 @@ If FACE is not a valid face name, it is used default face." (save-excursion (let ((ps-print-page-p t) ps-even-or-odd-pages) - (ps-begin-job) + (ps-begin-job genfunc) (when needs-begin-file (ps-begin-file) (ps-mule-initialize)) @@ -6831,17 +6831,12 @@ If FACE is not a valid face name, it is used default face." ;; WARNING!!! The following code is *sample* code only. ;; Don't use it unless you understand what it does! -(defmacro ps-prsc () - `(if (featurep 'xemacs) 'f22 [f22])) -(defmacro ps-c-prsc () - `(if (featurep 'xemacs) '(control f22) [C-f22])) -(defmacro ps-s-prsc () - `(if (featurep 'xemacs) '(shift f22) [S-f22])) +;; The key `f22' should probably be replaced by `print'. --Stef ;; A hook to bind to `rmail-mode-hook' to locally bind prsc and set the ;; `ps-left-headers' specially for mail messages. (defun ps-rmail-mode-hook () - (local-set-key (ps-prsc) 'ps-rmail-print-message-from-summary) + (local-set-key [(f22)] 'ps-rmail-print-message-from-summary) (setq ps-header-lines 3 ps-left-header ;; The left headers will display the message's subject, its @@ -6915,7 +6910,7 @@ If FACE is not a valid face name, it is used default face." ;; A hook to bind to `vm-mode-hook' to locally bind prsc and set the ;; `ps-left-headers' specially for mail messages. (defun ps-vm-mode-hook () - (local-set-key (ps-prsc) 'ps-vm-print-message-from-summary) + (local-set-key [(f22)] 'ps-vm-print-message-from-summary) (setq ps-header-lines 3 ps-left-header ;; The left headers will display the message's subject, its @@ -6941,7 +6936,7 @@ If FACE is not a valid face name, it is used default face." ;; A hook to bind to bind to `gnus-summary-setup-buffer' to locally bind ;; prsc. (defun ps-gnus-summary-setup () - (local-set-key (ps-prsc) 'ps-gnus-print-article-from-summary)) + (local-set-key [(f22)] 'ps-gnus-print-article-from-summary)) ;; Look in an article or mail message for the Subject: line. To be ;; placed in `ps-left-headers'. @@ -6973,9 +6968,9 @@ If FACE is not a valid face name, it is used default face." ;; modification.) (defun ps-jts-ps-setup () - (global-set-key (ps-prsc) 'ps-spool-buffer-with-faces) ;f22 is prsc - (global-set-key (ps-s-prsc) 'ps-spool-region-with-faces) - (global-set-key (ps-c-prsc) 'ps-despool) + (global-set-key [(f22)] 'ps-spool-buffer-with-faces) ;f22 is prsc + (global-set-key [(shift f22)] 'ps-spool-region-with-faces) + (global-set-key [(control f22)] 'ps-despool) (add-hook 'gnus-article-prepare-hook 'ps-gnus-article-prepare-hook) (add-hook 'gnus-summary-mode-hook 'ps-gnus-summary-setup) (add-hook 'vm-mode-hook 'ps-vm-mode-hook) diff --git a/lisp/replace.el b/lisp/replace.el index 12a99d72b9..9790dacd82 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -1728,6 +1728,7 @@ make, or the user didn't cancel the call." (if query-replace-lazy-highlight (let ((isearch-string string) (isearch-regexp regexp) + (search-whitespace-regexp nil) (isearch-case-fold-search case-fold)) (isearch-lazy-highlight-new-loop range-beg range-end)))) diff --git a/lisp/simple.el b/lisp/simple.el index 28caa0c4f0..1b998c9b27 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -2828,12 +2828,12 @@ When calling from a program, nil means \"no arg\", a number counts as a prefix arg. To kill a whole line, when point is not at the beginning, type \ -\\[beginning-of-line] \\[kill-line] \\[kill-line]. +\\[move-beginning-of-line] \\[kill-line] \\[kill-line]. If `kill-whole-line' is non-nil, then this command kills the whole line including its terminating newline, when used at the beginning of a line with no argument. As a consequence, you can always kill a whole line -by typing \\[beginning-of-line] \\[kill-line]. +by typing \\[move-beginning-of-line] \\[kill-line]. If you want to append the killed line to the last killed text, use \\[append-next-kill] before \\[kill-line]. @@ -4419,7 +4419,7 @@ of the buffer appears in the mode line." (defcustom blink-matching-paren-on-screen t "*Non-nil means show matching open-paren when it is on screen. -If nil, means don't show it (but the open-paren can still be shown +If nil, don't show it (but the open-paren can still be shown when it is off screen). This variable has no effect if `blink-matching-paren' is nil. @@ -4440,7 +4440,7 @@ If nil, search stops at the beginning of the accessible portion of the buffer." :group 'paren-blinking) (defcustom blink-matching-paren-dont-ignore-comments nil - "*nil means `blink-matching-paren' ignores comments. + "*If nil, `blink-matching-paren' ignores comments. More precisely, when looking for the matching parenthesis, it skips the contents of comments that end before point." :type 'boolean diff --git a/lisp/speedbar.el b/lisp/speedbar.el index 711957d9cd..87176d0c1c 100644 --- a/lisp/speedbar.el +++ b/lisp/speedbar.el @@ -316,7 +316,7 @@ The default buffer is the buffer in the selected window in the attached frame." (defcustom speedbar-show-unknown-files nil "*Non-nil show files we can't expand with a ? in the expand button. -nil means don't show the file in the list." +A nil value means don't show the file in the list." :group 'speedbar :type 'boolean) @@ -975,7 +975,7 @@ directories.") ;;;###autoload (defun speedbar-frame-mode (&optional arg) "Enable or disable speedbar. Positive ARG means turn on, negative turn off. -nil means toggle. Once the speedbar frame is activated, a buffer in +A nil ARG means toggle. Once the speedbar frame is activated, a buffer in `speedbar-mode' will be displayed. Currently, only one speedbar is supported at a time. `speedbar-before-popup-hook' is called before popping up the speedbar frame. @@ -1071,7 +1071,7 @@ selected. If the speedbar frame is active, then select the attached frame." (defsubst speedbar-frame-width () "Return the width of the speedbar frame in characters. -nil if it doesn't exist." +Return nil if it doesn't exist." (frame-width speedbar-frame)) (defun speedbar-mode () @@ -1482,8 +1482,8 @@ This function can be replaced in `speedbar-mode-functions-list' as (defun speedbar-item-info-file-helper (&optional filename) "Display info about a file that is on the current line. -nil if not applicable. If FILENAME, then use that instead of reading -it from the speedbar buffer." +Return nil if not applicable. If FILENAME, then use that +instead of reading it from the speedbar buffer." (let* ((item (or filename (speedbar-line-file))) (attr (if item (file-attributes item) nil))) (if (and item attr) (speedbar-message "%s %-6d %s" (nth 8 attr) @@ -1492,7 +1492,7 @@ it from the speedbar buffer." (defun speedbar-item-info-tag-helper () "Display info about a tag that is on the current line. -nil if not applicable." +Return nil if not applicable." (save-excursion (beginning-of-line) (if (re-search-forward " [-+=]?> \\([^\n]+\\)" diff --git a/lisp/startup.el b/lisp/startup.el index c19a997da8..7e88b5f29e 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -651,22 +651,26 @@ opening the first frame (e.g. open a connection to an X server).") (set-locale-environment nil) - ;; Convert preloaded file names to absolute. - (let ((lisp-dir - (file-truename - (file-name-directory - (locate-file "simple" load-path - (get-load-suffixes)))))) - - (setq load-history - (mapcar (lambda (elt) - (if (and (stringp (car elt)) - (not (file-name-absolute-p (car elt)))) - (cons (concat lisp-dir - (car elt)) - (cdr elt)) - elt)) - load-history))) + ;; Convert preloaded file names in load-history to absolute. + (let ((simple-file-name + (locate-file "simple" load-path (get-load-suffixes))) + lisp-dir) + ;; Don't abort if simple.el cannot be found, but print a warning. + (if (null simple-file-name) + (progn + (princ "Warning: Could not find simple.el nor simple.elc" + 'external-debugging-output) + (terpri 'external-debugging-output)) + (setq lisp-dir (file-truename (file-name-directory simple-file-name))) + (setq load-history + (mapcar (lambda (elt) + (if (and (stringp (car elt)) + (not (file-name-absolute-p (car elt)))) + (cons (concat lisp-dir + (car elt)) + (cdr elt)) + elt)) + load-history)))) ;; Convert the arguments to Emacs internal representation. (let ((args (cdr command-line-args))) @@ -1374,6 +1378,7 @@ mouse." (save-selected-window (select-frame frame) (switch-to-buffer " GNU Emacs") + (make-local-variable 'cursor-type) (setq splash-buffer (current-buffer)) (catch 'stop-splashing (unwind-protect diff --git a/lisp/subr.el b/lisp/subr.el index c91c9c599b..ce4a250760 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -2171,6 +2171,7 @@ If UNDO is present and non-nil, it is a function that will be called (get-text-property 0 'yank-handler string))) (param (or (nth 1 handler) string)) (opoint (point)) + (inhibit-read-only inhibit-read-only) end) (setq yank-undo-function t) @@ -2179,6 +2180,10 @@ If UNDO is present and non-nil, it is a function that will be called (insert param)) (setq end (point)) + ;; Prevent read-only properties from interfering with the + ;; following text property changes. + (setq inhibit-read-only t) + ;; What should we do with `font-lock-face' properties? (if font-lock-defaults ;; No, just wipe them. diff --git a/lisp/term/README b/lisp/term/README index 1912df47f4..2f4422981f 100644 --- a/lisp/term/README +++ b/lisp/term/README @@ -1,3 +1,8 @@ +Copyright (C) 1993, 2001, 2002, 2003, 2004, 2005, 2006, 2007 + Free Software Foundation, Inc. +See the end of the file for license conditions. + + This directory contains files of elisp that customize Emacs for certain terminal types. @@ -241,3 +246,21 @@ it up to the user's .emacs file whether to call it. Before writing a terminal-support package, it's a good idea to read the existing ones and learn the common conventions. + + +This file is part of GNU Emacs. + +GNU Emacs is free software; you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 2, or (at your option) +any later version. + +GNU Emacs is distributed in the hope that it will be useful, +but WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +GNU General Public License for more details. + +You should have received a copy of the GNU General Public License +along with GNU Emacs; see the file COPYING. If not, write to the +Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +Boston, MA 02110-1301, USA. diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el index 7e3d7b14dd..7e40c46fcf 100644 --- a/lisp/term/mac-win.el +++ b/lisp/term/mac-win.el @@ -1585,7 +1585,10 @@ in `selection-converter-alist', which see." (if (and type-data (setq str (mac-coerce-ae-data (car type-data) (cdr type-data) "TEXT"))) - (string-to-number str) + (let ((num (string-to-number str))) + ;; Mac OS Classic may return "0e+0" as the coerced value for + ;; the type "magn" and the data "\000\000\000\000". + (if (= num 0.0) 0 num)) nil))) (defun mac-bytes-to-integer (bytes &optional from to) @@ -1750,7 +1753,9 @@ Currently the `mailto' scheme is supported." (let* ((ae (mac-event-ae event)) (parsed-url (url-generic-parse-url (mac-ae-text ae)))) (if (string= (url-type parsed-url) "mailto") - (url-mailto parsed-url) + (progn + (url-mailto parsed-url) + (select-frame-set-input-focus (selected-frame))) (mac-resume-apple-event ae t)))) (setq mac-apple-event-map (make-sparse-keymap)) @@ -1796,7 +1801,7 @@ modifiers, it changes global tool-bar visibility setting." 'mac-handle-toolbar-switch-mode) ;;; Font panel -(when (fboundp 'mac-set-font-panel-visibility) +(when (fboundp 'mac-set-font-panel-visible-p) (define-minor-mode mac-font-panel-mode "Toggle use of the font panel. @@ -1804,7 +1809,7 @@ With numeric ARG, display the font panel if and only if ARG is positive." :init-value nil :global t :group 'mac - (mac-set-font-panel-visibility mac-font-panel-mode)) + (mac-set-font-panel-visible-p mac-font-panel-mode)) (defun mac-handle-font-panel-closed (event) "Update internal status in response to font panel closed EVENT." @@ -1839,7 +1844,7 @@ With numeric ARG, display the font panel if and only if ARG is positive." "Show the font panel as a floating dialog") 'showhide-speedbar) -) ;; (fboundp 'mac-set-font-panel-visibility) +) ;; (fboundp 'mac-set-font-panel-visible-p) ;;; Text Services (defvar mac-ts-active-input-buf "" @@ -2273,8 +2278,7 @@ See also `mac-dnd-known-types'." (dolist (item (mac-ae-list ae)) (if (not (equal (car item) "null")) (mac-dnd-drop-data event (selected-frame) window - (cdr item) (car item) action)))) - (select-frame-set-input-focus (selected-frame))) + (cdr item) (car item) action))))) ;;; Do the actual Windows setup here; the above code just defines ;;; functions and variables that we use now. diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index fe74bf8f32..73faea4e9c 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -293,7 +293,7 @@ a [.5mm] type of number...." "Regexp matching the end of a Tib reference.") (defcustom ispell-keep-choices-win t - "*When not nil, the `*Choices*' window remains for spelling session. + "*When non-nil, the `*Choices*' window remains for spelling session. This minimizes redisplay thrashing." :type 'boolean :group 'ispell) @@ -673,8 +673,7 @@ Each element of this list is also a list: DICTIONARY-NAME is a possible string value of variable `ispell-dictionary', nil means the default dictionary. -CASECHARS is a regular expression of valid characters that comprise a -word. +CASECHARS is a regular expression of valid characters that comprise a word. NOT-CASECHARS is the opposite regexp of CASECHARS. @@ -688,7 +687,7 @@ regular expression \"[']\" for OTHERCHARS. Then \"they're\" and If you want OTHERCHARS to be empty, use the empty string. Hint: regexp syntax requires the hyphen to be declared first here. -CASECHAS, NOT-CASECHARS, and OTHERCHARS must be a unibyte string +CASECHARS, NOT-CASECHARS, and OTHERCHARS must be unibyte strings containing bytes of CHARACTER-SET. In addition, if they contain a non-ASCII byte, the regular expression must be a single `character set' construct that doesn't specify a character range @@ -1572,7 +1571,7 @@ which is in `ispell-local-dictionary-alist' or `ispell-dictionary-alist'. This will check or reload the dictionary. Use \\[ispell-change-dictionary] or \\[ispell-region] to update the Ispell process. -return values: +Return values: nil word is correct or spelling is accepted. 0 word is inserted into buffer-local definitions. \"word\" word corrected from word list. @@ -2102,9 +2101,9 @@ SPC: Accept word this time. `l': Look up typed-in replacement in alternate dictionary. Wildcards okay. `u': Like `i', but the word is lower-cased first. `m': Place typed-in value in personal dictionary, then recheck current word. -`C-l': redraws screen -`C-r': recursive edit -`C-z': suspend Emacs or iconify frame" +`C-l': Redraw screen. +`C-r': Recursive edit. +`C-z': Suspend Emacs or iconify frame." (if (equal ispell-help-in-bufferp 'electric) (progn @@ -2134,11 +2133,10 @@ SPC: Accept word this time. `l': Look up typed-in replacement in alternate dictionary. Wildcards okay. `u': Like `i', but the word is lower-cased first. `m': Place typed-in value in personal dictionary, then recheck current word. -`C-l': redraws screen -`C-r': recursive edit -`C-z': suspend Emacs or iconify frame") - nil ;undocumented requirement of with-electric-help - )))) +`C-l': Redraw screen. +`C-r': Recursive edit. +`C-z': Suspend Emacs or iconify frame.") + nil)))) (let ((help-1 (concat "[r/R]eplace word; [a/A]ccept for this session; " @@ -2772,7 +2770,7 @@ Return nil if spell session is quit, (defun ispell-begin-skip-region-regexp () "Returns a regexp of the search keys for region skipping. Includes `ispell-skip-region-alist' plus tex, tib, html, and comment keys. -Must call after ispell-buffer-local-parsing due to dependence on mode." +Must call after `ispell-buffer-local-parsing' due to dependence on mode." ;; start with regions generic to all buffers (let ((skip-regexp (ispell-begin-skip-region ispell-skip-region-alist))) ;; Comments @@ -2985,10 +2983,10 @@ Point is placed at end of skipped region." (defvar end) (defun ispell-process-line (string shift) - "Sends a LINE of text to ispell and processes the result. + "Sends STRING, a line of text, to ispell and processes the result. This will modify the buffer for spelling errors. Requires variables START and END to be defined in its lexical scope. -Returns the sum shift due to changes in word replacements." +Returns the sum SHIFT due to changes in word replacements." ;;(declare special start end) (let (poss accept-list) (if (not (numberp shift)) diff --git a/lisp/textmodes/org.el b/lisp/textmodes/org.el index 1be73ec481..a55bcdd7e2 100644 --- a/lisp/textmodes/org.el +++ b/lisp/textmodes/org.el @@ -5,7 +5,7 @@ ;; Author: Carsten Dominik <dominik at science dot uva dot nl> ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://www.astro.uva.nl/~dominik/Tools/org/ -;; Version: 4.56e +;; Version: 4.56f ;; ;; This file is part of GNU Emacs. ;; @@ -114,7 +114,7 @@ ;;; Customization variables -(defvar org-version "4.56e" +(defvar org-version "4.56f" "The version number of the file org.el.") (defun org-version () (interactive) @@ -8261,7 +8261,7 @@ the documentation of `org-diary'." 1))) (org-add-props txt props 'org-marker marker 'org-hd-marker marker - 'priority priority 'category category) + 'priority priority 'org-category category) (push txt ee) (if org-agenda-todo-list-sublevels (goto-char (match-end 1)) @@ -8327,13 +8327,13 @@ the documentation of `org-diary'." (org-add-props txt nil 'face (if donep 'org-done 'org-warning) 'undone-face 'org-warning 'done-face 'org-done - 'category category 'priority (+ 100 priority)) + 'org-category category 'priority (+ 100 priority)) (if scheduledp (org-add-props txt nil 'face 'org-scheduled-today 'undone-face 'org-scheduled-today 'done-face 'org-done - 'category category 'priority (+ 99 priority)) - (org-add-props txt nil 'priority priority 'category category))) + 'org-category category 'priority (+ 99 priority)) + (org-add-props txt nil 'priority priority 'org-category category))) (push txt ee)) (outline-next-heading))) (nreverse ee))) @@ -8384,7 +8384,7 @@ the documentation of `org-diary'." (setq priority 100000) (org-add-props txt props 'org-marker marker 'org-hd-marker hdmarker 'face 'org-done - 'priority priority 'category category + 'priority priority 'org-category category 'undone-face 'org-warning 'done-face 'org-done) (push txt ee)) (outline-next-heading))) @@ -8440,7 +8440,7 @@ the documentation of `org-diary'." 'org-marker (org-agenda-new-marker pos) 'org-hd-marker (org-agenda-new-marker pos1) 'priority (+ (- 10 diff) (org-get-priority txt)) - 'category category + 'org-category category 'face face 'undone-face face 'done-face 'org-done) (push txt ee)))))) ee)) @@ -8493,7 +8493,7 @@ the documentation of `org-diary'." 'org-marker (org-agenda-new-marker pos) 'org-hd-marker (org-agenda-new-marker pos1) 'priority (+ (- 5 diff) (org-get-priority txt)) - 'category category) + 'org-category category) (push txt ee)))))) ee)) @@ -8539,7 +8539,7 @@ the documentation of `org-diary'." (setq txt org-agenda-no-heading-message)) (org-add-props txt props 'org-marker marker 'org-hd-marker hdmarker - 'priority (org-get-priority txt) 'category category) + 'priority (org-get-priority txt) 'org-category category) (push txt ee))) (goto-char pos))) ;; Sort the entries by expiration date. @@ -8653,7 +8653,7 @@ only the correctly processes TXT should be returned - this is used by ;; And finally add the text properties (org-add-props rtn nil - 'category (downcase category) 'tags tags + 'org-category (downcase category) 'tags tags 'prefix-length (- (length rtn) (length txt)) 'time-of-day time-of-day 'dotime dotime)))) @@ -9014,7 +9014,7 @@ the new TODO state." (equal m hdmarker)) (setq props (text-properties-at (point)) dotime (get-text-property (point) 'dotime) - cat (get-text-property (point) 'category) + cat (get-text-property (point) 'org-category) tags (get-text-property (point) 'tags) new (org-format-agenda-item "x" newhead cat tags dotime 'noprefix) pl (get-text-property (point) 'prefix-length) @@ -9441,7 +9441,7 @@ are included in the output." (goto-char lspos) (setq marker (org-agenda-new-marker)) (org-add-props txt props - 'org-marker marker 'org-hd-marker marker 'category category) + 'org-marker marker 'org-hd-marker marker 'org-category category) (push txt rtn)) ;; if we are to skip sublevels, jump to end of subtree (or org-tags-match-list-sublevels (org-end-of-subtree t)))))) diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el index 6757eb9be1..5e599ea10e 100644 --- a/lisp/textmodes/sgml-mode.el +++ b/lisp/textmodes/sgml-mode.el @@ -920,9 +920,10 @@ and move to the line in the SGML document that caused it." (or sgml-saved-validate-command (concat sgml-validate-command " " - (let ((name (buffer-file-name))) - (and name - (file-name-nondirectory name)))))))) + (shell-quote-argument + (let ((name (buffer-file-name))) + (and name + (file-name-nondirectory name))))))))) (setq sgml-saved-validate-command command) (save-some-buffers (not compilation-ask-about-save) nil) (compilation-start command)) diff --git a/lisp/textmodes/texnfo-upd.el b/lisp/textmodes/texnfo-upd.el index c5d125fdae..4566bbc449 100644 --- a/lisp/textmodes/texnfo-upd.el +++ b/lisp/textmodes/texnfo-upd.el @@ -619,15 +619,16 @@ Point must be located just after the node name. Point left before description. Single argument, END-OF-MENU, is position limiting search." (skip-chars-forward "[:.,\t\n ]+") ;; don't copy a carriage return at line beginning with asterisk! - ;; don't copy @detailmenu or @end menu as descriptions! + ;; don't copy @detailmenu or @end menu or @ignore as descriptions! ;; do copy a description that begins with an `@'! ;; !! Known bug: does not copy descriptions starting with ^|\{?* etc. (if (and (looking-at "\\(\\w+\\|@\\)") - (not (looking-at "\\(^\\* \\|^@detailmenu\\|^@end menu\\)"))) + (not (looking-at + "\\(^\\* \\|^@detailmenu\\|^@end menu\\|^@ignore\\)"))) (buffer-substring (point) (save-excursion - (re-search-forward "\\(^\\* \\|^@end menu\\)" end-of-menu t) + (re-search-forward "\\(^\\* \\|^@ignore\\|^@end menu\\)" end-of-menu t) (forward-line -1) (end-of-line) ; go to end of last description line (point))) @@ -1820,6 +1821,9 @@ chapters." (set-buffer (find-file-noselect (car (cdr files-with-node-lines)))) (widen) (goto-char (point-min)) + ;; The following search _must_ succeed, since we verified above + ;; that this file does have a @node line. + (re-search-forward "^@node" nil t) (beginning-of-line) (texinfo-check-for-node-name) (setq next-node-name (texinfo-copy-node-name)) @@ -1851,6 +1855,10 @@ chapters." (set-buffer (find-file-noselect (car (cdr files-with-node-lines)))) (widen) (goto-char (point-min)) + ;; The following search _must_ succeed, since we verified + ;; above that files in files-with-node-lines do have a @node + ;; line. + (re-search-forward "^@node" nil t) (beginning-of-line) (texinfo-check-for-node-name) (setq next-node-name (texinfo-copy-node-name)) @@ -1926,7 +1934,7 @@ be the files included within it. A main menu must already exist." ;;; The multiple-file update function (defun texinfo-multiple-files-update - (outer-file &optional update-everything make-master-menu) + (outer-file &optional make-master-menu update-everything) "Update first node pointers in each file included in OUTER-FILE; create or update the `Top' level node pointers and the main menu in the outer file that refers to such nodes. This does not create or diff --git a/lisp/tutorial.el b/lisp/tutorial.el index c446400d90..f1da71a8e5 100644 --- a/lisp/tutorial.el +++ b/lisp/tutorial.el @@ -334,10 +334,11 @@ LEFT and RIGHT are the elements to compare." tutorial--default-keys))))) (when changed-keys (insert - "The following key bindings used in the tutorial had been changed -from the Emacs default in the " (buffer-name tutorial-buffer) " buffer:\n\n" ) - (let ((frm " %-9s %-27s %-11s %s\n")) - (insert (format frm "Key" "Standard Binding" "Is Now On" "Remark"))) + "The following key bindings used in the tutorial have been changed +from the Emacs default:\n\n" ) + (let ((frm " %-14s %-27s %-16s\n")) + (insert (format frm + "Standard Key" "Command" "In Your Emacs"))) (dolist (tk changed-keys) (let* ((def-fun (nth 1 tk)) (key (nth 0 tk)) @@ -354,25 +355,20 @@ from the Emacs default in the " (buffer-name tutorial-buffer) " buffer:\n\n" ) (put-text-property 0 (length key-txt) 'face 'tutorial-warning-face key-txt)) (insert " " key-txt " ") - (setq tot-len (length key-txt)) - (when (> 9 tot-len) - (insert (make-string (- 9 tot-len) ?\s)) - (setq tot-len 9)) + (indent-to 18) ;; Insert a link describing the old binding: (insert-button def-fun-txt 'value def-fun 'action - (lambda(button) (interactive) + (lambda (button) (interactive) (describe-function (button-get button 'value))) 'follow-link t) - (setq tot-len (+ tot-len (length def-fun-txt))) - (when (> 36 tot-len) - (insert (make-string (- 36 tot-len) ?\s))) + (indent-to 45) (when (listp where) (setq where "list")) ;; Tell where the old binding is now: - (insert (format " %-11s " + (insert (format " %-16s " (if (string= "" where) (format "M-x %s" def-fun-txt) where))) @@ -381,7 +377,7 @@ from the Emacs default in the " (buffer-name tutorial-buffer) " buffer:\n\n" ) ;; cua-mode replacements: (insert-button (car remark) 'action - (lambda(b) (interactive) + (lambda (b) (interactive) (let ((value (button-get b 'value))) (tutorial--describe-nonstandard-key value))) 'value (cdr remark) diff --git a/lisp/type-break.el b/lisp/type-break.el index 98851bcab2..361670dbe6 100644 --- a/lisp/type-break.el +++ b/lisp/type-break.el @@ -1120,6 +1120,13 @@ With optional non-nil ALL, force redisplay of all mode-lines." ;;; Demo wrappers +(defun type-break-catch-up-event () + ;; If the last input event is a down-event, read and discard the + ;; corresponding up-event too, to avoid triggering another prompt. + (and (eventp last-input-event) + (memq 'down (event-modifiers last-input-event)) + (read-event))) + ;; This is a wrapper around hanoi that calls it with an arg large enough to ;; make the largest discs possible that will fit in the window. ;; Also, clean up the *Hanoi* buffer after we're done. @@ -1132,9 +1139,11 @@ With optional non-nil ALL, force redisplay of all mode-lines." (hanoi (/ (window-width) 8)) ;; Wait for user to come back. (read-event) + (type-break-catch-up-event) (kill-buffer "*Hanoi*")) (quit (read-event) + (type-break-catch-up-event) (and (get-buffer "*Hanoi*") (kill-buffer "*Hanoi*"))))) @@ -1153,12 +1162,14 @@ With optional non-nil ALL, force redisplay of all mode-lines." (life 3) ;; wait for user to return (read-event) + (type-break-catch-up-event) (kill-buffer "*Life*")) (life-extinct (message "%s" (get 'life-extinct 'error-message)) ;; restart demo (setq continue t)) (quit + (type-break-catch-up-event) (and (get-buffer "*Life*") (kill-buffer "*Life*"))))))) @@ -1244,7 +1255,8 @@ With optional non-nil ALL, force redisplay of all mode-lines." message)))) (goto-char (point-min)) (sit-for 60)) - (read-event) + (read-event) + (type-break-catch-up-event) (kill-buffer buffer-name)) (quit (and (get-buffer buffer-name) diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog index 87c27a8786..eb058534f6 100644 --- a/lisp/url/ChangeLog +++ b/lisp/url/ChangeLog @@ -1,3 +1,14 @@ +2007-02-04 Chong Yidong <[email protected]> + + * url-http.el (url-http-connection-opened): New variable. + (url-http): Initialize it. + (url-http-async-sentinel): Don't try changing sentinels. + Run url-http-end-of-document-sentinel if necessary. + +2007-01-29 Juanma Barranquero <[email protected]> + + * url-auth.el (url-get-authentication): Fix typo in docstring. + 2007-01-14 Magnus Henoch <[email protected]> * url-proxy.el (url-proxy-object): Remove. @@ -1771,7 +1782,22 @@ Copyright (C) 1999, 2001, 2002, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. - Copying and distribution of this file, with or without modification, - are permitted provided the copyright notice and this notice are preserved. + + This file is part of GNU Emacs. + + GNU Emacs is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2, or (at your option) + any later version. + + GNU Emacs is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with GNU Emacs; see the file COPYING. If not, write to the + Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, + Boston, MA 02110-1301, USA. ;; arch-tag: ac117078-3091-4533-be93-098162ac2926 diff --git a/lisp/url/url-auth.el b/lisp/url/url-auth.el index c0f2c6bdf0..c786887f1f 100644 --- a/lisp/url/url-auth.el +++ b/lisp/url/url-auth.el @@ -94,7 +94,7 @@ instead of the pathname inheritance method." (string-match "/" path)) (while (and byserv (not retval)) (setq data (car (car byserv))) - (if (or (not (string-match "/" data)) ; Its a realm - take it! + (if (or (not (string-match "/" data)) ; It's a realm - take it! (and (>= (length path) (length data)) (string= data (substring path 0 (length data))))) @@ -231,7 +231,7 @@ TYPE is the type of authentication to be returned. This is either a string representing the type (basic, digest, etc), or nil or the symbol 'any' to specify that any authentication is acceptable. If requesting 'any' the strongest matching authentication will be returned. If this is - wrong, its no big deal, the error from the server will specify exactly + wrong, it's no big deal, the error from the server will specify exactly what type of auth to use PROMPT is boolean - specifies whether to ask the user for a username/password if one cannot be found in the cache" diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el index eb193f1c7a..1d4d64f0e4 100644 --- a/lisp/url/url-http.el +++ b/lisp/url/url-http.el @@ -30,6 +30,7 @@ (defvar url-http-extra-headers) (defvar url-http-target-url) (defvar url-http-proxy) +(defvar url-http-connection-opened) (require 'url-gw) (require 'url-util) (require 'url-parse) @@ -1118,6 +1119,7 @@ CBARGS as the arguments." url-http-extra-headers url-http-data url-http-target-url + url-http-connection-opened url-http-proxy)) (set (make-local-variable var) nil)) @@ -1132,6 +1134,7 @@ CBARGS as the arguments." url-callback-arguments cbargs url-http-after-change-function 'url-http-wait-for-headers-change-function url-http-target-url url-current-object + url-http-connection-opened nil url-http-proxy url-using-proxy) (set-process-buffer connection buffer) @@ -1155,8 +1158,10 @@ CBARGS as the arguments." ;; has occurred. (with-current-buffer (process-buffer proc) (cond + (url-http-connection-opened + (url-http-end-of-document-sentinel proc why)) ((string= (substring why 0 4) "open") - (set-process-sentinel proc 'url-http-end-of-document-sentinel) + (setq url-http-connection-opened t) (process-send-string proc (url-http-create-request))) (t (setf (car url-callback-arguments) diff --git a/lisp/vc-svn.el b/lisp/vc-svn.el index 916930ffde..1538a2a1ab 100644 --- a/lisp/vc-svn.el +++ b/lisp/vc-svn.el @@ -85,18 +85,12 @@ If you want to force an empty list of arguments, use t." :type '(repeat string) :group 'vc) -(defconst vc-svn-use-edit nil - ;; Subversion does not provide this feature (yet). - "*Non-nil means to use `svn edit' to \"check out\" a file. -This is only meaningful if you don't use the implicit checkout model -\(i.e. if you have $SVNREAD set)." - ;; :type 'boolean - ;; :version "22.1" - ;; :group 'vc - ) - -(defvar vc-svn-admin-directory - (cond ((and (eq system-type 'windows-nt) +;; We want to autoload it for use by the autoloaded version of +;; vc-svn-registered, but we want the value to be compiled at startup, not +;; at dump time. +;; ;;;###autoload +(defconst vc-svn-admin-directory + (cond ((and (memq system-type '(cygwin windows-nt ms-dos)) (getenv "SVN_ASP_DOT_NET_HACK")) "_svn") (t ".svn")) @@ -111,12 +105,12 @@ This is only meaningful if you don't use the implicit checkout model ;;;###autoload (defun vc-svn-registered (f) ;;;###autoload (let ((admin-dir (cond ((and (eq system-type 'windows-nt) -;;;###autoload (getenv "SVN_ASP_DOT_NET_HACK")) -;;;###autoload "_svn") -;;;###autoload (t ".svn")))) +;;;###autoload (getenv "SVN_ASP_DOT_NET_HACK")) +;;;###autoload "_svn") +;;;###autoload (t ".svn")))) ;;;###autoload (when (file-readable-p (expand-file-name -;;;###autoload (concat admin-dir "/entries") -;;;###autoload (file-name-directory f))) +;;;###autoload (concat admin-dir "/entries") +;;;###autoload (file-name-directory f))) ;;;###autoload (load "vc-svn") ;;;###autoload (vc-svn-registered f)))) @@ -274,13 +268,8 @@ This is only possible if SVN is responsible for FILE's directory.") (defun vc-svn-update (file editable rev switches) (if (and (file-exists-p file) (not rev)) - ;; If no revision was specified, just make the file writable - ;; if necessary (using `svn-edit' if requested). - (and editable (not (eq (vc-svn-checkout-model file) 'implicit)) - (if vc-svn-use-edit - (vc-svn-command nil 0 file "edit") - (set-file-modes file (logior (file-modes file) 128)) - (if (equal file buffer-file-name) (toggle-read-only -1)))) + ;; If no revision was specified, there's nothing to do. + nil ;; Check out a particular version (or recreate the file). (vc-file-setprop file 'vc-workfile-version nil) (apply 'vc-svn-command nil 0 file @@ -302,12 +291,7 @@ This is only possible if SVN is responsible for FILE's directory.") (defun vc-svn-revert (file &optional contents-done) "Revert FILE to the version it was based on." (unless contents-done - (vc-svn-command nil 0 file "revert")) - (unless (eq (vc-checkout-model file) 'implicit) - (if vc-svn-use-edit - (vc-svn-command nil 0 file "unedit") - ;; Make the file read-only by switching off all w-bits - (set-file-modes file (logand (file-modes file) 3950))))) + (vc-svn-command nil 0 file "revert"))) (defun vc-svn-merge (file first-version &optional second-version) "Merge changes into current working copy of FILE. @@ -345,18 +329,23 @@ The changes are between FIRST-VERSION and SECOND-VERSION." (if (looking-at "At revision") 0 ;; there were no news; indicate success (if (re-search-forward - (concat "^\\([CGDU] \\)?" + ;; Newer SVN clients have 3 columns of chars (one for the + ;; file's contents, then second for its properties, and the + ;; third for lock-grabbing info), before the 2 spaces. + ;; We also used to match the filename in column 0 without any + ;; meta-info before it, but I believe this can never happen. + (concat "^\\(\\([ACGDU]\\)\\(.[B ]\\)? \\)" (regexp-quote (file-name-nondirectory file))) nil t) (cond ;; Merge successful, we are in sync with repository now - ((string= (match-string 1) "U ") + ((string= (match-string 2) "U") (vc-file-setprop file 'vc-state 'up-to-date) (vc-file-setprop file 'vc-checkout-time (nth 5 (file-attributes file))) 0);; indicate success to the caller ;; Merge successful, but our own changes are still in the file - ((string= (match-string 1) "G ") + ((string= (match-string 2) "G") (vc-file-setprop file 'vc-state 'edited) 0);; indicate success to the caller ;; Conflicts detected! diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index 2e11b65575..035f54b898 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -404,7 +404,7 @@ new value.") ;; We want to avoid the face with image buttons. (unless (widget-get widget :suppress-face) (overlay-put overlay 'face (widget-apply widget :button-face-get)) - (overlay-put overlay 'mouse-face + (overlay-put overlay 'mouse-face (widget-apply widget :mouse-face-get))) (overlay-put overlay 'pointer 'hand) (overlay-put overlay 'follow-link follow-link) @@ -1852,7 +1852,9 @@ If END is omitted, it defaults to the length of LIST." ;;; The `editable-field' Widget. (define-widget 'editable-field 'default - "An editable text field." + "An editable text field. +Note: In an `editable-field' widget, the `%v' escape must be preceded +by some other text in the `:format' string (if specified)." :convert-widget 'widget-value-convert-widget :keymap widget-field-keymap :format "%v" |