diff options
| author | Paul Eggert | 2012-01-14 22:41:53 -0800 |
|---|---|---|
| committer | Paul Eggert | 2012-01-14 22:41:53 -0800 |
| commit | 807f82fcebc7d946baa23f1d29ff5b0cf336f08e (patch) | |
| tree | fa41cebf5b9c6d3bb6a22517a7002fe3a398588f /lisp | |
| parent | 35cf62d95cdcd5323dcea4a5385942c342ff1d9c (diff) | |
| parent | 861df977526140af8147bef4950e8863655c203d (diff) | |
| download | emacs-807f82fcebc7d946baa23f1d29ff5b0cf336f08e.tar.gz emacs-807f82fcebc7d946baa23f1d29ff5b0cf336f08e.zip | |
Merge from trunk.
Diffstat (limited to 'lisp')
71 files changed, 908 insertions, 612 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index dfc21373806..76728fdbc5b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,58 @@ | |||
| 1 | 2012-01-14 Eli Zaretskii <eliz@gnu.org> | ||
| 2 | |||
| 3 | * info.el (Info-toc-build): If the Info file has no "Up" pointer, | ||
| 4 | don't pass the (nil) value of `upnode' to string-match. | ||
| 5 | |||
| 6 | 2012-01-14 Chong Yidong <cyd@gnu.org> | ||
| 7 | |||
| 8 | * startup.el (command-line): Fix X resource class for cursorColor. | ||
| 9 | Fix values recognized by the cursorBlink resource. | ||
| 10 | |||
| 11 | 2012-01-14 Paul Eggert <eggert@cs.ucla.edu> | ||
| 12 | |||
| 13 | * epg.el (epg--make-temp-file): Avoid permission race condition | ||
| 14 | when running on old Emacs versions (bug#10403). | ||
| 15 | |||
| 16 | 2012-01-14 Glenn Morris <rgm@gnu.org> | ||
| 17 | |||
| 18 | * dired.el (dired-get-filename): Fix 'verbatim case of previous change. | ||
| 19 | |||
| 20 | 2012-01-13 Glenn Morris <rgm@gnu.org> | ||
| 21 | |||
| 22 | * dired.el (dired-switches-escape-p): New function. | ||
| 23 | (dired-insert-directory): Use dired-switches-escape-p. | ||
| 24 | (dired-get-filename): Undo "\ " quoting if needed. (Bug#10469) | ||
| 25 | |||
| 26 | * find-dired.el (find-ls-option): Doc fix. (Bug#10262) | ||
| 27 | |||
| 28 | 2012-01-12 Glenn Morris <rgm@gnu.org> | ||
| 29 | |||
| 30 | * mail/sendmail.el (mail-mode): Update paragraph-separate for | ||
| 31 | changes in adaptive-fill-regexp. (Bug#10276) | ||
| 32 | |||
| 33 | 2012-01-11 Alan Mackenzie <acm@muc.de> | ||
| 34 | |||
| 35 | Fix Emacs bug #10463 - put `widen's around the critical spots. | ||
| 36 | |||
| 37 | * progmodes/cc-engine.el (c-in-literal, c-literal-limits): put a | ||
| 38 | widen around each invocation of c-state-pp-to-literal. Remove an | ||
| 39 | unused let variable. | ||
| 40 | |||
| 41 | 2012-01-11 Glenn Morris <rgm@gnu.org> | ||
| 42 | |||
| 43 | * dired-aux.el (dired-do-shell-command): Fix */? logic. (Bug#6561) | ||
| 44 | Doc fix. | ||
| 45 | |||
| 46 | 2012-01-10 Chong Yidong <cyd@gnu.org> | ||
| 47 | |||
| 48 | * net/network-stream.el (network-stream-open-starttls): Avoid | ||
| 49 | emitting a confusing error message when the server gives a bad | ||
| 50 | response to the capability command. | ||
| 51 | |||
| 52 | 2012-01-10 Glenn Morris <rgm@gnu.org> | ||
| 53 | |||
| 54 | * mail/unrmail.el (unrmail): Tweak previous change. | ||
| 55 | |||
| 1 | 2012-01-09 Chong Yidong <cyd@gnu.org> | 56 | 2012-01-09 Chong Yidong <cyd@gnu.org> |
| 2 | 57 | ||
| 3 | * custom.el (custom-safe-themes): Use SHA-256 for hashing. | 58 | * custom.el (custom-safe-themes): Use SHA-256 for hashing. |
| @@ -27,7 +82,7 @@ | |||
| 27 | * ibuffer.el (ibuffer-mode): List the bindings in the corrent map | 82 | * ibuffer.el (ibuffer-mode): List the bindings in the corrent map |
| 28 | (bug#9759). | 83 | (bug#9759). |
| 29 | 84 | ||
| 30 | * mail/smtpmail.el (password-cache-add): Removed unused declaration. | 85 | * mail/smtpmail.el (password-cache-add): Remove unused declaration. |
| 31 | (password-read): Don't autoload unused function. | 86 | (password-read): Don't autoload unused function. |
| 32 | 87 | ||
| 33 | 2012-01-07 Juanma Barranquero <lekktu@gmail.com> | 88 | 2012-01-07 Juanma Barranquero <lekktu@gmail.com> |
| @@ -1382,7 +1437,7 @@ | |||
| 1382 | (window-list-no-nils): Remove. | 1437 | (window-list-no-nils): Remove. |
| 1383 | (window-state-get-1, window-state-get): Use backquote instead. | 1438 | (window-state-get-1, window-state-get): Use backquote instead. |
| 1384 | 1439 | ||
| 1385 | 2011-11-08 thierry <thierry.volpiatto@gmail.com> | 1440 | 2011-11-08 Thierry Volpiatto <thierry.volpiatto@gmail.com> |
| 1386 | 1441 | ||
| 1387 | * emacs-lisp/find-func.el (find-function-read): | 1442 | * emacs-lisp/find-func.el (find-function-read): |
| 1388 | Fix incorrect use of default argument in `completing-read'. | 1443 | Fix incorrect use of default argument in `completing-read'. |
| @@ -4532,7 +4587,7 @@ | |||
| 4532 | 4587 | ||
| 4533 | * printing.el: Add documentation to all the `pr-toggle-' commands. | 4588 | * printing.el: Add documentation to all the `pr-toggle-' commands. |
| 4534 | 4589 | ||
| 4535 | 2011-07-11 Leo <sdl.web@gmail.com> (tiny change) | 4590 | 2011-07-11 Leo Liu <sdl.web@gmail.com> |
| 4536 | 4591 | ||
| 4537 | * files.el (toggle-read-only): Only do the `C-x C-q' warning on VC | 4592 | * files.el (toggle-read-only): Only do the `C-x C-q' warning on VC |
| 4538 | backends where it makes sense (bug#2623). | 4593 | backends where it makes sense (bug#2623). |
| @@ -7116,7 +7171,7 @@ | |||
| 7116 | 2011-05-23 Kevin Ryde <user42@zip.com.au> | 7171 | 2011-05-23 Kevin Ryde <user42@zip.com.au> |
| 7117 | 7172 | ||
| 7118 | * emacs-lisp/advice.el (ad-read-advised-function): | 7173 | * emacs-lisp/advice.el (ad-read-advised-function): |
| 7119 | Use `function-called-at-point' as the default default, if it has | 7174 | Use `function-called-at-point' as the default, if it has |
| 7120 | advice and passes PREDICATE. | 7175 | advice and passes PREDICATE. |
| 7121 | 7176 | ||
| 7122 | 2011-05-23 Stefan Monnier <monnier@iro.umontreal.ca> | 7177 | 2011-05-23 Stefan Monnier <monnier@iro.umontreal.ca> |
| @@ -7942,7 +7997,7 @@ | |||
| 7942 | * net/gnutls.el (gnutls-negotiate): Add hostname, verify-flags, | 7997 | * net/gnutls.el (gnutls-negotiate): Add hostname, verify-flags, |
| 7943 | verify-error, and verify-hostname-error parameters. Check whether | 7998 | verify-error, and verify-hostname-error parameters. Check whether |
| 7944 | default trustfile exists before going to use it. Add missing | 7999 | default trustfile exists before going to use it. Add missing |
| 7945 | argument to gnutls-message-maybe call. Return return value. | 8000 | argument to gnutls-message-maybe call. Return value. |
| 7946 | Reported by Claudio Bley <claudio.bley@gmail.com>. | 8001 | Reported by Claudio Bley <claudio.bley@gmail.com>. |
| 7947 | (open-gnutls-stream): Add usage example. | 8002 | (open-gnutls-stream): Add usage example. |
| 7948 | 8003 | ||
| @@ -9566,7 +9621,7 @@ | |||
| 9566 | * calc/calc-menu.el (calc-units-menu): Add entries for logarithmic | 9621 | * calc/calc-menu.el (calc-units-menu): Add entries for logarithmic |
| 9567 | units and musical notes. | 9622 | units and musical notes. |
| 9568 | 9623 | ||
| 9569 | 2011-03-20 Leo <sdl.web@gmail.com> | 9624 | 2011-03-20 Leo Liu <sdl.web@gmail.com> |
| 9570 | 9625 | ||
| 9571 | * ido.el (ido-read-internal): Use completing-read-default. | 9626 | * ido.el (ido-read-internal): Use completing-read-default. |
| 9572 | (ido-completing-read): Fix compatibility with completing-read. | 9627 | (ido-completing-read): Fix compatibility with completing-read. |
diff --git a/lisp/ChangeLog.1 b/lisp/ChangeLog.1 index 5389bd27125..9958c6ccdb3 100644 --- a/lisp/ChangeLog.1 +++ b/lisp/ChangeLog.1 | |||
| @@ -100,7 +100,7 @@ | |||
| 100 | 100 | ||
| 101 | 1986-03-31 Richard M. Stallman (rms@prep) | 101 | 1986-03-31 Richard M. Stallman (rms@prep) |
| 102 | 102 | ||
| 103 | * man.el: fix stupid error in arg to file-name-all-completions. | 103 | * man.el: Fix stupid error in arg to file-name-all-completions. |
| 104 | 104 | ||
| 105 | 1986-03-28 Richard M. Stallman (rms@prep) | 105 | 1986-03-28 Richard M. Stallman (rms@prep) |
| 106 | 106 | ||
| @@ -117,7 +117,7 @@ | |||
| 117 | 1986-03-26 Richard Mlynarik (mly@prep) | 117 | 1986-03-26 Richard Mlynarik (mly@prep) |
| 118 | 118 | ||
| 119 | * indent.el (edit-tab-stops): | 119 | * indent.el (edit-tab-stops): |
| 120 | Go to character 0 so editing happens in right place | 120 | Go to character 0 so editing happens in right place. |
| 121 | 121 | ||
| 122 | 1986-03-24 Richard M. Stallman (rms@prep) | 122 | 1986-03-24 Richard M. Stallman (rms@prep) |
| 123 | 123 | ||
| @@ -196,8 +196,8 @@ | |||
| 196 | 196 | ||
| 197 | 1986-03-12 Richard Mlynarik (mly@prep) | 197 | 1986-03-12 Richard Mlynarik (mly@prep) |
| 198 | 198 | ||
| 199 | * shell.el (shell) | 199 | * shell.el (shell): |
| 200 | If no environment variable SHELL, default to /bin/sh | 200 | If no environment variable SHELL, default to /bin/sh. |
| 201 | 201 | ||
| 202 | 1986-03-12 Leonard H. Tower Jr. (tower@prep) | 202 | 1986-03-12 Leonard H. Tower Jr. (tower@prep) |
| 203 | 203 | ||
| @@ -226,16 +226,16 @@ | |||
| 226 | 226 | ||
| 227 | 1986-03-07 Sundar Narasimhan (sundar@prep) | 227 | 1986-03-07 Sundar Narasimhan (sundar@prep) |
| 228 | 228 | ||
| 229 | * rnews.el: fix bug in news-get-new-news. (news-current-news-group | 229 | * rnews.el: Fix bug in news-get-new-news. (news-current-news-group |
| 230 | should be nil on startup). | 230 | should be nil on startup). |
| 231 | 231 | ||
| 232 | 1986-03-07 Bill Rozas (jinx@prep) | 232 | 1986-03-07 Bill Rozas (jinx@prep) |
| 233 | 233 | ||
| 234 | * scheme.el: autoloads from xscheme.el | 234 | * scheme.el: Autoloads from xscheme.el. |
| 235 | 235 | ||
| 236 | * xscheme.el: New file. Implements inferior-scheme-mode and | 236 | * xscheme.el: New file. Implements inferior-scheme-mode and |
| 237 | related commands. Similar (almost a query replace of) | 237 | related commands. Similar (almost a query replace of) |
| 238 | inferior-lisp-mode in shell.el | 238 | inferior-lisp-mode in shell.el. |
| 239 | 239 | ||
| 240 | 1986-03-07 Richard M. Stallman (rms@prep) | 240 | 1986-03-07 Richard M. Stallman (rms@prep) |
| 241 | 241 | ||
| @@ -267,8 +267,8 @@ | |||
| 267 | 267 | ||
| 268 | 1986-03-03 Leonard H. Tower Jr. (tower@prep) | 268 | 1986-03-03 Leonard H. Tower Jr. (tower@prep) |
| 269 | 269 | ||
| 270 | * rnews.el (news-add-news-group) | 270 | * rnews.el (news-add-news-group): |
| 271 | Fixed bug that was putting "/"'s in newsgroups names in .newsrc | 271 | Fix bug that was putting "/"'s in newsgroups names in .newsrc |
| 272 | instead of "."'s. | 272 | instead of "."'s. |
| 273 | 273 | ||
| 274 | 1986-03-03 Richard M. Stallman (rms@prep) | 274 | 1986-03-03 Richard M. Stallman (rms@prep) |
| @@ -320,8 +320,8 @@ | |||
| 320 | 1986-02-20 Richard Mlynarik (mly@prep) | 320 | 1986-02-20 Richard Mlynarik (mly@prep) |
| 321 | 321 | ||
| 322 | * info.el (Info-validate): | 322 | * info.el (Info-validate): |
| 323 | Node-names are case-insensitive, but assoc is case-sensitive | 323 | Node-names are case-insensitive, but assoc is case-sensitive. |
| 324 | Separate out function Info-validate-tags-table | 324 | Separate out function Info-validate-tags-table. |
| 325 | 325 | ||
| 326 | 1986-02-19 Richard M. Stallman (rms@prep) | 326 | 1986-02-19 Richard M. Stallman (rms@prep) |
| 327 | 327 | ||
| @@ -404,7 +404,7 @@ | |||
| 404 | 404 | ||
| 405 | * info.el: | 405 | * info.el: |
| 406 | Completely rewrite Info-find-node so that it doesn't | 406 | Completely rewrite Info-find-node so that it doesn't |
| 407 | blow out on nonexistent nodes/files | 407 | blow out on nonexistent nodes/files. |
| 408 | 408 | ||
| 409 | Rewrite Info-goto-node through the Magic of Regular Expressions. | 409 | Rewrite Info-goto-node through the Magic of Regular Expressions. |
| 410 | 410 | ||
| @@ -426,7 +426,7 @@ | |||
| 426 | 426 | ||
| 427 | 1986-02-03 Richard Mlynarik (mly@prep) | 427 | 1986-02-03 Richard Mlynarik (mly@prep) |
| 428 | 428 | ||
| 429 | * info.el (Info-validate) Insert a missing space. | 429 | * info.el (Info-validate): Insert a missing space. |
| 430 | 430 | ||
| 431 | 1986-02-03 Richard M. Stallman (rms@prep) | 431 | 1986-02-03 Richard M. Stallman (rms@prep) |
| 432 | 432 | ||
| @@ -522,7 +522,7 @@ | |||
| 522 | Set mode correctly for .~i~ backup files. | 522 | Set mode correctly for .~i~ backup files. |
| 523 | 523 | ||
| 524 | * shell.el (inferior-lisp-mode): | 524 | * shell.el (inferior-lisp-mode): |
| 525 | Use \\{...} in doc. Fix up initialization of inferior-lisp-mode-map | 525 | Use \\{...} in doc. Fix up initialization of inferior-lisp-mode-map. |
| 526 | 526 | ||
| 527 | 1986-01-21 Richard Mlynarik (mly@prep) | 527 | 1986-01-21 Richard Mlynarik (mly@prep) |
| 528 | 528 | ||
| @@ -585,7 +585,7 @@ | |||
| 585 | 1986-01-09 Richard Mlynarik (mly@prep) | 585 | 1986-01-09 Richard Mlynarik (mly@prep) |
| 586 | 586 | ||
| 587 | * mail-utils.el (mail-strip-quoted-names): | 587 | * mail-utils.el (mail-strip-quoted-names): |
| 588 | Handle multi-line address lists | 588 | Handle multi-line address lists. |
| 589 | 589 | ||
| 590 | 1986-01-08 Richard Mlynarik (mly@prep) | 590 | 1986-01-08 Richard Mlynarik (mly@prep) |
| 591 | 591 | ||
| @@ -610,12 +610,12 @@ | |||
| 610 | 1986-01-07 Richard Mlynarik (mly@prep) | 610 | 1986-01-07 Richard Mlynarik (mly@prep) |
| 611 | 611 | ||
| 612 | * tags.el (visit-tags-table): | 612 | * tags.el (visit-tags-table): |
| 613 | Barf if given a directory | 613 | Barf if given a directory. |
| 614 | 614 | ||
| 615 | 1986-01-06 Richard Mlynarik (mly@prep) | 615 | 1986-01-06 Richard Mlynarik (mly@prep) |
| 616 | 616 | ||
| 617 | * nroff-mode.el (electric-nroff-mode): | 617 | * nroff-mode.el (electric-nroff-mode): |
| 618 | set-minor-mode correctly | 618 | set-minor-mode correctly. |
| 619 | 619 | ||
| 620 | 1986-01-02 Richard Mlynarik (mly@prep) | 620 | 1986-01-02 Richard Mlynarik (mly@prep) |
| 621 | 621 | ||
| @@ -626,7 +626,7 @@ | |||
| 626 | 626 | ||
| 627 | * info.el (Info-tagify, Info-validate): | 627 | * info.el (Info-tagify, Info-validate): |
| 628 | (let ((case-fold-search t)) ...) | 628 | (let ((case-fold-search t)) ...) |
| 629 | for when these functions are used outside info mode | 629 | for when these functions are used outside info mode. |
| 630 | 630 | ||
| 631 | 1985-12-30 Richard M. Stallman (rms@prep) | 631 | 1985-12-30 Richard M. Stallman (rms@prep) |
| 632 | 632 | ||
| @@ -646,7 +646,7 @@ | |||
| 646 | 1985-12-30 Richard Mlynarik (mly@prep) | 646 | 1985-12-30 Richard Mlynarik (mly@prep) |
| 647 | 647 | ||
| 648 | * files.el (backup-buffer): | 648 | * files.el (backup-buffer): |
| 649 | Don't backup `weird' (non-character or link) files | 649 | Don't backup `weird' (non-character or link) files. |
| 650 | 650 | ||
| 651 | 1985-12-28 Richard M. Stallman (rms@prep) | 651 | 1985-12-28 Richard M. Stallman (rms@prep) |
| 652 | 652 | ||
| @@ -749,7 +749,7 @@ | |||
| 749 | 1985-12-17 Richard Mlynarik (mly@prep) | 749 | 1985-12-17 Richard Mlynarik (mly@prep) |
| 750 | 750 | ||
| 751 | * simple.el (goto-line): | 751 | * simple.el (goto-line): |
| 752 | Accept either prefix arg or prompt in minibuffer | 752 | Accept either prefix arg or prompt in minibuffer. |
| 753 | 753 | ||
| 754 | 1985-12-17 Richard M. Stallman (rms@prep) | 754 | 1985-12-17 Richard M. Stallman (rms@prep) |
| 755 | 755 | ||
| @@ -772,7 +772,7 @@ | |||
| 772 | * files.el (set-visited-file-name): | 772 | * files.el (set-visited-file-name): |
| 773 | Work properly in case of arg = nil or = "". | 773 | Work properly in case of arg = nil or = "". |
| 774 | 774 | ||
| 775 | * debug.el (debugger-frame{,-clear}) | 775 | * debug.el (debugger-frame{,-clear}): |
| 776 | Bind off read-only flag to change buffer. | 776 | Bind off read-only flag to change buffer. |
| 777 | 777 | ||
| 778 | 1985-12-14 Richard M. Stallman (rms@prep) | 778 | 1985-12-14 Richard M. Stallman (rms@prep) |
| @@ -812,8 +812,7 @@ | |||
| 812 | modified in Rmail doesn't always correlate with | 812 | modified in Rmail doesn't always correlate with |
| 813 | what the user is thinking about. | 813 | what the user is thinking about. |
| 814 | 814 | ||
| 815 | * abbrev.el (prepare-abbrev-list-buffer, list-abbrevs, | 815 | * abbrev.el (prepare-abbrev-list-buffer, list-abbrevs, edit-abbrevs): |
| 816 | edit-abbrevs): | ||
| 817 | Some cleanups. prepare-... now does all the work and | 816 | Some cleanups. prepare-... now does all the work and |
| 818 | returns the buffer for the caller to select or display. | 817 | returns the buffer for the caller to select or display. |
| 819 | 818 | ||
| @@ -894,8 +893,8 @@ | |||
| 894 | * files.el (switch-to-buffer-other-window): | 893 | * files.el (switch-to-buffer-other-window): |
| 895 | Pass t as new second arg to pop-to-buffer. | 894 | Pass t as new second arg to pop-to-buffer. |
| 896 | 895 | ||
| 897 | * indent.el (insert-tab): | 896 | * indent.el (insert-tab): |
| 898 | If indent-tabs-mode = nil, insert spaces instead. | 897 | If indent-tabs-mode = nil, insert spaces instead. |
| 899 | 898 | ||
| 900 | * debug.el (debug): | 899 | * debug.el (debug): |
| 901 | Combine two unwind-protect's into one. | 900 | Combine two unwind-protect's into one. |
| @@ -907,7 +906,7 @@ | |||
| 907 | 1985-12-09 Richard Mlynarik (mly@prep) | 906 | 1985-12-09 Richard Mlynarik (mly@prep) |
| 908 | 907 | ||
| 909 | * rmail.el (rmail-save): | 908 | * rmail.el (rmail-save): |
| 910 | Don't do possibly lengthy expunge if buffer not modified | 909 | Don't do possibly lengthy expunge if buffer not modified. |
| 911 | 910 | ||
| 912 | * loaddefs.el: | 911 | * loaddefs.el: |
| 913 | (fset 'TeX-mode 'tex-mode) | 912 | (fset 'TeX-mode 'tex-mode) |
| @@ -942,10 +941,10 @@ | |||
| 942 | 941 | ||
| 943 | * info.el (Info-find-node): | 942 | * info.el (Info-find-node): |
| 944 | Must search for "Node: Foo" not " Foo" or else would | 943 | Must search for "Node: Foo" not " Foo" or else would |
| 945 | lose when there was a "Node: Bar Foo" | 944 | lose when there was a "Node: Bar Foo". |
| 946 | 945 | ||
| 947 | * dired.el (dired-copy-file): | 946 | * dired.el (dired-copy-file): |
| 948 | interactive "F" not "s" | 947 | interactive "F" not "s". |
| 949 | 948 | ||
| 950 | * man.el (manual-entry): | 949 | * man.el (manual-entry): |
| 951 | Allow user to specify "chdir(3)" to get entry from section | 950 | Allow user to specify "chdir(3)" to get entry from section |
| @@ -965,10 +964,10 @@ | |||
| 965 | 964 | ||
| 966 | * info.el: | 965 | * info.el: |
| 967 | (Info-validate-node-name): Don't complain about nodes in other files. | 966 | (Info-validate-node-name): Don't complain about nodes in other files. |
| 968 | (Info-menu-sequence): fix typo in function name. | 967 | (Info-menu-sequence): Fix typo in function name. |
| 969 | 968 | ||
| 970 | * rmail.el: | 969 | * rmail.el: |
| 971 | (rmail-save): new function; `s' and `q' commands now expunge. | 970 | (rmail-save): New function; `s' and `q' commands now expunge. |
| 972 | (rmail-set-attribute): Don't lose if buffer wasn't narrowed. | 971 | (rmail-set-attribute): Don't lose if buffer wasn't narrowed. |
| 973 | (rmail-undelete-previous-message): | 972 | (rmail-undelete-previous-message): |
| 974 | Try current message first, then back up till deleted msg | 973 | Try current message first, then back up till deleted msg |
| @@ -1032,11 +1031,12 @@ | |||
| 1032 | 1031 | ||
| 1033 | 1985-12-05 Richard Mlynarik (mly@prep) | 1032 | 1985-12-05 Richard Mlynarik (mly@prep) |
| 1034 | 1033 | ||
| 1035 | * abbrev.el, chistory.el, debug.el, doctor.el, indent.el, info.el, sendmail.el: | 1034 | * abbrev.el, chistory.el, debug.el, doctor.el, indent.el: |
| 1036 | Fix initialization of mode-maps | 1035 | * info.el, sendmail.el: |
| 1036 | Fix initialization of mode-maps. | ||
| 1037 | 1037 | ||
| 1038 | * sendmail.el (mail-position-on-field): | 1038 | * sendmail.el (mail-position-on-field): |
| 1039 | Make this work | 1039 | Make this work. |
| 1040 | 1040 | ||
| 1041 | 1985-12-05 Richard M. Stallman (rms@prep) | 1041 | 1985-12-05 Richard M. Stallman (rms@prep) |
| 1042 | 1042 | ||
| @@ -1091,18 +1091,18 @@ | |||
| 1091 | 1985-12-03 Richard Mlynarik (mly@prep) | 1091 | 1985-12-03 Richard Mlynarik (mly@prep) |
| 1092 | 1092 | ||
| 1093 | * bytecomp.el (byte-compile-file-form): | 1093 | * bytecomp.el (byte-compile-file-form): |
| 1094 | Reduce noninteractive message verbosity | 1094 | Reduce noninteractive message verbosity. |
| 1095 | 1095 | ||
| 1096 | * ebuff-menu.el: | 1096 | * ebuff-menu.el: |
| 1097 | Standardize initialization of Electric-buffer-menu-mode-map | 1097 | Standardize initialization of Electric-buffer-menu-mode-map. |
| 1098 | make digits, meta-digits and "-" be numeric args | 1098 | Make digits, meta-digits and "-" be numeric args. |
| 1099 | (put 'Electric-buffer-menu-undefined 'suppress-keymap t) | 1099 | (put 'Electric-buffer-menu-undefined 'suppress-keymap t) |
| 1100 | 1100 | ||
| 1101 | * electric.el (Electric-command-loop): | 1101 | * electric.el (Electric-command-loop): |
| 1102 | Set up this-command and last-command-char in command loop | 1102 | Set up this-command and last-command-char in command loop. |
| 1103 | 1103 | ||
| 1104 | * simple.el (prefix-arg-internal, negative-argument): | 1104 | * simple.el (prefix-arg-internal, negative-argument): |
| 1105 | Fix problem with negative-arguments and unreading | 1105 | Fix problem with negative-arguments and unreading. |
| 1106 | 1106 | ||
| 1107 | 1985-12-03 Richard M. Stallman (rms@prep) | 1107 | 1985-12-03 Richard M. Stallman (rms@prep) |
| 1108 | 1108 | ||
| @@ -1114,9 +1114,8 @@ | |||
| 1114 | 1114 | ||
| 1115 | * rnews.el: | 1115 | * rnews.el: |
| 1116 | Remove stray "<" character introduced by mly. | 1116 | Remove stray "<" character introduced by mly. |
| 1117 | (news-move-to-group): give error message if no new group to move | 1117 | (news-move-to-group): Give error message if no new group to move to. |
| 1118 | to. | 1118 | (news-next-message): With arg of 1 or -1, keep doing |
| 1119 | (news-next-message): with arg of 1 or -1, keep doing | ||
| 1120 | news-next-group or news-previous-group till reach nonempty group. | 1119 | news-next-group or news-previous-group till reach nonempty group. |
| 1121 | 1120 | ||
| 1122 | * x-mouse.el: | 1121 | * x-mouse.el: |
| @@ -1146,14 +1145,14 @@ | |||
| 1146 | 1985-11-26 Richard Mlynarik (mly@prep) | 1145 | 1985-11-26 Richard Mlynarik (mly@prep) |
| 1147 | 1146 | ||
| 1148 | * view.el: | 1147 | * view.el: |
| 1149 | Define c-x o | 1148 | Define c-x o. |
| 1150 | Rename interactive functions from view-* to View-* to improve m-x | 1149 | Rename interactive functions from view-* to View-* to improve m-x |
| 1151 | completion. | 1150 | completion. |
| 1152 | defvar, rather than defconst, view-mode-map | 1151 | defvar, rather than defconst, view-mode-map. |
| 1153 | Take old-emacs-version-compatibility out of view-file | 1152 | Take old-emacs-version-compatibility out of view-file. |
| 1154 | 1153 | ||
| 1155 | * helper.el (Helper-describe-mode, Helper-describe-bindings) | 1154 | * helper.el (Helper-describe-mode, Helper-describe-bindings): |
| 1156 | Fix bit-rot | 1155 | Fix bit-rot. |
| 1157 | Hack C-l in Helper-help-scroller. | 1156 | Hack C-l in Helper-help-scroller. |
| 1158 | 1157 | ||
| 1159 | 1985-11-25 Richard M. Stallman (rms@prep) | 1158 | 1985-11-25 Richard M. Stallman (rms@prep) |
| @@ -1207,26 +1206,26 @@ | |||
| 1207 | Make edit-options-1 inline. | 1206 | Make edit-options-1 inline. |
| 1208 | 1207 | ||
| 1209 | * term-xterm.el: | 1208 | * term-xterm.el: |
| 1210 | Fix documentation for x-switches | 1209 | Fix documentation for x-switches. |
| 1211 | 1210 | ||
| 1212 | 1985-11-20 Richard Mlynarik (mly@prep) | 1211 | 1985-11-20 Richard Mlynarik (mly@prep) |
| 1213 | 1212 | ||
| 1214 | * files.el, sendmail.el: | 1213 | * files.el, sendmail.el: |
| 1215 | New function delete-auto-save-file-if-necessary | 1214 | New function delete-auto-save-file-if-necessary. |
| 1216 | Make basic-save-file, mail-send call it | 1215 | Make basic-save-file, mail-send call it. |
| 1217 | 1216 | ||
| 1218 | * startup.el (command-line-1): | 1217 | * startup.el (command-line-1): |
| 1219 | Reformat to make all extraneous bs fit in 80 columns | 1218 | Reformat to make all extraneous bs fit in 80 columns. |
| 1220 | 1219 | ||
| 1221 | * lisp-mode.el (calculate-lisp-indent): | 1220 | * lisp-mode.el (calculate-lisp-indent): |
| 1222 | Check for boundp lisp-indent-hook, not fboundp. | 1221 | Check for boundp lisp-indent-hook, not fboundp. |
| 1223 | 1222 | ||
| 1224 | * lisp.el, lisp-mode.el | 1223 | * lisp.el, lisp-mode.el: |
| 1225 | Move eval-last-sexp, eval-defun from lisp.el to lisp-mode.el since | 1224 | Move eval-last-sexp, eval-defun from lisp.el to lisp-mode.el since |
| 1226 | all their usages occur in the latter file. | 1225 | all their usages occur in the latter file. |
| 1227 | 1226 | ||
| 1228 | * rnews.el | 1227 | * rnews.el: |
| 1229 | Use `mail-header-separator' | 1228 | Use `mail-header-separator'. |
| 1230 | 1229 | ||
| 1231 | * term-xterm.el: | 1230 | * term-xterm.el: |
| 1232 | Define x-handle-switch-1 to modularize discarding of | 1231 | Define x-handle-switch-1 to modularize discarding of |
| @@ -1236,8 +1235,8 @@ | |||
| 1236 | Check for command-switch-alist before checking for builtin | 1235 | Check for command-switch-alist before checking for builtin |
| 1237 | switches. | 1236 | switches. |
| 1238 | 1237 | ||
| 1239 | * bytecomp.el, term-xterm.el, tex-start.el | 1238 | * bytecomp.el, term-xterm.el, tex-start.el: |
| 1240 | Switches look for `command-line-args' rather than `args' | 1239 | Switches look for `command-line-args' rather than `args'. |
| 1241 | 1240 | ||
| 1242 | 1985-11-20 Richard M. Stallman (rms@prep) | 1241 | 1985-11-20 Richard M. Stallman (rms@prep) |
| 1243 | 1242 | ||
| @@ -1275,14 +1274,14 @@ | |||
| 1275 | 1274 | ||
| 1276 | 1985-11-18 Richard Mlynarik (mly@prep) | 1275 | 1985-11-18 Richard Mlynarik (mly@prep) |
| 1277 | 1276 | ||
| 1278 | * bytecomp.el (batch-byte-compile): | 1277 | * bytecomp.el (batch-byte-compile): |
| 1279 | Print a message for the log before terminating self. | 1278 | Print a message for the log before terminating self. |
| 1280 | 1279 | ||
| 1281 | * simple.el (set-variable): | 1280 | * simple.el (set-variable): |
| 1282 | Fix thinko in help-form, and include current value. | 1281 | Fix thinko in help-form, and include current value. |
| 1283 | 1282 | ||
| 1284 | * info.el (Info-find-node): | 1283 | * info.el (Info-find-node): |
| 1285 | If can't find node, say which node in error message | 1284 | If can't find node, say which node in error message. |
| 1286 | 1285 | ||
| 1287 | * rmailedit.el (rmail-edit-mode): | 1286 | * rmailedit.el (rmail-edit-mode): |
| 1288 | Improve documentation greatly, fix typo. | 1287 | Improve documentation greatly, fix typo. |
| @@ -1303,8 +1302,8 @@ | |||
| 1303 | 1302 | ||
| 1304 | 1985-11-14 Richard Mlynarik (mly@prep) | 1303 | 1985-11-14 Richard Mlynarik (mly@prep) |
| 1305 | 1304 | ||
| 1306 | * info.el | 1305 | * info.el: |
| 1307 | Make "." be beginning-of-buffer | 1306 | Make "." be beginning-of-buffer. |
| 1308 | 1307 | ||
| 1309 | 1985-11-13 Richard M. Stallman (rms@prep) | 1308 | 1985-11-13 Richard M. Stallman (rms@prep) |
| 1310 | 1309 | ||
| @@ -1332,19 +1331,19 @@ | |||
| 1332 | 1985-11-08 Richard Mlynarik (mly@prep) | 1331 | 1985-11-08 Richard Mlynarik (mly@prep) |
| 1333 | 1332 | ||
| 1334 | * startup.el (command-line): | 1333 | * startup.el (command-line): |
| 1335 | If noninteractive, don't load "term-*" | 1334 | If noninteractive, don't load "term-*". |
| 1336 | noninteractive => -q [Change this if you think it is a bad | 1335 | noninteractive => -q [Change this if you think it is a bad |
| 1337 | idea rms -- every use of -batch I make is followed by -q...] | 1336 | idea rms -- every use of -batch I make is followed by -q...] |
| 1338 | 1337 | ||
| 1339 | 1985-11-07 Richard Mlynarik (mly@prep) | 1338 | 1985-11-07 Richard Mlynarik (mly@prep) |
| 1340 | 1339 | ||
| 1341 | * files.el (after-find-file): | 1340 | * files.el (after-find-file): |
| 1342 | If get error hacking mode or local-vars, say what sort of error | 1341 | If get error hacking mode or local-vars, say what sort of error. |
| 1343 | 1342 | ||
| 1344 | 1985-11-06 Richard Mlynarik (mly@prep) | 1343 | 1985-11-06 Richard Mlynarik (mly@prep) |
| 1345 | 1344 | ||
| 1346 | * bytecomp.el (byte-compile-lambda): | 1345 | * bytecomp.el (byte-compile-lambda): |
| 1347 | Compile non-string `interactive' frobs | 1346 | Compile non-string `interactive' frobs. |
| 1348 | 1347 | ||
| 1349 | 1985-11-05 Richard M. Stallman (rms@prep) | 1348 | 1985-11-05 Richard M. Stallman (rms@prep) |
| 1350 | 1349 | ||
| @@ -1359,18 +1358,18 @@ | |||
| 1359 | Don't use create-file-buffer for summary buffer! | 1358 | Don't use create-file-buffer for summary buffer! |
| 1360 | 1359 | ||
| 1361 | * rmailsum.el (rmail-make-summary-line-1): | 1360 | * rmailsum.el (rmail-make-summary-line-1): |
| 1362 | Fix bug computing new summary line | 1361 | Fix bug computing new summary line. |
| 1363 | 1362 | ||
| 1364 | * debug.el (debug): | 1363 | * debug.el (debug): |
| 1365 | Make recursive calls to the debugger work. | 1364 | Make recursive calls to the debugger work. |
| 1366 | Make debugger buffer read-only | 1365 | Make debugger buffer read-only. |
| 1367 | 1366 | ||
| 1368 | * sendmail.el (mail-send, sendmail-send-it): | 1367 | * sendmail.el (mail-send, sendmail-send-it): |
| 1369 | Move some stuff from sendmail-send-it to mail-send | 1368 | Move some stuff from sendmail-send-it to mail-send |
| 1370 | Delete auto-save #%*mail* file if `delete-auto-save-files' | 1369 | Delete auto-save #%*mail* file if `delete-auto-save-files'. |
| 1371 | 1370 | ||
| 1372 | * electric.el (Electric-command-loop): | 1371 | * electric.el (Electric-command-loop): |
| 1373 | condition-case for `beginning-of-buffer' | 1372 | condition-case for `beginning-of-buffer'. |
| 1374 | 1373 | ||
| 1375 | 1985-11-05 Richard M. Stallman (rms@prep) | 1374 | 1985-11-05 Richard M. Stallman (rms@prep) |
| 1376 | 1375 | ||
| @@ -1381,7 +1380,7 @@ | |||
| 1381 | 1985-11-04 Richard Mlynarik (mly@prep) | 1380 | 1985-11-04 Richard Mlynarik (mly@prep) |
| 1382 | 1381 | ||
| 1383 | * yow.el, loaddefs.el: | 1382 | * yow.el, loaddefs.el: |
| 1384 | Function yow. Depends on file emacs/etc/yow.lines | 1383 | Function yow. Depends on file emacs/etc/yow.lines. |
| 1385 | 1384 | ||
| 1386 | 1985-11-04 Richard M. Stallman (rms@prep) | 1385 | 1985-11-04 Richard M. Stallman (rms@prep) |
| 1387 | 1386 | ||
| @@ -1423,7 +1422,7 @@ | |||
| 1423 | Some more bugs seem to remain in this code... | 1422 | Some more bugs seem to remain in this code... |
| 1424 | 1423 | ||
| 1425 | * dired.el: | 1424 | * dired.el: |
| 1426 | Both "e" and "f" are `dired-find-file' | 1425 | Both "e" and "f" are `dired-find-file'. |
| 1427 | 1426 | ||
| 1428 | 1985-10-30 Richard Mlynarik (mly@prep) | 1427 | 1985-10-30 Richard Mlynarik (mly@prep) |
| 1429 | 1428 | ||
| @@ -1449,7 +1448,7 @@ | |||
| 1449 | 1985-10-29 Richard Mlynarik (mly@prep) | 1448 | 1985-10-29 Richard Mlynarik (mly@prep) |
| 1450 | 1449 | ||
| 1451 | * startup.el (command-line-1): | 1450 | * startup.el (command-line-1): |
| 1452 | "-l" switch loads wrt load-path, rather than wrt default-directory | 1451 | "-l" switch loads wrt load-path, rather than wrt default-directory. |
| 1453 | 1452 | ||
| 1454 | 1985-10-29 Richard M. Stallman (rms@prep) | 1453 | 1985-10-29 Richard M. Stallman (rms@prep) |
| 1455 | 1454 | ||
| @@ -1491,7 +1490,7 @@ | |||
| 1491 | 1490 | ||
| 1492 | 1985-10-23 Richard Mlynarik (mly@prep) | 1491 | 1985-10-23 Richard Mlynarik (mly@prep) |
| 1493 | 1492 | ||
| 1494 | * mouseinit.el | 1493 | * mouseinit.el: |
| 1495 | Delete this file. Put its contents in files | 1494 | Delete this file. Put its contents in files |
| 1496 | term-bg.el, term-bgnv.el, term-bgrv.el, term-bbn.el. | 1495 | term-bg.el, term-bgnv.el, term-bgrv.el, term-bbn.el. |
| 1497 | (Perhaps there should be a subdirectory emacs/lisp/term/ ??) | 1496 | (Perhaps there should be a subdirectory emacs/lisp/term/ ??) |
| @@ -1504,10 +1503,10 @@ | |||
| 1504 | 1985-10-22 Richard Mlynarik (mly@prep) | 1503 | 1985-10-22 Richard Mlynarik (mly@prep) |
| 1505 | 1504 | ||
| 1506 | * debugger.el (debug): | 1505 | * debugger.el (debug): |
| 1507 | Bind variable `debugger-value' instead of `value' | 1506 | Bind variable `debugger-value' instead of `value'. |
| 1508 | 1507 | ||
| 1509 | * userlock.el: | 1508 | * userlock.el: |
| 1510 | Give `file-locked' error-conditions and error-message props | 1509 | Give `file-locked' error-conditions and error-message props. |
| 1511 | 1510 | ||
| 1512 | 1985-10-21 Richard M. Stallman (rms@mit-prep) | 1511 | 1985-10-21 Richard M. Stallman (rms@mit-prep) |
| 1513 | 1512 | ||
| @@ -1522,10 +1521,10 @@ | |||
| 1522 | 1521 | ||
| 1523 | * sendmail.el (mail-do-fcc): | 1522 | * sendmail.el (mail-do-fcc): |
| 1524 | Do cretinous unix ">" `quoting' of "\nFrom " strings | 1523 | Do cretinous unix ">" `quoting' of "\nFrom " strings |
| 1525 | (this isn't transparent, but it's what other stupid programs expect) | 1524 | (this isn't transparent, but it's what other stupid programs expect). |
| 1526 | 1525 | ||
| 1527 | * mailalias.el (expand-mail-aliases): | 1526 | * mailalias.el (expand-mail-aliases): |
| 1528 | Hack case-fold-search as appropriate | 1527 | Hack case-fold-search as appropriate. |
| 1529 | 1528 | ||
| 1530 | 1985-10-21 Richard M. Stallman (rms@mit-prep) | 1529 | 1985-10-21 Richard M. Stallman (rms@mit-prep) |
| 1531 | 1530 | ||
| @@ -1570,7 +1569,7 @@ | |||
| 1570 | 1569 | ||
| 1571 | * sendmail.el: | 1570 | * sendmail.el: |
| 1572 | Use new var mail-header-separator in place of constant --text... | 1571 | Use new var mail-header-separator in place of constant --text... |
| 1573 | (mail-setup): fill the To and Cc text inserted. | 1572 | (mail-setup): Fill the To and Cc text inserted. |
| 1574 | Assume <...> constructs were handled by mail-strip-quoted-names. | 1573 | Assume <...> constructs were handled by mail-strip-quoted-names. |
| 1575 | (mail-fill-yanked-message): Add this and put on C-c q. | 1574 | (mail-fill-yanked-message): Add this and put on C-c q. |
| 1576 | (mail-mode): Set up mail-mode-map when file is loaded. | 1575 | (mail-mode): Set up mail-mode-map when file is loaded. |
| @@ -1617,9 +1616,9 @@ | |||
| 1617 | * rnews.el (news-save-item-in-file): | 1616 | * rnews.el (news-save-item-in-file): |
| 1618 | Append to file, rather than overwriting. | 1617 | Append to file, rather than overwriting. |
| 1619 | 1618 | ||
| 1620 | * isearch.el | 1619 | * isearch.el: |
| 1621 | Eliminate confused attempts at indicating that long isearch was | 1620 | Eliminate confused attempts at indicating that long isearch was |
| 1622 | `in progress' | 1621 | `in progress'. |
| 1623 | 1622 | ||
| 1624 | 1985-10-15 Richard M. Stallman (rms@mit-prep) | 1623 | 1985-10-15 Richard M. Stallman (rms@mit-prep) |
| 1625 | 1624 | ||
| @@ -1651,7 +1650,7 @@ | |||
| 1651 | 1650 | ||
| 1652 | 1985-10-15 Richard Mlynarik (mly@mit-prep) | 1651 | 1985-10-15 Richard Mlynarik (mly@mit-prep) |
| 1653 | 1652 | ||
| 1654 | * bytecomp.el (byte-compile-find-vars-1) | 1653 | * bytecomp.el (byte-compile-find-vars-1): |
| 1655 | Fix paren error. | 1654 | Fix paren error. |
| 1656 | 1655 | ||
| 1657 | 1985-10-15 Richard M. Stallman (rms@mit-prep) | 1656 | 1985-10-15 Richard M. Stallman (rms@mit-prep) |
| @@ -1786,7 +1785,6 @@ | |||
| 1786 | Initialize the local map when the file is loaded, | 1785 | Initialize the local map when the file is loaded, |
| 1787 | not when mode is invoked. | 1786 | not when mode is invoked. |
| 1788 | 1787 | ||
| 1789 | |||
| 1790 | 1985-10-04 Richard M. Stallman (rms@mit-prep) | 1788 | 1985-10-04 Richard M. Stallman (rms@mit-prep) |
| 1791 | 1789 | ||
| 1792 | * indent.el (indent-relative-maybe): | 1790 | * indent.el (indent-relative-maybe): |
| @@ -1810,12 +1808,12 @@ | |||
| 1810 | 1808 | ||
| 1811 | 1985-10-03 Richard Mlynarik (mly@mit-prep) | 1809 | 1985-10-03 Richard Mlynarik (mly@mit-prep) |
| 1812 | 1810 | ||
| 1813 | * simple.el | 1811 | * simple.el: |
| 1814 | Functions quit, keyboard-quit | 1812 | Functions quit, keyboard-quit. |
| 1815 | 1813 | ||
| 1816 | * isearch.el: | 1814 | * isearch.el: |
| 1817 | "I-searching: foo..." in the middle of possibly lengthy | 1815 | "I-searching: foo..." in the middle of possibly lengthy |
| 1818 | search | 1816 | search. |
| 1819 | 1817 | ||
| 1820 | * files.el (set-auto-mode): | 1818 | * files.el (set-auto-mode): |
| 1821 | Don't hack auto-mode-alist at all if -*- mode -*- is specified. | 1819 | Don't hack auto-mode-alist at all if -*- mode -*- is specified. |
| @@ -2019,7 +2017,7 @@ | |||
| 2019 | 2017 | ||
| 2020 | 1985-09-03 Richard Mlynarik (mly@mit-prep) | 2018 | 1985-09-03 Richard Mlynarik (mly@mit-prep) |
| 2021 | 2019 | ||
| 2022 | * macros.el (kbd-macro-query) | 2020 | * macros.el (kbd-macro-query): |
| 2023 | Barf if not defining or executing keyboard macro. | 2021 | Barf if not defining or executing keyboard macro. |
| 2024 | 2022 | ||
| 2025 | 1985-09-02 Richard M. Stallman (rms@mit-prep) | 2023 | 1985-09-02 Richard M. Stallman (rms@mit-prep) |
| @@ -2052,7 +2050,7 @@ | |||
| 2052 | 2050 | ||
| 2053 | 1985-08-31 Richard Mlynarik (mly@mit-prep) | 2051 | 1985-08-31 Richard Mlynarik (mly@mit-prep) |
| 2054 | 2052 | ||
| 2055 | * simple.el (delete-indentation) | 2053 | * simple.el (delete-indentation): |
| 2056 | Don't err if on first line of buffer. | 2054 | Don't err if on first line of buffer. |
| 2057 | 2055 | ||
| 2058 | 1985-08-30 Richard M. Stallman (rms@mit-prep) | 2056 | 1985-08-30 Richard M. Stallman (rms@mit-prep) |
| @@ -2062,7 +2060,7 @@ | |||
| 2062 | 2060 | ||
| 2063 | 1985-08-26 Richard Mlynarik (mly@mit-prep) | 2061 | 1985-08-26 Richard Mlynarik (mly@mit-prep) |
| 2064 | 2062 | ||
| 2065 | * shell.el | 2063 | * shell.el: |
| 2066 | Sending empty line of input at the end of a buffer that is an | 2064 | Sending empty line of input at the end of a buffer that is an |
| 2067 | interaction with a promptless shell program copied previous input | 2065 | interaction with a promptless shell program copied previous input |
| 2068 | rather than sending an empty line. | 2066 | rather than sending an empty line. |
| @@ -2070,46 +2068,46 @@ | |||
| 2070 | 2068 | ||
| 2071 | 1985-08-20 Richard Mlynarik (mly@mit-prep) | 2069 | 1985-08-20 Richard Mlynarik (mly@mit-prep) |
| 2072 | 2070 | ||
| 2073 | * dired.el, files.el, sendmail.el, compile.el | 2071 | * dired.el, files.el, sendmail.el, compile.el: |
| 2074 | Make *-other-window really do other window even if pop-up-windows | 2072 | Make *-other-window really do other window even if pop-up-windows |
| 2075 | is set to nil. | 2073 | is set to nil. |
| 2076 | 2074 | ||
| 2077 | 1985-08-17 Richard Mlynarik (mly@mit-prep) | 2075 | 1985-08-17 Richard Mlynarik (mly@mit-prep) |
| 2078 | 2076 | ||
| 2079 | * c-mode.el (c-indent-line) | 2077 | * c-mode.el (c-indent-line): |
| 2080 | Make "^[ \t]*#" indent to 0 (if not in string or comment) | 2078 | Make "^[ \t]*#" indent to 0 (if not in string or comment) |
| 2081 | 2079 | ||
| 2082 | * startup.el (command-line) | 2080 | * startup.el (command-line): |
| 2083 | (or (getenv "USER") (getenv "LOGNAME")) for USG compatibility | 2081 | (or (getenv "USER") (getenv "LOGNAME")) for USG compatibility |
| 2084 | (consider it a standard) | 2082 | (consider it a standard) |
| 2085 | 2083 | ||
| 2086 | * lpr.el | 2084 | * lpr.el: |
| 2087 | Typo (``format1'' for ``format'') | 2085 | Typo (``format1'' for ``format'') |
| 2088 | 2086 | ||
| 2089 | 1985-08-12 Richard Mlynarik (mly@mit-prep) | 2087 | 1985-08-12 Richard Mlynarik (mly@mit-prep) |
| 2090 | 2088 | ||
| 2091 | * buff-menu.el (Buffer-menu-buffer) | 2089 | * buff-menu.el (Buffer-menu-buffer): |
| 2092 | Win more often on `too-long' buffer names. | 2090 | Win more often on `too-long' buffer names. |
| 2093 | 2091 | ||
| 2094 | 1985-08-11 Richard Mlynarik (mly@mit-prep) | 2092 | 1985-08-11 Richard Mlynarik (mly@mit-prep) |
| 2095 | 2093 | ||
| 2096 | * make narrow-to-page be disabled by default. | 2094 | * Make narrow-to-page be disabled by default. |
| 2097 | 2095 | ||
| 2098 | * rmail.el (rmail-insert-inbox-text) | 2096 | * rmail.el (rmail-insert-inbox-text): |
| 2099 | Hack case that /usr/spool/mail/user is a directory | 2097 | Hack case that /usr/spool/mail/user is a directory. |
| 2100 | 2098 | ||
| 2101 | 1985-08-10 Richard Mlynarik (mly@mit-prep) | 2099 | 1985-08-10 Richard Mlynarik (mly@mit-prep) |
| 2102 | 2100 | ||
| 2103 | * isearch.el (isearch) | 2101 | * isearch.el (isearch): |
| 2104 | Make isearch work in regexp case | 2102 | Make isearch work in regexp case. |
| 2105 | 2103 | ||
| 2106 | 1985-08-09 Richard Mlynarik (mly@mit-prep) | 2104 | 1985-08-09 Richard Mlynarik (mly@mit-prep) |
| 2107 | 2105 | ||
| 2108 | * c-mode.el (c-comment-indent) | 2106 | * c-mode.el (c-comment-indent): |
| 2109 | Return a valid value when used within a comment. | 2107 | Return a valid value when used within a comment |
| 2110 | (such as when indenting when comment-multi-line is non-nil) | 2108 | (such as when indenting when comment-multi-line is non-nil). |
| 2111 | Associated changes to | 2109 | Associated changes to |
| 2112 | c-indent-line, c-calculate-indent-within-comment | 2110 | c-indent-line, c-calculate-indent-within-comment. |
| 2113 | 2111 | ||
| 2114 | * debug.el (debug): | 2112 | * debug.el (debug): |
| 2115 | Use buffer "*Backtrace*", not " *Backtrace*" so that users can | 2113 | Use buffer "*Backtrace*", not " *Backtrace*" so that users can |
| @@ -2117,89 +2115,88 @@ | |||
| 2117 | Kill the buffer on exit so that users aren't tempted to lose | 2115 | Kill the buffer on exit so that users aren't tempted to lose |
| 2118 | weirdly. | 2116 | weirdly. |
| 2119 | Rename "args" "debugger-args" so that common var isn't lambda-bound. | 2117 | Rename "args" "debugger-args" so that common var isn't lambda-bound. |
| 2120 | 2118 | Make "-" be negative-argument in debugger-mode-map. | |
| 2121 | Make "-" be negative-argument in debugger-mode-map | ||
| 2122 | 2119 | ||
| 2123 | * rnews.el (news-convert-format): | 2120 | * rnews.el (news-convert-format): |
| 2124 | Don't lose on empty messages. | 2121 | Don't lose on empty messages. |
| 2125 | 2122 | ||
| 2126 | * term-vt100.el, term-vt200.el | 2123 | * term-vt100.el, term-vt200.el: |
| 2127 | Make "application mode" arrow keys ("\eOA"... "\eOD") do the right | 2124 | Make "application mode" arrow keys ("\eOA"... "\eOD") do the right |
| 2128 | thing. | 2125 | thing. |
| 2129 | 2126 | ||
| 2130 | 1985-08-06 Richard Mlynarik (mly@mit-prep) | 2127 | 1985-08-06 Richard Mlynarik (mly@mit-prep) |
| 2131 | 2128 | ||
| 2132 | * c-mode.el | 2129 | * c-mode.el: |
| 2133 | calculate-c-indent was ignoring parse-start arg | 2130 | calculate-c-indent was ignoring parse-start arg. |
| 2134 | 2131 | ||
| 2135 | Inserted jdf@prep.mit.edu's `else' indentation code | 2132 | Inserted jdf@prep.mit.edu's `else' indentation code |
| 2136 | Make C-j be reindent-then-newline-and-indent to take advantage | 2133 | Make C-j be reindent-then-newline-and-indent to take advantage |
| 2137 | of this. | 2134 | of this. |
| 2138 | 2135 | ||
| 2139 | * simple.el | 2136 | * simple.el: |
| 2140 | Added function reindent-then-newline-and-indent | 2137 | Add function reindent-then-newline-and-indent. |
| 2141 | 2138 | ||
| 2142 | * rnews.el | 2139 | * rnews.el: |
| 2143 | Fix typo and supply function news-show-all-headers | 2140 | Fix typo and supply function news-show-all-headers. |
| 2144 | 2141 | ||
| 2145 | * startup.el | 2142 | * startup.el: |
| 2146 | Make the value of args be the remaining command-line | 2143 | Make the value of args be the remaining command-line |
| 2147 | arguments after the "-e" function name when the "-e" function | 2144 | arguments after the "-e" function name when the "-e" function |
| 2148 | is called. | 2145 | is called. |
| 2149 | Make "-f" be the same as "-e" --- it's in the manual. | 2146 | Make "-f" be the same as "-e" --- it's in the manual. |
| 2150 | 2147 | ||
| 2151 | * bytecomp.el | 2148 | * bytecomp.el: |
| 2152 | Added batch-byte-compile written by crl@newton.purdue.edu | 2149 | Add batch-byte-compile written by crl@newton.purdue.edu. |
| 2153 | 2150 | ||
| 2154 | * isearch.el | 2151 | * isearch.el: |
| 2155 | Typing C-s/C-r at start of isearch wasn't displaying search | 2152 | Typing C-s/C-r at start of isearch wasn't displaying search |
| 2156 | string until it had completed the search. | 2153 | string until it had completed the search. |
| 2157 | 2154 | ||
| 2158 | * indent.el (indent-relative) | 2155 | * indent.el (indent-relative): |
| 2159 | Losing when indentation point was beneath non-whitespace | 2156 | Losing when indentation point was beneath non-whitespace. |
| 2160 | 2157 | ||
| 2161 | * c-mode.el (indent-c-exp): | 2158 | * c-mode.el (indent-c-exp): |
| 2162 | Replace "2" with "c-continued-statement-offset" | 2159 | Replace "2" with "c-continued-statement-offset" |
| 2163 | Add (message "...") | 2160 | Add (message "...") |
| 2164 | 2161 | ||
| 2165 | * mlsupport.el | 2162 | * mlsupport.el: |
| 2166 | Fix typo in ml-current-indent | 2163 | Fix typo in ml-current-indent. |
| 2167 | Make kill-to-end-of-line work | 2164 | Make kill-to-end-of-line work. |
| 2168 | 2165 | ||
| 2169 | * mlconvert.el | 2166 | * mlconvert.el: |
| 2170 | Hack "(forward-word)" => "(forward-word 1)" | 2167 | Hack "(forward-word)" => "(forward-word 1)". |
| 2171 | 2168 | ||
| 2172 | 1985-08-05 Richard Mlynarik (mly@mit-prep) | 2169 | 1985-08-05 Richard Mlynarik (mly@mit-prep) |
| 2173 | 2170 | ||
| 2174 | * c-mode.el | 2171 | * c-mode.el: |
| 2175 | Variable "c-continued-statement-indent" should have been | 2172 | Variable "c-continued-statement-indent" should have been |
| 2176 | "c-continued-statement-offset" as in the documentation and manual | 2173 | "c-continued-statement-offset" as in the documentation and manual. |
| 2177 | 2174 | ||
| 2178 | * rmail.el (rmail-find): | 2175 | * rmail.el (rmail-find): |
| 2179 | Hack default of last search string, hack reverse search. | 2176 | Hack default of last search string, hack reverse search. |
| 2180 | (-ve prefix arg): | 2177 | (-ve prefix arg): |
| 2181 | Make "-" be negative-argument | 2178 | Make "-" be negative-argument. |
| 2182 | 2179 | ||
| 2183 | 1985-07-23 Richard Mlynarik (mly@mit-prep) | 2180 | 1985-07-23 Richard Mlynarik (mly@mit-prep) |
| 2184 | 2181 | ||
| 2185 | * shell.el (shell-send-input): | 2182 | * shell.el (shell-send-input): |
| 2186 | cd/pushd hackery wasn't substitute-in/expand-file-name'ing | 2183 | cd/pushd hackery wasn't substitute-in/expand-file-name'ing |
| 2187 | (ie "cd $es" was losing) | 2184 | (ie "cd $es" was losing). |
| 2188 | 2185 | ||
| 2189 | 1985-07-16 Richard Mlynarik (mly@mit-prep) | 2186 | 1985-07-16 Richard Mlynarik (mly@mit-prep) |
| 2190 | 2187 | ||
| 2191 | * view.el: | 2188 | * view.el: |
| 2192 | Add "c-x ]" and "c-x [" page-movement commands | 2189 | Add "c-x ]" and "c-x [" page-movement commands |
| 2193 | "c-x /" "c-x j" register save/jump | 2190 | "c-x /" "c-x j" register save/jump. |
| 2194 | 2191 | ||
| 2195 | Speed up more losingly slow calls to substitute-command-keys by | 2192 | Speed up more losingly slow calls to substitute-command-keys by |
| 2196 | conditional substitution of constant string. | 2193 | conditional substitution of constant string. |
| 2197 | (view-helpful-message, view-undefined, view-mode-command-loop) | 2194 | (view-helpful-message, view-undefined, view-mode-command-loop) |
| 2198 | 2195 | ||
| 2199 | * mail-utils.el | 2196 | * mail-utils.el: |
| 2200 | rmail-dont-reply-to was losing on multi-line fields. | 2197 | rmail-dont-reply-to was losing on multi-line fields. |
| 2201 | 2198 | ||
| 2202 | * simple.el | 2199 | * simple.el: |
| 2203 | delete-blank-lines was deleting too much if on an isolated blank line. | 2200 | delete-blank-lines was deleting too much if on an isolated blank line. |
| 2204 | 2201 | ||
| 2205 | 1985-07-12 Richard M. Stallman (rms@mit-prep) | 2202 | 1985-07-12 Richard M. Stallman (rms@mit-prep) |
| @@ -2222,7 +2219,7 @@ | |||
| 2222 | 2219 | ||
| 2223 | 1985-07-10 Richard Mlynarik (mly@mit-prep) | 2220 | 1985-07-10 Richard Mlynarik (mly@mit-prep) |
| 2224 | 2221 | ||
| 2225 | * ebuff-menu.el (Electric-buffer-menu-undefined) | 2222 | * ebuff-menu.el (Electric-buffer-menu-undefined): |
| 2226 | Don't call substitute-command-keys if keybindings are default, | 2223 | Don't call substitute-command-keys if keybindings are default, |
| 2227 | with resultant couple-of-orders-of-magnitude speedup. | 2224 | with resultant couple-of-orders-of-magnitude speedup. |
| 2228 | RMS: this is what my changes to Fsubstitute_command_keys in doc.c | 2225 | RMS: this is what my changes to Fsubstitute_command_keys in doc.c |
| @@ -2385,8 +2382,8 @@ | |||
| 2385 | * compile.el (compile1.el): | 2382 | * compile.el (compile1.el): |
| 2386 | If *compilation* is current buffer, put point at end. | 2383 | If *compilation* is current buffer, put point at end. |
| 2387 | 2384 | ||
| 2388 | * simple.el (indent-for-comment, kill-comment, set-comment-column, | 2385 | * simple.el (indent-for-comment, kill-comment, set-comment-column) |
| 2389 | indent-new-comment-line): use comment-start-skip to find comments. | 2386 | (indent-new-comment-line): Use comment-start-skip to find comments. |
| 2390 | Don't use find-comment-line any more. | 2387 | Don't use find-comment-line any more. |
| 2391 | 2388 | ||
| 2392 | * lisp-mode.el, c-mode.el, scheme.el, mim-mode.el: | 2389 | * lisp-mode.el, c-mode.el, scheme.el, mim-mode.el: |
| @@ -2554,8 +2551,8 @@ | |||
| 2554 | 2551 | ||
| 2555 | 1985-06-12 Richard Mlynarik (mly@mit-prep) | 2552 | 1985-06-12 Richard Mlynarik (mly@mit-prep) |
| 2556 | 2553 | ||
| 2557 | * rmail (rmail-insert-inbox-text) | 2554 | * rmail (rmail-insert-inbox-text): |
| 2558 | file-name-directory includes a trailing "/" | 2555 | file-name-directory includes a trailing "/". |
| 2559 | 2556 | ||
| 2560 | 1985-06-12 K. Shane Hartman (shane@mit-prep) | 2557 | 1985-06-12 K. Shane Hartman (shane@mit-prep) |
| 2561 | 2558 | ||
| @@ -2686,7 +2683,7 @@ | |||
| 2686 | describing help options. Add `v' command for viewing buffer and | 2683 | describing help options. Add `v' command for viewing buffer and |
| 2687 | returning to the Electric Buffer List. | 2684 | returning to the Electric Buffer List. |
| 2688 | 2685 | ||
| 2689 | * loaddefs.el: autoload edit-picture. | 2686 | * loaddefs.el: Autoload edit-picture. |
| 2690 | 2687 | ||
| 2691 | * picture.el: New "Major" mode for editing pictures and tables. | 2688 | * picture.el: New "Major" mode for editing pictures and tables. |
| 2692 | 2689 | ||
| @@ -2731,7 +2728,7 @@ | |||
| 2731 | 2728 | ||
| 2732 | * sendmail.el (sendmail-send-it): | 2729 | * sendmail.el (sendmail-send-it): |
| 2733 | Somewhat gratuitously deleting empty subject lines. | 2730 | Somewhat gratuitously deleting empty subject lines. |
| 2734 | /usr/lib/sendmail seems smart enough (!) to hack this itself | 2731 | /usr/lib/sendmail seems smart enough (!) to hack this itself. |
| 2735 | 2732 | ||
| 2736 | 1985-06-04 K. Shane Hartman (shane@mit-prep) | 2733 | 1985-06-04 K. Shane Hartman (shane@mit-prep) |
| 2737 | 2734 | ||
| @@ -2798,7 +2795,7 @@ | |||
| 2798 | Process exec-directory using expand-file-name | 2795 | Process exec-directory using expand-file-name |
| 2799 | so as not to depend on whether it ends in /. | 2796 | so as not to depend on whether it ends in /. |
| 2800 | 2797 | ||
| 2801 | * simple.el: define turn-on-auto-fill. | 2798 | * simple.el: Define turn-on-auto-fill. |
| 2802 | 2799 | ||
| 2803 | 1985-06-01 K. Shane Hartman (shane@mit-prep) | 2800 | 1985-06-01 K. Shane Hartman (shane@mit-prep) |
| 2804 | 2801 | ||
| @@ -2823,7 +2820,7 @@ | |||
| 2823 | 2820 | ||
| 2824 | 1985-06-01 Richard M. Stallman (rms@mit-prep) | 2821 | 1985-06-01 Richard M. Stallman (rms@mit-prep) |
| 2825 | 2822 | ||
| 2826 | * Many files: put in \\[...] where appropriate. | 2823 | * Many files: Put in \\[...] where appropriate. |
| 2827 | 2824 | ||
| 2828 | 1985-06-01 K. Shane Hartman (shane@mit-prep) | 2825 | 1985-06-01 K. Shane Hartman (shane@mit-prep) |
| 2829 | 2826 | ||
| @@ -2862,16 +2859,16 @@ | |||
| 2862 | 2859 | ||
| 2863 | 1985-05-30 Richard Mlynarik (mly@mit-prep) | 2860 | 1985-05-30 Richard Mlynarik (mly@mit-prep) |
| 2864 | 2861 | ||
| 2865 | * sendmail.el | 2862 | * sendmail.el: |
| 2866 | Typo made sendmail-send-it lose when mail-interactive | 2863 | Typo made sendmail-send-it lose when mail-interactive. |
| 2867 | 2864 | ||
| 2868 | * simple.el | 2865 | * simple.el: |
| 2869 | Aborting out of octal read in read-quoted-char restarts | 2866 | Aborting out of octal read in read-quoted-char restarts |
| 2870 | "from the top." | 2867 | "from the top." |
| 2871 | 2868 | ||
| 2872 | * startup.el | 2869 | * startup.el: |
| 2873 | Catch another place where \\[..] was needed | 2870 | Catch another place where \\[..] was needed |
| 2874 | Don't insert copyright info if noninteractive | 2871 | Don't insert copyright info if noninteractive. |
| 2875 | 2872 | ||
| 2876 | 1985-05-30 K. Shane Hartman (shane@mit-prep) | 2873 | 1985-05-30 K. Shane Hartman (shane@mit-prep) |
| 2877 | 2874 | ||
| @@ -2913,22 +2910,22 @@ | |||
| 2913 | * Rename some files so all .el & .elc file names are <= 14 chars. | 2910 | * Rename some files so all .el & .elc file names are <= 14 chars. |
| 2914 | syntax-check-mim.el => mim-syntax.el (change in mim-mode.el too). | 2911 | syntax-check-mim.el => mim-syntax.el (change in mim-mode.el too). |
| 2915 | new-version-level.el => grow-vers.el. | 2912 | new-version-level.el => grow-vers.el. |
| 2916 | scheme-mode.el => scheme.el | 2913 | scheme-mode.el => scheme.el. |
| 2917 | compare-windows.el => compare-w.el | 2914 | compare-windows.el => compare-w.el. |
| 2918 | electric-buffer-list.el => ebuff-menu.el | 2915 | electric-buffer-list.el => ebuff-menu.el. |
| 2919 | 2916 | ||
| 2920 | 1985-05-28 Richard Mlynarik (mly@mit-prep) | 2917 | 1985-05-28 Richard Mlynarik (mly@mit-prep) |
| 2921 | 2918 | ||
| 2922 | * simple.el (describe-function) | 2919 | * simple.el (describe-function): |
| 2923 | bind enable-recursive-minibuffers to read fn name | 2920 | Bind enable-recursive-minibuffers to read fn name |
| 2924 | (useful when typing c-h f after m-esc) | 2921 | (useful when typing c-h f after m-esc). |
| 2925 | 2922 | ||
| 2926 | * files.el | 2923 | * files.el: |
| 2927 | made create-file-buffer a lisp function (was in src/buffer.c) | 2924 | Make create-file-buffer a lisp function (was in src/buffer.c). |
| 2928 | 2925 | ||
| 2929 | * electric-buffer-menu-mode.el | 2926 | * electric-buffer-menu-mode.el: |
| 2930 | If the first character typed is a space then quit, ie return to | 2927 | If the first character typed is a space then quit, ie return to |
| 2931 | previous window/buffer configuration | 2928 | previous window/buffer configuration. |
| 2932 | 2929 | ||
| 2933 | 1985-05-27 Richard M. Stallman (rms@mit-prep) | 2930 | 1985-05-27 Richard M. Stallman (rms@mit-prep) |
| 2934 | 2931 | ||
| @@ -2967,30 +2964,30 @@ | |||
| 2967 | * lisp-mode.el: | 2964 | * lisp-mode.el: |
| 2968 | Provide default definition of lisp-send-defun, to just get an error. | 2965 | Provide default definition of lisp-send-defun, to just get an error. |
| 2969 | 2966 | ||
| 2970 | * shell.el: rename lisp to run-lisp. | 2967 | * shell.el: Rename lisp to run-lisp. |
| 2971 | * loaddefs.el: make run-lisp autoloading. | 2968 | * loaddefs.el: Make run-lisp autoloading. |
| 2972 | 2969 | ||
| 2973 | 1985-05-23 Richard Mlynarik (mly@mit-prep) | 2970 | 1985-05-23 Richard Mlynarik (mly@mit-prep) |
| 2974 | 2971 | ||
| 2975 | * files.el | 2972 | * files.el: |
| 2976 | FOO! Local-variables weren't working since hack-local-variables | 2973 | FOO! Local-variables weren't working since hack-local-variables |
| 2977 | was searching for "\n^L" not "\n\^L" | 2974 | was searching for "\n^L" not "\n\^L". |
| 2978 | 2975 | ||
| 2979 | * lisp-mode.el, loadup.el, startup.el | 2976 | * lisp-mode.el, loadup.el, startup.el: |
| 2980 | renamed lisp-interaction-mode to elisp-interaction-mode | 2977 | Rename lisp-interaction-mode to elisp-interaction-mode |
| 2981 | Made elisp-mode call elisp-mode-hook, elisp-interaction-mode call | 2978 | Make elisp-mode call elisp-mode-hook, elisp-interaction-mode call |
| 2982 | elisp-interaction-mode-hook. This will break people's init files! | 2979 | elisp-interaction-mode-hook. This will break people's init files! |
| 2983 | 2980 | ||
| 2984 | * loaddefs.el | 2981 | * loaddefs.el: |
| 2985 | made ".lisp" suffixes get lisp mode. Toto, I don't think we're | 2982 | Make ".lisp" suffixes get lisp mode. Toto, I don't think we're |
| 2986 | using fourteen-character filenames anymore. | 2983 | using fourteen-character filenames anymore. |
| 2987 | Autoload scheme-mode | 2984 | Autoload scheme-mode. |
| 2988 | 2985 | ||
| 2989 | * scheme-mode.el | 2986 | * scheme-mode.el: |
| 2990 | installed scheme-mode, courtesy MIT scheme people. | 2987 | Install scheme-mode, courtesy MIT scheme people. |
| 2991 | 2988 | ||
| 2992 | * lisp-mode.el | 2989 | * lisp-mode.el: |
| 2993 | made mode doc strings use \[...] substitute-command-keys technology | 2990 | Make mode doc strings use \[...] substitute-command-keys technology. |
| 2994 | 2991 | ||
| 2995 | 1985-05-23 Richard M. Stallman (rms@mit-prep) | 2992 | 1985-05-23 Richard M. Stallman (rms@mit-prep) |
| 2996 | 2993 | ||
| @@ -3008,19 +3005,19 @@ | |||
| 3008 | 3005 | ||
| 3009 | 1985-05-22 Richard Mlynarik (mly@mit-prep) | 3006 | 1985-05-22 Richard Mlynarik (mly@mit-prep) |
| 3010 | 3007 | ||
| 3011 | * nrnews.el | 3008 | * nrnews.el: |
| 3012 | Foo. A distinct lack of communication here. | 3009 | Foo. A distinct lack of communication here. |
| 3013 | Fairly radical surgery --- many bug fixes and clarifications, | 3010 | Fairly radical surgery --- many bug fixes and clarifications, |
| 3014 | quite different from rnews.el Sigh | 3011 | quite different from rnews.el Sigh |
| 3015 | 3012 | ||
| 3016 | 1985-05-22 K. Shane Hartman (shane@mit-prep) | 3013 | 1985-05-22 K. Shane Hartman (shane@mit-prep) |
| 3017 | 3014 | ||
| 3018 | * view.el | 3015 | * view.el: |
| 3019 | Add new flavor of help. ?, h still give list of | 3016 | Add new flavor of help. ?, h still give list of |
| 3020 | commands. C-h understands m, c, k options. Make | 3017 | commands. C-h understands m, c, k options. Make |
| 3021 | help commands use pop up window with scroll on space. | 3018 | help commands use pop up window with scroll on space. |
| 3022 | 3019 | ||
| 3023 | * loaddefs.el | 3020 | * loaddefs.el: |
| 3024 | Minor change for documentation of view-file and | 3021 | Minor change for documentation of view-file and |
| 3025 | view-buffer because C-h does not describe mode now. | 3022 | view-buffer because C-h does not describe mode now. |
| 3026 | 3023 | ||
| @@ -3045,15 +3042,15 @@ | |||
| 3045 | 1985-05-21 Richard Mlynarik (mly@mit-prep) | 3042 | 1985-05-21 Richard Mlynarik (mly@mit-prep) |
| 3046 | 3043 | ||
| 3047 | * mlsupport.el: | 3044 | * mlsupport.el: |
| 3048 | Fix assorted typos where variable "bufname" was changed to "name" | 3045 | Fix assorted typos where variable "bufname" was changed to "name". |
| 3049 | 3046 | ||
| 3050 | * view.el | 3047 | * view.el: |
| 3051 | Make M-<, M-> work. Fix documentation strings to work with the | 3048 | Make M-<, M-> work. Fix documentation strings to work with the |
| 3052 | combination of lisp quoting and substitute-command-keys quoting. | 3049 | combination of lisp quoting and substitute-command-keys quoting. |
| 3053 | 3050 | ||
| 3054 | * electric-buffer-list.el | 3051 | * electric-buffer-list.el: |
| 3055 | Call Buffer-menu-execute before selecting. (Why doesn't standard | 3052 | Call Buffer-menu-execute before selecting. (Why doesn't standard |
| 3056 | buffer-menu-mode do this?) Flush "x", "1" and "2" commands | 3053 | buffer-menu-mode do this?) Flush "x", "1" and "2" commands. |
| 3057 | 3054 | ||
| 3058 | * buff-menu.el: | 3055 | * buff-menu.el: |
| 3059 | Call bury-buffer after selecting new buffer. | 3056 | Call bury-buffer after selecting new buffer. |
| @@ -3086,23 +3083,23 @@ | |||
| 3086 | 3083 | ||
| 3087 | 1985-05-19 Richard Mlynarik (mly@mit-prep) | 3084 | 1985-05-19 Richard Mlynarik (mly@mit-prep) |
| 3088 | 3085 | ||
| 3089 | * view.el, dired.el | 3086 | * view.el, dired.el: |
| 3090 | typos in viewing stuff | 3087 | Typos in viewing stuff. |
| 3091 | 3088 | ||
| 3092 | * simple.el, isearch.el | 3089 | * simple.el, isearch.el: |
| 3093 | Added prompt argument to read-quoted-char; improved isearch | 3090 | Add prompt argument to read-quoted-char; improve isearch |
| 3094 | input echoing when reading quoted char. | 3091 | input echoing when reading quoted char. |
| 3095 | 3092 | ||
| 3096 | * sendmail.el, loaddefs.el | 3093 | * sendmail.el, loaddefs.el: |
| 3097 | added send-mail-function; initially sendmail-send-it | 3094 | Add send-mail-function; initially sendmail-send-it |
| 3098 | (also, mail-yank-ignored-headers had a typo). | 3095 | (also, mail-yank-ignored-headers had a typo). |
| 3099 | 3096 | ||
| 3100 | * rmail.el (rmail-get-new-mail, convert-to-babyl-format, ...) | 3097 | * rmail.el (rmail-get-new-mail, convert-to-babyl-format, ...): |
| 3101 | * loaddefs.el: | 3098 | * loaddefs.el: |
| 3102 | Remodularize inbox parsing. Add support(?) for mmdf inboxes. | 3099 | Remodularize inbox parsing. Add support(?) for mmdf inboxes. |
| 3103 | Note that I can't seem to define definitive documentation of | 3100 | Note that I can't seem to define definitive documentation of |
| 3104 | what this format is; however the code installed seems to work | 3101 | what this format is; however the code installed seems to work |
| 3105 | for all cases encountered | 3102 | for all cases encountered. |
| 3106 | 3103 | ||
| 3107 | 1985-05-19 Richard M. Stallman (rms@mit-prep) | 3104 | 1985-05-19 Richard M. Stallman (rms@mit-prep) |
| 3108 | 3105 | ||
| @@ -3130,15 +3127,15 @@ | |||
| 3130 | 1985-05-17 Richard M. Stallman (rms@mit-prep) | 3127 | 1985-05-17 Richard M. Stallman (rms@mit-prep) |
| 3131 | 3128 | ||
| 3132 | * isearch.el: | 3129 | * isearch.el: |
| 3133 | Preserve window-start on exit from save-window-excursion | 3130 | Preserve window-start on exit from save-window-excursion. |
| 3134 | 3131 | ||
| 3135 | 1985-05-16 Richard M. Stallman (rms@mit-prep) | 3132 | 1985-05-16 Richard M. Stallman (rms@mit-prep) |
| 3136 | 3133 | ||
| 3137 | * rmail.el: correct read-only suppression in rmail-new-summary. | 3134 | * rmail.el: Correct read-only suppression in rmail-new-summary. |
| 3138 | 3135 | ||
| 3139 | 1985-05-16 K. Shane Hartman (shane@mit-prep) | 3136 | 1985-05-16 K. Shane Hartman (shane@mit-prep) |
| 3140 | 3137 | ||
| 3141 | * loaddefs.el: Autoload more-mode, more-file, more-buffer. | 3138 | * loaddefs.el: Autoload more-mode, more-file, more-buffer. |
| 3142 | 3139 | ||
| 3143 | * more-mode.el: New tourist mode for files. | 3140 | * more-mode.el: New tourist mode for files. |
| 3144 | 3141 | ||
| @@ -3149,7 +3146,7 @@ | |||
| 3149 | 3146 | ||
| 3150 | * simple.el: Make <help> i run info. | 3147 | * simple.el: Make <help> i run info. |
| 3151 | 3148 | ||
| 3152 | * sundry changes to go with changes in src/fileio.c making | 3149 | * Sundry changes to go with changes in src/fileio.c making |
| 3153 | copy-file, rename-file, add-name take an optional third argument. | 3150 | copy-file, rename-file, add-name take an optional third argument. |
| 3154 | The only autoloaded system code this breaks is rmail --- | 3151 | The only autoloaded system code this breaks is rmail --- |
| 3155 | a condition-case for wrong-number-of-arguments kludge was installed | 3152 | a condition-case for wrong-number-of-arguments kludge was installed |
| @@ -3158,7 +3155,7 @@ | |||
| 3158 | to remove the kludge at that time! | 3155 | to remove the kludge at that time! |
| 3159 | Mods to files.el, loadup.el, rmail.el. | 3156 | Mods to files.el, loadup.el, rmail.el. |
| 3160 | 3157 | ||
| 3161 | * added autoloading function electric-buffer-list. | 3158 | * Add autoloading function electric-buffer-list. |
| 3162 | 3159 | ||
| 3163 | * buff-menu.el: Make splitting screen between > 2 buffers work. | 3160 | * buff-menu.el: Make splitting screen between > 2 buffers work. |
| 3164 | 3161 | ||
| @@ -3184,7 +3181,7 @@ | |||
| 3184 | 3181 | ||
| 3185 | * inc-version.el: Kill Emacs at the end. | 3182 | * inc-version.el: Kill Emacs at the end. |
| 3186 | 3183 | ||
| 3187 | * simple.el: fixed overflow problem in what-cursor-position. | 3184 | * simple.el: Fix overflow problem in what-cursor-position. |
| 3188 | 3185 | ||
| 3189 | * startup.el: Don't print a help message if noninteractive. | 3186 | * startup.el: Don't print a help message if noninteractive. |
| 3190 | 3187 | ||
diff --git a/lisp/ChangeLog.14 b/lisp/ChangeLog.14 index f2e88a899db..6db8f66f0ca 100644 --- a/lisp/ChangeLog.14 +++ b/lisp/ChangeLog.14 | |||
| @@ -569,7 +569,7 @@ | |||
| 569 | * emacs-lisp/lisp-mode.el: Give `deftype' a doc-string-elt | 569 | * emacs-lisp/lisp-mode.el: Give `deftype' a doc-string-elt |
| 570 | property (Bug#2984). | 570 | property (Bug#2984). |
| 571 | 571 | ||
| 572 | 2009-04-16 Leo <sdl.web@gmail.com> (tiny change) | 572 | 2009-04-16 Leo Liu <sdl.web@gmail.com> (tiny change) |
| 573 | 573 | ||
| 574 | * ediff-wind.el (ediff-make-wide-display): Fix typo in frame | 574 | * ediff-wind.el (ediff-make-wide-display): Fix typo in frame |
| 575 | parameter alist. | 575 | parameter alist. |
| @@ -1041,7 +1041,7 @@ | |||
| 1041 | 1041 | ||
| 1042 | * mail/supercite.el (sc-version): Doc fix. | 1042 | * mail/supercite.el (sc-version): Doc fix. |
| 1043 | 1043 | ||
| 1044 | 2009-03-19 Leo <sdl.web@gmail.com> (tiny change) | 1044 | 2009-03-19 Leo Liu <sdl.web@gmail.com> (tiny change) |
| 1045 | 1045 | ||
| 1046 | * mail/supercite.el (sc-version): Fix typo in interactive spec. | 1046 | * mail/supercite.el (sc-version): Fix typo in interactive spec. |
| 1047 | 1047 | ||
diff --git a/lisp/ChangeLog.15 b/lisp/ChangeLog.15 index 6dbfff03573..f354050389e 100644 --- a/lisp/ChangeLog.15 +++ b/lisp/ChangeLog.15 | |||
| @@ -288,7 +288,7 @@ | |||
| 288 | * emacs-lisp/ewoc.el (ewoc-goto-next): Give a more explicit error | 288 | * emacs-lisp/ewoc.el (ewoc-goto-next): Give a more explicit error |
| 289 | if there is no node. (Bug#3261) | 289 | if there is no node. (Bug#3261) |
| 290 | 290 | ||
| 291 | 2011-03-04 Leo <sdl.web@gmail.com> | 291 | 2011-03-04 Leo Liu <sdl.web@gmail.com> |
| 292 | 292 | ||
| 293 | * vc/diff-mode.el (diff-mode): Fix whitespace-style. (Bug#8139) | 293 | * vc/diff-mode.el (diff-mode): Fix whitespace-style. (Bug#8139) |
| 294 | 294 | ||
| @@ -866,7 +866,7 @@ | |||
| 866 | * net/soap-client.el: | 866 | * net/soap-client.el: |
| 867 | * net/soap-inspect.el: New files. | 867 | * net/soap-inspect.el: New files. |
| 868 | 868 | ||
| 869 | 2011-02-16 Leo <sdl.web@gmail.com> | 869 | 2011-02-16 Leo Liu <sdl.web@gmail.com> |
| 870 | 870 | ||
| 871 | * dired-x.el (dired-mode-map, dired-extra-startup): | 871 | * dired-x.el (dired-mode-map, dired-extra-startup): |
| 872 | Remove dired-copy-filename-as-kill since it's already in dired.el. | 872 | Remove dired-copy-filename-as-kill since it's already in dired.el. |
| @@ -1586,7 +1586,7 @@ | |||
| 1586 | * vc/vc-bzr.el (vc-bzr-pull, vc-bzr-merge-branch): | 1586 | * vc/vc-bzr.el (vc-bzr-pull, vc-bzr-merge-branch): |
| 1587 | Callers changed. | 1587 | Callers changed. |
| 1588 | 1588 | ||
| 1589 | 2011-01-28 Leo <sdl.web@gmail.com> | 1589 | 2011-01-28 Leo Liu <sdl.web@gmail.com> |
| 1590 | 1590 | ||
| 1591 | * emacs-lisp/advice.el (ad-make-advised-docstring): Don't apply | 1591 | * emacs-lisp/advice.el (ad-make-advised-docstring): Don't apply |
| 1592 | highlighting to the "this function is advised" message. | 1592 | highlighting to the "this function is advised" message. |
| @@ -2668,7 +2668,7 @@ | |||
| 2668 | * mail/rmail.el (rmail-show-message-1): If rmail-enable-mime is | 2668 | * mail/rmail.el (rmail-show-message-1): If rmail-enable-mime is |
| 2669 | non-nil, handle the header in rmail-show-mime-function. | 2669 | non-nil, handle the header in rmail-show-mime-function. |
| 2670 | 2670 | ||
| 2671 | 2011-01-02 Leo <sdl.web@gmail.com> | 2671 | 2011-01-02 Leo Liu <sdl.web@gmail.com> |
| 2672 | 2672 | ||
| 2673 | * help-fns.el (describe-variable): Fix previous change. | 2673 | * help-fns.el (describe-variable): Fix previous change. |
| 2674 | 2674 | ||
| @@ -2699,7 +2699,7 @@ | |||
| 2699 | * mail/smtpmail.el (smtpmail-send-it): Write queued mail body with | 2699 | * mail/smtpmail.el (smtpmail-send-it): Write queued mail body with |
| 2700 | Unix EOLs. (Bug#7589) | 2700 | Unix EOLs. (Bug#7589) |
| 2701 | 2701 | ||
| 2702 | 2011-01-02 Leo <sdl.web@gmail.com> | 2702 | 2011-01-02 Leo Liu <sdl.web@gmail.com> |
| 2703 | 2703 | ||
| 2704 | * eshell/em-hist.el (eshell-previous-matching-input): Signal error | 2704 | * eshell/em-hist.el (eshell-previous-matching-input): Signal error |
| 2705 | if point is not behind eshell-last-output-end (Bug#7585). | 2705 | if point is not behind eshell-last-output-end (Bug#7585). |
| @@ -2867,7 +2867,7 @@ | |||
| 2867 | * obsolete/pgg-gpg.el, obsolete/pgg-def.el, obsolete/pgg.el: | 2867 | * obsolete/pgg-gpg.el, obsolete/pgg-def.el, obsolete/pgg.el: |
| 2868 | Move from lisp/. | 2868 | Move from lisp/. |
| 2869 | 2869 | ||
| 2870 | 2010-12-20 Leo <sdl.web@gmail.com> | 2870 | 2010-12-20 Leo Liu <sdl.web@gmail.com> |
| 2871 | 2871 | ||
| 2872 | * dnd.el (dnd-get-local-file-name): Unhex of file name shall | 2872 | * dnd.el (dnd-get-local-file-name): Unhex of file name shall |
| 2873 | always be performed (Bug#7680). | 2873 | always be performed (Bug#7680). |
| @@ -2953,7 +2953,7 @@ | |||
| 2953 | * epa-file.el (epa-file-select-keys): Accept 'silent to inhibit | 2953 | * epa-file.el (epa-file-select-keys): Accept 'silent to inhibit |
| 2954 | key selection prompt; make 'silent as default (Bug#7487). | 2954 | key selection prompt; make 'silent as default (Bug#7487). |
| 2955 | 2955 | ||
| 2956 | 2010-12-16 Leo <sdl.web@gmail.com> | 2956 | 2010-12-16 Leo Liu <sdl.web@gmail.com> |
| 2957 | 2957 | ||
| 2958 | * eshell/eshell.el (eshell-directory-name): | 2958 | * eshell/eshell.el (eshell-directory-name): |
| 2959 | Use locate-user-emacs-file (Bug#7578). | 2959 | Use locate-user-emacs-file (Bug#7578). |
| @@ -3081,7 +3081,7 @@ | |||
| 3081 | * diff-mode.el (diff-refine-hunk): Make it work when the hunk contains | 3081 | * diff-mode.el (diff-refine-hunk): Make it work when the hunk contains |
| 3082 | empty lines without a leading space. | 3082 | empty lines without a leading space. |
| 3083 | 3083 | ||
| 3084 | 2010-12-13 Leo <sdl.web@gmail.com> | 3084 | 2010-12-13 Leo Liu <sdl.web@gmail.com> |
| 3085 | 3085 | ||
| 3086 | * dired-aux.el (dired-do-redisplay): Postpone dired-after-readin-hook | 3086 | * dired-aux.el (dired-do-redisplay): Postpone dired-after-readin-hook |
| 3087 | while mapping over marks (Bug#6810). | 3087 | while mapping over marks (Bug#6810). |
| @@ -3155,7 +3155,7 @@ | |||
| 3155 | (rmail-search-mime-message-function): Set to | 3155 | (rmail-search-mime-message-function): Set to |
| 3156 | rmail-search-mime-message. | 3156 | rmail-search-mime-message. |
| 3157 | 3157 | ||
| 3158 | 2010-12-13 Leo <sdl.web@gmail.com> | 3158 | 2010-12-13 Leo Liu <sdl.web@gmail.com> |
| 3159 | 3159 | ||
| 3160 | * ido.el (ido-common-initialization): New function. (bug#3274) | 3160 | * ido.el (ido-common-initialization): New function. (bug#3274) |
| 3161 | (ido-mode): Use it. | 3161 | (ido-mode): Use it. |
| @@ -4990,7 +4990,7 @@ | |||
| 4990 | (minibuffer-force-complete): Set completion-cycling. | 4990 | (minibuffer-force-complete): Set completion-cycling. |
| 4991 | (completion-all-sorted-completions): Move declaration before first use. | 4991 | (completion-all-sorted-completions): Move declaration before first use. |
| 4992 | 4992 | ||
| 4993 | 2010-10-28 Leo <sdl.web@gmail.com> | 4993 | 2010-10-28 Leo Liu <sdl.web@gmail.com> |
| 4994 | 4994 | ||
| 4995 | * iswitchb.el (iswitchb-kill-buffer): Avoid `iswitchb-make-buflist' | 4995 | * iswitchb.el (iswitchb-kill-buffer): Avoid `iswitchb-make-buflist' |
| 4996 | which changes the order of matches seen by users (bug#7231). | 4996 | which changes the order of matches seen by users (bug#7231). |
| @@ -5279,7 +5279,7 @@ | |||
| 5279 | (set-cursor-color, set-mouse-color, set-border-color): | 5279 | (set-cursor-color, set-mouse-color, set-border-color): |
| 5280 | Use read-color. | 5280 | Use read-color. |
| 5281 | 5281 | ||
| 5282 | 2010-10-24 Leo <sdl.web@gmail.com> | 5282 | 2010-10-24 Leo Liu <sdl.web@gmail.com> |
| 5283 | 5283 | ||
| 5284 | * eshell/em-unix.el (eshell-remove-entries): Use the TRASH | 5284 | * eshell/em-unix.el (eshell-remove-entries): Use the TRASH |
| 5285 | argument of delete-file and delete-directory (Bug#7011). | 5285 | argument of delete-file and delete-directory (Bug#7011). |
| @@ -5876,7 +5876,7 @@ | |||
| 5876 | 5876 | ||
| 5877 | * vc-svn.el (vc-svn-merge-news): Use --non-interactive. (Bug#7152) | 5877 | * vc-svn.el (vc-svn-merge-news): Use --non-interactive. (Bug#7152) |
| 5878 | 5878 | ||
| 5879 | 2010-10-08 Leo <sdl.web@gmail.com> | 5879 | 2010-10-08 Leo Liu <sdl.web@gmail.com> |
| 5880 | 5880 | ||
| 5881 | * dnd.el (dnd-get-local-file-name): If MUST-EXIST is non-nil, only | 5881 | * dnd.el (dnd-get-local-file-name): If MUST-EXIST is non-nil, only |
| 5882 | return non-nil if the file exists (Bug#7090). | 5882 | return non-nil if the file exists (Bug#7090). |
| @@ -7038,7 +7038,7 @@ | |||
| 7038 | 7038 | ||
| 7039 | * subr.el (y-or-n-p): New function, moved from src/fns.c; use read-key. | 7039 | * subr.el (y-or-n-p): New function, moved from src/fns.c; use read-key. |
| 7040 | 7040 | ||
| 7041 | 2010-09-12 Leo <sdl.web@gmail.com> | 7041 | 2010-09-12 Leo Liu <sdl.web@gmail.com> |
| 7042 | 7042 | ||
| 7043 | * net/rcirc.el (rcirc-server-commands, rcirc-client-commands) | 7043 | * net/rcirc.el (rcirc-server-commands, rcirc-client-commands) |
| 7044 | (rcirc-completion-start): New variables. | 7044 | (rcirc-completion-start): New variables. |
| @@ -7961,7 +7961,7 @@ | |||
| 7961 | * startup.el (command-line-1): Issue warning for ignored arguments | 7961 | * startup.el (command-line-1): Issue warning for ignored arguments |
| 7962 | --unibyte, etc (Bug#6886). | 7962 | --unibyte, etc (Bug#6886). |
| 7963 | 7963 | ||
| 7964 | 2010-08-22 Leo <sdl.web@gmail.com> | 7964 | 2010-08-22 Leo Liu <sdl.web@gmail.com> |
| 7965 | 7965 | ||
| 7966 | * net/rcirc.el (rcirc-add-or-remove): Accept a list of elements. | 7966 | * net/rcirc.el (rcirc-add-or-remove): Accept a list of elements. |
| 7967 | (ignore, bright, dim, keyword): Split list of nicknames before | 7967 | (ignore, bright, dim, keyword): Split list of nicknames before |
| @@ -7971,7 +7971,7 @@ | |||
| 7971 | 7971 | ||
| 7972 | * emacs-lisp/easy-mmode.el (define-minor-mode): Doc fix (Bug#6880). | 7972 | * emacs-lisp/easy-mmode.el (define-minor-mode): Doc fix (Bug#6880). |
| 7973 | 7973 | ||
| 7974 | 2010-08-22 Leo <sdl.web@gmail.com> | 7974 | 2010-08-22 Leo Liu <sdl.web@gmail.com> |
| 7975 | 7975 | ||
| 7976 | Fix buffer-list rename&refresh after killing a buffer in ido. | 7976 | Fix buffer-list rename&refresh after killing a buffer in ido. |
| 7977 | * ido.el: Revert Óscar's. | 7977 | * ido.el: Revert Óscar's. |
| @@ -8429,7 +8429,7 @@ | |||
| 8429 | * emacs-lisp/syntax.el (syntax-ppss-toplevel-pos): | 8429 | * emacs-lisp/syntax.el (syntax-ppss-toplevel-pos): |
| 8430 | Fix typo in docstring (bug#6747). | 8430 | Fix typo in docstring (bug#6747). |
| 8431 | 8431 | ||
| 8432 | 2010-08-08 Leo <sdl.web@gmail.com> | 8432 | 2010-08-08 Leo Liu <sdl.web@gmail.com> |
| 8433 | 8433 | ||
| 8434 | * eshell/esh-io.el (eshell-get-target): Better detection of | 8434 | * eshell/esh-io.el (eshell-get-target): Better detection of |
| 8435 | read-only file (Bug#6762). | 8435 | read-only file (Bug#6762). |
| @@ -8535,7 +8535,7 @@ | |||
| 8535 | (tramp-handle-start-file-process): Use it, in order to invalidate | 8535 | (tramp-handle-start-file-process): Use it, in order to invalidate |
| 8536 | file caches. | 8536 | file caches. |
| 8537 | 8537 | ||
| 8538 | 2010-08-03 Leo <sdl.web@gmail.com> | 8538 | 2010-08-03 Leo Liu <sdl.web@gmail.com> |
| 8539 | 8539 | ||
| 8540 | * server.el (server-start): Simplify loop. | 8540 | * server.el (server-start): Simplify loop. |
| 8541 | 8541 | ||
| @@ -9336,7 +9336,7 @@ | |||
| 9336 | 9336 | ||
| 9337 | * xml.el (xml-parse-region): Avoid infloop (Bug#5281). | 9337 | * xml.el (xml-parse-region): Avoid infloop (Bug#5281). |
| 9338 | 9338 | ||
| 9339 | 2010-06-29 Leo <sdl.web@gmail.com> | 9339 | 2010-06-29 Leo Liu <sdl.web@gmail.com> |
| 9340 | 9340 | ||
| 9341 | * emacs-lisp/rx.el (rx): Doc fix. (Bug#6537) | 9341 | * emacs-lisp/rx.el (rx): Doc fix. (Bug#6537) |
| 9342 | 9342 | ||
| @@ -19360,7 +19360,7 @@ | |||
| 19360 | * eshell/em-dirs.el (eshell-complete-user-reference): | 19360 | * eshell/em-dirs.el (eshell-complete-user-reference): |
| 19361 | Declare pcomplete functions and variables to avoid compiler warnings. | 19361 | Declare pcomplete functions and variables to avoid compiler warnings. |
| 19362 | 19362 | ||
| 19363 | 2009-09-13 Leo <sdl.web@gmail.com> (tiny change) | 19363 | 2009-09-13 Leo Liu <sdl.web@gmail.com> (tiny change) |
| 19364 | 19364 | ||
| 19365 | * eshell/em-script.el (eshell-login-script, eshell-rc-script): | 19365 | * eshell/em-script.el (eshell-login-script, eshell-rc-script): |
| 19366 | * eshell/em-dirs.el (eshell-last-dir-ring-file-name): | 19366 | * eshell/em-dirs.el (eshell-last-dir-ring-file-name): |
| @@ -19823,7 +19823,7 @@ | |||
| 19823 | * files.el (locate-file-completion-table): Make it provide boundary | 19823 | * files.el (locate-file-completion-table): Make it provide boundary |
| 19824 | information, so partial-completion works better. | 19824 | information, so partial-completion works better. |
| 19825 | 19825 | ||
| 19826 | 2009-09-04 Leo <sdl.web@gmail.com> (tiny change) | 19826 | 2009-09-04 Leo Liu <sdl.web@gmail.com> (tiny change) |
| 19827 | 19827 | ||
| 19828 | * mail/footnote.el (Footnote-text-under-cursor): | 19828 | * mail/footnote.el (Footnote-text-under-cursor): |
| 19829 | Check footnote-text-marker-alist before using it (bug#4324). | 19829 | Check footnote-text-marker-alist before using it (bug#4324). |
diff --git a/lisp/ChangeLog.2 b/lisp/ChangeLog.2 index a02480fb3be..3c3979f22cf 100644 --- a/lisp/ChangeLog.2 +++ b/lisp/ChangeLog.2 | |||
| @@ -56,7 +56,7 @@ | |||
| 56 | buffer or file has changed. | 56 | buffer or file has changed. |
| 57 | 57 | ||
| 58 | * abbrev.el: Doc fix. | 58 | * abbrev.el: Doc fix. |
| 59 | * files.el: | 59 | * files.el: ??? |
| 60 | 60 | ||
| 61 | 1988-08-03 Robert J. Chassell (bob@frosted-flakes.ai.mit.edu) | 61 | 1988-08-03 Robert J. Chassell (bob@frosted-flakes.ai.mit.edu) |
| 62 | 62 | ||
| @@ -454,7 +454,7 @@ | |||
| 454 | 454 | ||
| 455 | 1988-04-09 Leonard H. Tower Jr. (tower@frosted-flakes.ai.mit.edu) | 455 | 1988-04-09 Leonard H. Tower Jr. (tower@frosted-flakes.ai.mit.edu) |
| 456 | 456 | ||
| 457 | * rnewspost.el (news-post-news, news-reply) No longer re-inits | 457 | * rnewspost.el (news-post-news, news-reply): No longer re-inits |
| 458 | *post-news* buffer, if buffer-modified-p. | 458 | *post-news* buffer, if buffer-modified-p. |
| 459 | 459 | ||
| 460 | 1988-04-09 Richard Stallman (rms@frosted-flakes.ai.mit.edu) | 460 | 1988-04-09 Richard Stallman (rms@frosted-flakes.ai.mit.edu) |
| @@ -852,7 +852,7 @@ | |||
| 852 | * lisp-mode.el (eval-print-last-sexp): | 852 | * lisp-mode.el (eval-print-last-sexp): |
| 853 | * debug.el (debugger-mode): | 853 | * debug.el (debugger-mode): |
| 854 | * chistory.el (Command-history-setup): | 854 | * chistory.el (Command-history-setup): |
| 855 | * options.el (Edit-options-mode): | 855 | * options.el (Edit-options-mode): ??? |
| 856 | 856 | ||
| 857 | 1987-12-01 Richard Stallman (rms@frosted-flakes) | 857 | 1987-12-01 Richard Stallman (rms@frosted-flakes) |
| 858 | 858 | ||
| @@ -1116,7 +1116,7 @@ | |||
| 1116 | 1116 | ||
| 1117 | 1987-06-08 Richard M. Stallman (rms@prep) | 1117 | 1987-06-08 Richard M. Stallman (rms@prep) |
| 1118 | 1118 | ||
| 1119 | * version 18.46 released. | 1119 | * Version 18.46 released. |
| 1120 | 1120 | ||
| 1121 | * isearch.el (isearch): Typo (3 should be 2) in getting old | 1121 | * isearch.el (isearch): Typo (3 should be 2) in getting old |
| 1122 | start-point in reverse regexp search made more liberal. | 1122 | start-point in reverse regexp search made more liberal. |
| @@ -1131,7 +1131,7 @@ | |||
| 1131 | 1131 | ||
| 1132 | 1987-05-31 Richard M. Stallman (rms@prep) | 1132 | 1987-05-31 Richard M. Stallman (rms@prep) |
| 1133 | 1133 | ||
| 1134 | * version 18.45. | 1134 | * Version 18.45. |
| 1135 | 1135 | ||
| 1136 | * informat.el (Info-split): Bind case-fold-search to t. | 1136 | * informat.el (Info-split): Bind case-fold-search to t. |
| 1137 | 1137 | ||
| @@ -1319,7 +1319,7 @@ | |||
| 1319 | 1319 | ||
| 1320 | 1987-04-15 Paul Rubin (phr@prep) | 1320 | 1987-04-15 Paul Rubin (phr@prep) |
| 1321 | 1321 | ||
| 1322 | * version 18.44 released. | 1322 | * Version 18.44 released. |
| 1323 | 1323 | ||
| 1324 | 1987-04-14 Richard Mlynarik (mly@prep) | 1324 | 1987-04-14 Richard Mlynarik (mly@prep) |
| 1325 | 1325 | ||
| @@ -1910,7 +1910,7 @@ | |||
| 1910 | 1910 | ||
| 1911 | 1987-01-16 Richard Mlynarik (mly@prep) | 1911 | 1987-01-16 Richard Mlynarik (mly@prep) |
| 1912 | 1912 | ||
| 1913 | * rmail.el (rmail-count-new-messages), | 1913 | * rmail.el (rmail-count-new-messages): |
| 1914 | * rmailout.el (rmail-output-to-rmail-file): | 1914 | * rmailout.el (rmail-output-to-rmail-file): |
| 1915 | Add optional arg `nomsg' to former, which latter supplies, | 1915 | Add optional arg `nomsg' to former, which latter supplies, |
| 1916 | so that rmail doesn't report counting one appended message. | 1916 | so that rmail doesn't report counting one appended message. |
| @@ -2397,7 +2397,7 @@ | |||
| 2397 | 2397 | ||
| 2398 | 1986-11-23 Richard M. Stallman (rms@prep) | 2398 | 1986-11-23 Richard M. Stallman (rms@prep) |
| 2399 | 2399 | ||
| 2400 | * version 18.31 released. | 2400 | * Version 18.31 released. |
| 2401 | 2401 | ||
| 2402 | * x-mouse.el: New mouse-command keys are C-x C-@. | 2402 | * x-mouse.el: New mouse-command keys are C-x C-@. |
| 2403 | 2403 | ||
| @@ -2482,7 +2482,7 @@ | |||
| 2482 | 2482 | ||
| 2483 | 1986-11-14 Richard M. Stallman (rms@prep) | 2483 | 1986-11-14 Richard M. Stallman (rms@prep) |
| 2484 | 2484 | ||
| 2485 | * Emacs version 18.30 * | 2485 | * Emacs version 18.30. |
| 2486 | 2486 | ||
| 2487 | * rmail.el (rmail-forward): | 2487 | * rmail.el (rmail-forward): |
| 2488 | Use mail-other-window unless there is only one window visible. | 2488 | Use mail-other-window unless there is only one window visible. |
| @@ -2624,8 +2624,8 @@ | |||
| 2624 | 2624 | ||
| 2625 | 1986-11-04 Richard M. Stallman (rms@prep) | 2625 | 1986-11-04 Richard M. Stallman (rms@prep) |
| 2626 | 2626 | ||
| 2627 | * various files (dired-mode, Edit-options-mode, rmail-mode, | 2627 | * various files (dired-mode, Edit-options-mode, rmail-mode) |
| 2628 | rmail-summary-mode, rmail-edit-mode, Buffer-menu-mode): | 2628 | (rmail-summary-mode, rmail-edit-mode, Buffer-menu-mode): |
| 2629 | Give these symbols `special' as a `mode-class' property. | 2629 | Give these symbols `special' as a `mode-class' property. |
| 2630 | 2630 | ||
| 2631 | * dired.el (dired-mode): Take out local value for | 2631 | * dired.el (dired-mode): Take out local value for |
diff --git a/lisp/ChangeLog.3 b/lisp/ChangeLog.3 index fef57d0c68d..f23b1199a4e 100644 --- a/lisp/ChangeLog.3 +++ b/lisp/ChangeLog.3 | |||
| @@ -533,7 +533,7 @@ | |||
| 533 | 533 | ||
| 534 | 1993-05-16 Richard Stallman (rms@geech.gnu.ai.mit.edu) | 534 | 1993-05-16 Richard Stallman (rms@geech.gnu.ai.mit.edu) |
| 535 | 535 | ||
| 536 | * gnus.el, gnuspost.el, gnusmail.el, gnusmisc.el | 536 | * gnus.el, gnuspost.el, gnusmail.el, gnusmisc.el, |
| 537 | * nntp.el, nnspool.el, mhspool.el: Version 3.15 from Umeda. | 537 | * nntp.el, nnspool.el, mhspool.el: Version 3.15 from Umeda. |
| 538 | 538 | ||
| 539 | * frame.el (toggle-scroll-bar): Renamed from toggle-vertical-scroll... | 539 | * frame.el (toggle-scroll-bar): Renamed from toggle-vertical-scroll... |
| @@ -762,8 +762,8 @@ | |||
| 762 | 762 | ||
| 763 | Fail more gracefully if we can't build bold, italic, etc, | 763 | Fail more gracefully if we can't build bold, italic, etc, |
| 764 | versions of the default font. | 764 | versions of the default font. |
| 765 | * faces.el (make-face-bold, make-face-italic, | 765 | * faces.el (make-face-bold, make-face-italic) |
| 766 | make-face-bold-italic, make-face-unbold, make-face-unitalic): | 766 | (make-face-bold-italic, make-face-unbold, make-face-unitalic): |
| 767 | Implement NOERROR argument. | 767 | Implement NOERROR argument. |
| 768 | (x-initialize-frame-faces): Use the NOERROR argument to the | 768 | (x-initialize-frame-faces): Use the NOERROR argument to the |
| 769 | font manipulation functions to avoid errors while starting up. | 769 | font manipulation functions to avoid errors while starting up. |
| @@ -1772,8 +1772,8 @@ | |||
| 1772 | 1772 | ||
| 1773 | 1993-03-24 Jim Blandy (jimb@geech.gnu.ai.mit.edu) | 1773 | 1993-03-24 Jim Blandy (jimb@geech.gnu.ai.mit.edu) |
| 1774 | 1774 | ||
| 1775 | * calendar.el (calendar-standard-time-zone-name, | 1775 | * calendar.el (calendar-standard-time-zone-name) |
| 1776 | calendar-daylight-time-zone-name): Initialize these at load-time, | 1776 | (calendar-daylight-time-zone-name): Initialize these at load-time, |
| 1777 | as well as calendar-time-zone. | 1777 | as well as calendar-time-zone. |
| 1778 | 1778 | ||
| 1779 | * calendar.el (calendar-time-zone): Fix code which initializes | 1779 | * calendar.el (calendar-time-zone): Fix code which initializes |
| @@ -1827,7 +1827,7 @@ | |||
| 1827 | * help.el, register.el, replace.el, reposition.el, rfc822.el, | 1827 | * help.el, register.el, replace.el, reposition.el, rfc822.el, |
| 1828 | * rlogin.el, rot13.el, scribe.el, scroll-bar.el, sendmail.el, | 1828 | * rlogin.el, rot13.el, scribe.el, scroll-bar.el, sendmail.el, |
| 1829 | * setenv.el, sgml-mode.el, simple.el, simula.el, sort.el, spell.el, | 1829 | * setenv.el, sgml-mode.el, simple.el, simula.el, sort.el, spell.el, |
| 1830 | * spook.el, studly.el, tabify.el, text-mode.el: Added or corrected | 1830 | * spook.el, studly.el, tabify.el, text-mode.el: Add or correct |
| 1831 | Commentary headers. | 1831 | Commentary headers. |
| 1832 | 1832 | ||
| 1833 | 1993-03-22 Edward M. Reingold (reingold@emr.cs.uiuc.edu) | 1833 | 1993-03-22 Edward M. Reingold (reingold@emr.cs.uiuc.edu) |
| @@ -1840,7 +1840,7 @@ | |||
| 1840 | * man.el, mlconvert.el, mlsupport.el, modula2.el, mouse.el, | 1840 | * man.el, mlconvert.el, mlsupport.el, modula2.el, mouse.el, |
| 1841 | * mpuz.el, netunam.el, novice.el, nroff-mode.el, options.el, | 1841 | * mpuz.el, netunam.el, novice.el, nroff-mode.el, options.el, |
| 1842 | * outline.el, page.el, paragraphs.el, picture.el, prolog.el, | 1842 | * outline.el, page.el, paragraphs.el, picture.el, prolog.el, |
| 1843 | * rect.el: Added or corrected Commentary sections. | 1843 | * rect.el: Add or correct Commentary sections. |
| 1844 | 1844 | ||
| 1845 | 1993-03-22 Eric S. Raymond (eric@geech.gnu.ai.mit.edu) | 1845 | 1993-03-22 Eric S. Raymond (eric@geech.gnu.ai.mit.edu) |
| 1846 | 1846 | ||
| @@ -1857,7 +1857,7 @@ | |||
| 1857 | * mail-utils.el, mailalias.el, makefile.el, makesum.el, mim-mode.el, | 1857 | * mail-utils.el, mailalias.el, makefile.el, makesum.el, mim-mode.el, |
| 1858 | * modula2.el, nroff-mode.el, perl-mode.el, prolog.el, scheme.el, | 1858 | * modula2.el, nroff-mode.el, perl-mode.el, prolog.el, scheme.el, |
| 1859 | * sgml-mode.el, tex-mode.el: | 1859 | * sgml-mode.el, tex-mode.el: |
| 1860 | Added or corrected Commentary sections. There's more of this | 1860 | Add or correct Commentary sections. There's more of this |
| 1861 | coming; soon, the package finder will be able to browse Commentary | 1861 | coming; soon, the package finder will be able to browse Commentary |
| 1862 | sections, and I want almost all packages to have useful ones. | 1862 | sections, and I want almost all packages to have useful ones. |
| 1863 | 1863 | ||
| @@ -1972,7 +1972,7 @@ | |||
| 1972 | * cust-print.el, find-dired.el, etags.el, electric.el, dired.el, | 1972 | * cust-print.el, find-dired.el, etags.el, electric.el, dired.el, |
| 1973 | * dired-aux.el, cust-print.el, cmuscheme.el, cmulisp.el, cl.el, | 1973 | * dired-aux.el, cust-print.el, cmuscheme.el, cmulisp.el, cl.el, |
| 1974 | * case-table.el, byte-run.el, ange-ftp.el, backquote.el: | 1974 | * case-table.el, byte-run.el, ange-ftp.el, backquote.el: |
| 1975 | Added or corrected library header comments. | 1975 | Add or correct library header comments. |
| 1976 | 1976 | ||
| 1977 | 1993-03-17 Eric S. Raymond (eric@mole.gnu.ai.mit.edu) | 1977 | 1993-03-17 Eric S. Raymond (eric@mole.gnu.ai.mit.edu) |
| 1978 | 1978 | ||
| @@ -2186,8 +2186,8 @@ | |||
| 2186 | 2186 | ||
| 2187 | 1993-03-10 Edward M. Reingold (reingold@emr.cs.uiuc.edu) | 2187 | 1993-03-10 Edward M. Reingold (reingold@emr.cs.uiuc.edu) |
| 2188 | 2188 | ||
| 2189 | * diary-insert.el (insert-anniversary-diary-entry, | 2189 | * diary-insert.el (insert-anniversary-diary-entry) |
| 2190 | insert-block-diary-entry): Fix calendar-date-display-form used. | 2190 | (insert-block-diary-entry): Fix calendar-date-display-form used. |
| 2191 | 2191 | ||
| 2192 | 1993-03-10 Jim Blandy (jimb@totoro.cs.oberlin.edu) | 2192 | 1993-03-10 Jim Blandy (jimb@totoro.cs.oberlin.edu) |
| 2193 | 2193 | ||
| @@ -2383,8 +2383,8 @@ | |||
| 2383 | nonexistent function last-month-of-hebrew-year to the correct | 2383 | nonexistent function last-month-of-hebrew-year to the correct |
| 2384 | function hebrew-calendar-last-month-of-year. | 2384 | function hebrew-calendar-last-month-of-year. |
| 2385 | 2385 | ||
| 2386 | * cal-mayan.el (calendar-mayan-haab-on-or-before, | 2386 | * cal-mayan.el (calendar-mayan-haab-on-or-before) |
| 2387 | calendar-mayan-tzolkin-on-or-before): Change `mod' to `%'. | 2387 | (calendar-mayan-tzolkin-on-or-before): Change `mod' to `%'. |
| 2388 | 2388 | ||
| 2389 | * cal-mayan.el (calendar-next-tzolkin-date): Delete bogus second | 2389 | * cal-mayan.el (calendar-next-tzolkin-date): Delete bogus second |
| 2390 | defun. | 2390 | defun. |
| @@ -2857,8 +2857,8 @@ | |||
| 2857 | * ehelp.el (electric-help-command-loop): Same. | 2857 | * ehelp.el (electric-help-command-loop): Same. |
| 2858 | * electric.el (Electric-command-loop): Same. | 2858 | * electric.el (Electric-command-loop): Same. |
| 2859 | * emerge.el (emerge-show-file-name): Same. | 2859 | * emerge.el (emerge-show-file-name): Same. |
| 2860 | * fortran.el (fortran-abbrev-start, | 2860 | * fortran.el (fortran-abbrev-start) |
| 2861 | fortran-window-create-momentarily): Same. | 2861 | (fortran-window-create-momentarily): Same. |
| 2862 | * gnus.el (gnus-Subject-next-article): Same. | 2862 | * gnus.el (gnus-Subject-next-article): Same. |
| 2863 | * info.el (Info-summary): Same. | 2863 | * info.el (Info-summary): Same. |
| 2864 | * isearch-mode.el (isearch-update, isearch-unread): Same. | 2864 | * isearch-mode.el (isearch-update, isearch-unread): Same. |
diff --git a/lisp/ChangeLog.4 b/lisp/ChangeLog.4 index 13a3b6364ca..64564626c46 100644 --- a/lisp/ChangeLog.4 +++ b/lisp/ChangeLog.4 | |||
| @@ -124,7 +124,7 @@ | |||
| 124 | 124 | ||
| 125 | * server.el (server-kill-emacs-query-function): Ignore killed buffers. | 125 | * server.el (server-kill-emacs-query-function): Ignore killed buffers. |
| 126 | 126 | ||
| 127 | 1994-05-24 Kenneth Manheimer (ken.manheimer@nist.gov) | 127 | 1994-05-24 Ken Manheimer (ken.manheimer@nist.gov) |
| 128 | 128 | ||
| 129 | * allout.el (outline-chart-subtree): Include outline-next- | 129 | * allout.el (outline-chart-subtree): Include outline-next- |
| 130 | heading in loop conditions to detect end-of-buffer (and avoid | 130 | heading in loop conditions to detect end-of-buffer (and avoid |
| @@ -342,7 +342,7 @@ | |||
| 342 | * startup.el (precompute-menubar-bindings): Don't precompute menus | 342 | * startup.el (precompute-menubar-bindings): Don't precompute menus |
| 343 | if not using x. | 343 | if not using x. |
| 344 | 344 | ||
| 345 | 1994-05-12 Kenneth Manheimer (klm@coil.nist.gov) | 345 | 1994-05-12 Ken Manheimer (klm@coil.nist.gov) |
| 346 | 346 | ||
| 347 | * allout.el (outline-mode): Use outline-this-or-next-heading. | 347 | * allout.el (outline-mode): Use outline-this-or-next-heading. |
| 348 | * allout.el (outline-this-or-next-heading): New function. | 348 | * allout.el (outline-this-or-next-heading): New function. |
| @@ -421,7 +421,7 @@ | |||
| 421 | 421 | ||
| 422 | 1994-05-10 Karl Heuer (kwzh@hal.gnu.ai.mit.edu) | 422 | 1994-05-10 Karl Heuer (kwzh@hal.gnu.ai.mit.edu) |
| 423 | 423 | ||
| 424 | * ediff.el (ediff-no-help-in-control-buffer): Renamed from | 424 | * ediff.el (ediff-no-help-in-control-buffer): Rename from |
| 425 | ediff-nix-help-in-control-buffer, to match doc and usage. | 425 | ediff-nix-help-in-control-buffer, to match doc and usage. |
| 426 | 426 | ||
| 427 | * autoload.el (update-file-autoloads): Delete leftover variable. | 427 | * autoload.el (update-file-autoloads): Delete leftover variable. |
| @@ -517,7 +517,7 @@ | |||
| 517 | * cal-menu.el (calendar-mouse-set-mark): New function. | 517 | * cal-menu.el (calendar-mouse-set-mark): New function. |
| 518 | (calendar-mouse-date-menu): Bind it to key. | 518 | (calendar-mouse-date-menu): Bind it to key. |
| 519 | 519 | ||
| 520 | 1994-05-08 Kenneth Manheimer (klm@coil.nist.gov) | 520 | 1994-05-08 Ken Manheimer (klm@coil.nist.gov) |
| 521 | 521 | ||
| 522 | * allout.el (outline-init): New user interface for control of | 522 | * allout.el (outline-init): New user interface for control of |
| 523 | outline-mode session setup, sets up `outline-find-file-hook', | 523 | outline-mode session setup, sets up `outline-find-file-hook', |
| @@ -958,9 +958,9 @@ | |||
| 958 | 958 | ||
| 959 | * files.el (revert-buffer): Widen before replacing text. | 959 | * files.el (revert-buffer): Widen before replacing text. |
| 960 | 960 | ||
| 961 | 1994-04-29 Kenneth Manheimer (ken.manheimer@nist.gov) | 961 | 1994-04-29 Ken Manheimer (ken.manheimer@nist.gov) |
| 962 | 962 | ||
| 963 | * allout.el: major code speedups, bug fixes, behavior | 963 | * allout.el: Major code speedups, bug fixes, behavior |
| 964 | refinements, doc-string clarification and elaboration, etc. | 964 | refinements, doc-string clarification and elaboration, etc. |
| 965 | Prominent new features include: | 965 | Prominent new features include: |
| 966 | - Exposure changes and navigation are greatly accelerated. | 966 | - Exposure changes and navigation are greatly accelerated. |
| @@ -1689,7 +1689,7 @@ | |||
| 1689 | 1689 | ||
| 1690 | * saveplace.el (save-place-find-file-hook) | 1690 | * saveplace.el (save-place-find-file-hook) |
| 1691 | (save-place-kill-emacs-hook): New functions. | 1691 | (save-place-kill-emacs-hook): New functions. |
| 1692 | (hooks for find-file-hooks,kill-emacs-hook): Use those new functions. | 1692 | (hooks for find-file-hooks, kill-emacs-hook): Use those new functions. |
| 1693 | 1693 | ||
| 1694 | * menu-bar.el (clipboard-yank, clipboard-kill-ring-save) | 1694 | * menu-bar.el (clipboard-yank, clipboard-kill-ring-save) |
| 1695 | (clipboard-kill-region): New functions. Give them | 1695 | (clipboard-kill-region): New functions. Give them |
| @@ -3114,32 +3114,32 @@ | |||
| 3114 | (calendar-cursor-to-date): Add optional parameter to cause error | 3114 | (calendar-cursor-to-date): Add optional parameter to cause error |
| 3115 | signal when cursor is not on a date---this allows lots of | 3115 | signal when cursor is not on a date---this allows lots of |
| 3116 | simplifications throughout the code. | 3116 | simplifications throughout the code. |
| 3117 | (calendar-forward-month,calendar-set-mark) | 3117 | (calendar-forward-month, calendar-set-mark) |
| 3118 | (calendar-exchange-point-and-mark,calendar-count-days-region) | 3118 | (calendar-exchange-point-and-mark, calendar-count-days-region) |
| 3119 | (calendar-print-day-of-year,calendar-print-iso-date) | 3119 | (calendar-print-day-of-year, calendar-print-iso-date) |
| 3120 | (calendar-print-julian-date,calendar-print-islamic-date) | 3120 | (calendar-print-julian-date, calendar-print-islamic-date) |
| 3121 | (calendar-print-hebrew-date,calendar-print-astro-day-number): | 3121 | (calendar-print-hebrew-date, calendar-print-astro-day-number): |
| 3122 | Use simplification. | 3122 | Use simplification. |
| 3123 | 3123 | ||
| 3124 | * holidays.el (calendar-cursor-holidays): Use new error arg | 3124 | * holidays.el (calendar-cursor-holidays): Use new error arg |
| 3125 | to calendar-cursor-to-date. | 3125 | to calendar-cursor-to-date. |
| 3126 | 3126 | ||
| 3127 | * diary.el (view-diary-entries,diary-islamic-date): Use new error arg | 3127 | * diary.el (view-diary-entries, diary-islamic-date): Use new error arg |
| 3128 | to calendar-cursor-to-date. | 3128 | to calendar-cursor-to-date. |
| 3129 | 3129 | ||
| 3130 | * diary-ins.el (insert-diary-entry,insert-weekly-diary-entry) | 3130 | * diary-ins.el (insert-diary-entry, insert-weekly-diary-entry) |
| 3131 | (insert-monthly-diary-entry,insert-yearly-diary-entry) | 3131 | (insert-monthly-diary-entry, insert-yearly-diary-entry) |
| 3132 | (insert-anniversary-diary-entry,insert-block-diary-entry) | 3132 | (insert-anniversary-diary-entry, insert-block-diary-entry) |
| 3133 | (insert-cyclic-diary-entry,insert-hebrew-diary-entry) | 3133 | (insert-cyclic-diary-entry, insert-hebrew-diary-entry) |
| 3134 | (insert-monthly-hebrew-diary-entry,insert-yearly-hebrew-diary-entry) | 3134 | (insert-monthly-hebrew-diary-entry, insert-yearly-hebrew-diary-entry) |
| 3135 | (insert-islamic-diary-entry,insert-monthly-islamic-diary-entry) | 3135 | (insert-islamic-diary-entry, insert-monthly-islamic-diary-entry) |
| 3136 | (insert-yearly-islamic-diary-entry): Use new error arg | 3136 | (insert-yearly-islamic-diary-entry): Use new error arg |
| 3137 | to calendar-cursor-to-date. | 3137 | to calendar-cursor-to-date. |
| 3138 | 3138 | ||
| 3139 | * solar.el (calendar-sunrise-sunset): Use new error arg | 3139 | * solar.el (calendar-sunrise-sunset): Use new error arg |
| 3140 | to calendar-cursor-to-date. | 3140 | to calendar-cursor-to-date. |
| 3141 | 3141 | ||
| 3142 | * cal-french.el (calendar-print-french-date,diary-french-date): | 3142 | * cal-french.el (calendar-print-french-date, diary-french-date): |
| 3143 | Use new error arg to calendar-cursor-to-date. | 3143 | Use new error arg to calendar-cursor-to-date. |
| 3144 | 3144 | ||
| 3145 | * cal-mayan.el (calendar-print-mayan-date): Use new error arg | 3145 | * cal-mayan.el (calendar-print-mayan-date): Use new error arg |
| @@ -3516,16 +3516,18 @@ | |||
| 3516 | (diary-entry-marker, calendar-today-marker) | 3516 | (diary-entry-marker, calendar-today-marker) |
| 3517 | (calendar-holiday-marker): Don't autoload them; change definitions | 3517 | (calendar-holiday-marker): Don't autoload them; change definitions |
| 3518 | to support monochrome and color workstations. | 3518 | to support monochrome and color workstations. |
| 3519 | (calendar-french-date-string,calendar-mayan-date-string): Autoload them. | 3519 | (calendar-french-date-string, calendar-mayan-date-string): |
| 3520 | Autoload them. | ||
| 3520 | (calendar-day-of-year-string, calendar-iso-date-string) | 3521 | (calendar-day-of-year-string, calendar-iso-date-string) |
| 3521 | (calendar-julian-date-string,calendar-islamic-date-string) | 3522 | (calendar-julian-date-string, calendar-islamic-date-string) |
| 3522 | (calendar-hebrew-date-string,calendar-astro-date-string): New functions. | 3523 | (calendar-hebrew-date-string, calendar-astro-date-string): |
| 3524 | New functions. | ||
| 3523 | (calendar-print-day-of-year, calendar-print-iso-date) | 3525 | (calendar-print-day-of-year, calendar-print-iso-date) |
| 3524 | (calendar-print-iso-date,calendar-print-julian-date) | 3526 | (calendar-print-iso-date, calendar-print-julian-date) |
| 3525 | (calendar-print-islamic-date,calendar-print-hebrew-date) | 3527 | (calendar-print-islamic-date, calendar-print-hebrew-date) |
| 3526 | (calendar-print-astro-day-number): Use them. | 3528 | (calendar-print-astro-day-number): Use them. |
| 3527 | (calendar-mode-map): Add mouse support. | 3529 | (calendar-mode-map): Add mouse support. |
| 3528 | (calendar-unmark,mark-visible-calendar-date,calendar-mark-today): | 3530 | (calendar-unmark, mark-visible-calendar-date, calendar-mark-today): |
| 3529 | Rewritten. | 3531 | Rewritten. |
| 3530 | 3532 | ||
| 3531 | * diary.el (diary-day-of-year, diary-iso-date, diary-islamic-date) | 3533 | * diary.el (diary-day-of-year, diary-iso-date, diary-islamic-date) |
| @@ -5896,8 +5898,8 @@ | |||
| 5896 | 5898 | ||
| 5897 | * loaddefs.el (ctl-x-map): `C-x r c' now runs `clear-rectangle'. | 5899 | * loaddefs.el (ctl-x-map): `C-x r c' now runs `clear-rectangle'. |
| 5898 | 5900 | ||
| 5899 | * texinfmt.el (texinfo-format-region texinfo-format-buffer): Add | 5901 | * texinfmt.el (texinfo-format-region texinfo-format-buffer): |
| 5900 | ###autoload cookies. | 5902 | Add ###autoload cookies. |
| 5901 | (batch-texinfo-format): Use `buffer-disable-undo' instead of | 5903 | (batch-texinfo-format): Use `buffer-disable-undo' instead of |
| 5902 | obsolete function `buffer-flush-undo'. | 5904 | obsolete function `buffer-flush-undo'. |
| 5903 | 5905 | ||
| @@ -5916,8 +5918,8 @@ | |||
| 5916 | 5918 | ||
| 5917 | 1993-08-26 Jim Blandy (blandy@comano.cscs.ch) | 5919 | 1993-08-26 Jim Blandy (blandy@comano.cscs.ch) |
| 5918 | 5920 | ||
| 5919 | * add-log.el (add-log-full-name, add-log-mailing-address): New | 5921 | * add-log.el (add-log-full-name, add-log-mailing-address): |
| 5920 | variables. | 5922 | New variables. |
| 5921 | (add-change-log-entry): Don't ask for the login name and site name | 5923 | (add-change-log-entry): Don't ask for the login name and site name |
| 5922 | separately; instead, prompt for a mailing address; that's more | 5924 | separately; instead, prompt for a mailing address; that's more |
| 5923 | useful. Set add-log-full-name and add-log-mailing-address, so | 5925 | useful. Set add-log-full-name and add-log-mailing-address, so |
| @@ -8760,8 +8762,8 @@ | |||
| 8760 | calendar-time-display-form): Change Universal Time (UT) to | 8762 | calendar-time-display-form): Change Universal Time (UT) to |
| 8761 | Coordinated Universal Time (UTC). | 8763 | Coordinated Universal Time (UTC). |
| 8762 | 8764 | ||
| 8763 | *solar.el (solar-setup, solar-ephemeris-time, sunrise-sunset): Change | 8765 | * solar.el (solar-setup, solar-ephemeris-time, sunrise-sunset): |
| 8764 | Universal Time (UT) to Coordinated Universal Time (UTC). | 8766 | Change Universal Time (UT) to Coordinated Universal Time (UTC). |
| 8765 | (solar-time-string): Use calendar-daylight-time-offset instead of | 8767 | (solar-time-string): Use calendar-daylight-time-offset instead of |
| 8766 | 1 hr, and use calendar-daylight-savings-switchover-time instead of | 8768 | 1 hr, and use calendar-daylight-savings-switchover-time instead of |
| 8767 | midnight. Add an optional parameter to allow forcing the use of | 8769 | midnight. Add an optional parameter to allow forcing the use of |
diff --git a/lisp/ChangeLog.5 b/lisp/ChangeLog.5 index 84dfb1031fd..5bc0474c58b 100644 --- a/lisp/ChangeLog.5 +++ b/lisp/ChangeLog.5 | |||
| @@ -4501,7 +4501,7 @@ | |||
| 4501 | (reporter-status-message, reporter-status-count): New variables. | 4501 | (reporter-status-message, reporter-status-count): New variables. |
| 4502 | 4502 | ||
| 4503 | * reporter.el (reporter-update-status, reporter-beautify-list) | 4503 | * reporter.el (reporter-update-status, reporter-beautify-list) |
| 4504 | reporter-dump-variable): Now smarter about formatting variables | 4504 | (reporter-dump-variable): Now smarter about formatting variables |
| 4505 | with list values. Checks the value of reporter-dont-compact-list. | 4505 | with list values. Checks the value of reporter-dont-compact-list. |
| 4506 | 4506 | ||
| 4507 | 1994-12-23 Richard Stallman <rms@mole.gnu.ai.mit.edu> | 4507 | 1994-12-23 Richard Stallman <rms@mole.gnu.ai.mit.edu> |
| @@ -4732,8 +4732,8 @@ | |||
| 4732 | 4732 | ||
| 4733 | 1994-12-18 Lawrence R. Dodd (dodd@roebling.poly.edu) | 4733 | 1994-12-18 Lawrence R. Dodd (dodd@roebling.poly.edu) |
| 4734 | 4734 | ||
| 4735 | * fortran.el (fortran-end-if, fortran-end-do, | 4735 | * fortran.el (fortran-end-if, fortran-end-do) |
| 4736 | fortran-beginning-if, fortran-beginning-do): New subroutines. | 4736 | (fortran-beginning-if, fortran-beginning-do): New subroutines. |
| 4737 | (fortran-blink-matching-if, fortran-blink-matching-do): Use them. | 4737 | (fortran-blink-matching-if, fortran-blink-matching-do): Use them. |
| 4738 | (fortran-mark-do, fortran-mark-if): New user functions. | 4738 | (fortran-mark-do, fortran-mark-if): New user functions. |
| 4739 | (fortran-blink-matching-if, fortran-mode): Doc mod. | 4739 | (fortran-blink-matching-if, fortran-mode): Doc mod. |
| @@ -5249,8 +5249,8 @@ | |||
| 5249 | 5249 | ||
| 5250 | 1994-11-09 Francesco Potortì (pot@cnuce.cnr.it) | 5250 | 1994-11-09 Francesco Potortì (pot@cnuce.cnr.it) |
| 5251 | 5251 | ||
| 5252 | * man.el (Man-berkeley-sed-script, Man-sysv-sed-script, | 5252 | * man.el (Man-berkeley-sed-script, Man-sysv-sed-script) |
| 5253 | Man-cleanup-manpage, Man-fontify-manpage): Handle the "+\bo" form | 5253 | (Man-cleanup-manpage, Man-fontify-manpage): Handle the "+\bo" form |
| 5254 | (used by aix) in addition to the "o\b+" one (used by sun). | 5254 | (used by aix) in addition to the "o\b+" one (used by sun). |
| 5255 | 5255 | ||
| 5256 | 1994-11-09 Karl Heuer <kwzh@hal.gnu.ai.mit.edu> | 5256 | 1994-11-09 Karl Heuer <kwzh@hal.gnu.ai.mit.edu> |
| @@ -5285,8 +5285,8 @@ | |||
| 5285 | 5285 | ||
| 5286 | 1994-11-08 Ed Reingold <reingold@albert.gnu.ai.mit.edu> | 5286 | 1994-11-08 Ed Reingold <reingold@albert.gnu.ai.mit.edu> |
| 5287 | 5287 | ||
| 5288 | * calendar.el (diary-entry-marker, calendar-today-marker, | 5288 | * calendar.el (diary-entry-marker, calendar-today-marker) |
| 5289 | calendar-holiday-marker): Don't supersede attributes for faces | 5289 | (calendar-holiday-marker): Don't supersede attributes for faces |
| 5290 | `diary-face', `calendar-display-face', or `holiday-face' if they | 5290 | `diary-face', `calendar-display-face', or `holiday-face' if they |
| 5291 | are already defined. | 5291 | are already defined. |
| 5292 | 5292 | ||
| @@ -5341,7 +5341,7 @@ | |||
| 5341 | * bytecomp.el (byte-compile-insert-header): Escape backslashes | 5341 | * bytecomp.el (byte-compile-insert-header): Escape backslashes |
| 5342 | in FILENAME when putting it inside a string constant. | 5342 | in FILENAME when putting it inside a string constant. |
| 5343 | 5343 | ||
| 5344 | 1994-10-31 voelker <voelker@cs.washington.edu> | 5344 | 1994-10-31 Geoff Voelker <voelker@cs.washington.edu> |
| 5345 | 5345 | ||
| 5346 | * makefile.nt: New file. | 5346 | * makefile.nt: New file. |
| 5347 | 5347 | ||
| @@ -5634,8 +5634,8 @@ | |||
| 5634 | 5634 | ||
| 5635 | 1994-10-22 Roland McGrath <roland@churchy.gnu.ai.mit.edu> | 5635 | 1994-10-22 Roland McGrath <roland@churchy.gnu.ai.mit.edu> |
| 5636 | 5636 | ||
| 5637 | * dired-aux.el (dired-do-tags-search, | 5637 | * dired-aux.el (dired-do-tags-search, dired-do-tags-query-replace): |
| 5638 | dired-do-tags-query-replace): New functions. | 5638 | New functions. |
| 5639 | * dired.el (dired-mode-map): Bind A to dired-do-tags-search, Q to | 5639 | * dired.el (dired-mode-map): Bind A to dired-do-tags-search, Q to |
| 5640 | dired-do-tags-query-replace. | 5640 | dired-do-tags-query-replace. |
| 5641 | 5641 | ||
| @@ -5665,8 +5665,8 @@ | |||
| 5665 | 5665 | ||
| 5666 | 1994-10-20 Noah Friedman <friedman@splode.com> | 5666 | 1994-10-20 Noah Friedman <friedman@splode.com> |
| 5667 | 5667 | ||
| 5668 | * timer.el (timer-error, timer-abnormal-termination, | 5668 | * timer.el (timer-error, timer-abnormal-termination) |
| 5669 | timer-filter-error): New error conditions. | 5669 | (timer-filter-error): New error conditions. |
| 5670 | (timer-process-filter, timer-process-sentinel): Signal an error, | 5670 | (timer-process-filter, timer-process-sentinel): Signal an error, |
| 5671 | don't just print a message. | 5671 | don't just print a message. |
| 5672 | 5672 | ||
| @@ -5707,8 +5707,8 @@ | |||
| 5707 | 5707 | ||
| 5708 | 1994-10-19 Boris Goldowsky <boris@cs.rochester.edu> | 5708 | 1994-10-19 Boris Goldowsky <boris@cs.rochester.edu> |
| 5709 | 5709 | ||
| 5710 | * facemenu.el (facemenu-face-menu, facemenu-foreground-menu, | 5710 | * facemenu.el (facemenu-face-menu, facemenu-foreground-menu) |
| 5711 | facemenu-background-menu, facemenu-special-menu): New or renamed | 5711 | (facemenu-background-menu, facemenu-special-menu): New or renamed |
| 5712 | variables for submenus. | 5712 | variables for submenus. |
| 5713 | * facemenu.el (facemenu-color-alist): Renamed from facemenu-colors. | 5713 | * facemenu.el (facemenu-color-alist): Renamed from facemenu-colors. |
| 5714 | * facemenu.el (facemenu-add-new-face): New function. | 5714 | * facemenu.el (facemenu-add-new-face): New function. |
| @@ -5901,8 +5901,8 @@ | |||
| 5901 | (facemenu-add-face, facemenu-discard-redundant-faces): New functions. | 5901 | (facemenu-add-face, facemenu-discard-redundant-faces): New functions. |
| 5902 | 5902 | ||
| 5903 | * facemenu.el (facemenu-set-foreground, facemenu-set-background) | 5903 | * facemenu.el (facemenu-set-foreground, facemenu-set-background) |
| 5904 | (facemenu-get-face, facemenu-foreground, facemenu-background): New | 5904 | (facemenu-get-face, facemenu-foreground, facemenu-background): |
| 5905 | functions and variables. Faces with names of the form fg:color | 5905 | New functions and variables. Faces with names of the form fg:color |
| 5906 | and bg:color are now treated specially. | 5906 | and bg:color are now treated specially. |
| 5907 | (facemenu-update): Updated for above. | 5907 | (facemenu-update): Updated for above. |
| 5908 | 5908 | ||
| @@ -6168,10 +6168,10 @@ | |||
| 6168 | * comint.el (comint-check-proc): Recognize `open'. | 6168 | * comint.el (comint-check-proc): Recognize `open'. |
| 6169 | (comint-exec): Use open-network-stream if command is a cons pair. | 6169 | (comint-exec): Use open-network-stream if command is a cons pair. |
| 6170 | 6170 | ||
| 6171 | * font-lock.el (compilation-mode-font-lock-keywords, | 6171 | * font-lock.el (compilation-mode-font-lock-keywords) |
| 6172 | rmail-summary-font-lock-keywords, dired-font-lock-keywords, | 6172 | (rmail-summary-font-lock-keywords, dired-font-lock-keywords) |
| 6173 | shell-font-lock-keywords, texi-font-lock-keywords, | 6173 | (shell-font-lock-keywords, texi-font-lock-keywords) |
| 6174 | perl-font-lock-keywords): Deleted. | 6174 | (perl-font-lock-keywords): Delete. |
| 6175 | 6175 | ||
| 6176 | * sh-script.el (sh-font-lock-keywords): Default to nil. | 6176 | * sh-script.el (sh-font-lock-keywords): Default to nil. |
| 6177 | 6177 | ||
| @@ -6232,7 +6232,7 @@ | |||
| 6232 | (Man-filter-list, Man-original-frame, Man-arguments) | 6232 | (Man-filter-list, Man-original-frame, Man-arguments) |
| 6233 | (Man-fontify-manpage-flag, Man-sections-alist, Man-refpages-alist) | 6233 | (Man-fontify-manpage-flag, Man-sections-alist, Man-refpages-alist) |
| 6234 | (Man-uses-untabify-flag, Man-page-mode-string, Man-sed-script): | 6234 | (Man-uses-untabify-flag, Man-page-mode-string, Man-sed-script): |
| 6235 | Added defvar's to keep the compiler quiet. | 6235 | Add defvar's to keep the compiler quiet. |
| 6236 | (Man-getpage-in-background): Start buffer name with "*Man ". | 6236 | (Man-getpage-in-background): Start buffer name with "*Man ". |
| 6237 | instead of "*man " to avoid conflict with "*mail*". | 6237 | instead of "*man " to avoid conflict with "*mail*". |
| 6238 | (Man-match-substring): Defsubst moved before first call. | 6238 | (Man-match-substring): Defsubst moved before first call. |
| @@ -7016,7 +7016,7 @@ | |||
| 7016 | 7016 | ||
| 7017 | * vc-hooks.el (vc-file-not-found-hook): Use save-excursion. | 7017 | * vc-hooks.el (vc-file-not-found-hook): Use save-excursion. |
| 7018 | 7018 | ||
| 7019 | 1994-09-18 Kenneth Manheimer (klm@coil.nist.gov) | 7019 | 1994-09-18 Ken Manheimer (klm@coil.nist.gov) |
| 7020 | 7020 | ||
| 7021 | * icomplete.el: Major rewrite to behave more like a minor mode. | 7021 | * icomplete.el: Major rewrite to behave more like a minor mode. |
| 7022 | Doc fixes. | 7022 | Doc fixes. |
| @@ -7233,14 +7233,14 @@ | |||
| 7233 | 7233 | ||
| 7234 | 1994-09-14 Boris Goldowsky <boris@cs.rochester.edu> | 7234 | 1994-09-14 Boris Goldowsky <boris@cs.rochester.edu> |
| 7235 | 7235 | ||
| 7236 | * simple.el (repeat-complex-command, next-history-element, | 7236 | * simple.el (repeat-complex-command, next-history-element) |
| 7237 | previous-matching-history-element): Override print-level when | 7237 | (previous-matching-history-element): Override print-level when |
| 7238 | offering command lines to edit. | 7238 | offering command lines to edit. |
| 7239 | 7239 | ||
| 7240 | 1994-09-13 Karl Heuer <kwzh@hal.gnu.ai.mit.edu> | 7240 | 1994-09-13 Karl Heuer <kwzh@hal.gnu.ai.mit.edu> |
| 7241 | 7241 | ||
| 7242 | * faces.el (make-face-unbold, make-face-unitalic, make-face-bold, | 7242 | * faces.el (make-face-unbold, make-face-unitalic, make-face-bold) |
| 7243 | make-face-italic, make-face-bold-italic): Don't try to frob font | 7243 | (make-face-italic, make-face-bold-italic): Don't try to frob font |
| 7244 | if it's nil. | 7244 | if it's nil. |
| 7245 | 7245 | ||
| 7246 | 1994-09-11 Richard Stallman <rms@mole.gnu.ai.mit.edu> | 7246 | 1994-09-11 Richard Stallman <rms@mole.gnu.ai.mit.edu> |
| @@ -7967,8 +7967,8 @@ | |||
| 7967 | Now accommodates buffer identifications generated by | 7967 | Now accommodates buffer identifications generated by |
| 7968 | mode-line.el and uniquify.el. | 7968 | mode-line.el and uniquify.el. |
| 7969 | 7969 | ||
| 7970 | * ediff.el (ediff-current-diff-face-A/B, | 7970 | * ediff.el (ediff-current-diff-face-A/B) |
| 7971 | ediff-fine-diff-face-A/B,ediff-odd/even-diff-face-A/B): | 7971 | (ediff-fine-diff-face-A/B, ediff-odd/even-diff-face-A/B): |
| 7972 | Variables changed to contain face names | 7972 | Variables changed to contain face names |
| 7973 | instead of face internal representation. | 7973 | instead of face internal representation. |
| 7974 | 7974 | ||
| @@ -8714,9 +8714,9 @@ | |||
| 8714 | 8714 | ||
| 8715 | 1994-06-22 Noah Friedman (friedman@splode.com) | 8715 | 1994-06-22 Noah Friedman (friedman@splode.com) |
| 8716 | 8716 | ||
| 8717 | * rsz-mini.el (resize-minibuffer-window-exactly, | 8717 | * rsz-mini.el (resize-minibuffer-window-exactly) |
| 8718 | resize-minibuffer-frame, resize-minibuffer-frame-exactly): Doc | 8718 | (resize-minibuffer-frame, resize-minibuffer-frame-exactly): |
| 8719 | fixes. | 8719 | Doc fixes. |
| 8720 | (resize-minibuffer-frame-exactly): Make default t. | 8720 | (resize-minibuffer-frame-exactly): Make default t. |
| 8721 | (resize-minibuffer-frame-original-height): New variable. | 8721 | (resize-minibuffer-frame-original-height): New variable. |
| 8722 | (resize-minibuffer-setup): Set it locally in the minibuffer. | 8722 | (resize-minibuffer-setup): Set it locally in the minibuffer. |
| @@ -8912,8 +8912,8 @@ | |||
| 8912 | 8912 | ||
| 8913 | 1994-06-17 Roland McGrath (roland@geech.gnu.ai.mit.edu) | 8913 | 1994-06-17 Roland McGrath (roland@geech.gnu.ai.mit.edu) |
| 8914 | 8914 | ||
| 8915 | * etags.el (tags-table-computed-list, | 8915 | * etags.el (tags-table-computed-list) |
| 8916 | tags-table-computed-list-for): New variables. | 8916 | (tags-table-computed-list-for): New variables. |
| 8917 | (tags-table-list-pointer, tags-table-list-started-at): Doc fixes. | 8917 | (tags-table-list-pointer, tags-table-list-started-at): Doc fixes. |
| 8918 | (tags-table-parent-pointer-list): Variable removed. | 8918 | (tags-table-parent-pointer-list): Variable removed. |
| 8919 | (tags-table-check-computed-list, tags-table-extend-computed-list): New | 8919 | (tags-table-check-computed-list, tags-table-extend-computed-list): New |
diff --git a/lisp/ChangeLog.6 b/lisp/ChangeLog.6 index c3d748a7baa..85301ef78e1 100644 --- a/lisp/ChangeLog.6 +++ b/lisp/ChangeLog.6 | |||
| @@ -686,7 +686,7 @@ | |||
| 686 | 686 | ||
| 687 | 1996-06-23 Noah Friedman <friedman@splode.com> | 687 | 1996-06-23 Noah Friedman <friedman@splode.com> |
| 688 | 688 | ||
| 689 | * rlogin.el (rlogin): make comint-output-filter-functions local | 689 | * rlogin.el (rlogin): Make comint-output-filter-functions local |
| 690 | before adding hooks. | 690 | before adding hooks. |
| 691 | 691 | ||
| 692 | 1996-06-22 Richard Stallman <rms@psilocin.gnu.ai.mit.edu> | 692 | 1996-06-22 Richard Stallman <rms@psilocin.gnu.ai.mit.edu> |
| @@ -719,7 +719,7 @@ | |||
| 719 | (ediff-make-diff2-buffer): Refuses to diff remote files. | 719 | (ediff-make-diff2-buffer): Refuses to diff remote files. |
| 720 | (ediff-make-diff2-buffer, ediff-setup-diff-regions): Changed functions. | 720 | (ediff-make-diff2-buffer, ediff-setup-diff-regions): Changed functions. |
| 721 | (ediff-make-diff2-buffer): New function. | 721 | (ediff-make-diff2-buffer): New function. |
| 722 | Added ^\C-m$ to ok-lines regexps | 722 | Add ^\C-m$ to ok-lines regexps. |
| 723 | 723 | ||
| 724 | * ediff-ptch.el: New file. | 724 | * ediff-ptch.el: New file. |
| 725 | 725 | ||
| @@ -1478,8 +1478,8 @@ | |||
| 1478 | 1478 | ||
| 1479 | 1996-04-18 Lars Magne Ingebrigtsen <larsi@ifi.uio.no> | 1479 | 1996-04-18 Lars Magne Ingebrigtsen <larsi@ifi.uio.no> |
| 1480 | 1480 | ||
| 1481 | * gnus.el (gnus-summary-pipe-output, gnus-buffer-configuration, | 1481 | * gnus.el (gnus-summary-pipe-output, gnus-buffer-configuration) |
| 1482 | gnus-window-to-buffer): Pop up the shell buffer after piping | 1482 | (gnus-window-to-buffer): Pop up the shell buffer after piping |
| 1483 | articles through a filter. | 1483 | articles through a filter. |
| 1484 | 1484 | ||
| 1485 | * gnus-ems.el: Make invisible text intangible as well. | 1485 | * gnus-ems.el: Make invisible text intangible as well. |
| @@ -2684,7 +2684,7 @@ | |||
| 2684 | determined in c-emacs-features. | 2684 | determined in c-emacs-features. |
| 2685 | 2685 | ||
| 2686 | * cc-mode.el: | 2686 | * cc-mode.el: |
| 2687 | imenu is required in Emacs 19, but doesn't exist in XEmacs | 2687 | imenu is required in Emacs 19, but doesn't exist in XEmacs. |
| 2688 | 2688 | ||
| 2689 | * cc-mode.el (c-site-default-style): New variable. | 2689 | * cc-mode.el (c-site-default-style): New variable. |
| 2690 | 2690 | ||
| @@ -2874,15 +2874,15 @@ | |||
| 2874 | 2874 | ||
| 2875 | 1996-01-29 Andreas Schwab <schwab@issan.informatik.uni-dortmund.de> | 2875 | 1996-01-29 Andreas Schwab <schwab@issan.informatik.uni-dortmund.de> |
| 2876 | 2876 | ||
| 2877 | * ada-mode.el (ada-indent-region, ada-check-matching-start, | 2877 | * ada-mode.el (ada-indent-region, ada-check-matching-start) |
| 2878 | ada-check-defun-name): Fix error format string. | 2878 | (ada-check-defun-name): Fix error format string. |
| 2879 | * allout.el (outline-process-exposed): Likewise. | 2879 | * allout.el (outline-process-exposed): Likewise. |
| 2880 | * bookmark.el (bookmark-load): Likewise. | 2880 | * bookmark.el (bookmark-load): Likewise. |
| 2881 | * cpp.el (cpp-parse-error): Likewise. | 2881 | * cpp.el (cpp-parse-error): Likewise. |
| 2882 | * ediff-init.el (ediff-event-point, ediff-event-buffer): | 2882 | * ediff-init.el (ediff-event-point, ediff-event-buffer): |
| 2883 | Likewise. | 2883 | Likewise. |
| 2884 | * etags.el (visit-tags-table-buffer, tags-loop-scan, | 2884 | * etags.el (visit-tags-table-buffer, tags-loop-scan) |
| 2885 | complete-tag): Likewise. | 2885 | (complete-tag): Likewise. |
| 2886 | * forms.el (forms--process-format-list): Likewise. | 2886 | * forms.el (forms--process-format-list): Likewise. |
| 2887 | * gnus-ems.el (gnus-summary-insert-pseudos-xemacs): Likewise. | 2887 | * gnus-ems.el (gnus-summary-insert-pseudos-xemacs): Likewise. |
| 2888 | * hexl.el (hexl-hex-char-to-integer, hexl-oct-char-to-integer): | 2888 | * hexl.el (hexl-hex-char-to-integer, hexl-oct-char-to-integer): |
| @@ -3106,8 +3106,8 @@ | |||
| 3106 | * facemenu.el (list-text-properties-at): Likewise. | 3106 | * facemenu.el (list-text-properties-at): Likewise. |
| 3107 | * finder.el (finder-summary): Likewise. | 3107 | * finder.el (finder-summary): Likewise. |
| 3108 | * flow-ctrl.el (enable-flow-control): Likewise. | 3108 | * flow-ctrl.el (enable-flow-control): Likewise. |
| 3109 | * forms.el (forms--help, forms-search-forward, | 3109 | * forms.el (forms--help, forms-search-forward) |
| 3110 | forms-search-backward): Likewise. | 3110 | (forms-search-backward): Likewise. |
| 3111 | * help-macro.el (make-help-screen): Likewise. | 3111 | * help-macro.el (make-help-screen): Likewise. |
| 3112 | * hippie-exp.el (hippie-expand): Likewise. | 3112 | * hippie-exp.el (hippie-expand): Likewise. |
| 3113 | * holidays.el (calendar-cursor-holidays): Likewise. | 3113 | * holidays.el (calendar-cursor-holidays): Likewise. |
| @@ -3133,8 +3133,8 @@ | |||
| 3133 | * type-break.el (type-break-demo-life): Likewise. | 3133 | * type-break.el (type-break-demo-life): Likewise. |
| 3134 | * view.el (view-mode-enter, View-scroll-lines-forward): Likewise. | 3134 | * view.el (view-mode-enter, View-scroll-lines-forward): Likewise. |
| 3135 | * viper-ex.el (ex-pwd, vip-info-on-file): Likewise. | 3135 | * viper-ex.el (ex-pwd, vip-info-on-file): Likewise. |
| 3136 | * viper-macs.el (ex-map-read-args, ex-unmap-read-args, | 3136 | * viper-macs.el (ex-map-read-args, ex-unmap-read-args) |
| 3137 | vip-record-kbd-macro): Likewise. | 3137 | (vip-record-kbd-macro): Likewise. |
| 3138 | * viper-util.el (vip-save-setting): Likewise. | 3138 | * viper-util.el (vip-save-setting): Likewise. |
| 3139 | 3139 | ||
| 3140 | * ada-mode.el (ada-adjust-case-region, ada-indent-region): Delete | 3140 | * ada-mode.el (ada-adjust-case-region, ada-indent-region): Delete |
| @@ -3146,14 +3146,14 @@ | |||
| 3146 | * enriched.el (enriched-next-annotation): Likewise. | 3146 | * enriched.el (enriched-next-annotation): Likewise. |
| 3147 | * ispell4.el (ispell-point): Likewise. | 3147 | * ispell4.el (ispell-point): Likewise. |
| 3148 | * mh-e.el (mh-get-new-mail): Likewise. | 3148 | * mh-e.el (mh-get-new-mail): Likewise. |
| 3149 | * saveplace.el (toggle-save-place, save-place-alist-to-file, | 3149 | * saveplace.el (toggle-save-place, save-place-alist-to-file) |
| 3150 | load-save-place-alist-from-file): Likewise. | 3150 | (load-save-place-alist-from-file): Likewise. |
| 3151 | * shadow.el (list-load-path-shadows): Likewise. | 3151 | * shadow.el (list-load-path-shadows): Likewise. |
| 3152 | * shadowfile.el (shadow-cancel, shadow-copy-file): Likewise. | 3152 | * shadowfile.el (shadow-cancel, shadow-copy-file): Likewise. |
| 3153 | * subr.el (read-quoted-char): Likewise. | 3153 | * subr.el (read-quoted-char): Likewise. |
| 3154 | * tpu-edt.el (tpu-y-or-n-p): Likewise. | 3154 | * tpu-edt.el (tpu-y-or-n-p): Likewise. |
| 3155 | * vip.el (vip-replace-string, vip-search-forward, | 3155 | * vip.el (vip-replace-string, vip-search-forward) |
| 3156 | vip-search-backward): Likewise. | 3156 | (vip-search-backward): Likewise. |
| 3157 | * viper-ex.el (ex-set): Likewise. | 3157 | * viper-ex.el (ex-set): Likewise. |
| 3158 | 3158 | ||
| 3159 | 1996-01-24 Karl Heuer <kwzh@gnu.ai.mit.edu> | 3159 | 1996-01-24 Karl Heuer <kwzh@gnu.ai.mit.edu> |
| @@ -3176,9 +3176,9 @@ | |||
| 3176 | 3176 | ||
| 3177 | * solitaire.el (solitaire): Doc fix. | 3177 | * solitaire.el (solitaire): Doc fix. |
| 3178 | 3178 | ||
| 3179 | * solar.el (solar-moment, solar-ephemeris-time, | 3179 | * solar.el (solar-moment, solar-ephemeris-time) |
| 3180 | solar-equatorial-coordinates, solar-horizontal-coordinates): Doc | 3180 | (solar-equatorial-coordinates, solar-horizontal-coordinates): |
| 3181 | fixes. | 3181 | Doc fixes. |
| 3182 | 3182 | ||
| 3183 | * lunar.el (lunar-new-moon-on-or-after): Doc fix. | 3183 | * lunar.el (lunar-new-moon-on-or-after): Doc fix. |
| 3184 | 3184 | ||
| @@ -3221,11 +3221,11 @@ | |||
| 3221 | * cal-tex.el (cal-tex-preamble): Add \hfuzz=1000pt to get rid of | 3221 | * cal-tex.el (cal-tex-preamble): Add \hfuzz=1000pt to get rid of |
| 3222 | overfull box messages. | 3222 | overfull box messages. |
| 3223 | 3223 | ||
| 3224 | * solar.el (calendar-latitude, calendar-longitude, | 3224 | * solar.el (calendar-latitude, calendar-longitude) |
| 3225 | calendar-location-name, solar-sunrise-and-sunset): Fix doc strings. | 3225 | (calendar-location-name, solar-sunrise-and-sunset): Fix doc strings. |
| 3226 | (solar-exact-local-noon, solar-sunrise-sunset): Refer to | 3226 | (solar-exact-local-noon, solar-sunrise-sunset): Refer to |
| 3227 | (calendar-longitude) and (calendar-latitude) instead of | 3227 | (calendar-longitude) and (calendar-latitude) instead of |
| 3228 | calendar-longitude and | 3228 | calendar-longitude and calendar-latitude. |
| 3229 | 3229 | ||
| 3230 | 1996-01-24 Richard Stallman <rms@mole.gnu.ai.mit.edu> | 3230 | 1996-01-24 Richard Stallman <rms@mole.gnu.ai.mit.edu> |
| 3231 | 3231 | ||
| @@ -3743,67 +3743,67 @@ | |||
| 3743 | 3743 | ||
| 3744 | * custom.el (custom-default-validate): Fix message spelling. | 3744 | * custom.el (custom-default-validate): Fix message spelling. |
| 3745 | * debug.el (debug): Likewise. | 3745 | * debug.el (debug): Likewise. |
| 3746 | * doctor.el (make-doctor-variables, doctor-othermodifierp, | 3746 | * doctor.el (make-doctor-variables, doctor-othermodifierp) |
| 3747 | doctor-strangelove): Likewise. | 3747 | (doctor-strangelove): Likewise. |
| 3748 | * dunnet.el (dun-sauna-heat, dun-login): Likewise. | 3748 | * dunnet.el (dun-sauna-heat, dun-login): Likewise. |
| 3749 | * gnus.el (gnus-summary-save-article): Likewise. | 3749 | * gnus.el (gnus-summary-save-article): Likewise. |
| 3750 | * hideshow.el (hs-hide-block): Likewise. | 3750 | * hideshow.el (hs-hide-block): Likewise. |
| 3751 | * hilit19.el (hilit-submit-feedback): Likewise. | 3751 | * hilit19.el (hilit-submit-feedback): Likewise. |
| 3752 | * mail-extr.el (mail-extr-nuke-outside-range, | 3752 | * mail-extr.el (mail-extr-nuke-outside-range) |
| 3753 | mail-extr-all-top-level-domains): Likewise. | 3753 | (mail-extr-all-top-level-domains): Likewise. |
| 3754 | * simple.el (shell-command): Likewise. | 3754 | * simple.el (shell-command): Likewise. |
| 3755 | * term.el (term-process-pager): Likewise. | 3755 | * term.el (term-process-pager): Likewise. |
| 3756 | * term/sun-mouse.el (describe-mouse-briefly): Likewise. | 3756 | * term/sun-mouse.el (describe-mouse-briefly): Likewise. |
| 3757 | 3757 | ||
| 3758 | * ada-mode.el (ada-case-keyword, ada-auto-case, ada-krunch-args, | 3758 | * ada-mode.el (ada-case-keyword, ada-auto-case, ada-krunch-args) |
| 3759 | ada-call-pretty-printer): Doc fix. | 3759 | (ada-call-pretty-printer): Doc fix. |
| 3760 | * allout.el (outline-primary-bullet, outline-numbered-bullet, | 3760 | * allout.el (outline-primary-bullet, outline-numbered-bullet) |
| 3761 | outline-override-protect, outline-explicitly-deactivated, | 3761 | (outline-override-protect, outline-explicitly-deactivated) |
| 3762 | outline-init, outline-chart-subtree, outline-chart-spec, | 3762 | (outline-init, outline-chart-subtree, outline-chart-spec) |
| 3763 | outline-make-topic-prefix, outline-open-topic, | 3763 | (outline-make-topic-prefix, outline-open-topic) |
| 3764 | outline-reindent-body, outline-yank-processing, outline-yank, | 3764 | (outline-reindent-body, outline-yank-processing, outline-yank) |
| 3765 | outlineify-sticky): Doc fix. | 3765 | (outlineify-sticky): Doc fix. |
| 3766 | * apropos.el (apropos-files-scanned): Doc fix. | 3766 | * apropos.el (apropos-files-scanned): Doc fix. |
| 3767 | * arc-mode.el (archive-summarize-files): Doc fix. | 3767 | * arc-mode.el (archive-summarize-files): Doc fix. |
| 3768 | * bib-mode.el (capitalize-title-stop-words): Doc fix. | 3768 | * bib-mode.el (capitalize-title-stop-words): Doc fix. |
| 3769 | * bibtex.el (bibtex-generate-autokey, bibtex-find-entry-location): | 3769 | * bibtex.el (bibtex-generate-autokey, bibtex-find-entry-location): |
| 3770 | Doc fix. | 3770 | Doc fix. |
| 3771 | * bookmark.el (bookmark-save-flag, bookmark-read-annotation-text-func, | 3771 | * bookmark.el (bookmark-save-flag, bookmark-read-annotation-text-func) |
| 3772 | bookmark-rename, bookmark-bmenu-mode, bookmark-menu-rename): Doc fix. | 3772 | (bookmark-rename, bookmark-bmenu-mode, bookmark-menu-rename): Doc fix. |
| 3773 | * cc-mode.el (c-file-offsets, c++-mode, c-mode, objc-mode, | 3773 | * cc-mode.el (c-file-offsets, c++-mode, c-mode, objc-mode) |
| 3774 | c-postprocess-file-styles): Doc fix. | 3774 | (c-postprocess-file-styles): Doc fix. |
| 3775 | * cl-extra.el (cl-copy-tree): Doc fix. | 3775 | * cl-extra.el (cl-copy-tree): Doc fix. |
| 3776 | * comint.el (comint-ptyp, comint-completion-autolist): Doc fix. | 3776 | * comint.el (comint-ptyp, comint-completion-autolist): Doc fix. |
| 3777 | * compile.el (compilation-error-list): Doc fix. | 3777 | * compile.el (compilation-error-list): Doc fix. |
| 3778 | * cplus-md.el (c++-mode): Doc fix. | 3778 | * cplus-md.el (c++-mode): Doc fix. |
| 3779 | * cpp.el (cpp-unknown-face, cpp-face-mono-list, cpp-face-all-list): | 3779 | * cpp.el (cpp-unknown-face, cpp-face-mono-list, cpp-face-all-list): |
| 3780 | Doc fix. | 3780 | Doc fix. |
| 3781 | * custom.el (rear-nonsticky, custom-property-set, custom-field-accept, | 3781 | * custom.el (rear-nonsticky, custom-property-set, custom-field-accept) |
| 3782 | custom-repeat-extract, custom-pair-extract, custom-list-extract, | 3782 | (custom-repeat-extract, custom-pair-extract, custom-list-extract) |
| 3783 | custom-choice-extract, custom-choice-validate, custom-mode-map): | 3783 | (custom-choice-extract, custom-choice-validate, custom-mode-map): |
| 3784 | Doc fix. | 3784 | Doc fix. |
| 3785 | * dired-x.el (dired-mark-sexp): Doc fix. | 3785 | * dired-x.el (dired-mark-sexp): Doc fix. |
| 3786 | * docref.el (docref-subst): Doc fix. | 3786 | * docref.el (docref-subst): Doc fix. |
| 3787 | * edebug.el (edebug-read): Doc fix. | 3787 | * edebug.el (edebug-read): Doc fix. |
| 3788 | * ediff-init.el (ediff-keep-variants): Doc fix. | 3788 | * ediff-init.el (ediff-keep-variants): Doc fix. |
| 3789 | * ediff-wind.el (ediff-prefer-iconified-control-frame): Doc fix. | 3789 | * ediff-wind.el (ediff-prefer-iconified-control-frame): Doc fix. |
| 3790 | * edt.el (edt-find-forward, edt-find-backward, edt-find, | 3790 | * edt.el (edt-find-forward, edt-find-backward, edt-find) |
| 3791 | edt-find-next-forward, edt-find-next-backward, edt-find-next): Doc fix. | 3791 | (edt-find-next-forward, edt-find-next-backward, edt-find-next): Doc fix. |
| 3792 | * ffap.el (ffap-list-env): Doc fix. | 3792 | * ffap.el (ffap-list-env): Doc fix. |
| 3793 | * files.el (make-directory): Doc fix. | 3793 | * files.el (make-directory): Doc fix. |
| 3794 | * fill.el (fill-context-prefix, unjustify-current-line, | 3794 | * fill.el (fill-context-prefix, unjustify-current-line) |
| 3795 | unjustify-region): Doc fix. | 3795 | (unjustify-region): Doc fix. |
| 3796 | * font-lock.el (font-lock-keywords): Doc fix. | 3796 | * font-lock.el (font-lock-keywords): Doc fix. |
| 3797 | * format.el (format-annotate-atomic-property-change): Doc fix. | 3797 | * format.el (format-annotate-atomic-property-change): Doc fix. |
| 3798 | * forms.el (forms-toggle-read-only, forms-enumerate): Doc fix. | 3798 | * forms.el (forms-toggle-read-only, forms-enumerate): Doc fix. |
| 3799 | gnus-cus.el: Doc fix. | 3799 | gnus-cus.el: Doc fix. |
| 3800 | * gnus-edit.el (gnus-score-custom-data): Doc fix. | 3800 | * gnus-edit.el (gnus-score-custom-data): Doc fix. |
| 3801 | * gnus-uu.el (gnus-uu-do-not-unpack-archives): Doc fix. | 3801 | * gnus-uu.el (gnus-uu-do-not-unpack-archives): Doc fix. |
| 3802 | * gnus.el (gnus-buffer-configuration, | 3802 | * gnus.el (gnus-buffer-configuration) |
| 3803 | gnus-article-hide-headers-if-wanted): Doc fix. | 3803 | (gnus-article-hide-headers-if-wanted): Doc fix. |
| 3804 | * hexl.el (hexl-program, hexl-beginning-of-1k-page, | 3804 | * hexl.el (hexl-program, hexl-beginning-of-1k-page) |
| 3805 | hexl-end-of-1k-page, hexl-beginning-of-512b-page, | 3805 | (hexl-end-of-1k-page, hexl-beginning-of-512b-page) |
| 3806 | hexl-end-of-512b-page): Doc fix. | 3806 | (hexl-end-of-512b-page): Doc fix. |
| 3807 | * hideshow.el (hs-unbalance-handler-method, hs-show-block): Doc fix. | 3807 | * hideshow.el (hs-unbalance-handler-method, hs-show-block): Doc fix. |
| 3808 | * hilit19.el (hilit-lookup-face-create): Doc fix. | 3808 | * hilit19.el (hilit-lookup-face-create): Doc fix. |
| 3809 | * icomplete.el (icomplete-simple-completing-p, icomplete-completions): | 3809 | * icomplete.el (icomplete-simple-completing-p, icomplete-completions): |
| @@ -3814,8 +3814,8 @@ | |||
| 3814 | * iso-cvt.el (iso-fix-tex2iso): Doc fix. | 3814 | * iso-cvt.el (iso-fix-tex2iso): Doc fix. |
| 3815 | * ispell4.el (ispell-gnu-look-still-broken-p, ispell-message-text-end): | 3815 | * ispell4.el (ispell-gnu-look-still-broken-p, ispell-message-text-end): |
| 3816 | Doc fix. | 3816 | Doc fix. |
| 3817 | * make-mode.el (makefile-insert-special-target, | 3817 | * make-mode.el (makefile-insert-special-target) |
| 3818 | makefile-backslash-region): Doc fix. | 3818 | (makefile-backslash-region): Doc fix. |
| 3819 | * mh-e.el (mh-good-msg-regexp): Doc fix. | 3819 | * mh-e.el (mh-good-msg-regexp): Doc fix. |
| 3820 | * modula2.el (m2-case, m2-for, m2-if): Doc fix. | 3820 | * modula2.el (m2-case, m2-for, m2-if): Doc fix. |
| 3821 | * msb.el (msb-max-file-menu-items, msb-menu-cond): Doc fix. | 3821 | * msb.el (msb-max-file-menu-items, msb-menu-cond): Doc fix. |
| @@ -3830,12 +3830,12 @@ | |||
| 3830 | * sh-script.el (sh-mode-syntax-table): Doc fix. | 3830 | * sh-script.el (sh-mode-syntax-table): Doc fix. |
| 3831 | * simple.el (next-completion): Doc fix. | 3831 | * simple.el (next-completion): Doc fix. |
| 3832 | * skeleton.el (skeleton-insert): Doc fix. | 3832 | * skeleton.el (skeleton-insert): Doc fix. |
| 3833 | * supercite.el (sc-citation-nonnested-root-regexp, | 3833 | * supercite.el (sc-citation-nonnested-root-regexp) |
| 3834 | sc-add-citation-level, sc-no-blank-line-or-header): Doc fix. | 3834 | (sc-add-citation-level, sc-no-blank-line-or-header): Doc fix. |
| 3835 | * tempo.el (tempo-local-tags, tempo-user-elements, tempo-use-tag-list): | 3835 | * tempo.el (tempo-local-tags, tempo-user-elements, tempo-use-tag-list): |
| 3836 | Doc fix. | 3836 | Doc fix. |
| 3837 | * term.el (term-ptyp, term-termcap-format, term-scroll-region, | 3837 | * term.el (term-ptyp, term-termcap-format, term-scroll-region) |
| 3838 | term-completion-autolist): Doc fix. | 3838 | (term-completion-autolist): Doc fix. |
| 3839 | * texinfo.el (texinfo-master-menu): Doc fix. | 3839 | * texinfo.el (texinfo-master-menu): Doc fix. |
| 3840 | * texnfo-upd.el (texinfo-master-menu): Doc fix. | 3840 | * texnfo-upd.el (texinfo-master-menu): Doc fix. |
| 3841 | * thingatpt.el (read-from-whole-string): Doc fix. | 3841 | * thingatpt.el (read-from-whole-string): Doc fix. |
| @@ -3845,8 +3845,8 @@ | |||
| 3845 | * type-break.el (type-break-keystroke-threshold, type-break-mode): | 3845 | * type-break.el (type-break-keystroke-threshold, type-break-mode): |
| 3846 | Doc fix. | 3846 | Doc fix. |
| 3847 | * vip.el (vip-shift-width): Doc fix. | 3847 | * vip.el (vip-shift-width): Doc fix. |
| 3848 | * viper.el (vip-insert-diehard-minor-mode, vip-toggle-search-style, | 3848 | * viper.el (vip-insert-diehard-minor-mode, vip-toggle-search-style) |
| 3849 | vip-del-backward-char-in-replace, vip-query-replace): Doc fix. | 3849 | (vip-del-backward-char-in-replace, vip-query-replace): Doc fix. |
| 3850 | * vmsproc.el (display-subprocess-window): Doc fix. | 3850 | * vmsproc.el (display-subprocess-window): Doc fix. |
| 3851 | * xscheme.el (xscheme-control-g-synchronization-p): Doc fix. | 3851 | * xscheme.el (xscheme-control-g-synchronization-p): Doc fix. |
| 3852 | 3852 | ||
| @@ -4389,9 +4389,9 @@ | |||
| 4389 | 4389 | ||
| 4390 | 1995-12-19 Eli Zaretskii <eliz@is.elta.co.il> | 4390 | 1995-12-19 Eli Zaretskii <eliz@is.elta.co.il> |
| 4391 | 4391 | ||
| 4392 | * time.el (display-time): make it work under ms-dos by setting the | 4392 | * time.el (display-time): Make it work under MS-DOS by setting the |
| 4393 | `dos-display-time' variable instead of invoking `wakeup' as | 4393 | `dos-display-time' variable instead of invoking `wakeup' as |
| 4394 | asynchronous process (which doesn't work under ms-dos). | 4394 | asynchronous process (which doesn't work under MS-DOS). |
| 4395 | 4395 | ||
| 4396 | 1995-12-19 Karl Heuer <kwzh@gnu.ai.mit.edu> | 4396 | 1995-12-19 Karl Heuer <kwzh@gnu.ai.mit.edu> |
| 4397 | 4397 | ||
| @@ -4419,8 +4419,8 @@ | |||
| 4419 | 4419 | ||
| 4420 | 1995-12-14 Lars Magne Ingebrigtsen <larsi@ifi.uio.no> | 4420 | 1995-12-14 Lars Magne Ingebrigtsen <larsi@ifi.uio.no> |
| 4421 | 4421 | ||
| 4422 | * gnus.el (gnus-summary-mode-line-format, | 4422 | * gnus.el (gnus-summary-mode-line-format) |
| 4423 | gnus-article-mode-line-format, gnus-group-mode-line-format): | 4423 | (gnus-article-mode-line-format, gnus-group-mode-line-format): |
| 4424 | Include the buffer name in the default mode strings. | 4424 | Include the buffer name in the default mode strings. |
| 4425 | (gnus-mode-non-string-length): Changed the default to not | 4425 | (gnus-mode-non-string-length): Changed the default to not |
| 4426 | limit/pad mode line lengths. | 4426 | limit/pad mode line lengths. |
| @@ -4502,8 +4502,8 @@ | |||
| 4502 | (bibtex-font-lock-keywords): New variable with font-lock keywords | 4502 | (bibtex-font-lock-keywords): New variable with font-lock keywords |
| 4503 | for BibTeX mode. | 4503 | for BibTeX mode. |
| 4504 | 4504 | ||
| 4505 | * bibtex.el (bibtex-make-optional-field): Not longer interactive | 4505 | * bibtex.el (bibtex-make-optional-field): Not longer interactive. |
| 4506 | (suggested by Karl Eichwalder <karl@pertron.central.de>). | 4506 | Suggested by Karl Eichwalder <karl@pertron.central.de>. |
| 4507 | 4507 | ||
| 4508 | * bibtex.el (bibtex-maintain-sorted-entries): Set to nil, since it | 4508 | * bibtex.el (bibtex-maintain-sorted-entries): Set to nil, since it |
| 4509 | requires more user attention and more restricted files to have | 4509 | requires more user attention and more restricted files to have |
| @@ -4561,8 +4561,8 @@ | |||
| 4561 | to bibtex-completion-candidates). | 4561 | to bibtex-completion-candidates). |
| 4562 | (bibtex-complete-string): Made it use bibtex-string. | 4562 | (bibtex-complete-string): Made it use bibtex-string. |
| 4563 | 4563 | ||
| 4564 | * bibtex.el (bibtex-keys, | 4564 | * bibtex.el (bibtex-keys) |
| 4565 | bibtex-buffer-last-parsed-for-keys-tick): New buffer-local | 4565 | (bibtex-buffer-last-parsed-for-keys-tick): New buffer-local |
| 4566 | variables to make parsing of BibTeX buffer for reference keys | 4566 | variables to make parsing of BibTeX buffer for reference keys |
| 4567 | (needed by TAB completion in minibuffer when entering key) more | 4567 | (needed by TAB completion in minibuffer when entering key) more |
| 4568 | occasional. | 4568 | occasional. |
| @@ -4708,17 +4708,17 @@ | |||
| 4708 | 4708 | ||
| 4709 | 1995-11-29 Paul Eggert <eggert@twinsun.com> | 4709 | 1995-11-29 Paul Eggert <eggert@twinsun.com> |
| 4710 | 4710 | ||
| 4711 | * cal-chinese.el (calendar-chinese-sexagesimal-name): Renamed from | 4711 | * cal-chinese.el (calendar-chinese-sexagesimal-name): Rename from |
| 4712 | calendar-chinese-sexagisimal-name to fix misspelling. | 4712 | calendar-chinese-sexagisimal-name to fix misspelling. |
| 4713 | * cal-hebrew.el (holiday-rosh-hashanah-etc): Fix misspelled var. | 4713 | * cal-hebrew.el (holiday-rosh-hashanah-etc): Fix misspelled var. |
| 4714 | * holidays.el (holiday-easter-etc): Fix misspelling of "Whitmonday". | 4714 | * holidays.el (holiday-easter-etc): Fix misspelling of "Whitmonday". |
| 4715 | * calendar.el (calendar-setup, calendar-basic-setup) | 4715 | * calendar.el (calendar-setup, calendar-basic-setup) |
| 4716 | (calendar-next-calendar-round-date) | 4716 | (calendar-next-calendar-round-date) |
| 4717 | (calendar-previous-calendar-round-date, cal-tex-cursor-year) | 4717 | (calendar-previous-calendar-round-date, cal-tex-cursor-year): |
| 4718 | * cal-julian.el (calendar-absolute-from-astro) | 4718 | * cal-julian.el (calendar-absolute-from-astro): |
| 4719 | * cal-mayan.el (calendar-next-calendar-round-date) | 4719 | * cal-mayan.el (calendar-next-calendar-round-date) |
| 4720 | (calendar-previous-calendar-round-date) | 4720 | (calendar-previous-calendar-round-date): |
| 4721 | * diary-lib.el (list-sexp-diary-entries) | 4721 | * diary-lib.el (list-sexp-diary-entries): |
| 4722 | * solar.el (solar-longitude): Doc fixes to fix misspellings. | 4722 | * solar.el (solar-longitude): Doc fixes to fix misspellings. |
| 4723 | 4723 | ||
| 4724 | 1995-11-29 Richard Stallman <rms@mole.gnu.ai.mit.edu> | 4724 | 1995-11-29 Richard Stallman <rms@mole.gnu.ai.mit.edu> |
| @@ -5010,8 +5010,8 @@ | |||
| 5010 | 1995-11-14 Eric Ding <ericding@mit.edu> | 5010 | 1995-11-14 Eric Ding <ericding@mit.edu> |
| 5011 | 5011 | ||
| 5012 | * goto-addr.el (goto-address-highlight-p): New variable. | 5012 | * goto-addr.el (goto-address-highlight-p): New variable. |
| 5013 | (goto-address-fontify): Removed check for invisible text, | 5013 | (goto-address-fontify): Remove check for invisible text, |
| 5014 | set inhibit-point-motion-hooks instead | 5014 | set inhibit-point-motion-hooks instead. |
| 5015 | 5015 | ||
| 5016 | 1995-11-13 Richard Stallman <rms@mole.gnu.ai.mit.edu> | 5016 | 1995-11-13 Richard Stallman <rms@mole.gnu.ai.mit.edu> |
| 5017 | 5017 | ||
| @@ -5980,7 +5980,7 @@ | |||
| 5980 | 5980 | ||
| 5981 | * help.el (print-help-return-message): Handle lists in | 5981 | * help.el (print-help-return-message): Handle lists in |
| 5982 | special-display-regexps and same-window-regexps. Also in | 5982 | special-display-regexps and same-window-regexps. Also in |
| 5983 | special-display-buffer-names and same-window-buffer-names | 5983 | special-display-buffer-names and same-window-buffer-names. |
| 5984 | 5984 | ||
| 5985 | * files.el (interpreter-mode-alist): Handle nawk. | 5985 | * files.el (interpreter-mode-alist): Handle nawk. |
| 5986 | 5986 | ||
| @@ -6157,8 +6157,8 @@ | |||
| 6157 | dates; fix astro date message. | 6157 | dates; fix astro date message. |
| 6158 | (calendar-mouse-2-date-menu): Add dayname to menu. | 6158 | (calendar-mouse-2-date-menu): Add dayname to menu. |
| 6159 | 6159 | ||
| 6160 | * cal-french.el (french-calendar-special-days-array, | 6160 | * cal-french.el (french-calendar-special-days-array) |
| 6161 | calendar-french-date-string): Fix accents. | 6161 | (calendar-french-date-string): Fix accents. |
| 6162 | (calendar-goto-french-date): Use reverse instead of nreverse; fix | 6162 | (calendar-goto-french-date): Use reverse instead of nreverse; fix |
| 6163 | accents. | 6163 | accents. |
| 6164 | (french-calendar-epoch): New variable. | 6164 | (french-calendar-epoch): New variable. |
| @@ -6168,8 +6168,8 @@ | |||
| 6168 | (dst-adjust-time): Moved and renamed from solar.el. | 6168 | (dst-adjust-time): Moved and renamed from solar.el. |
| 6169 | (dst-in-effect): New function. | 6169 | (dst-in-effect): New function. |
| 6170 | 6170 | ||
| 6171 | * solar.el (solar-equinoxes-solstices, solar-ephemeris-correction, | 6171 | * solar.el (solar-equinoxes-solstices, solar-ephemeris-correction) |
| 6172 | solar-equinoxes/solstices): Rewritten. | 6172 | (solar-equinoxes/solstices): Rewritten. |
| 6173 | (solar-apparent-longitude-of-sun): Deleted. | 6173 | (solar-apparent-longitude-of-sun): Deleted. |
| 6174 | (solar-longitude, solar-date-next-longitude): New functions. | 6174 | (solar-longitude, solar-date-next-longitude): New functions. |
| 6175 | (solar-adj-time-for-dst): Renamed dst-adjust-time and moved to | 6175 | (solar-adj-time-for-dst): Renamed dst-adjust-time and moved to |
| @@ -6178,31 +6178,30 @@ | |||
| 6178 | Take angle mod 360.0. | 6178 | Take angle mod 360.0. |
| 6179 | (solar-tangent-degrees): Change to macro. | 6179 | (solar-tangent-degrees): Change to macro. |
| 6180 | 6180 | ||
| 6181 | * calendar.el (calendar-mod, calendar-absolute-from-astro, | 6181 | * calendar.el (calendar-mod, calendar-absolute-from-astro) |
| 6182 | calendar-astro-from-absolute): New functions. | 6182 | (calendar-astro-from-absolute): New functions. |
| 6183 | (calendar-astro-date-string, calendar-goto-astro-day-number): Use | 6183 | (calendar-astro-date-string, calendar-goto-astro-day-number): |
| 6184 | them. Autoload holiday-chinese-new-year, | 6184 | Use them. Autoload holiday-chinese-new-year, |
| 6185 | calendar-goto-chinese-date, calendar-print-chinese-date, | 6185 | calendar-goto-chinese-date, calendar-print-chinese-date, |
| 6186 | calendar-chinese-date-string, calendar-goto-coptic-date, | 6186 | calendar-chinese-date-string, calendar-goto-coptic-date, |
| 6187 | calendar-print-coptic-date, calendar-coptic-date-string, | 6187 | calendar-print-coptic-date, calendar-coptic-date-string, |
| 6188 | calendar-goto-ethiopic-date, calendar-print-ethiopic-date, | 6188 | calendar-goto-ethiopic-date, calendar-print-ethiopic-date, |
| 6189 | calendar-ethiopic-date-string, calendar-one-frame-setup, and | 6189 | calendar-ethiopic-date-string, calendar-one-frame-setup, and |
| 6190 | calendar-two-frame-setup. (oriental-holidays): New variable for | 6190 | calendar-two-frame-setup. |
| 6191 | Chinese New Year. (calendar-mode-map): Put Chinese and Coptic | 6191 | (oriental-holidays): New variable for Chinese New Year. |
| 6192 | calendar functions on keys. (calendar-setup): Moved here from | 6192 | (calendar-mode-map): Put Chinese and Coptic calendar functions on keys. |
| 6193 | cal-x.el. (diary-file): Mention Chinese, Coptic, and Ethiopic | 6193 | (calendar-setup): Moved here from cal-x.el. |
| 6194 | dates. (calendar-goto-today, calendar-forward-month, | 6194 | (diary-file): Mention Chinese, Coptic, and Ethiopic dates. |
| 6195 | calendar-forward-year, calendar-backward-month, | 6195 | (calendar-goto-today, calendar-forward-month, calendar-forward-year) |
| 6196 | calendar-backward-year, scroll-calendar-left, | 6196 | (calendar-backward-month, calendar-backward-year, scroll-calendar-left) |
| 6197 | scroll-calendar-right, scroll-calendar-left-three-months, | 6197 | (scroll-calendar-right, scroll-calendar-left-three-months) |
| 6198 | scroll-calendar-right-three-months, | 6198 | (scroll-calendar-right-three-months, calendar-cursor-to-nearest-date) |
| 6199 | calendar-cursor-to-nearest-date, calendar-forward-day, | 6199 | (calendar-forward-day, calendar-backward-day, calendar-forward-week) |
| 6200 | calendar-backward-day, calendar-forward-week, | 6200 | (calendar-backward-week, calendar-beginning-of-week) |
| 6201 | calendar-backward-week, calendar-beginning-of-week, | 6201 | (calendar-end-of-week, calendar-beginning-of-month) |
| 6202 | calendar-end-of-week, calendar-beginning-of-month, | 6202 | (calendar-end-of-month, calendar-beginning-of-year) |
| 6203 | calendar-end-of-month, calendar-beginning-of-year, | 6203 | (calendar-end-of-year, calendar-cursor-to-visible-date) |
| 6204 | calendar-end-of-year, calendar-cursor-to-visible-date, | 6204 | (calendar-goto-date, calendar-goto-iso-date): Moved to cal-move.el. |
| 6205 | calendar-goto-date, calendar-goto-iso-date): Moved to cal-move.el. | ||
| 6206 | (calendar-goto-julian-date): Moved to cal-julian. | 6205 | (calendar-goto-julian-date): Moved to cal-julian. |
| 6207 | (calendar-cursor-to-date, generate-calendar-month): Consider the | 6206 | (calendar-cursor-to-date, generate-calendar-month): Consider the |
| 6208 | space next to a one-digit date as being on that date. | 6207 | space next to a one-digit date as being on that date. |
| @@ -6210,8 +6209,8 @@ | |||
| 6210 | * cal-mayan.el (calendar-mayan-tzolkin-from-absolute): Use them. | 6209 | * cal-mayan.el (calendar-mayan-tzolkin-from-absolute): Use them. |
| 6211 | (mayan-adjusted-mod): Moved to calendar.el and renamed calendar-mod. | 6210 | (mayan-adjusted-mod): Moved to calendar.el and renamed calendar-mod. |
| 6212 | 6211 | ||
| 6213 | * lunar.el (lunar-new-moon-time, lunar-new-moon-on-or-after) New | 6212 | * lunar.el (lunar-new-moon-time, lunar-new-moon-on-or-after): |
| 6214 | functions. | 6213 | New functions. |
| 6215 | 6214 | ||
| 6216 | 1995-09-18 Richard Stallman <rms@whiz-bang.gnu.ai.mit.edu> | 6215 | 1995-09-18 Richard Stallman <rms@whiz-bang.gnu.ai.mit.edu> |
| 6217 | 6216 | ||
| @@ -6863,7 +6862,7 @@ | |||
| 6863 | (skeleton-read): Don't quit and remove partial skeleton when empty | 6862 | (skeleton-read): Don't quit and remove partial skeleton when empty |
| 6864 | string entered for outer iterator. Added implicit argument `input'. | 6863 | string entered for outer iterator. Added implicit argument `input'. |
| 6865 | (define-skeleton, skeleton-insert, skeleton-internal-list): Use `x | 6864 | (define-skeleton, skeleton-insert, skeleton-internal-list): Use `x |
| 6866 | rather than backquote's (` x) or own (list 'x) | 6865 | rather than backquote's (` x) or own (list 'x). |
| 6867 | 6866 | ||
| 6868 | * sh-script.el (sh-test): New variable. | 6867 | * sh-script.el (sh-test): New variable. |
| 6869 | (sh-if, sh-until, sh-while): Use it. | 6868 | (sh-if, sh-until, sh-while): Use it. |
| @@ -7011,8 +7010,8 @@ | |||
| 7011 | 7010 | ||
| 7012 | 1995-08-04 Stephen A. Wood <saw@hallc1.cebaf.gov> | 7011 | 1995-08-04 Stephen A. Wood <saw@hallc1.cebaf.gov> |
| 7013 | 7012 | ||
| 7014 | * fortran.el (fortran-auto-fill-mode, fortran-do-auto-fill, | 7013 | * fortran.el (fortran-auto-fill-mode, fortran-do-auto-fill) |
| 7015 | fortran-fill): Invoke auto filling only when past fill-column. | 7014 | (fortran-fill): Invoke auto filling only when past fill-column. |
| 7016 | 7015 | ||
| 7017 | 1995-08-04 Roland McGrath <roland@churchy.gnu.ai.mit.edu> | 7016 | 1995-08-04 Roland McGrath <roland@churchy.gnu.ai.mit.edu> |
| 7018 | 7017 | ||
| @@ -7287,7 +7286,7 @@ | |||
| 7287 | 7286 | ||
| 7288 | 1995-07-25 Ake Stenhoff <etxaksf@aom.ericsson.se> | 7287 | 1995-07-25 Ake Stenhoff <etxaksf@aom.ericsson.se> |
| 7289 | 7288 | ||
| 7290 | * perl-mode.el (perl-imenu-generic-expression) New variable. | 7289 | * perl-mode.el (perl-imenu-generic-expression): New variable. |
| 7291 | (perl-mode): Set imenu-generic-expression. | 7290 | (perl-mode): Set imenu-generic-expression. |
| 7292 | 7291 | ||
| 7293 | * imenu.el (imenu-generic-expression): Call make-variable-buffer-local. | 7292 | * imenu.el (imenu-generic-expression): Call make-variable-buffer-local. |
| @@ -7640,7 +7639,7 @@ | |||
| 7640 | apropos-command in apropos.el. | 7639 | apropos-command in apropos.el. |
| 7641 | 7640 | ||
| 7642 | * autoload.el (make-autoload): Generate `(autoload ...)' form for | 7641 | * autoload.el (make-autoload): Generate `(autoload ...)' form for |
| 7643 | `(define-skeleton ...)' | 7642 | `(define-skeleton ...)'. |
| 7644 | 7643 | ||
| 7645 | * skeleton.el: Partly rewritten and extended. | 7644 | * skeleton.el: Partly rewritten and extended. |
| 7646 | (skeleton-filter, skeleton-untabify, skeleton-further-elements) | 7645 | (skeleton-filter, skeleton-untabify, skeleton-further-elements) |
| @@ -7702,7 +7701,7 @@ | |||
| 7702 | * two-column.el: Symbols renamed to be like mode-line indicator. | 7701 | * two-column.el: Symbols renamed to be like mode-line indicator. |
| 7703 | Supposed to now also work for Lucid. | 7702 | Supposed to now also work for Lucid. |
| 7704 | (2C-mode-map): New name for `tc-mode-map'. Additionally bound to [f2]. | 7703 | (2C-mode-map): New name for `tc-mode-map'. Additionally bound to [f2]. |
| 7705 | (2C-minor-mode-map) New variable. | 7704 | (2C-minor-mode-map): New variable. |
| 7706 | (2C-mode): New name for `tc-other'. | 7705 | (2C-mode): New name for `tc-other'. |
| 7707 | (2C-mode-line-format): New name for `tc-mode-line-format'. | 7706 | (2C-mode-line-format): New name for `tc-mode-line-format'. |
| 7708 | (2C-other-buffer-hook): New variable. | 7707 | (2C-other-buffer-hook): New variable. |
| @@ -7799,7 +7798,7 @@ | |||
| 7799 | 1995-06-29 David M. Smith <D.M.Smith@lancaster.ac.uk> | 7798 | 1995-06-29 David M. Smith <D.M.Smith@lancaster.ac.uk> |
| 7800 | 7799 | ||
| 7801 | * ielm.el (ielm-font-lock-keywords): New variable. | 7800 | * ielm.el (ielm-font-lock-keywords): New variable. |
| 7802 | (inferior-emacs-lisp-mode): Use it for font-lock support | 7801 | (inferior-emacs-lisp-mode): Use it for font-lock support. |
| 7803 | 7802 | ||
| 7804 | 1995-06-29 Bryan O'Sullivan <bos@Eng.Sun.COM> | 7803 | 1995-06-29 Bryan O'Sullivan <bos@Eng.Sun.COM> |
| 7805 | 7804 | ||
| @@ -7944,7 +7943,7 @@ | |||
| 7944 | 7943 | ||
| 7945 | 1995-06-24 Richard Stallman <rms@mole.gnu.ai.mit.edu> | 7944 | 1995-06-24 Richard Stallman <rms@mole.gnu.ai.mit.edu> |
| 7946 | 7945 | ||
| 7947 | * rmail.el (rmail-revert): Use the default revert-buffer-function | 7946 | * rmail.el (rmail-revert): Use the default revert-buffer-function. |
| 7948 | 7947 | ||
| 7949 | * simple.el (newline): Put point at right place if insert gets error. | 7948 | * simple.el (newline): Put point at right place if insert gets error. |
| 7950 | 7949 | ||
diff --git a/lisp/ChangeLog.7 b/lisp/ChangeLog.7 index 10c8a024df0..5bc9c8a8d25 100644 --- a/lisp/ChangeLog.7 +++ b/lisp/ChangeLog.7 | |||
| @@ -1902,7 +1902,7 @@ | |||
| 1902 | (japanese-hankaku-region): Likewise. | 1902 | (japanese-hankaku-region): Likewise. |
| 1903 | (japanese-zenkaku-region): Likewise. | 1903 | (japanese-zenkaku-region): Likewise. |
| 1904 | 1904 | ||
| 1905 | 1998-06-22 WJCarpenter <bill@carpenter.ORG> | 1905 | 1998-06-22 WJ Carpenter <bill@carpenter.ORG> |
| 1906 | 1906 | ||
| 1907 | * mail/feedmail.el: New file. | 1907 | * mail/feedmail.el: New file. |
| 1908 | 1908 | ||
diff --git a/lisp/cedet/ChangeLog b/lisp/cedet/ChangeLog index 7d6f9f570ec..f9a546ec894 100644 --- a/lisp/cedet/ChangeLog +++ b/lisp/cedet/ChangeLog | |||
| @@ -1,3 +1,20 @@ | |||
| 1 | 2012-01-09 Eric Ludlam <zappo@gnu.org> | ||
| 2 | |||
| 3 | * ede.el (ede-project-directories): New option. | ||
| 4 | (ede-directory-safe-p): Check it. | ||
| 5 | (ede-initialize-state-current-buffer, ede, ede-new) | ||
| 6 | (ede-check-project-directory, ede-rescan-toplevel) | ||
| 7 | (ede-load-project-file, ede-parent-project, ede-current-project): | ||
| 8 | (ede-target-parent): Avoid loading in a project unless it is safe, | ||
| 9 | since it may involve malicious code. This security flaw was | ||
| 10 | pointed out by Hiroshi Oota. | ||
| 11 | |||
| 12 | * ede/auto.el (ede-project-autoload): Add safe-p slot. | ||
| 13 | (ede-project-class-files): Projects using Project.ede are unsafe. | ||
| 14 | (ede-auto-load-project): New method. | ||
| 15 | |||
| 16 | * ede/simple.el (ede-project-class-files): Mark as unsafe. | ||
| 17 | |||
| 1 | 2011-12-19 Sam Steingold <sds@gnu.org> | 18 | 2011-12-19 Sam Steingold <sds@gnu.org> |
| 2 | 19 | ||
| 3 | * semantic/edit.el (semantic-edits-incremental-parser): Add the | 20 | * semantic/edit.el (semantic-edits-incremental-parser): Add the |
diff --git a/lisp/cedet/ede.el b/lisp/cedet/ede.el index 5f336df5514..cc8b6f53242 100644 --- a/lisp/cedet/ede.el +++ b/lisp/cedet/ede.el | |||
| @@ -94,6 +94,42 @@ target willing to take the file. 'never means never perform the check." | |||
| 94 | :group 'ede | 94 | :group 'ede |
| 95 | :type 'sexp) ; make this be a list of options some day | 95 | :type 'sexp) ; make this be a list of options some day |
| 96 | 96 | ||
| 97 | (defcustom ede-project-directories nil | ||
| 98 | "Directories in which EDE may search for project files. | ||
| 99 | If the value is t, EDE may search in any directory. | ||
| 100 | |||
| 101 | If the value is a function, EDE calls that function with one | ||
| 102 | argument, the directory name; the function should return t iff | ||
| 103 | EDE should look for project files in the directory. | ||
| 104 | |||
| 105 | Otherwise, the value should be a list of fully-expanded directory | ||
| 106 | names. EDE searches for project files only in those directories. | ||
| 107 | If you invoke the commands \\[ede] or \\[ede-new] on a directory | ||
| 108 | that is not listed, Emacs will offer to add it to the list. | ||
| 109 | |||
| 110 | Any other value disables searching for EDE project files." | ||
| 111 | :group 'ede | ||
| 112 | :type '(choice (const :tag "Any directory" t) | ||
| 113 | (repeat :tag "List of directories" | ||
| 114 | (directory)) | ||
| 115 | (function :tag "Predicate")) | ||
| 116 | :version "23.4" | ||
| 117 | :risky t) | ||
| 118 | |||
| 119 | (defun ede-directory-safe-p (dir) | ||
| 120 | "Return non-nil if DIR is a safe directory to load projects from. | ||
| 121 | Projects that do not load a project definition as Emacs Lisp code | ||
| 122 | are safe, and can be loaded automatically. Other project types, | ||
| 123 | such as those created with Project.ede files, are safe only if | ||
| 124 | specified by `ede-project-directories'." | ||
| 125 | (setq dir (directory-file-name (expand-file-name dir))) | ||
| 126 | ;; Load only if allowed by `ede-project-directories'. | ||
| 127 | (or (eq ede-project-directories t) | ||
| 128 | (and (functionp ede-project-directories) | ||
| 129 | (funcall ede-project-directories dir)) | ||
| 130 | (and (listp ede-project-directories) | ||
| 131 | (member dir ede-project-directories)))) | ||
| 132 | |||
| 97 | 133 | ||
| 98 | ;;; Management variables | 134 | ;;; Management variables |
| 99 | 135 | ||
| @@ -420,24 +456,42 @@ provided `global-ede-mode' is enabled." | |||
| 420 | Sets buffer local variables for EDE." | 456 | Sets buffer local variables for EDE." |
| 421 | (let* ((ROOT nil) | 457 | (let* ((ROOT nil) |
| 422 | (proj (ede-directory-get-open-project default-directory | 458 | (proj (ede-directory-get-open-project default-directory |
| 423 | 'ROOT))) | 459 | 'ROOT)) |
| 460 | (projauto nil)) | ||
| 461 | |||
| 424 | (when (or proj ROOT | 462 | (when (or proj ROOT |
| 425 | (ede-directory-project-p default-directory t)) | 463 | ;; If there is no open project, look up the project |
| 464 | ;; autoloader to see if we should initialize. | ||
| 465 | (setq projauto (ede-directory-project-p default-directory t))) | ||
| 466 | |||
| 467 | (when (and (not proj) projauto) | ||
| 468 | |||
| 469 | ;; No project was loaded, but we have a project description | ||
| 470 | ;; object. This means that we can check if it is a safe | ||
| 471 | ;; project to load before requesting it to be loaded. | ||
| 426 | 472 | ||
| 427 | (when (not proj) | 473 | (when (or (oref projauto safe-p) |
| 428 | ;; @todo - this could be wasteful. | 474 | ;; The project style is not safe, so check if it is |
| 429 | (setq proj (ede-load-project-file default-directory 'ROOT))) | 475 | ;; in `ede-project-directories'. |
| 476 | (let ((top (ede-toplevel-project default-directory))) | ||
| 477 | (ede-directory-safe-p top))) | ||
| 430 | 478 | ||
| 431 | (setq ede-object (ede-buffer-object (current-buffer) | 479 | ;; The project is safe, so load it in. |
| 480 | (setq proj (ede-load-project-file default-directory 'ROOT)))) | ||
| 481 | |||
| 482 | ;; Only initialize EDE state in this buffer if we found a project. | ||
| 483 | (when proj | ||
| 484 | |||
| 485 | (setq ede-object (ede-buffer-object (current-buffer) | ||
| 432 | 'ede-object-project)) | 486 | 'ede-object-project)) |
| 433 | 487 | ||
| 434 | (setq ede-object-root-project | 488 | (setq ede-object-root-project |
| 435 | (or ROOT (ede-project-root ede-object-project))) | 489 | (or ROOT (ede-project-root ede-object-project))) |
| 436 | 490 | ||
| 437 | (if (and (not ede-object) ede-object-project) | 491 | (if (and (not ede-object) ede-object-project) |
| 438 | (ede-auto-add-to-target)) | 492 | (ede-auto-add-to-target)) |
| 439 | 493 | ||
| 440 | (ede-apply-target-options)))) | 494 | (ede-apply-target-options))))) |
| 441 | 495 | ||
| 442 | (defun ede-reset-all-buffers (onoff) | 496 | (defun ede-reset-all-buffers (onoff) |
| 443 | "Reset all the buffers due to change in EDE. | 497 | "Reset all the buffers due to change in EDE. |
| @@ -557,13 +611,73 @@ of objects with the `ede-want-file-p' method." | |||
| 557 | 611 | ||
| 558 | ;;; Interactive method invocations | 612 | ;;; Interactive method invocations |
| 559 | ;; | 613 | ;; |
| 560 | (defun ede (file) | 614 | (defun ede (dir) |
| 561 | "Start up EDE on something. | 615 | "Start up EDE for directory DIR. |
| 562 | Argument FILE is the file or directory to load a project from." | 616 | If DIR has an existing project file, load it. |
| 563 | (interactive "fProject File: ") | 617 | Otherwise, create a new project for DIR." |
| 564 | (if (not (file-exists-p file)) | 618 | (interactive |
| 565 | (ede-new file) | 619 | ;; When choosing a directory to turn on, and we see some directory here, |
| 566 | (ede-load-project-file (file-name-directory file)))) | 620 | ;; provide that as the default. |
| 621 | (let* ((top (ede-toplevel-project default-directory)) | ||
| 622 | (promptdflt (or top default-directory))) | ||
| 623 | (list (read-directory-name "Project directory: " | ||
| 624 | promptdflt promptdflt t)))) | ||
| 625 | (unless (file-directory-p dir) | ||
| 626 | (error "%s is not a directory" dir)) | ||
| 627 | (when (ede-directory-get-open-project dir) | ||
| 628 | (error "%s already has an open project associated with it" dir)) | ||
| 629 | |||
| 630 | ;; Check if the directory has been added to the list of safe | ||
| 631 | ;; directories. It can also add the directory to the safe list if | ||
| 632 | ;; the user chooses. | ||
| 633 | (if (ede-check-project-directory dir) | ||
| 634 | (progn | ||
| 635 | ;; If there is a project in DIR, load it, otherwise do | ||
| 636 | ;; nothing. | ||
| 637 | (ede-load-project-file dir) | ||
| 638 | |||
| 639 | ;; Check if we loaded anything on the previous line. | ||
| 640 | (if (ede-current-project dir) | ||
| 641 | |||
| 642 | ;; We successfully opened an existing project. Some open | ||
| 643 | ;; buffers may also be referring to this project. | ||
| 644 | ;; Resetting all the buffers will get them to also point | ||
| 645 | ;; at this new open project. | ||
| 646 | (ede-reset-all-buffers 1) | ||
| 647 | |||
| 648 | ;; ELSE | ||
| 649 | ;; There was no project, so switch to `ede-new' which is how | ||
| 650 | ;; a user can select a new kind of project to create. | ||
| 651 | (let ((default-directory (expand-file-name dir))) | ||
| 652 | (call-interactively 'ede-new)))) | ||
| 653 | |||
| 654 | ;; If the proposed directory isn't safe, then say so. | ||
| 655 | (error "%s is not an allowed project directory in `ede-project-directories'" | ||
| 656 | dir))) | ||
| 657 | |||
| 658 | (defun ede-check-project-directory (dir) | ||
| 659 | "Check if DIR should be in `ede-project-directories'. | ||
| 660 | If it is not, try asking the user if it should be added; if so, | ||
| 661 | add it and save `ede-project-directories' via Customize. | ||
| 662 | Return nil iff DIR should not be in `ede-project-directories'." | ||
| 663 | (setq dir (directory-file-name (expand-file-name dir))) ; strip trailing / | ||
| 664 | (or (eq ede-project-directories t) | ||
| 665 | (and (functionp ede-project-directories) | ||
| 666 | (funcall ede-project-directories dir)) | ||
| 667 | ;; If `ede-project-directories' is a list, maybe add it. | ||
| 668 | (when (listp ede-project-directories) | ||
| 669 | (or (member dir ede-project-directories) | ||
| 670 | (when (y-or-n-p (format "`%s' is not listed in `ede-project-directories'. | ||
| 671 | Add it to the list of allowed project directories? " | ||
| 672 | dir)) | ||
| 673 | (push dir ede-project-directories) | ||
| 674 | ;; If possible, save `ede-project-directories'. | ||
| 675 | (if (or custom-file user-init-file) | ||
| 676 | (let ((coding-system-for-read nil)) | ||
| 677 | (customize-save-variable | ||
| 678 | 'ede-project-directories | ||
| 679 | ede-project-directories))) | ||
| 680 | t))))) | ||
| 567 | 681 | ||
| 568 | (defun ede-new (type &optional name) | 682 | (defun ede-new (type &optional name) |
| 569 | "Create a new project starting from project type TYPE. | 683 | "Create a new project starting from project type TYPE. |
| @@ -598,6 +712,11 @@ Optional argument NAME is the name to give this project." | |||
| 598 | (error "Cannot create project in non-existent directory %s" default-directory)) | 712 | (error "Cannot create project in non-existent directory %s" default-directory)) |
| 599 | (when (not (file-writable-p default-directory)) | 713 | (when (not (file-writable-p default-directory)) |
| 600 | (error "No write permissions for %s" default-directory)) | 714 | (error "No write permissions for %s" default-directory)) |
| 715 | (unless (ede-check-project-directory default-directory) | ||
| 716 | (error "%s is not an allowed project directory in `ede-project-directories'" | ||
| 717 | default-directory)) | ||
| 718 | ;; Make sure the project directory is loadable in the future. | ||
| 719 | (ede-check-project-directory default-directory) | ||
| 601 | ;; Create the project | 720 | ;; Create the project |
| 602 | (let* ((obj (object-assoc type 'name ede-project-class-files)) | 721 | (let* ((obj (object-assoc type 'name ede-project-class-files)) |
| 603 | (nobj (let ((f (oref obj file)) | 722 | (nobj (let ((f (oref obj file)) |
| @@ -631,6 +750,10 @@ Optional argument NAME is the name to give this project." | |||
| 631 | (ede-add-subproject pp nobj) | 750 | (ede-add-subproject pp nobj) |
| 632 | (ede-commit-project pp))) | 751 | (ede-commit-project pp))) |
| 633 | (ede-commit-project nobj)) | 752 | (ede-commit-project nobj)) |
| 753 | ;; Once the project is created, load it again. This used to happen | ||
| 754 | ;; lazily, but with project loading occurring less often and with | ||
| 755 | ;; security in mind, this is now the safe time to reload. | ||
| 756 | (ede-load-project-file default-directory) | ||
| 634 | ;; Have the menu appear | 757 | ;; Have the menu appear |
| 635 | (setq ede-minor-mode t) | 758 | (setq ede-minor-mode t) |
| 636 | ;; Allert the user | 759 | ;; Allert the user |
| @@ -653,11 +776,16 @@ ARGS are additional arguments to pass to method SYM." | |||
| 653 | (defun ede-rescan-toplevel () | 776 | (defun ede-rescan-toplevel () |
| 654 | "Rescan all project files." | 777 | "Rescan all project files." |
| 655 | (interactive) | 778 | (interactive) |
| 656 | (let ((toppath (ede-toplevel-project default-directory)) | 779 | (if (not (ede-directory-get-open-project default-directory)) |
| 657 | (ede-deep-rescan t)) | 780 | ;; This directory isn't open. Can't rescan. |
| 658 | (project-rescan (ede-load-project-file toppath)) | 781 | (error "Attempt to rescan a project that isn't open") |
| 659 | (ede-reset-all-buffers 1) | 782 | |
| 660 | )) | 783 | ;; Continue |
| 784 | (let ((toppath (ede-toplevel-project default-directory)) | ||
| 785 | (ede-deep-rescan t)) | ||
| 786 | |||
| 787 | (project-rescan (ede-load-project-file toppath)) | ||
| 788 | (ede-reset-all-buffers 1)))) | ||
| 661 | 789 | ||
| 662 | (defun ede-new-target (&rest args) | 790 | (defun ede-new-target (&rest args) |
| 663 | "Create a new target specific to this type of project file. | 791 | "Create a new target specific to this type of project file. |
| @@ -893,7 +1021,7 @@ Optional ROOTRETURN will return the root project for DIR." | |||
| 893 | ;; Do the load | 1021 | ;; Do the load |
| 894 | ;;(message "EDE LOAD : %S" file) | 1022 | ;;(message "EDE LOAD : %S" file) |
| 895 | (let* ((file dir) | 1023 | (let* ((file dir) |
| 896 | (path (expand-file-name (file-name-directory file))) | 1024 | (path (file-name-as-directory (expand-file-name dir))) |
| 897 | (pfc (ede-directory-project-p path)) | 1025 | (pfc (ede-directory-project-p path)) |
| 898 | (toppath nil) | 1026 | (toppath nil) |
| 899 | (o nil)) | 1027 | (o nil)) |
| @@ -922,13 +1050,11 @@ Optional ROOTRETURN will return the root project for DIR." | |||
| 922 | ;; See if it's been loaded before | 1050 | ;; See if it's been loaded before |
| 923 | (setq o (object-assoc (ede-dir-to-projectfile pfc toppath) 'file | 1051 | (setq o (object-assoc (ede-dir-to-projectfile pfc toppath) 'file |
| 924 | ede-projects)) | 1052 | ede-projects)) |
| 925 | (if (not o) | 1053 | |
| 926 | ;; If not, get it now. | 1054 | ;; If not open yet, load it. |
| 927 | (let ((ede-constructing pfc)) | 1055 | (unless o |
| 928 | (setq o (funcall (oref pfc load-type) toppath)) | 1056 | (let ((ede-constructing pfc)) |
| 929 | (when (not o) | 1057 | (setq o (ede-auto-load-project pfc toppath)))) |
| 930 | (error "Project type error: :load-type failed to create a project")) | ||
| 931 | (ede-add-project-to-global-list o))) | ||
| 932 | 1058 | ||
| 933 | ;; Return the found root project. | 1059 | ;; Return the found root project. |
| 934 | (when rootreturn (set rootreturn o)) | 1060 | (when rootreturn (set rootreturn o)) |
| @@ -982,13 +1108,7 @@ Optional argument OBJ is an object to find the parent of." | |||
| 982 | (and root | 1108 | (and root |
| 983 | (ede-find-subproject-for-directory root updir)) | 1109 | (ede-find-subproject-for-directory root updir)) |
| 984 | ;; Try the all structure based search. | 1110 | ;; Try the all structure based search. |
| 985 | (ede-directory-get-open-project updir) | 1111 | (ede-directory-get-open-project updir)))))))) |
| 986 | ;; Load up the project file as a last resort. | ||
| 987 | ;; Last resort since it uses file-truename, and other | ||
| 988 | ;; slow features. | ||
| 989 | (and (ede-directory-project-p updir) | ||
| 990 | (ede-load-project-file | ||
| 991 | (file-name-as-directory updir)))))))))) | ||
| 992 | 1112 | ||
| 993 | (defun ede-current-project (&optional dir) | 1113 | (defun ede-current-project (&optional dir) |
| 994 | "Return the current project file. | 1114 | "Return the current project file. |
| @@ -1002,11 +1122,7 @@ If optional DIR is provided, get the project for DIR instead." | |||
| 1002 | ;; No current project. | 1122 | ;; No current project. |
| 1003 | (when (not ans) | 1123 | (when (not ans) |
| 1004 | (let* ((ldir (or dir default-directory))) | 1124 | (let* ((ldir (or dir default-directory))) |
| 1005 | (setq ans (ede-directory-get-open-project ldir)) | 1125 | (setq ans (ede-directory-get-open-project ldir)))) |
| 1006 | (or ans | ||
| 1007 | ;; No open project, if this dir pass project-p, then load. | ||
| 1008 | (when (ede-directory-project-p ldir) | ||
| 1009 | (setq ans (ede-load-project-file ldir)))))) | ||
| 1010 | ;; Return what we found. | 1126 | ;; Return what we found. |
| 1011 | ans)) | 1127 | ans)) |
| 1012 | 1128 | ||
| @@ -1061,12 +1177,13 @@ If TARGET belongs to a subproject, return that project file." | |||
| 1061 | "Return the project which is the parent of TARGET. | 1177 | "Return the project which is the parent of TARGET. |
| 1062 | It is recommended you track the project a different way as this function | 1178 | It is recommended you track the project a different way as this function |
| 1063 | could become slow in time." | 1179 | could become slow in time." |
| 1064 | ;; @todo - use ede-object-project as a starting point. | 1180 | (or ede-object-project |
| 1065 | (let ((ans nil) (projs ede-projects)) | 1181 | ;; If not cached, derive it from the current directory of the target. |
| 1066 | (while (and (not ans) projs) | 1182 | (let ((ans nil) (projs ede-projects)) |
| 1067 | (setq ans (ede-target-in-project-p (car projs) target) | 1183 | (while (and (not ans) projs) |
| 1068 | projs (cdr projs))) | 1184 | (setq ans (ede-target-in-project-p (car projs) target) |
| 1069 | ans)) | 1185 | projs (cdr projs))) |
| 1186 | ans))) | ||
| 1070 | 1187 | ||
| 1071 | (defmethod ede-find-target ((proj ede-project) buffer) | 1188 | (defmethod ede-find-target ((proj ede-project) buffer) |
| 1072 | "Fetch the target in PROJ belonging to BUFFER or nil." | 1189 | "Fetch the target in PROJ belonging to BUFFER or nil." |
diff --git a/lisp/cedet/ede/auto.el b/lisp/cedet/ede/auto.el index 7ff291d3675..b458cc246f0 100644 --- a/lisp/cedet/ede/auto.el +++ b/lisp/cedet/ede/auto.el | |||
| @@ -58,6 +58,13 @@ associated with a single object class, based on the initializers used.") | |||
| 58 | :initform t | 58 | :initform t |
| 59 | :documentation | 59 | :documentation |
| 60 | "Non-nil if this is an option when a user creates a project.") | 60 | "Non-nil if this is an option when a user creates a project.") |
| 61 | (safe-p :initarg :safe-p | ||
| 62 | :initform t | ||
| 63 | :documentation | ||
| 64 | "Non-nil if the project load files are \"safe\". | ||
| 65 | An unsafe project is one that loads project variables via Emacs | ||
| 66 | Lisp code. A safe project is one that loads project variables by | ||
| 67 | scanning files without loading Lisp code from them.") | ||
| 61 | ) | 68 | ) |
| 62 | "Class representing minimal knowledge set to run preliminary EDE functions. | 69 | "Class representing minimal knowledge set to run preliminary EDE functions. |
| 63 | When more advanced functionality is needed from a project type, that projects | 70 | When more advanced functionality is needed from a project type, that projects |
| @@ -69,13 +76,15 @@ type is required and the load function used.") | |||
| 69 | :name "Make" :file 'ede/proj | 76 | :name "Make" :file 'ede/proj |
| 70 | :proj-file "Project.ede" | 77 | :proj-file "Project.ede" |
| 71 | :load-type 'ede-proj-load | 78 | :load-type 'ede-proj-load |
| 72 | :class-sym 'ede-proj-project) | 79 | :class-sym 'ede-proj-project |
| 80 | :safe-p nil) | ||
| 73 | (ede-project-autoload "edeproject-automake" | 81 | (ede-project-autoload "edeproject-automake" |
| 74 | :name "Automake" :file 'ede/proj | 82 | :name "Automake" :file 'ede/proj |
| 75 | :proj-file "Project.ede" | 83 | :proj-file "Project.ede" |
| 76 | :initializers '(:makefile-type Makefile.am) | 84 | :initializers '(:makefile-type Makefile.am) |
| 77 | :load-type 'ede-proj-load | 85 | :load-type 'ede-proj-load |
| 78 | :class-sym 'ede-proj-project) | 86 | :class-sym 'ede-proj-project |
| 87 | :safe-p nil) | ||
| 79 | (ede-project-autoload "automake" | 88 | (ede-project-autoload "automake" |
| 80 | :name "automake" :file 'ede/project-am | 89 | :name "automake" :file 'ede/project-am |
| 81 | :proj-file "Makefile.am" | 90 | :proj-file "Makefile.am" |
| @@ -84,6 +93,8 @@ type is required and the load function used.") | |||
| 84 | :new-p nil)) | 93 | :new-p nil)) |
| 85 | "List of vectors defining how to determine what type of projects exist.") | 94 | "List of vectors defining how to determine what type of projects exist.") |
| 86 | 95 | ||
| 96 | (put 'ede-project-class-files 'risky-local-variable t) | ||
| 97 | |||
| 87 | ;;; EDE project-autoload methods | 98 | ;;; EDE project-autoload methods |
| 88 | ;; | 99 | ;; |
| 89 | (defmethod ede-project-root ((this ede-project-autoload)) | 100 | (defmethod ede-project-root ((this ede-project-autoload)) |
| @@ -122,6 +133,19 @@ Return nil if the project file does not exist." | |||
| 122 | (when (and f (file-exists-p f)) | 133 | (when (and f (file-exists-p f)) |
| 123 | f))) | 134 | f))) |
| 124 | 135 | ||
| 136 | (defmethod ede-auto-load-project ((this ede-project-autoload) dir) | ||
| 137 | "Load in the project associated with THIS project autoload description. | ||
| 138 | THIS project description should be valid for DIR, where the project will | ||
| 139 | be loaded." | ||
| 140 | ;; Last line of defense: don't load unsafe projects. | ||
| 141 | (when (not (or (oref this :safe-p) | ||
| 142 | (ede-directory-safe-p dir))) | ||
| 143 | (error "Attempt to load an unsafe project (bug elsewhere in EDE)")) | ||
| 144 | ;; Things are good - so load the project. | ||
| 145 | (let ((o (funcall (oref this load-type) dir))) | ||
| 146 | (when (not o) | ||
| 147 | (error "Project type error: :load-type failed to create a project")) | ||
| 148 | (ede-add-project-to-global-list o))) | ||
| 125 | 149 | ||
| 126 | (provide 'ede/auto) | 150 | (provide 'ede/auto) |
| 127 | 151 | ||
diff --git a/lisp/cedet/ede/simple.el b/lisp/cedet/ede/simple.el index 028c126e9e4..5cfa750c63f 100644 --- a/lisp/cedet/ede/simple.el +++ b/lisp/cedet/ede/simple.el | |||
| @@ -50,7 +50,8 @@ | |||
| 50 | :name "Simple" :file 'ede/simple | 50 | :name "Simple" :file 'ede/simple |
| 51 | :proj-file 'ede-simple-projectfile-for-dir | 51 | :proj-file 'ede-simple-projectfile-for-dir |
| 52 | :load-type 'ede-simple-load | 52 | :load-type 'ede-simple-load |
| 53 | :class-sym 'ede-simple-project) | 53 | :class-sym 'ede-simple-project |
| 54 | :safe-p nil) | ||
| 54 | t) | 55 | t) |
| 55 | 56 | ||
| 56 | (defcustom ede-simple-save-directory "~/.ede" | 57 | (defcustom ede-simple-save-directory "~/.ede" |
diff --git a/lisp/cedet/semantic/decorate/include.el b/lisp/cedet/semantic/decorate/include.el index 7fd4214016d..50b50398e16 100644 --- a/lisp/cedet/semantic/decorate/include.el +++ b/lisp/cedet/semantic/decorate/include.el | |||
| @@ -45,7 +45,7 @@ | |||
| 45 | (defvar semantic-decoratiton-mouse-3 (if (featurep 'xemacs) [ button3 ] [ mouse-3 ]) | 45 | (defvar semantic-decoratiton-mouse-3 (if (featurep 'xemacs) [ button3 ] [ mouse-3 ]) |
| 46 | "The keybinding lisp object to use for binding the right mouse button.") | 46 | "The keybinding lisp object to use for binding the right mouse button.") |
| 47 | 47 | ||
| 48 | ;;; Includes that that are in a happy state! | 48 | ;;; Includes that are in a happy state! |
| 49 | ;; | 49 | ;; |
| 50 | (defface semantic-decoration-on-includes | 50 | (defface semantic-decoration-on-includes |
| 51 | nil | 51 | nil |
diff --git a/lisp/cedet/semantic/grammar.el b/lisp/cedet/semantic/grammar.el index 6d7865a29df..ac28702787d 100644 --- a/lisp/cedet/semantic/grammar.el +++ b/lisp/cedet/semantic/grammar.el | |||
| @@ -451,7 +451,7 @@ Also load the specified macro libraries." | |||
| 451 | ',(semantic-grammar-keyword-properties keywords)))) | 451 | ',(semantic-grammar-keyword-properties keywords)))) |
| 452 | 452 | ||
| 453 | (define-overloadable-function semantic-grammar-keywordtable-builder () | 453 | (define-overloadable-function semantic-grammar-keywordtable-builder () |
| 454 | "Return the keyword table table value.") | 454 | "Return the keyword table value.") |
| 455 | 455 | ||
| 456 | ;;; Token table builder | 456 | ;;; Token table builder |
| 457 | ;; | 457 | ;; |
diff --git a/lisp/cedet/srecode/ctxt.el b/lisp/cedet/srecode/ctxt.el index b864316deb5..45f0d2b3afb 100644 --- a/lisp/cedet/srecode/ctxt.el +++ b/lisp/cedet/srecode/ctxt.el | |||
| @@ -41,7 +41,7 @@ | |||
| 41 | (define-overload srecode-calculate-context () | 41 | (define-overload srecode-calculate-context () |
| 42 | "Calculate the context at the current point. | 42 | "Calculate the context at the current point. |
| 43 | The returned context is a list, with the top-most context first. | 43 | The returned context is a list, with the top-most context first. |
| 44 | Each returned context is a string that that would show up in a `context' | 44 | Each returned context is a string that would show up in a `context' |
| 45 | statement in an `.srt' file. | 45 | statement in an `.srt' file. |
| 46 | 46 | ||
| 47 | Some useful context values used by the provided srecode templates are: | 47 | Some useful context values used by the provided srecode templates are: |
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index 31d8afc4fca..2d05be312eb 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el | |||
| @@ -576,8 +576,11 @@ file name added at the end of COMMAND (separated by a space). | |||
| 576 | 576 | ||
| 577 | `*' and `?' when not surrounded by whitespace have no special | 577 | `*' and `?' when not surrounded by whitespace have no special |
| 578 | significance for `dired-do-shell-command', and are passed through | 578 | significance for `dired-do-shell-command', and are passed through |
| 579 | normally to the shell, but you must confirm first. To pass `*' by | 579 | normally to the shell, but you must confirm first. |
| 580 | itself to the shell as a wildcard, type `*\"\"'. | 580 | |
| 581 | If you want to use `*' as a shell wildcard with whitespace around | ||
| 582 | it, write `*\"\"' in place of just `*'. This is equivalent to just | ||
| 583 | `*' in the shell, but avoids Dired's special handling. | ||
| 581 | 584 | ||
| 582 | If COMMAND produces output, it goes to a separate buffer. | 585 | If COMMAND produces output, it goes to a separate buffer. |
| 583 | 586 | ||
| @@ -605,16 +608,16 @@ can be produced by `dired-get-marked-files', for example." | |||
| 605 | current-prefix-arg | 608 | current-prefix-arg |
| 606 | files))) | 609 | files))) |
| 607 | (let* ((on-each (not (string-match dired-star-subst-regexp command))) | 610 | (let* ((on-each (not (string-match dired-star-subst-regexp command))) |
| 608 | (subst (not (string-match dired-quark-subst-regexp command))) | 611 | (no-subst (not (string-match dired-quark-subst-regexp command))) |
| 609 | (star (not (string-match "\\*" command))) | 612 | (star (string-match "\\*" command)) |
| 610 | (qmark (not (string-match "\\?" command)))) | 613 | (qmark (string-match "\\?" command))) |
| 611 | ;; Get confirmation for wildcards that may have been meant | 614 | ;; Get confirmation for wildcards that may have been meant |
| 612 | ;; to control substitution of a file name or the file name list. | 615 | ;; to control substitution of a file name or the file name list. |
| 613 | (if (cond ((not (or on-each subst)) | 616 | (if (cond ((not (or on-each no-subst)) |
| 614 | (error "You can not combine `*' and `?' substitution marks")) | 617 | (error "You can not combine `*' and `?' substitution marks")) |
| 615 | ((and star (not on-each)) | 618 | ((and star on-each) |
| 616 | (y-or-n-p "Confirm--do you mean to use `*' as a wildcard? ")) | 619 | (y-or-n-p "Confirm--do you mean to use `*' as a wildcard? ")) |
| 617 | ((and qmark (not subst)) | 620 | ((and qmark no-subst) |
| 618 | (y-or-n-p "Confirm--do you mean to use `?' as a wildcard? ")) | 621 | (y-or-n-p "Confirm--do you mean to use `?' as a wildcard? ")) |
| 619 | (t)) | 622 | (t)) |
| 620 | (if on-each | 623 | (if on-each |
diff --git a/lisp/dired.el b/lisp/dired.el index da105bc2a5f..f1a778ad05a 100644 --- a/lisp/dired.el +++ b/lisp/dired.el | |||
| @@ -1111,6 +1111,11 @@ BEG..END is the line where the file info is located." | |||
| 1111 | 1111 | ||
| 1112 | (defvar ls-lisp-use-insert-directory-program) | 1112 | (defvar ls-lisp-use-insert-directory-program) |
| 1113 | 1113 | ||
| 1114 | (defun dired-switches-escape-p (switches) | ||
| 1115 | "Return non-nil if the string SWITCHES contains -b or --escape." | ||
| 1116 | ;; Do not match things like "--block-size" that happen to contain "b". | ||
| 1117 | (string-match "\\(\\`\\| \\)-[[:alnum:]]*b\\|--escape\\>" switches)) | ||
| 1118 | |||
| 1114 | (defun dired-insert-directory (dir switches &optional file-list wildcard hdr) | 1119 | (defun dired-insert-directory (dir switches &optional file-list wildcard hdr) |
| 1115 | "Insert a directory listing of DIR, Dired style. | 1120 | "Insert a directory listing of DIR, Dired style. |
| 1116 | Use SWITCHES to make the listings. | 1121 | Use SWITCHES to make the listings. |
| @@ -1152,7 +1157,7 @@ see `dired-use-ls-dired' for more details.") | |||
| 1152 | (dired-align-file beg (point)))) | 1157 | (dired-align-file beg (point)))) |
| 1153 | (insert-directory dir switches wildcard (not wildcard))) | 1158 | (insert-directory dir switches wildcard (not wildcard))) |
| 1154 | ;; Quote certain characters, unless ls quoted them for us. | 1159 | ;; Quote certain characters, unless ls quoted them for us. |
| 1155 | (if (not (string-match "b" dired-actual-switches)) | 1160 | (if (not (dired-switches-escape-p dired-actual-switches)) |
| 1156 | (save-excursion | 1161 | (save-excursion |
| 1157 | (setq end (point-marker)) | 1162 | (setq end (point-marker)) |
| 1158 | (goto-char opoint) | 1163 | (goto-char opoint) |
| @@ -2099,7 +2104,18 @@ Otherwise, an error occurs in these cases." | |||
| 2099 | ;; with quotation marks in their names. | 2104 | ;; with quotation marks in their names. |
| 2100 | (while (string-match "\\(?:[^\\]\\|\\`\\)\\(\"\\)" file) | 2105 | (while (string-match "\\(?:[^\\]\\|\\`\\)\\(\"\\)" file) |
| 2101 | (setq file (replace-match "\\\"" nil t file 1))) | 2106 | (setq file (replace-match "\\\"" nil t file 1))) |
| 2102 | 2107 | ;; Unescape any spaces escaped by ls -b (bug#10469). | |
| 2108 | ;; Other -b quotes, eg \t, \n, work transparently. | ||
| 2109 | (if (dired-switches-escape-p dired-actual-switches) | ||
| 2110 | (let ((start 0) | ||
| 2111 | (rep "") | ||
| 2112 | (shift -1)) | ||
| 2113 | (if (eq localp 'verbatim) | ||
| 2114 | (setq rep "\\\\" | ||
| 2115 | shift +1)) | ||
| 2116 | (while (string-match "\\(\\\\\\) " file start) | ||
| 2117 | (setq file (replace-match rep nil t file 1) | ||
| 2118 | start (+ shift (match-end 0)))))) | ||
| 2103 | (when (eq system-type 'windows-nt) | 2119 | (when (eq system-type 'windows-nt) |
| 2104 | (save-match-data | 2120 | (save-match-data |
| 2105 | (let ((start 0)) | 2121 | (let ((start 0)) |
| @@ -2107,6 +2123,7 @@ Otherwise, an error occurs in these cases." | |||
| 2107 | (aset file (match-beginning 0) ?/) | 2123 | (aset file (match-beginning 0) ?/) |
| 2108 | (setq start (match-end 0)))))) | 2124 | (setq start (match-end 0)))))) |
| 2109 | 2125 | ||
| 2126 | ;; Hence we don't need to worry about converting `\\' back to `\'. | ||
| 2110 | (setq file (read (concat "\"" file "\""))) | 2127 | (setq file (read (concat "\"" file "\""))) |
| 2111 | ;; The above `read' will return a unibyte string if FILE | 2128 | ;; The above `read' will return a unibyte string if FILE |
| 2112 | ;; contains eight-bit-control/graphic characters. | 2129 | ;; contains eight-bit-control/graphic characters. |
| @@ -3667,7 +3684,7 @@ Ask means pop up a menu for the user to select one of copy, move or link." | |||
| 3667 | ;;;;;; dired-run-shell-command dired-do-shell-command dired-do-async-shell-command | 3684 | ;;;;;; dired-run-shell-command dired-do-shell-command dired-do-async-shell-command |
| 3668 | ;;;;;; dired-clean-directory dired-do-print dired-do-touch dired-do-chown | 3685 | ;;;;;; dired-clean-directory dired-do-print dired-do-touch dired-do-chown |
| 3669 | ;;;;;; dired-do-chgrp dired-do-chmod dired-compare-directories dired-backup-diff | 3686 | ;;;;;; dired-do-chgrp dired-do-chmod dired-compare-directories dired-backup-diff |
| 3670 | ;;;;;; dired-diff) "dired-aux" "dired-aux.el" "cdcae8f5f4ea69fa7b0231f640c13163") | 3687 | ;;;;;; dired-diff) "dired-aux" "dired-aux.el" "e77c506a0dd793230c5856a67e408fc6") |
| 3671 | ;;; Generated autoloads from dired-aux.el | 3688 | ;;; Generated autoloads from dired-aux.el |
| 3672 | 3689 | ||
| 3673 | (autoload 'dired-diff "dired-aux" "\ | 3690 | (autoload 'dired-diff "dired-aux" "\ |
| @@ -3784,8 +3801,11 @@ file name added at the end of COMMAND (separated by a space). | |||
| 3784 | 3801 | ||
| 3785 | `*' and `?' when not surrounded by whitespace have no special | 3802 | `*' and `?' when not surrounded by whitespace have no special |
| 3786 | significance for `dired-do-shell-command', and are passed through | 3803 | significance for `dired-do-shell-command', and are passed through |
| 3787 | normally to the shell, but you must confirm first. To pass `*' by | 3804 | normally to the shell, but you must confirm first. |
| 3788 | itself to the shell as a wildcard, type `*\"\"'. | 3805 | |
| 3806 | If you want to use `*' as a shell wildcard with whitespace around | ||
| 3807 | it, write `*\"\"' in place of just `*'. This is equivalent to just | ||
| 3808 | `*' in the shell, but avoids Dired's special handling. | ||
| 3789 | 3809 | ||
| 3790 | If COMMAND produces output, it goes to a separate buffer. | 3810 | If COMMAND produces output, it goes to a separate buffer. |
| 3791 | 3811 | ||
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 0a845265a37..78ac29d89df 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el | |||
| @@ -1574,7 +1574,7 @@ If FOR-EFFECT is non-nil, the return value is assumed to be of no importance." | |||
| 1574 | ;; stack-set-X+1 stack-ref-X --> dup stack-set-X+2 | 1574 | ;; stack-set-X+1 stack-ref-X --> dup stack-set-X+2 |
| 1575 | ;; but this is a very minor gain, since dup is stack-ref-0, | 1575 | ;; but this is a very minor gain, since dup is stack-ref-0, |
| 1576 | ;; i.e. it's only better if X>5, and even then it comes | 1576 | ;; i.e. it's only better if X>5, and even then it comes |
| 1577 | ;; at the cost cost of an extra stack slot. Let's not bother. | 1577 | ;; at the cost of an extra stack slot. Let's not bother. |
| 1578 | ((and (eq 'byte-varref (car lap2)) | 1578 | ((and (eq 'byte-varref (car lap2)) |
| 1579 | (eq (cdr lap1) (cdr lap2)) | 1579 | (eq (cdr lap1) (cdr lap2)) |
| 1580 | (memq (car lap1) '(byte-varset byte-varbind))) | 1580 | (memq (car lap1) '(byte-varset byte-varbind))) |
diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el index fb14382bfd2..7a9a33fc2cc 100644 --- a/lisp/emacs-lisp/checkdoc.el +++ b/lisp/emacs-lisp/checkdoc.el | |||
| @@ -1943,7 +1943,7 @@ from the comment." | |||
| 1943 | A code fragment is identified by an open parenthesis followed by a | 1943 | A code fragment is identified by an open parenthesis followed by a |
| 1944 | symbol which is a valid function or a word in all CAPS, or a parenthesis | 1944 | symbol which is a valid function or a word in all CAPS, or a parenthesis |
| 1945 | that is quoted with the ' character. Only the region from START to LIMIT | 1945 | that is quoted with the ' character. Only the region from START to LIMIT |
| 1946 | is is allowed while searching for the bounding parenthesis." | 1946 | is allowed while searching for the bounding parenthesis." |
| 1947 | (save-match-data | 1947 | (save-match-data |
| 1948 | (save-restriction | 1948 | (save-restriction |
| 1949 | (narrow-to-region start limit) | 1949 | (narrow-to-region start limit) |
diff --git a/lisp/emacs-lock.el b/lisp/emacs-lock.el index 252b167c446..743b828326c 100644 --- a/lisp/emacs-lock.el +++ b/lisp/emacs-lock.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; emacs-lock.el --- protect buffers against killing or exiting -*- lexical-binding: t -*- | 1 | ;;; emacs-lock.el --- protect buffers against killing or exiting -*- lexical-binding: t -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2011-2012 Free Software Foundation, Inc | 3 | ;; Copyright (C) 2011-2012 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Juanma Barranquero <lekktu@gmail.com> | 5 | ;; Author: Juanma Barranquero <lekktu@gmail.com> |
| 6 | ;; Inspired by emacs-lock.el by Tom Wurgler <twurgler@goodyear.com> | 6 | ;; Inspired by emacs-lock.el by Tom Wurgler <twurgler@goodyear.com> |
diff --git a/lisp/emulation/keypad.el b/lisp/emulation/keypad.el index a49ba33f158..4e2c3b1e886 100644 --- a/lisp/emulation/keypad.el +++ b/lisp/emulation/keypad.el | |||
| @@ -27,7 +27,7 @@ | |||
| 27 | ;; | 27 | ;; |
| 28 | ;; With the following setup, the keypad can be used for numeric data | 28 | ;; With the following setup, the keypad can be used for numeric data |
| 29 | ;; entry when NumLock is off, and to give numeric prefix arguments to | 29 | ;; entry when NumLock is off, and to give numeric prefix arguments to |
| 30 | ;; emacs commands, when NumLock on on. | 30 | ;; emacs commands, when NumLock is on. |
| 31 | ;; | 31 | ;; |
| 32 | ;; keypad-setup => Plain Numeric Keypad | 32 | ;; keypad-setup => Plain Numeric Keypad |
| 33 | ;; keypad-numlock-setup => Prefix numeric args | 33 | ;; keypad-numlock-setup => Prefix numeric args |
diff --git a/lisp/epg.el b/lisp/epg.el index 3505e183c1f..6529afb2d3c 100644 --- a/lisp/epg.el +++ b/lisp/epg.el | |||
| @@ -1951,7 +1951,8 @@ The returned file name (created by appending some random characters at the end | |||
| 1951 | of PREFIX, and expanding against `temporary-file-directory' if necessary), | 1951 | of PREFIX, and expanding against `temporary-file-directory' if necessary), |
| 1952 | is guaranteed to point to a newly created empty file. | 1952 | is guaranteed to point to a newly created empty file. |
| 1953 | You can then use `write-region' to write new data into the file." | 1953 | You can then use `write-region' to write new data into the file." |
| 1954 | (let (tempdir tempfile) | 1954 | (let ((orig-modes (default-file-modes)) |
| 1955 | tempdir tempfile) | ||
| 1955 | (setq prefix (expand-file-name prefix | 1956 | (setq prefix (expand-file-name prefix |
| 1956 | (if (featurep 'xemacs) | 1957 | (if (featurep 'xemacs) |
| 1957 | (temp-directory) | 1958 | (temp-directory) |
| @@ -1959,6 +1960,7 @@ You can then use `write-region' to write new data into the file." | |||
| 1959 | (unwind-protect | 1960 | (unwind-protect |
| 1960 | (let (file) | 1961 | (let (file) |
| 1961 | ;; First, create a temporary directory. | 1962 | ;; First, create a temporary directory. |
| 1963 | (set-default-file-modes #o700) | ||
| 1962 | (while (condition-case () | 1964 | (while (condition-case () |
| 1963 | (progn | 1965 | (progn |
| 1964 | (setq tempdir (make-temp-name | 1966 | (setq tempdir (make-temp-name |
| @@ -1969,14 +1971,12 @@ You can then use `write-region' to write new data into the file." | |||
| 1969 | (make-directory tempdir)) | 1971 | (make-directory tempdir)) |
| 1970 | ;; let's try again. | 1972 | ;; let's try again. |
| 1971 | (file-already-exists t))) | 1973 | (file-already-exists t))) |
| 1972 | (set-file-modes tempdir 448) | ||
| 1973 | ;; Second, create a temporary file in the tempdir. | 1974 | ;; Second, create a temporary file in the tempdir. |
| 1974 | ;; There *is* a race condition between `make-temp-name' | 1975 | ;; There *is* a race condition between `make-temp-name' |
| 1975 | ;; and `write-region', but we don't care it since we are | 1976 | ;; and `write-region', but we don't care it since we are |
| 1976 | ;; in a private directory now. | 1977 | ;; in a private directory now. |
| 1977 | (setq tempfile (make-temp-name (concat tempdir "/EMU"))) | 1978 | (setq tempfile (make-temp-name (concat tempdir "/EMU"))) |
| 1978 | (write-region "" nil tempfile nil 'silent) | 1979 | (write-region "" nil tempfile nil 'silent) |
| 1979 | (set-file-modes tempfile 384) | ||
| 1980 | ;; Finally, make a hard-link from the tempfile. | 1980 | ;; Finally, make a hard-link from the tempfile. |
| 1981 | (while (condition-case () | 1981 | (while (condition-case () |
| 1982 | (progn | 1982 | (progn |
| @@ -1986,6 +1986,7 @@ You can then use `write-region' to write new data into the file." | |||
| 1986 | ;; let's try again. | 1986 | ;; let's try again. |
| 1987 | (file-already-exists t))) | 1987 | (file-already-exists t))) |
| 1988 | file) | 1988 | file) |
| 1989 | (set-default-file-modes orig-modes) | ||
| 1989 | ;; Cleanup the tempfile. | 1990 | ;; Cleanup the tempfile. |
| 1990 | (and tempfile | 1991 | (and tempfile |
| 1991 | (file-exists-p tempfile) | 1992 | (file-exists-p tempfile) |
diff --git a/lisp/erc/ChangeLog.03 b/lisp/erc/ChangeLog.03 index 87f30c8965a..f9b4506b784 100644 --- a/lisp/erc/ChangeLog.03 +++ b/lisp/erc/ChangeLog.03 | |||
| @@ -200,7 +200,7 @@ | |||
| 200 | 200 | ||
| 201 | * erc-autoaway.el(erc-mode): | 201 | * erc-autoaway.el(erc-mode): |
| 202 | Reset idletime on connect. Fixes an annoying bug which | 202 | Reset idletime on connect. Fixes an annoying bug which |
| 203 | flooded the server with aways on reconnect. | 203 | flooded the server with always on reconnect. |
| 204 | (erc-autoway-reset-idletime): Accept optional args so we can hook it | 204 | (erc-autoway-reset-idletime): Accept optional args so we can hook it |
| 205 | onto erc-server-001-hook. | 205 | onto erc-server-001-hook. |
| 206 | 206 | ||
diff --git a/lisp/erc/ChangeLog.06 b/lisp/erc/ChangeLog.06 index 5465a624bb0..5dd77d5dfd8 100644 --- a/lisp/erc/ChangeLog.06 +++ b/lisp/erc/ChangeLog.06 | |||
| @@ -18,7 +18,7 @@ | |||
| 18 | (erc-nickserv-identify-on-connect) | 18 | (erc-nickserv-identify-on-connect) |
| 19 | (erc-nickserv-identify-on-nick-change): Handle 'both method. | 19 | (erc-nickserv-identify-on-nick-change): Handle 'both method. |
| 20 | 20 | ||
| 21 | 2006-12-28 Leo <sdl.web@gmail.com> (tiny change) | 21 | 2006-12-28 Leo Liu <sdl.web@gmail.com> (tiny change) |
| 22 | 22 | ||
| 23 | * erc.el (erc-iswitchb): Wrap body in unwind-protect so that | 23 | * erc.el (erc-iswitchb): Wrap body in unwind-protect so that |
| 24 | hitting C-g does not leave iswitchb-mode on. | 24 | hitting C-g does not leave iswitchb-mode on. |
| @@ -51,7 +51,7 @@ | |||
| 51 | * erc.el (erc-open): Restore old point correctly, or at least get | 51 | * erc.el (erc-open): Restore old point correctly, or at least get |
| 52 | closer to doing so than before. | 52 | closer to doing so than before. |
| 53 | 53 | ||
| 54 | 2006-12-13 Leo <sdl.web@gmail.com> (tiny change) | 54 | 2006-12-13 Leo Liu <sdl.web@gmail.com> (tiny change) |
| 55 | 55 | ||
| 56 | * erc.el (erc-iswitchb): Temporarily enable iswitchb mode if it | 56 | * erc.el (erc-iswitchb): Temporarily enable iswitchb mode if it |
| 57 | isn't active already, instead of leaving it on. | 57 | isn't active already, instead of leaving it on. |
diff --git a/lisp/erc/erc-page.el b/lisp/erc/erc-page.el index 14c46d08aec..e6b670c91ba 100644 --- a/lisp/erc/erc-page.el +++ b/lisp/erc/erc-page.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;; erc-page.el - CTCP PAGE support for ERC | 1 | ;; erc-page.el - CTCP PAGE support for ERC |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2002, 2004, 2006-2012 Free Software Foundation | 3 | ;; Copyright (C) 2002, 2004, 2006-2012 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; This file is part of GNU Emacs. | 5 | ;; This file is part of GNU Emacs. |
| 6 | 6 | ||
diff --git a/lisp/find-dired.el b/lisp/find-dired.el index 3fda2153e09..9c1c8eedffd 100644 --- a/lisp/find-dired.el +++ b/lisp/find-dired.el | |||
| @@ -63,10 +63,20 @@ than the latter." | |||
| 63 | (cons | 63 | (cons |
| 64 | (format "-exec ls -ld {} %s" find-exec-terminator) | 64 | (format "-exec ls -ld {} %s" find-exec-terminator) |
| 65 | "-ld")) | 65 | "-ld")) |
| 66 | "Description of the option to `find' to produce an `ls -l'-type listing. | 66 | "A pair of options to produce and parse an `ls -l'-type list from `find'. |
| 67 | This is a cons of two strings (FIND-OPTION . LS-SWITCHES). FIND-OPTION | 67 | This is a cons of two strings (FIND-OPTION . LS-SWITCHES). |
| 68 | gives the option (or options) to `find' that produce the desired output. | 68 | FIND-OPTION is the option (or options) passed to `find' to produce |
| 69 | LS-SWITCHES is a list of `ls' switches to tell dired how to parse the output." | 69 | a file listing in the desired format. LS-SWITCHES is a set of |
| 70 | `ls' switches that tell dired how to parse the output of `find'. | ||
| 71 | |||
| 72 | The two options must be set to compatible values. | ||
| 73 | For example, to use human-readable file sizes with GNU ls: | ||
| 74 | \(\"-exec ls -ldh {} +\" . \"-ldh\") | ||
| 75 | |||
| 76 | To use GNU find's inbuilt \"-ls\" option to list files: | ||
| 77 | \(\"-ls\" . \"-dilsb\") | ||
| 78 | since GNU find's output has the same format as using GNU ls with | ||
| 79 | the options \"-dilsb\"." | ||
| 70 | :version "24.1" ; add tests for -ls and -exec + support | 80 | :version "24.1" ; add tests for -ls and -exec + support |
| 71 | :type '(cons (string :tag "Find Option") | 81 | :type '(cons (string :tag "Find Option") |
| 72 | (string :tag "Ls Switches")) | 82 | (string :tag "Ls Switches")) |
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 630184a60c5..c7358779818 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog | |||
| @@ -1,3 +1,11 @@ | |||
| 1 | 2012-01-10 Teodor Zlatanov <tzz@lifelogs.com> | ||
| 2 | |||
| 3 | * nntp.el (nntp-send-authinfo): Query `auth-source-search' with the | ||
| 4 | logical server name in addition to the actual machine address. | ||
| 5 | |||
| 6 | * auth-source.el (auth-source-user-and-password): Add convenience | ||
| 7 | wrapper to search by just host and optionally user. | ||
| 8 | |||
| 1 | 2012-01-07 Lars Magne Ingebrigtsen <larsi@gnus.org> | 9 | 2012-01-07 Lars Magne Ingebrigtsen <larsi@gnus.org> |
| 2 | 10 | ||
| 3 | * shr.el (shr-visit-file): Move point to the beginning of the buffer | 11 | * shr.el (shr-visit-file): Move point to the beginning of the buffer |
| @@ -93,7 +101,7 @@ | |||
| 93 | 101 | ||
| 94 | * gnus.el (gnus-parameters): Note precedence. | 102 | * gnus.el (gnus-parameters): Note precedence. |
| 95 | 103 | ||
| 96 | 2012-01-04 Leo <sdl.web@gmail.com> | 104 | 2012-01-04 Leo Liu <sdl.web@gmail.com> |
| 97 | 105 | ||
| 98 | * nndraft.el (nndraft-update-unread-articles): Don't move point around | 106 | * nndraft.el (nndraft-update-unread-articles): Don't move point around |
| 99 | in the group buffer. | 107 | in the group buffer. |
| @@ -125,7 +133,7 @@ | |||
| 125 | * nnimap.el (nnimap-finish-retrieve-group-infos): Check the connection | 133 | * nnimap.el (nnimap-finish-retrieve-group-infos): Check the connection |
| 126 | status in the correct buffer. | 134 | status in the correct buffer. |
| 127 | 135 | ||
| 128 | 2012-01-03 Leo <sdl.web@gmail.com> | 136 | 2012-01-03 Leo Liu <sdl.web@gmail.com> |
| 129 | 137 | ||
| 130 | * gnus-topic.el (gnus-topic-goto-next-group): Don't move point around | 138 | * gnus-topic.el (gnus-topic-goto-next-group): Don't move point around |
| 131 | when opening topics (bug#10407). | 139 | when opening topics (bug#10407). |
| @@ -11234,7 +11242,7 @@ | |||
| 11234 | * gnus-art.el (gnus-button-mid-or-mail-heuristic-alist): Add "alpine". | 11242 | * gnus-art.el (gnus-button-mid-or-mail-heuristic-alist): Add "alpine". |
| 11235 | (gnus-treat-body-boundary): Don't test window-system. | 11243 | (gnus-treat-body-boundary): Don't test window-system. |
| 11236 | 11244 | ||
| 11237 | 2007-10-28 Leo <sdl.web@gmail.com> (tiny change) | 11245 | 2007-10-28 Leo Liu <sdl.web@gmail.com> (tiny change) |
| 11238 | 11246 | ||
| 11239 | * gnus-art.el (gnus-treat-emphasize): Don't test window-system. | 11247 | * gnus-art.el (gnus-treat-emphasize): Don't test window-system. |
| 11240 | 11248 | ||
diff --git a/lisp/gnus/auth-source.el b/lisp/gnus/auth-source.el index acbc541512f..5e946372d04 100644 --- a/lisp/gnus/auth-source.el +++ b/lisp/gnus/auth-source.el | |||
| @@ -1781,6 +1781,26 @@ MODE can be \"login\" or \"password\"." | |||
| 1781 | 1781 | ||
| 1782 | found)) | 1782 | found)) |
| 1783 | 1783 | ||
| 1784 | (defun auth-source-user-and-password (host &optional user) | ||
| 1785 | (let* ((auth-info (car | ||
| 1786 | (if user | ||
| 1787 | (auth-source-search | ||
| 1788 | :host host | ||
| 1789 | :user "yourusername" | ||
| 1790 | :max 1 | ||
| 1791 | :require '(:user :secret) | ||
| 1792 | :create nil) | ||
| 1793 | (auth-source-search | ||
| 1794 | :host host | ||
| 1795 | :max 1 | ||
| 1796 | :require '(:user :secret) | ||
| 1797 | :create nil)))) | ||
| 1798 | (user (plist-get auth-info :user)) | ||
| 1799 | (password (plist-get auth-info :secret))) | ||
| 1800 | (when (functionp password) | ||
| 1801 | (setq password (funcall password))) | ||
| 1802 | (list user password auth-info))) | ||
| 1803 | |||
| 1784 | (provide 'auth-source) | 1804 | (provide 'auth-source) |
| 1785 | 1805 | ||
| 1786 | ;;; auth-source.el ends here | 1806 | ;;; auth-source.el ends here |
diff --git a/lisp/gnus/nntp.el b/lisp/gnus/nntp.el index db9d9e252be..c740f614356 100644 --- a/lisp/gnus/nntp.el +++ b/lisp/gnus/nntp.el | |||
| @@ -1249,8 +1249,8 @@ If SEND-IF-FORCE, only send authinfo to the server if the | |||
| 1249 | (alist (netrc-machine list nntp-address "nntp")) | 1249 | (alist (netrc-machine list nntp-address "nntp")) |
| 1250 | (auth-info | 1250 | (auth-info |
| 1251 | (nth 0 (auth-source-search :max 1 | 1251 | (nth 0 (auth-source-search :max 1 |
| 1252 | ;; TODO: allow the virtual server name too | 1252 | :host (list nntp-address |
| 1253 | :host nntp-address | 1253 | (nnoo-current-server 'nntp)) |
| 1254 | :port '("119" "nntp")))) | 1254 | :port '("119" "nntp")))) |
| 1255 | (auth-user (plist-get auth-info :user)) | 1255 | (auth-user (plist-get auth-info :user)) |
| 1256 | (auth-force (plist-get auth-info :force)) | 1256 | (auth-force (plist-get auth-info :force)) |
diff --git a/lisp/htmlfontify.el b/lisp/htmlfontify.el index ac9d2c5ba04..4c811d885d7 100644 --- a/lisp/htmlfontify.el +++ b/lisp/htmlfontify.el | |||
| @@ -861,7 +861,7 @@ which *doesn't* clash with CLASS is returned.\n | |||
| 861 | \(A specification with a class of t is considered to match any class you | 861 | \(A specification with a class of t is considered to match any class you |
| 862 | specify - this matches Emacs' behavior when deciding on which face attributes | 862 | specify - this matches Emacs' behavior when deciding on which face attributes |
| 863 | to use, to the best of my understanding).\n | 863 | to use, to the best of my understanding).\n |
| 864 | If CLASS is nil, then you just get get whatever `face-attr-construct' returns, | 864 | If CLASS is nil, then you just get whatever `face-attr-construct' returns, |
| 865 | ie the current specification in effect for FACE.\n | 865 | ie the current specification in effect for FACE.\n |
| 866 | *NOTE*: This function forces any face that is not 'default and which has | 866 | *NOTE*: This function forces any face that is not 'default and which has |
| 867 | no :inherit property to inherit from 'default (this is because 'default | 867 | no :inherit property to inherit from 'default (this is because 'default |
diff --git a/lisp/info.el b/lisp/info.el index 94d29518995..a8cb141114c 100644 --- a/lisp/info.el +++ b/lisp/info.el | |||
| @@ -2251,7 +2251,7 @@ Table of contents is created from the tree structure of menus." | |||
| 2251 | (match-string-no-properties 1))) | 2251 | (match-string-no-properties 1))) |
| 2252 | (section "Top") | 2252 | (section "Top") |
| 2253 | menu-items) | 2253 | menu-items) |
| 2254 | (when (string-match "(" upnode) (setq upnode nil)) | 2254 | (when (and upnode (string-match "(" upnode)) (setq upnode nil)) |
| 2255 | (when (and (not (Info-index-node nodename file)) | 2255 | (when (and (not (Info-index-node nodename file)) |
| 2256 | (re-search-forward "^\\* Menu:" bound t)) | 2256 | (re-search-forward "^\\* Menu:" bound t)) |
| 2257 | (forward-line 1) | 2257 | (forward-line 1) |
diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el index 5012d8af650..6af9c2478fc 100644 --- a/lisp/mail/mail-extr.el +++ b/lisp/mail/mail-extr.el | |||
| @@ -394,7 +394,7 @@ by translating things like \"foo!bar!baz@host\" into \"baz@bar.UUCP\"." | |||
| 394 | ;; Matches ham radio call signs. | 394 | ;; Matches ham radio call signs. |
| 395 | ;; Help from: Mat Maessen N2NJZ <maessm@rpi.edu>, Mark Feit | 395 | ;; Help from: Mat Maessen N2NJZ <maessm@rpi.edu>, Mark Feit |
| 396 | ;; <mark@era.com>, Michael Covington <mcovingt@ai.uga.edu>. | 396 | ;; <mark@era.com>, Michael Covington <mcovingt@ai.uga.edu>. |
| 397 | ;; Examples: DX504 DX515 K5MRU K8DHK KA9WGN KA9WGN KD3FU KD6EUI KD6HBW | 397 | ;; Examples: DX504 DX515 K5MRU K8DHK KA9WGN KD3FU KD6EUI KD6HBW |
| 398 | ;; KE9TV KF0NV N1API N3FU N3GZE N3IGS N4KCC N7IKQ N9HHU W4YHF W6ANK WA2SUH | 398 | ;; KE9TV KF0NV N1API N3FU N3GZE N3IGS N4KCC N7IKQ N9HHU W4YHF W6ANK WA2SUH |
| 399 | ;; WB7VZI N2NJZ NR3G KJ4KK AB4UM AL7NI KH6OH WN3KBT N4TMI W1A N0NZO | 399 | ;; WB7VZI N2NJZ NR3G KJ4KK AB4UM AL7NI KH6OH WN3KBT N4TMI W1A N0NZO |
| 400 | (defconst mail-extr-ham-call-sign-pattern | 400 | (defconst mail-extr-ham-call-sign-pattern |
diff --git a/lisp/mail/mailclient.el b/lisp/mail/mailclient.el index 2e18c7ce23a..056bfebb1e5 100644 --- a/lisp/mail/mailclient.el +++ b/lisp/mail/mailclient.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; mailclient.el --- mail sending via system's mail client. | 1 | ;;; mailclient.el --- mail sending via system's mail client. |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2005-2012 Free Software Foundation | 3 | ;; Copyright (C) 2005-2012 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: David Reitter <david.reitter@gmail.com> | 5 | ;; Author: David Reitter <david.reitter@gmail.com> |
| 6 | ;; Keywords: mail | 6 | ;; Keywords: mail |
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index f0068e81811..18d928e4b90 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el | |||
| @@ -1,4 +1,4 @@ | |||
| 1 | ;;; sendmail.el --- mail sending commands for Emacs. -*- byte-compile-dynamic: t -*- | 1 | ;;; sendmail.el --- mail sending commands for Emacs |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1985-1986, 1992-1996, 1998, 2000-2012 | 3 | ;; Copyright (C) 1985-1986, 1992-1996, 1998, 2000-2012 |
| 4 | ;; Free Software Foundation, Inc. | 4 | ;; Free Software Foundation, Inc. |
| @@ -730,6 +730,7 @@ Turning on Mail mode runs the normal hooks `text-mode-hook' and | |||
| 730 | (set (make-local-variable 'comment-start-skip) | 730 | (set (make-local-variable 'comment-start-skip) |
| 731 | (concat "^" (regexp-quote mail-yank-prefix) "[ \t]*"))) | 731 | (concat "^" (regexp-quote mail-yank-prefix) "[ \t]*"))) |
| 732 | (make-local-variable 'adaptive-fill-regexp) | 732 | (make-local-variable 'adaptive-fill-regexp) |
| 733 | ;; Also update the paragraph-separate entry if you change this. | ||
| 733 | (setq adaptive-fill-regexp | 734 | (setq adaptive-fill-regexp |
| 734 | (concat "[ \t]*[-[:alnum:]]+>+[ \t]*\\|" | 735 | (concat "[ \t]*[-[:alnum:]]+>+[ \t]*\\|" |
| 735 | adaptive-fill-regexp)) | 736 | adaptive-fill-regexp)) |
| @@ -743,11 +744,14 @@ Turning on Mail mode runs the normal hooks `text-mode-hook' and | |||
| 743 | ;; lines that delimit forwarded messages. | 744 | ;; lines that delimit forwarded messages. |
| 744 | ;; Lines containing just >= 3 dashes, perhaps after whitespace, | 745 | ;; Lines containing just >= 3 dashes, perhaps after whitespace, |
| 745 | ;; are also sometimes used and should be separators. | 746 | ;; are also sometimes used and should be separators. |
| 746 | (setq paragraph-separate (concat (regexp-quote mail-header-separator) | 747 | (setq paragraph-separate |
| 747 | "$\\|\t*\\([-|#;>* ]\\|(?[0-9]+[.)]\\)+$" | 748 | (concat (regexp-quote mail-header-separator) |
| 748 | "\\|[ \t]*[[:alnum:]]*>+[ \t]*$\\|[ \t]*$\\|" | 749 | ;; This is based on adaptive-fill-regexp (presumably |
| 749 | "--\\( \\|-+\\)$\\|" | 750 | ;; the idea is to allow navigation etc of cited paragraphs). |
| 750 | page-delimiter))) | 751 | "$\\|\t*[-–!|#%;>*·•‣⁃◦ ]+$" |
| 752 | "\\|[ \t]*[-[:alnum:]]*>+[ \t]*$\\|[ \t]*$\\|" | ||
| 753 | "--\\( \\|-+\\)$\\|" | ||
| 754 | page-delimiter))) | ||
| 751 | 755 | ||
| 752 | 756 | ||
| 753 | (defun mail-header-end () | 757 | (defun mail-header-end () |
| @@ -1986,4 +1990,9 @@ you can move to one of them and type C-c C-c to recover that one." | |||
| 1986 | 1990 | ||
| 1987 | (provide 'sendmail) | 1991 | (provide 'sendmail) |
| 1988 | 1992 | ||
| 1993 | ;; Local Variables: | ||
| 1994 | ;; byte-compile-dynamic: t | ||
| 1995 | ;; coding: utf-8 | ||
| 1996 | ;; End: | ||
| 1997 | |||
| 1989 | ;;; sendmail.el ends here | 1998 | ;;; sendmail.el ends here |
diff --git a/lisp/mail/unrmail.el b/lisp/mail/unrmail.el index 929f97746b0..af16bbf8c73 100644 --- a/lisp/mail/unrmail.el +++ b/lisp/mail/unrmail.el | |||
| @@ -66,11 +66,11 @@ For example, invoke `emacs -batch -f batch-unrmail RMAIL'." | |||
| 66 | from to) | 66 | from to) |
| 67 | (goto-char (point-min)) | 67 | (goto-char (point-min)) |
| 68 | (search-forward "\n\^_" nil t) ; Skip BABYL header. | 68 | (search-forward "\n\^_" nil t) ; Skip BABYL header. |
| 69 | (if (= (setq from (point)) (point-max)) | 69 | (setq from (point)) |
| 70 | (error "The input file contains no messages")) | ||
| 71 | (goto-char (point-max)) | 70 | (goto-char (point-max)) |
| 72 | (search-backward "\n\^_" from 'mv) | 71 | (search-backward "\n\^_" from 'mv) |
| 73 | (setq to (point)) | 72 | (if (= from (setq to (point))) |
| 73 | (error "The input file contains no messages")) | ||
| 74 | (unless (and coding-system | 74 | (unless (and coding-system |
| 75 | (coding-system-p coding-system)) | 75 | (coding-system-p coding-system)) |
| 76 | (setq coding-system | 76 | (setq coding-system |
diff --git a/lisp/mh-e/ChangeLog.1 b/lisp/mh-e/ChangeLog.1 index 8b4981940ae..94ac7a2f3b7 100644 --- a/lisp/mh-e/ChangeLog.1 +++ b/lisp/mh-e/ChangeLog.1 | |||
| @@ -2898,7 +2898,7 @@ | |||
| 2898 | 2898 | ||
| 2899 | 2003-06-01 Peter S Galbraith <psg@debian.org> | 2899 | 2003-06-01 Peter S Galbraith <psg@debian.org> |
| 2900 | 2900 | ||
| 2901 | * mh-comp.el (mh-modify-header-field): Bug fix. Calling with with | 2901 | * mh-comp.el (mh-modify-header-field): Bug fix. Calling with |
| 2902 | a value that was already inserted causes it to get inserted a | 2902 | a value that was already inserted causes it to get inserted a |
| 2903 | second time. I have wrapped the value around \b word delimiters. | 2903 | second time. I have wrapped the value around \b word delimiters. |
| 2904 | Hope there are no side effects for other code. | 2904 | Hope there are no side effects for other code. |
| @@ -9952,7 +9952,7 @@ | |||
| 9952 | * mh-mime.el (compilation): Code rearrangement to remove compiler | 9952 | * mh-mime.el (compilation): Code rearrangement to remove compiler |
| 9953 | warnings. | 9953 | warnings. |
| 9954 | (mh-defun-compat): New macro to define to useful functions that | 9954 | (mh-defun-compat): New macro to define to useful functions that |
| 9955 | aren't present present in old Gnus. | 9955 | aren't present in old Gnus. |
| 9956 | (mh-destroy-postponed-handles): New function to cleanup handles | 9956 | (mh-destroy-postponed-handles): New function to cleanup handles |
| 9957 | that are associated with external viewers. | 9957 | that are associated with external viewers. |
| 9958 | (mh-handle-set-external-undisplayer): New function to replace | 9958 | (mh-handle-set-external-undisplayer): New function to replace |
diff --git a/lisp/net/network-stream.el b/lisp/net/network-stream.el index 7860eb96846..8730e875ea0 100644 --- a/lisp/net/network-stream.el +++ b/lisp/net/network-stream.el | |||
| @@ -299,7 +299,8 @@ functionality. | |||
| 299 | ;; support, or no gnutls-cli installed. | 299 | ;; support, or no gnutls-cli installed. |
| 300 | (eq resulting-type 'plain)) | 300 | (eq resulting-type 'plain)) |
| 301 | (setq error | 301 | (setq error |
| 302 | (if starttls-available | 302 | (if (or (null starttls-command) |
| 303 | starttls-available) | ||
| 303 | "Server does not support TLS" | 304 | "Server does not support TLS" |
| 304 | (concat "Emacs does not support TLS, and no external `" | 305 | (concat "Emacs does not support TLS, and no external `" |
| 305 | (if starttls-use-gnutls | 306 | (if starttls-use-gnutls |
diff --git a/lisp/obsolete/old-emacs-lock.el b/lisp/obsolete/old-emacs-lock.el index e586d34b499..9bb084d7db4 100644 --- a/lisp/obsolete/old-emacs-lock.el +++ b/lisp/obsolete/old-emacs-lock.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; emacs-lock.el --- prevents you from exiting Emacs if a buffer is locked | 1 | ;;; emacs-lock.el --- prevents you from exiting Emacs if a buffer is locked |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1994, 1997, 2001-2012 Free Software Foundation, Inc | 3 | ;; Copyright (C) 1994, 1997, 2001-2012 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Tom Wurgler <twurgler@goodyear.com> | 5 | ;; Author: Tom Wurgler <twurgler@goodyear.com> |
| 6 | ;; Created: 12/8/94 | 6 | ;; Created: 12/8/94 |
diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog index 983df8a6bfc..7bee98d8110 100644 --- a/lisp/org/ChangeLog +++ b/lisp/org/ChangeLog | |||
| @@ -1177,7 +1177,7 @@ | |||
| 1177 | * org.el: Remap `outline-promote' and `outline-demote' keys to | 1177 | * org.el: Remap `outline-promote' and `outline-demote' keys to |
| 1178 | `org-promote-subtree' and `org-demote-subtree'. | 1178 | `org-promote-subtree' and `org-demote-subtree'. |
| 1179 | 1179 | ||
| 1180 | 2012-01-03 Leo <sdl.web@gmail.com> | 1180 | 2012-01-03 Leo Liu <sdl.web@gmail.com> |
| 1181 | 1181 | ||
| 1182 | * org-agenda.el (org-agenda-do-context-action): Check if marker is | 1182 | * org-agenda.el (org-agenda-do-context-action): Check if marker is |
| 1183 | valid before use. | 1183 | valid before use. |
| @@ -1749,7 +1749,7 @@ | |||
| 1749 | 1749 | ||
| 1750 | 2012-01-03 Suvayu Ali <fatkasuvayu+linux@gmail.com> (tiny change) | 1750 | 2012-01-03 Suvayu Ali <fatkasuvayu+linux@gmail.com> (tiny change) |
| 1751 | 1751 | ||
| 1752 | * org-inlinetask.el (org-inlinetask): New customisable face | 1752 | * org-inlinetask.el (org-inlinetask): New customizable face |
| 1753 | for inlinetasks | 1753 | for inlinetasks |
| 1754 | 1754 | ||
| 1755 | 2012-01-03 Bastien Guerry <bzg@gnu.org> | 1755 | 2012-01-03 Bastien Guerry <bzg@gnu.org> |
| @@ -2964,7 +2964,7 @@ | |||
| 2964 | 2964 | ||
| 2965 | * org-latex.el (org-export-latex-header-defs-re): Delete. | 2965 | * org-latex.el (org-export-latex-header-defs-re): Delete. |
| 2966 | 2966 | ||
| 2967 | 2011-07-28 Bastien <bzg@gnu.org> | 2967 | 2011-07-28 Bastien Guerry <bzg@gnu.org> |
| 2968 | 2968 | ||
| 2969 | * org.el (org-last-set-property): New variable. | 2969 | * org.el (org-last-set-property): New variable. |
| 2970 | (org-read-property-name): Use the new variable: the prompt | 2970 | (org-read-property-name): Use the new variable: the prompt |
| @@ -6786,7 +6786,7 @@ | |||
| 6786 | * ob.el (org-babel-params-from-properties): Test for | 6786 | * ob.el (org-babel-params-from-properties): Test for |
| 6787 | "header-arg-name" and ":header-arg-name", in that order. | 6787 | "header-arg-name" and ":header-arg-name", in that order. |
| 6788 | 6788 | ||
| 6789 | 2011-07-28 Bastien <bastien.guerry@wikimedia.fr> | 6789 | 2011-07-28 Bastien Guerry <bzg@gnu.org> |
| 6790 | 6790 | ||
| 6791 | * org-capture.el (org-capture-templates): Document "currentfile" | 6791 | * org-capture.el (org-capture-templates): Document "currentfile" |
| 6792 | for capture template. | 6792 | for capture template. |
| @@ -19573,7 +19573,7 @@ | |||
| 19573 | against all agenda files. | 19573 | against all agenda files. |
| 19574 | 19574 | ||
| 19575 | 2008-10-12 Carsten Dominik <dominik@science.uva.nl> | 19575 | 2008-10-12 Carsten Dominik <dominik@science.uva.nl> |
| 19576 | Bastien Guerry <bzg@altern.org> | 19576 | Bastien Guerry <bzg@altern.org> |
| 19577 | 19577 | ||
| 19578 | * org-list.el: New file, aggregating list functions from org.el | 19578 | * org-list.el: New file, aggregating list functions from org.el |
| 19579 | and org-export-latex.el. | 19579 | and org-export-latex.el. |
diff --git a/lisp/org/ob-fortran.el b/lisp/org/ob-fortran.el index b6305c42769..46d2269a1d7 100644 --- a/lisp/org/ob-fortran.el +++ b/lisp/org/ob-fortran.el | |||
| @@ -110,7 +110,7 @@ it's header arguments." | |||
| 110 | "Wrap body in a \"program ... end program\" block if none exists." | 110 | "Wrap body in a \"program ... end program\" block if none exists." |
| 111 | (if (string-match "^[ \t]*program[ \t]*.*" (capitalize body)) | 111 | (if (string-match "^[ \t]*program[ \t]*.*" (capitalize body)) |
| 112 | (let ((vars (mapcar #'cdr (org-babel-get-header params :var)))) | 112 | (let ((vars (mapcar #'cdr (org-babel-get-header params :var)))) |
| 113 | (if vars (error "cannot use :vars if 'program' statment is present")) | 113 | (if vars (error "cannot use :vars if 'program' statement is present")) |
| 114 | body) | 114 | body) |
| 115 | (format "program main\n%s\nend program main\n" body))) | 115 | (format "program main\n%s\nend program main\n" body))) |
| 116 | 116 | ||
| @@ -127,7 +127,7 @@ support for sessions" | |||
| 127 | ;; helper functions | 127 | ;; helper functions |
| 128 | 128 | ||
| 129 | (defun org-babel-fortran-var-to-fortran (pair) | 129 | (defun org-babel-fortran-var-to-fortran (pair) |
| 130 | "fortranonvert an elisp val into a string of fortran code specifying a var | 130 | "Convert an elisp val into a string of fortran code specifying a var |
| 131 | of the same value." | 131 | of the same value." |
| 132 | ;; TODO list support | 132 | ;; TODO list support |
| 133 | (let ((var (car pair)) | 133 | (let ((var (car pair)) |
diff --git a/lisp/org/ob-latex.el b/lisp/org/ob-latex.el index 0db71992826..23e8d91fecd 100644 --- a/lisp/org/ob-latex.el +++ b/lisp/org/ob-latex.el | |||
| @@ -132,7 +132,7 @@ This function is called by `org-babel-execute-src-block'." | |||
| 132 | (when (file-exists-p transient-pdf-file) | 132 | (when (file-exists-p transient-pdf-file) |
| 133 | (delete-file transient-pdf-file)))))) | 133 | (delete-file transient-pdf-file)))))) |
| 134 | ((string-match "\\.\\([^\\.]+\\)$" out-file) | 134 | ((string-match "\\.\\([^\\.]+\\)$" out-file) |
| 135 | (error "can not create %s files, please specify a .png or .pdf file or try the :imagemagick header arguement" | 135 | (error "can not create %s files, please specify a .png or .pdf file or try the :imagemagick header argument" |
| 136 | (match-string 1 out-file)))) | 136 | (match-string 1 out-file)))) |
| 137 | nil) ;; signal that output has already been written to file | 137 | nil) ;; signal that output has already been written to file |
| 138 | body)) | 138 | body)) |
diff --git a/lisp/org/ob-ledger.el b/lisp/org/ob-ledger.el index e9c142712eb..a454d51e391 100644 --- a/lisp/org/ob-ledger.el +++ b/lisp/org/ob-ledger.el | |||
| @@ -29,7 +29,7 @@ | |||
| 29 | ;; | 29 | ;; |
| 30 | ;; 1) there is no such thing as a "session" in ledger | 30 | ;; 1) there is no such thing as a "session" in ledger |
| 31 | ;; | 31 | ;; |
| 32 | ;; 2) we are generally only going to return output from the leger program | 32 | ;; 2) we are generally only going to return output from the ledger program |
| 33 | ;; | 33 | ;; |
| 34 | ;; 3) we are adding the "cmdline" header argument | 34 | ;; 3) we are adding the "cmdline" header argument |
| 35 | ;; | 35 | ;; |
diff --git a/lisp/org/org-agenda.el b/lisp/org/org-agenda.el index d444aff4f2b..bdf68819089 100644 --- a/lisp/org/org-agenda.el +++ b/lisp/org/org-agenda.el | |||
| @@ -28,7 +28,7 @@ | |||
| 28 | ;; | 28 | ;; |
| 29 | ;; The functions `org-batch-agenda', `org-batch-agenda-csv', and | 29 | ;; The functions `org-batch-agenda', `org-batch-agenda-csv', and |
| 30 | ;; `org-batch-store-agenda-views' are implemented as macros to provide | 30 | ;; `org-batch-store-agenda-views' are implemented as macros to provide |
| 31 | ;; a conveniant way for extracting agenda information from the command | 31 | ;; a convenient way for extracting agenda information from the command |
| 32 | ;; line. The Lisp does not evaluate parameters of a macro call; thus | 32 | ;; line. The Lisp does not evaluate parameters of a macro call; thus |
| 33 | ;; it is not necessary to quote the parameters passed to one of those | 33 | ;; it is not necessary to quote the parameters passed to one of those |
| 34 | ;; functions. E.g. you can write: | 34 | ;; functions. E.g. you can write: |
| @@ -1088,7 +1088,7 @@ and timeline buffers." | |||
| 1088 | (const :tag "Sunday" 0))) | 1088 | (const :tag "Sunday" 0))) |
| 1089 | 1089 | ||
| 1090 | (defcustom org-agenda-move-date-from-past-immediately-to-today t | 1090 | (defcustom org-agenda-move-date-from-past-immediately-to-today t |
| 1091 | "Non-nil means jumpt to today when moving a past date forward in time. | 1091 | "Non-nil means jump to today when moving a past date forward in time. |
| 1092 | When using S-right in the agenda to move a a date forward, and the date | 1092 | When using S-right in the agenda to move a a date forward, and the date |
| 1093 | stamp currently points to the past, the first key press will move it | 1093 | stamp currently points to the past, the first key press will move it |
| 1094 | to today. WHen nil, just move one day forward even if the date stays | 1094 | to today. WHen nil, just move one day forward even if the date stays |
| @@ -1660,7 +1660,7 @@ Where CATEGORY-REGEXP is a regexp matching the categories where | |||
| 1660 | the icon should be displayed. | 1660 | the icon should be displayed. |
| 1661 | FILE-OR-DATA either a file path or a string containing image data. | 1661 | FILE-OR-DATA either a file path or a string containing image data. |
| 1662 | 1662 | ||
| 1663 | The other fields can be omited safely if not needed: | 1663 | The other fields can be omitted safely if not needed: |
| 1664 | TYPE indicates the image type. | 1664 | TYPE indicates the image type. |
| 1665 | DATA-P is a boolean indicating whether the FILE-OR-DATA string is | 1665 | DATA-P is a boolean indicating whether the FILE-OR-DATA string is |
| 1666 | image data. | 1666 | image data. |
| @@ -3064,7 +3064,7 @@ define a filter for one of the individual blocks. You need to set it in | |||
| 3064 | the global options and expect it to be applied to the entire view.") | 3064 | the global options and expect it to be applied to the entire view.") |
| 3065 | 3065 | ||
| 3066 | (defvar org-agenda-category-filter-preset nil | 3066 | (defvar org-agenda-category-filter-preset nil |
| 3067 | "A preset of the categeory filter used for secondary agenda filtering. | 3067 | "A preset of the category filter used for secondary agenda filtering. |
| 3068 | This must be a list of strings, each string must be a single category | 3068 | This must be a list of strings, each string must be a single category |
| 3069 | preceded by \"+\" or \"-\". | 3069 | preceded by \"+\" or \"-\". |
| 3070 | This variable should not be set directly, but agenda custom commands can | 3070 | This variable should not be set directly, but agenda custom commands can |
| @@ -4922,7 +4922,7 @@ DAYNAME is a number between 0 (Sunday) and 6 (Saturday). | |||
| 4922 | SKIP-WEEKS is any number of ISO weeks in the block period for which the | 4922 | SKIP-WEEKS is any number of ISO weeks in the block period for which the |
| 4923 | item should be skipped. If any of the SKIP-WEEKS arguments is the symbol | 4923 | item should be skipped. If any of the SKIP-WEEKS arguments is the symbol |
| 4924 | `holidays', then any date that is known by the Emacs calendar to be a | 4924 | `holidays', then any date that is known by the Emacs calendar to be a |
| 4925 | holidy will also be skipped." | 4925 | holiday will also be skipped." |
| 4926 | (let* ((date1 (calendar-absolute-from-gregorian (list m1 d1 y1))) | 4926 | (let* ((date1 (calendar-absolute-from-gregorian (list m1 d1 y1))) |
| 4927 | (date2 (calendar-absolute-from-gregorian (list m2 d2 y2))) | 4927 | (date2 (calendar-absolute-from-gregorian (list m2 d2 y2))) |
| 4928 | (d (calendar-absolute-from-gregorian date))) | 4928 | (d (calendar-absolute-from-gregorian date))) |
| @@ -8507,7 +8507,7 @@ tag and (if present) the flagging note." | |||
| 8507 | (org-agenda-remove-flag hdmarker) | 8507 | (org-agenda-remove-flag hdmarker) |
| 8508 | (let ((win (get-buffer-window "*Flagging Note*"))) | 8508 | (let ((win (get-buffer-window "*Flagging Note*"))) |
| 8509 | (and win (delete-window win))) | 8509 | (and win (delete-window win))) |
| 8510 | (message "Entry unflaged")) | 8510 | (message "Entry unflagged")) |
| 8511 | (setq note (org-entry-get hdmarker "THEFLAGGINGNOTE")) | 8511 | (setq note (org-entry-get hdmarker "THEFLAGGINGNOTE")) |
| 8512 | (unless note | 8512 | (unless note |
| 8513 | (error "No flagging note")) | 8513 | (error "No flagging note")) |
| @@ -8530,7 +8530,7 @@ tag and (if present) the flagging note." | |||
| 8530 | (org-entry-delete nil "THEFLAGGINGNOTE") | 8530 | (org-entry-delete nil "THEFLAGGINGNOTE") |
| 8531 | (setq newhead (org-get-heading))) | 8531 | (setq newhead (org-get-heading))) |
| 8532 | (org-agenda-change-all-lines newhead marker) | 8532 | (org-agenda-change-all-lines newhead marker) |
| 8533 | (message "Entry unflaged"))) | 8533 | (message "Entry unflagged"))) |
| 8534 | 8534 | ||
| 8535 | (defun org-agenda-get-any-marker (&optional pos) | 8535 | (defun org-agenda-get-any-marker (&optional pos) |
| 8536 | (or (get-text-property (or pos (point-at-bol)) 'org-hd-marker) | 8536 | (or (get-text-property (or pos (point-at-bol)) 'org-hd-marker) |
diff --git a/lisp/org/org-beamer.el b/lisp/org/org-beamer.el index 0a402ed4038..28b79a03dfe 100644 --- a/lisp/org/org-beamer.el +++ b/lisp/org/org-beamer.el | |||
| @@ -410,7 +410,7 @@ the value will be inserted right after the documentclass statement." | |||
| 410 | 410 | ||
| 411 | 411 | ||
| 412 | ;; Functions to initialize and post-process | 412 | ;; Functions to initialize and post-process |
| 413 | ;; These fuctions will be hooked into various places in the export process | 413 | ;; These functions will be hooked into various places in the export process |
| 414 | 414 | ||
| 415 | (defun org-beamer-initialize-open-trackers () | 415 | (defun org-beamer-initialize-open-trackers () |
| 416 | "Reset variables that track if certain environments are open during export." | 416 | "Reset variables that track if certain environments are open during export." |
| @@ -450,7 +450,7 @@ The effect is that these values will be accessible during export." | |||
| 450 | ((stringp org-beamer-frame-level-now) | 450 | ((stringp org-beamer-frame-level-now) |
| 451 | (setq org-beamer-frame-level-now | 451 | (setq org-beamer-frame-level-now |
| 452 | (string-to-number org-beamer-frame-level-now)))) | 452 | (string-to-number org-beamer-frame-level-now)))) |
| 453 | ;; Find the header additons, most likely theme commands | 453 | ;; Find the header additions, most likely theme commands |
| 454 | (setq org-beamer-header-extra | 454 | (setq org-beamer-header-extra |
| 455 | (or (and (org-region-active-p) | 455 | (or (and (org-region-active-p) |
| 456 | (save-excursion | 456 | (save-excursion |
diff --git a/lisp/org/org-capture.el b/lisp/org/org-capture.el index 46202f8adea..31694d47bc0 100644 --- a/lisp/org/org-capture.el +++ b/lisp/org/org-capture.el | |||
| @@ -374,7 +374,7 @@ to avoid conflicts with other active capture processes." | |||
| 374 | (plist-get (if local org-capture-current-plist org-capture-plist) prop)) | 374 | (plist-get (if local org-capture-current-plist org-capture-plist) prop)) |
| 375 | 375 | ||
| 376 | (defun org-capture-member (prop &optional local) | 376 | (defun org-capture-member (prop &optional local) |
| 377 | "Is PROP a preperty in `org-capture-plist'. | 377 | "Is PROP a property in `org-capture-plist'. |
| 378 | When LOCAL is set, use the local variable `org-capture-current-plist', | 378 | When LOCAL is set, use the local variable `org-capture-current-plist', |
| 379 | this is necessary after initialization of the capture process, | 379 | this is necessary after initialization of the capture process, |
| 380 | to avoid conflicts with other active capture processes." | 380 | to avoid conflicts with other active capture processes." |
| @@ -1455,7 +1455,7 @@ The template may still contain \"%?\" for cursor positioning." | |||
| 1455 | (goto-char (point-min)) | 1455 | (goto-char (point-min)) |
| 1456 | (while (looking-at "[ \t]*\n") (replace-match "")) | 1456 | (while (looking-at "[ \t]*\n") (replace-match "")) |
| 1457 | (if (re-search-forward "[ \t\n]*\\'" nil t) (replace-match "\n")) | 1457 | (if (re-search-forward "[ \t\n]*\\'" nil t) (replace-match "\n")) |
| 1458 | ;; Return the expanded tempate and kill the temporary buffer | 1458 | ;; Return the expanded template and kill the temporary buffer |
| 1459 | (untabify (point-min) (point-max)) | 1459 | (untabify (point-min) (point-max)) |
| 1460 | (set-buffer-modified-p nil) | 1460 | (set-buffer-modified-p nil) |
| 1461 | (prog1 (buffer-string) (kill-buffer (current-buffer)))))) | 1461 | (prog1 (buffer-string) (kill-buffer (current-buffer)))))) |
diff --git a/lisp/org/org-clock.el b/lisp/org/org-clock.el index 2784707e452..6211ae45b1b 100644 --- a/lisp/org/org-clock.el +++ b/lisp/org/org-clock.el | |||
| @@ -2128,7 +2128,7 @@ the currently selected interval size." | |||
| 2128 | "Write out a clock table at position IPOS in the current buffer. | 2128 | "Write out a clock table at position IPOS in the current buffer. |
| 2129 | TABLES is a list of tables with clocking data as produced by | 2129 | TABLES is a list of tables with clocking data as produced by |
| 2130 | `org-clock-get-table-data'. PARAMS is the parameter property list obtained | 2130 | `org-clock-get-table-data'. PARAMS is the parameter property list obtained |
| 2131 | from the dynamic block defintion." | 2131 | from the dynamic block definition." |
| 2132 | ;; This function looks quite complicated, mainly because there are a | 2132 | ;; This function looks quite complicated, mainly because there are a |
| 2133 | ;; lot of options which can add or remove columns. I have massively | 2133 | ;; lot of options which can add or remove columns. I have massively |
| 2134 | ;; commented this function, the I hope it is understandable. If | 2134 | ;; commented this function, the I hope it is understandable. If |
diff --git a/lisp/org/org-compat.el b/lisp/org/org-compat.el index 425e8d816c7..7c969375a7f 100644 --- a/lisp/org/org-compat.el +++ b/lisp/org/org-compat.el | |||
| @@ -275,7 +275,7 @@ Works on both Emacs and XEmacs." | |||
| 275 | nil)) | 275 | nil)) |
| 276 | 276 | ||
| 277 | (defmacro org-xemacs-without-invisibility (&rest body) | 277 | (defmacro org-xemacs-without-invisibility (&rest body) |
| 278 | "Turn off exents with invisibility while executing BODY." | 278 | "Turn off extents with invisibility while executing BODY." |
| 279 | `(let ((ext-inv (extent-list nil (point-at-bol) (point-at-eol) | 279 | `(let ((ext-inv (extent-list nil (point-at-bol) (point-at-eol) |
| 280 | 'all-extents-closed-open 'invisible)) | 280 | 'all-extents-closed-open 'invisible)) |
| 281 | ext-inv-specs) | 281 | ext-inv-specs) |
diff --git a/lisp/org/org-ctags.el b/lisp/org/org-ctags.el index 7cbd299782f..ea94d419957 100644 --- a/lisp/org/org-ctags.el +++ b/lisp/org/org-ctags.el | |||
| @@ -35,7 +35,7 @@ | |||
| 35 | ;; links to these 'tagged' destinations, allowing seamless navigation between | 35 | ;; links to these 'tagged' destinations, allowing seamless navigation between |
| 36 | ;; multiple org-mode files. Topics can be created in any org mode file and | 36 | ;; multiple org-mode files. Topics can be created in any org mode file and |
| 37 | ;; will always be found by plain links from other files. Other file types | 37 | ;; will always be found by plain links from other files. Other file types |
| 38 | ;; recognised by ctags (source code files, latex files, etc) will also be | 38 | ;; recognized by ctags (source code files, latex files, etc) will also be |
| 39 | ;; available as destinations for plain links, and similarly, org-mode links | 39 | ;; available as destinations for plain links, and similarly, org-mode links |
| 40 | ;; will be available as tags from source files. Finally, the function | 40 | ;; will be available as tags from source files. Finally, the function |
| 41 | ;; `org-ctags-find-tag-interactive' lets you choose any known tag, using | 41 | ;; `org-ctags-find-tag-interactive' lets you choose any known tag, using |
diff --git a/lisp/org/org-exp.el b/lisp/org/org-exp.el index 49da40f5f4f..c7e1a94216e 100644 --- a/lisp/org/org-exp.el +++ b/lisp/org/org-exp.el | |||
| @@ -2800,7 +2800,7 @@ continue numbering from the last numbered block. | |||
| 2800 | REPLACE-LABELS is dual-purpose. | 2800 | REPLACE-LABELS is dual-purpose. |
| 2801 | 1. It controls the retention of labels in the exported block. | 2801 | 1. It controls the retention of labels in the exported block. |
| 2802 | 2. It specifies in what manner the links (or references) to a | 2802 | 2. It specifies in what manner the links (or references) to a |
| 2803 | labelled line be formatted. | 2803 | labeled line be formatted. |
| 2804 | 2804 | ||
| 2805 | REPLACE-LABELS is the symbol `keep' if the literal example | 2805 | REPLACE-LABELS is the symbol `keep' if the literal example |
| 2806 | specifies \"-k\" option, is numeric if the literal example | 2806 | specifies \"-k\" option, is numeric if the literal example |
| @@ -2808,12 +2808,12 @@ specifies \"-r\" option and is nil otherwise. | |||
| 2808 | 2808 | ||
| 2809 | Handle REPLACE-LABELS as below: | 2809 | Handle REPLACE-LABELS as below: |
| 2810 | - If nil, retain labels in the exported block and use | 2810 | - If nil, retain labels in the exported block and use |
| 2811 | user-provided labels for referencing the labelled lines. | 2811 | user-provided labels for referencing the labeled lines. |
| 2812 | - If it is a number, remove labels in the exported block and use | 2812 | - If it is a number, remove labels in the exported block and use |
| 2813 | one of line numbers or labels for referencing labelled lines based | 2813 | one of line numbers or labels for referencing labeled lines based |
| 2814 | on NUMBER option. | 2814 | on NUMBER option. |
| 2815 | - If it is a keep, retain labels in the exported block and use | 2815 | - If it is a keep, retain labels in the exported block and use |
| 2816 | one of line numbers or labels for referencing labelled lines | 2816 | one of line numbers or labels for referencing labeled lines |
| 2817 | based on NUMBER option. | 2817 | based on NUMBER option. |
| 2818 | 2818 | ||
| 2819 | LABEL-FORMAT is the value of \"-l\" switch associated with | 2819 | LABEL-FORMAT is the value of \"-l\" switch associated with |
| @@ -2823,8 +2823,8 @@ PREPROCESS is intended for backend-agnostic handling of source | |||
| 2823 | block numbering. When non-nil do the following: | 2823 | block numbering. When non-nil do the following: |
| 2824 | - do not number the lines | 2824 | - do not number the lines |
| 2825 | - always strip the labels from exported block | 2825 | - always strip the labels from exported block |
| 2826 | - do not make the labelled line a target of an incoming link. | 2826 | - do not make the labeled line a target of an incoming link. |
| 2827 | Instead mark the labelled line with `org-coderef' property and | 2827 | Instead mark the labeled line with `org-coderef' property and |
| 2828 | store the label in it." | 2828 | store the label in it." |
| 2829 | (setq skip1 (or skip1 0) skip2 (or skip2 0)) | 2829 | (setq skip1 (or skip1 0) skip2 (or skip2 0)) |
| 2830 | (if (and number (not cont)) (setq org-export-last-code-line-counter-value 0)) | 2830 | (if (and number (not cont)) (setq org-export-last-code-line-counter-value 0)) |
| @@ -3021,7 +3021,7 @@ to the value of `temporary-file-directory'." | |||
| 3021 | (org-load-modules-maybe) | 3021 | (org-load-modules-maybe) |
| 3022 | (unless org-local-vars | 3022 | (unless org-local-vars |
| 3023 | (setq org-local-vars (org-get-local-variables))) | 3023 | (setq org-local-vars (org-get-local-variables))) |
| 3024 | (eval ;; convert to fmt -- mimicing `org-run-like-in-org-mode' | 3024 | (eval ;; convert to fmt -- mimicking `org-run-like-in-org-mode' |
| 3025 | (list 'let org-local-vars | 3025 | (list 'let org-local-vars |
| 3026 | (list (intern (format "org-export-as-%s" fmt)) | 3026 | (list (intern (format "org-export-as-%s" fmt)) |
| 3027 | nil nil nil ''string t)))) | 3027 | nil nil nil ''string t)))) |
diff --git a/lisp/org/org-list.el b/lisp/org/org-list.el index b36167701b4..da8a810895c 100644 --- a/lisp/org/org-list.el +++ b/lisp/org/org-list.el | |||
| @@ -71,7 +71,7 @@ | |||
| 71 | ;; few thousand lines long). Thus, code should follow the rule: | 71 | ;; few thousand lines long). Thus, code should follow the rule: |
| 72 | ;; "collect once, use many". As a corollary, it is usually a bad idea | 72 | ;; "collect once, use many". As a corollary, it is usually a bad idea |
| 73 | ;; to use directly an interactive function inside the code, as those, | 73 | ;; to use directly an interactive function inside the code, as those, |
| 74 | ;; being independant entities, read the whole list structure another | 74 | ;; being independent entities, read the whole list structure another |
| 75 | ;; time. | 75 | ;; time. |
| 76 | 76 | ||
| 77 | ;;; Code: | 77 | ;;; Code: |
| @@ -685,7 +685,7 @@ Assume point is at an item." | |||
| 685 | (cond | 685 | (cond |
| 686 | ((<= (point) lim-up) | 686 | ((<= (point) lim-up) |
| 687 | ;; At upward limit: if we ended at an item, store it, | 687 | ;; At upward limit: if we ended at an item, store it, |
| 688 | ;; else dimiss useless data recorded above BEG-CELL. | 688 | ;; else dismiss useless data recorded above BEG-CELL. |
| 689 | ;; Jump to part 2. | 689 | ;; Jump to part 2. |
| 690 | (throw 'exit | 690 | (throw 'exit |
| 691 | (setq itm-lst | 691 | (setq itm-lst |
| @@ -2674,7 +2674,7 @@ If a region is active, all items inside will be moved." | |||
| 2674 | (defvar org-tab-ind-state) | 2674 | (defvar org-tab-ind-state) |
| 2675 | (defun org-cycle-item-indentation () | 2675 | (defun org-cycle-item-indentation () |
| 2676 | "Cycle levels of indentation of an empty item. | 2676 | "Cycle levels of indentation of an empty item. |
| 2677 | The first run indents the item, if applicable. Subsequents runs | 2677 | The first run indents the item, if applicable. Subsequent runs |
| 2678 | outdent it at meaningful levels in the list. When done, item is | 2678 | outdent it at meaningful levels in the list. When done, item is |
| 2679 | put back at its original position with its original bullet. | 2679 | put back at its original position with its original bullet. |
| 2680 | 2680 | ||
| @@ -3047,7 +3047,7 @@ Valid parameters PARAMS are: | |||
| 3047 | 3047 | ||
| 3048 | Alternatively, each parameter can also be a form returning | 3048 | Alternatively, each parameter can also be a form returning |
| 3049 | a string. These sexp can use keywords `counter' and `depth', | 3049 | a string. These sexp can use keywords `counter' and `depth', |
| 3050 | reprensenting respectively counter associated to the current | 3050 | representing respectively counter associated to the current |
| 3051 | item, and depth of the current sub-list, starting at 0. | 3051 | item, and depth of the current sub-list, starting at 0. |
| 3052 | Obviously, `counter' is only available for parameters applying to | 3052 | Obviously, `counter' is only available for parameters applying to |
| 3053 | items." | 3053 | items." |
diff --git a/lisp/org/org-lparse.el b/lisp/org/org-lparse.el index b13dc86e5a6..229135e9b50 100644 --- a/lisp/org/org-lparse.el +++ b/lisp/org/org-lparse.el | |||
| @@ -854,7 +854,7 @@ version." | |||
| 854 | (throw 'nextline nil)) | 854 | (throw 'nextline nil)) |
| 855 | 855 | ||
| 856 | ;; Notes: The baseline version of org-html.el (git commit | 856 | ;; Notes: The baseline version of org-html.el (git commit |
| 857 | ;; 3d802e), while encoutering a *line-long* protected text, | 857 | ;; 3d802e), while encountering a *line-long* protected text, |
| 858 | ;; does one of the following two things based on the state | 858 | ;; does one of the following two things based on the state |
| 859 | ;; of the export buffer. | 859 | ;; of the export buffer. |
| 860 | 860 | ||
| @@ -869,10 +869,10 @@ version." | |||
| 869 | ;; I think ---> | 869 | ;; I think ---> |
| 870 | 870 | ||
| 871 | ;; Scenario 1 mentioned above kicks in when a block of | 871 | ;; Scenario 1 mentioned above kicks in when a block of |
| 872 | ;; protected text has to be inserted enbloc. For example, | 872 | ;; protected text has to be inserted en bloc. For example, |
| 873 | ;; this happens, when inserting an source or example block | 873 | ;; this happens, when inserting an source or example block |
| 874 | ;; or preformatted content enclosed in #+backend, | 874 | ;; or preformatted content enclosed in #+backend, |
| 875 | ;; #+begin_bakend ... #+end_backend) | 875 | ;; #+begin_backend ... #+end_backend) |
| 876 | 876 | ||
| 877 | ;; Scenario 2 mentioned above kicks in when the protected | 877 | ;; Scenario 2 mentioned above kicks in when the protected |
| 878 | ;; text is part of a running sentence. For example this | 878 | ;; text is part of a running sentence. For example this |
| @@ -1189,7 +1189,7 @@ version." | |||
| 1189 | (t (current-buffer)))))) | 1189 | (t (current-buffer)))))) |
| 1190 | 1190 | ||
| 1191 | (defun org-lparse-format-table (lines olines) | 1191 | (defun org-lparse-format-table (lines olines) |
| 1192 | "Retuns backend-specific code for org-type and table-type tables." | 1192 | "Returns backend-specific code for org-type and table-type tables." |
| 1193 | (if (stringp lines) | 1193 | (if (stringp lines) |
| 1194 | (setq lines (org-split-string lines "\n"))) | 1194 | (setq lines (org-split-string lines "\n"))) |
| 1195 | (if (string-match "^[ \t]*|" (car lines)) | 1195 | (if (string-match "^[ \t]*|" (car lines)) |
diff --git a/lisp/org/org-odt.el b/lisp/org/org-odt.el index 886efa014f3..c8fa7ea363b 100644 --- a/lisp/org/org-odt.el +++ b/lisp/org/org-odt.el | |||
| @@ -284,7 +284,7 @@ FILE-MEMBERS. | |||
| 284 | Use options 1, 2 or 3 only if styles.xml alone suffices for | 284 | Use options 1, 2 or 3 only if styles.xml alone suffices for |
| 285 | achieving the desired formatting. Use option 4, if the styles.xml | 285 | achieving the desired formatting. Use option 4, if the styles.xml |
| 286 | references additional files like header and footer images for | 286 | references additional files like header and footer images for |
| 287 | achieving the desired formattting. | 287 | achieving the desired formatting. |
| 288 | 288 | ||
| 289 | Use \"#+ODT_STYLES_FILE: ...\" directive to set this variable on | 289 | Use \"#+ODT_STYLES_FILE: ...\" directive to set this variable on |
| 290 | a per-file basis. For example, | 290 | a per-file basis. For example, |
| @@ -1878,7 +1878,7 @@ ATTR is a string of other attributes of the a element." | |||
| 1878 | (cons width height))) | 1878 | (cons width height))) |
| 1879 | 1879 | ||
| 1880 | (defvar org-odt-entity-labels-alist nil | 1880 | (defvar org-odt-entity-labels-alist nil |
| 1881 | "Associate Labels with the Labelled entities. | 1881 | "Associate Labels with the Labeled entities. |
| 1882 | Each element of the alist is of the form (LABEL-NAME | 1882 | Each element of the alist is of the form (LABEL-NAME |
| 1883 | CATEGORY-NAME SEQNO LABEL-STYLE-NAME). LABEL-NAME is same as | 1883 | CATEGORY-NAME SEQNO LABEL-STYLE-NAME). LABEL-NAME is same as |
| 1884 | that specified by \"#+LABEL: ...\" line. CATEGORY-NAME is the | 1884 | that specified by \"#+LABEL: ...\" line. CATEGORY-NAME is the |
| @@ -2213,7 +2213,7 @@ visually." | |||
| 2213 | (with-current-buffer | 2213 | (with-current-buffer |
| 2214 | (find-file-noselect (expand-file-name "styles.xml") t) | 2214 | (find-file-noselect (expand-file-name "styles.xml") t) |
| 2215 | ;; Don't make automatic backup of styles.xml file. This setting | 2215 | ;; Don't make automatic backup of styles.xml file. This setting |
| 2216 | ;; prevents the backedup styles.xml file from being zipped in to | 2216 | ;; prevents the backed-up styles.xml file from being zipped in to |
| 2217 | ;; odt file. This is more of a hackish fix. Better alternative | 2217 | ;; odt file. This is more of a hackish fix. Better alternative |
| 2218 | ;; would be to fix the zip command so that the output odt file | 2218 | ;; would be to fix the zip command so that the output odt file |
| 2219 | ;; includes only the needed files and excludes any auto-generated | 2219 | ;; includes only the needed files and excludes any auto-generated |
| @@ -2228,7 +2228,7 @@ visually." | |||
| 2228 | (org-odt-configure-outline-numbering | 2228 | (org-odt-configure-outline-numbering |
| 2229 | (if org-export-with-section-numbers org-export-headline-levels 0))) | 2229 | (if org-export-with-section-numbers org-export-headline-levels 0))) |
| 2230 | 2230 | ||
| 2231 | ;; Write custom stlyes for source blocks | 2231 | ;; Write custom styles for source blocks |
| 2232 | (org-odt-insert-custom-styles-for-srcblocks | 2232 | (org-odt-insert-custom-styles-for-srcblocks |
| 2233 | (mapconcat | 2233 | (mapconcat |
| 2234 | (lambda (style) | 2234 | (lambda (style) |
| @@ -2479,7 +2479,7 @@ Do this when translation to MathML fails." | |||
| 2479 | ;; `org-export-preprocess-after-blockquote-hook'. Note that this hook | 2479 | ;; `org-export-preprocess-after-blockquote-hook'. Note that this hook |
| 2480 | ;; is the one that is closest and well before the call to | 2480 | ;; is the one that is closest and well before the call to |
| 2481 | ;; `org-export-attach-captions-and-attributes' in | 2481 | ;; `org-export-attach-captions-and-attributes' in |
| 2482 | ;; `org-export-preprocess-stirng'. The above arrangement permits | 2482 | ;; `org-export-preprocess-string'. The above arrangement permits |
| 2483 | ;; captions, labels and attributes to be attached to png images | 2483 | ;; captions, labels and attributes to be attached to png images |
| 2484 | ;; generated out of latex equations. | 2484 | ;; generated out of latex equations. |
| 2485 | (add-hook 'org-export-preprocess-after-blockquote-hook | 2485 | (add-hook 'org-export-preprocess-after-blockquote-hook |
diff --git a/lisp/org/org-protocol.el b/lisp/org/org-protocol.el index ccdbc314a53..6ffa86a1204 100644 --- a/lisp/org/org-protocol.el +++ b/lisp/org/org-protocol.el | |||
| @@ -145,8 +145,8 @@ | |||
| 145 | (defgroup org-protocol nil | 145 | (defgroup org-protocol nil |
| 146 | "Intercept calls from emacsclient to trigger custom actions. | 146 | "Intercept calls from emacsclient to trigger custom actions. |
| 147 | 147 | ||
| 148 | This is done by advising `server-visit-files' to scann the list of filenames | 148 | This is done by advising `server-visit-files' to scan the list of filenames |
| 149 | for `org-protocol-the-protocol' and sub-procols defined in | 149 | for `org-protocol-the-protocol' and sub-protocols defined in |
| 150 | `org-protocol-protocol-alist' and `org-protocol-protocol-alist-default'." | 150 | `org-protocol-protocol-alist' and `org-protocol-protocol-alist-default'." |
| 151 | :version "22.1" | 151 | :version "22.1" |
| 152 | :group 'convenience | 152 | :group 'convenience |
diff --git a/lisp/org/org-publish.el b/lisp/org/org-publish.el index dc794dd92c5..67540a67688 100644 --- a/lisp/org/org-publish.el +++ b/lisp/org/org-publish.el | |||
| @@ -277,12 +277,12 @@ in the sitemap." | |||
| 277 | :type 'string) | 277 | :type 'string) |
| 278 | 278 | ||
| 279 | (defcustom org-publish-sitemap-file-entry-format "%t" | 279 | (defcustom org-publish-sitemap-file-entry-format "%t" |
| 280 | "How a sitemap file entry is formated. | 280 | "How a sitemap file entry is formatted. |
| 281 | You could use brackets to delimit on what part the link will be. | 281 | You could use brackets to delimit on what part the link will be. |
| 282 | 282 | ||
| 283 | %t is the title. | 283 | %t is the title. |
| 284 | %a is the author. | 284 | %a is the author. |
| 285 | %d is the date formated using `org-publish-sitemap-date-format'." | 285 | %d is the date formatted using `org-publish-sitemap-date-format'." |
| 286 | :group 'org-publish | 286 | :group 'org-publish |
| 287 | :type 'string) | 287 | :type 'string) |
| 288 | 288 | ||
diff --git a/lisp/org/org-table.el b/lisp/org/org-table.el index df93a9a7271..0d2a2e6a973 100644 --- a/lisp/org/org-table.el +++ b/lisp/org/org-table.el | |||
| @@ -50,7 +50,7 @@ | |||
| 50 | (defvar orgtbl-after-send-table-hook nil | 50 | (defvar orgtbl-after-send-table-hook nil |
| 51 | "Hook for functions attaching to `C-c C-c', if the table is sent. | 51 | "Hook for functions attaching to `C-c C-c', if the table is sent. |
| 52 | This can be used to add additional functionality after the table is sent | 52 | This can be used to add additional functionality after the table is sent |
| 53 | to the receiver position, othewise, if table is not sent, the functions | 53 | to the receiver position, otherwise, if table is not sent, the functions |
| 54 | are not run.") | 54 | are not run.") |
| 55 | 55 | ||
| 56 | (defcustom orgtbl-optimized (eq org-enable-table-editor 'optimized) | 56 | (defcustom orgtbl-optimized (eq org-enable-table-editor 'optimized) |
| @@ -1299,7 +1299,7 @@ However, when FORCE is non-nil, create new columns if necessary." | |||
| 1299 | (defun org-table-line-to-dline (line &optional above) | 1299 | (defun org-table-line-to-dline (line &optional above) |
| 1300 | "Turn a buffer line number into a data line number. | 1300 | "Turn a buffer line number into a data line number. |
| 1301 | If there is no data line in this line, return nil. | 1301 | If there is no data line in this line, return nil. |
| 1302 | If there is no matchin dline (most likely te refrence was a hline), the | 1302 | If there is no matching dline (most likely the reference was a hline), the |
| 1303 | first dline below it is used. When ABOVE is non-nil, the one above is used." | 1303 | first dline below it is used. When ABOVE is non-nil, the one above is used." |
| 1304 | (catch 'exit | 1304 | (catch 'exit |
| 1305 | (let ((ll (length org-table-dlines)) | 1305 | (let ((ll (length org-table-dlines)) |
| @@ -2671,7 +2671,7 @@ in the buffer and column1 and column2 are table column numbers." | |||
| 2671 | (prog1 (org-trim (org-table-get-field c1)) | 2671 | (prog1 (org-trim (org-table-get-field c1)) |
| 2672 | (if highlight (org-table-highlight-rectangle (point) (point))))) | 2672 | (if highlight (org-table-highlight-rectangle (point) (point))))) |
| 2673 | ;; A range, return a vector | 2673 | ;; A range, return a vector |
| 2674 | ;; First sort the numbers to get a regular ractangle | 2674 | ;; First sort the numbers to get a regular rectangle |
| 2675 | (if (< r2 r1) (setq tmp r1 r1 r2 r2 tmp)) | 2675 | (if (< r2 r1) (setq tmp r1 r1 r2 r2 tmp)) |
| 2676 | (if (< c2 c1) (setq tmp c1 c1 c2 c2 tmp)) | 2676 | (if (< c2 c1) (setq tmp c1 c1 c2 c2 tmp)) |
| 2677 | (if corners-only | 2677 | (if corners-only |
| @@ -2931,7 +2931,7 @@ known that the table will be realigned a little later anyway." | |||
| 2931 | 2931 | ||
| 2932 | (defun org-table-iterate (&optional arg) | 2932 | (defun org-table-iterate (&optional arg) |
| 2933 | "Recalculate the table until it does not change anymore. | 2933 | "Recalculate the table until it does not change anymore. |
| 2934 | The maximun number of iterations is 10, but you can chose a different value | 2934 | The maximum number of iterations is 10, but you can choose a different value |
| 2935 | with the prefix ARG." | 2935 | with the prefix ARG." |
| 2936 | (interactive "P") | 2936 | (interactive "P") |
| 2937 | (let ((imax (if arg (prefix-numeric-value arg) 10)) | 2937 | (let ((imax (if arg (prefix-numeric-value arg) 10)) |
diff --git a/lisp/org/org-taskjuggler.el b/lisp/org/org-taskjuggler.el index 68f64974ff3..c1a59ee70cb 100644 --- a/lisp/org/org-taskjuggler.el +++ b/lisp/org/org-taskjuggler.el | |||
| @@ -69,7 +69,7 @@ | |||
| 69 | ;; "taskjuggler_project" (or whatever you customized | 69 | ;; "taskjuggler_project" (or whatever you customized |
| 70 | ;; `org-export-taskjuggler-project-tag' to). You are now ready to | 70 | ;; `org-export-taskjuggler-project-tag' to). You are now ready to |
| 71 | ;; export the project plan with `org-export-as-taskjuggler-and-open' | 71 | ;; export the project plan with `org-export-as-taskjuggler-and-open' |
| 72 | ;; which will export the project plan and open a gant chart in | 72 | ;; which will export the project plan and open a Gantt chart in |
| 73 | ;; TaskJugglerUI. | 73 | ;; TaskJugglerUI. |
| 74 | ;; | 74 | ;; |
| 75 | ;; * Resources | 75 | ;; * Resources |
| @@ -572,7 +572,7 @@ with separator \"\n\"." | |||
| 572 | (and filtered-items (mapconcat 'identity filtered-items "\n")))) | 572 | (and filtered-items (mapconcat 'identity filtered-items "\n")))) |
| 573 | 573 | ||
| 574 | (defun org-taskjuggler-get-attributes (item attributes) | 574 | (defun org-taskjuggler-get-attributes (item attributes) |
| 575 | "Return all attribute as a single formated string. ITEM is an | 575 | "Return all attribute as a single formatted string. ITEM is an |
| 576 | alist representing either a resource or a task. ATTRIBUTES is a | 576 | alist representing either a resource or a task. ATTRIBUTES is a |
| 577 | list of symbols. Only entries from ITEM are considered that are | 577 | list of symbols. Only entries from ITEM are considered that are |
| 578 | listed in ATTRIBUTES." | 578 | listed in ATTRIBUTES." |
diff --git a/lisp/org/org.el b/lisp/org/org.el index c5d5e545b9f..57d2c96514e 100644 --- a/lisp/org/org.el +++ b/lisp/org/org.el | |||
| @@ -4717,7 +4717,7 @@ but the stars and the body are.") | |||
| 4717 | "\\(?: +" org-todo-regexp "\\)?" | 4717 | "\\(?: +" org-todo-regexp "\\)?" |
| 4718 | "\\(?: +\\(\\[#.\\]\\)\\)?" | 4718 | "\\(?: +\\(\\[#.\\]\\)\\)?" |
| 4719 | "\\(?: +" | 4719 | "\\(?: +" |
| 4720 | ;; Stats cookies can be sticked to body. | 4720 | ;; Stats cookies can be stuck to body. |
| 4721 | "\\(?:\\[[0-9%%/]+\\] *\\)?" | 4721 | "\\(?:\\[[0-9%%/]+\\] *\\)?" |
| 4722 | "\\(%s\\)" | 4722 | "\\(%s\\)" |
| 4723 | "\\(?: *\\[[0-9%%/]+\\]\\)?" | 4723 | "\\(?: *\\[[0-9%%/]+\\]\\)?" |
| @@ -5241,7 +5241,7 @@ The time stamps may be either active or inactive.") | |||
| 5241 | (defvar org-emph-face nil) | 5241 | (defvar org-emph-face nil) |
| 5242 | 5242 | ||
| 5243 | (defun org-do-emphasis-faces (limit) | 5243 | (defun org-do-emphasis-faces (limit) |
| 5244 | "Run through the buffer and add overlays to emphasised strings." | 5244 | "Run through the buffer and add overlays to emphasized strings." |
| 5245 | (let (rtn a) | 5245 | (let (rtn a) |
| 5246 | (while (and (not rtn) (re-search-forward org-emph-re limit t)) | 5246 | (while (and (not rtn) (re-search-forward org-emph-re limit t)) |
| 5247 | (if (not (= (char-after (match-beginning 3)) | 5247 | (if (not (= (char-after (match-beginning 3)) |
| @@ -5737,7 +5737,7 @@ Use `org-reduced-level' to remove the effect of `org-odd-levels'." | |||
| 5737 | 5737 | ||
| 5738 | (defvar org-font-lock-set-keywords-hook nil | 5738 | (defvar org-font-lock-set-keywords-hook nil |
| 5739 | "Functions that can manipulate `org-font-lock-extra-keywords'. | 5739 | "Functions that can manipulate `org-font-lock-extra-keywords'. |
| 5740 | This is calles after `org-font-lock-extra-keywords' is defined, but before | 5740 | This is called after `org-font-lock-extra-keywords' is defined, but before |
| 5741 | it is installed to be used by font lock. This can be useful if something | 5741 | it is installed to be used by font lock. This can be useful if something |
| 5742 | needs to be inserted at a specific position in the font-lock sequence.") | 5742 | needs to be inserted at a specific position in the font-lock sequence.") |
| 5743 | 5743 | ||
| @@ -5854,7 +5854,7 @@ needs to be inserted at a specific position in the font-lock sequence.") | |||
| 5854 | (org-set-local 'org-pretty-entities (not org-pretty-entities)) | 5854 | (org-set-local 'org-pretty-entities (not org-pretty-entities)) |
| 5855 | (org-restart-font-lock) | 5855 | (org-restart-font-lock) |
| 5856 | (if org-pretty-entities | 5856 | (if org-pretty-entities |
| 5857 | (message "Entities are displayed as UTF8 characers") | 5857 | (message "Entities are displayed as UTF8 characters") |
| 5858 | (save-restriction | 5858 | (save-restriction |
| 5859 | (widen) | 5859 | (widen) |
| 5860 | (org-decompose-region (point-min) (point-max)) | 5860 | (org-decompose-region (point-min) (point-max)) |
| @@ -11441,7 +11441,7 @@ changes. Such blocking occurs when: | |||
| 11441 | (forward-line 1) | 11441 | (forward-line 1) |
| 11442 | (re-search-forward org-not-done-heading-regexp pos t)) | 11442 | (re-search-forward org-not-done-heading-regexp pos t)) |
| 11443 | (throw 'dont-block nil)) ; block, there is an older sibling not done. | 11443 | (throw 'dont-block nil)) ; block, there is an older sibling not done. |
| 11444 | ;; Search further up the hierarchy, to see if an anchestor is blocked | 11444 | ;; Search further up the hierarchy, to see if an ancestor is blocked |
| 11445 | (while t | 11445 | (while t |
| 11446 | (goto-char parent-pos) | 11446 | (goto-char parent-pos) |
| 11447 | (if (not (looking-at org-not-done-heading-regexp)) | 11447 | (if (not (looking-at org-not-done-heading-regexp)) |
| @@ -15123,7 +15123,7 @@ user." | |||
| 15123 | (setq ans (replace-match (format "%04d-%02d-%02d\\5" year month day) | 15123 | (setq ans (replace-match (format "%04d-%02d-%02d\\5" year month day) |
| 15124 | t nil ans))) | 15124 | t nil ans))) |
| 15125 | 15125 | ||
| 15126 | ;; Help matching dottet european dates | 15126 | ;; Help matching dotted european dates |
| 15127 | (when (string-match | 15127 | (when (string-match |
| 15128 | "^ *\\(3[01]\\|0?[1-9]\\|[12][0-9]\\)\\. ?\\(0?[1-9]\\|1[012]\\)\\. ?\\([1-9][0-9][0-9][0-9]\\)?" ans) | 15128 | "^ *\\(3[01]\\|0?[1-9]\\|[12][0-9]\\)\\. ?\\(0?[1-9]\\|1[012]\\)\\. ?\\([1-9][0-9][0-9][0-9]\\)?" ans) |
| 15129 | (setq year (if (match-end 3) | 15129 | (setq year (if (match-end 3) |
diff --git a/lisp/progmodes/ada-xref.el b/lisp/progmodes/ada-xref.el index d72eef27a58..1e07ac4cf09 100644 --- a/lisp/progmodes/ada-xref.el +++ b/lisp/progmodes/ada-xref.el | |||
| @@ -1533,7 +1533,7 @@ the project file." | |||
| 1533 | ;; .ali file for a spec file. If we are, go to step 3. | 1533 | ;; .ali file for a spec file. If we are, go to step 3. |
| 1534 | ;; 3- If the file is not found or step 2 failed: | 1534 | ;; 3- If the file is not found or step 2 failed: |
| 1535 | ;; find the name of the "other file", ie the body, and look | 1535 | ;; find the name of the "other file", ie the body, and look |
| 1536 | ;; for its associated .ali file by subtituting the extension | 1536 | ;; for its associated .ali file by substituting the extension |
| 1537 | ;; | 1537 | ;; |
| 1538 | ;; We must also handle the case of separate packages and subprograms: | 1538 | ;; We must also handle the case of separate packages and subprograms: |
| 1539 | ;; 4- If no ali file was found, we try to modify the file name by removing | 1539 | ;; 4- If no ali file was found, we try to modify the file name by removing |
diff --git a/lisp/progmodes/cc-engine.el b/lisp/progmodes/cc-engine.el index 392e5d1c37c..2e0294341da 100644 --- a/lisp/progmodes/cc-engine.el +++ b/lisp/progmodes/cc-engine.el | |||
| @@ -4211,12 +4211,14 @@ The last point calculated is cached if the cache is enabled, i.e. if | |||
| 4211 | 4211 | ||
| 4212 | Note that this function might do hidden buffer changes. See the | 4212 | Note that this function might do hidden buffer changes. See the |
| 4213 | comment at the start of cc-engine.el for more info." | 4213 | comment at the start of cc-engine.el for more info." |
| 4214 | (let* ((safe-place (c-state-safe-place (point))) | 4214 | (save-restriction |
| 4215 | (lit (c-state-pp-to-literal safe-place (point)))) | 4215 | (widen) |
| 4216 | (or (cadr lit) | 4216 | (let* ((safe-place (c-state-safe-place (point))) |
| 4217 | (and detect-cpp | 4217 | (lit (c-state-pp-to-literal safe-place (point)))) |
| 4218 | (save-excursion (c-beginning-of-macro)) | 4218 | (or (cadr lit) |
| 4219 | 'pound)))) | 4219 | (and detect-cpp |
| 4220 | (save-excursion (c-beginning-of-macro)) | ||
| 4221 | 'pound))))) | ||
| 4220 | 4222 | ||
| 4221 | (defun c-literal-limits (&optional lim near not-in-delimiter) | 4223 | (defun c-literal-limits (&optional lim near not-in-delimiter) |
| 4222 | "Return a cons of the beginning and end positions of the comment or | 4224 | "Return a cons of the beginning and end positions of the comment or |
| @@ -4236,9 +4238,10 @@ comment at the start of cc-engine.el for more info." | |||
| 4236 | (save-excursion | 4238 | (save-excursion |
| 4237 | (let* ((pos (point)) | 4239 | (let* ((pos (point)) |
| 4238 | (lim (or lim (c-state-safe-place pos))) | 4240 | (lim (or lim (c-state-safe-place pos))) |
| 4239 | (pp-to-lit (c-state-pp-to-literal lim pos)) | 4241 | (pp-to-lit (save-restriction |
| 4242 | (widen) | ||
| 4243 | (c-state-pp-to-literal lim pos))) | ||
| 4240 | (state (car pp-to-lit)) | 4244 | (state (car pp-to-lit)) |
| 4241 | (lit-type (cadr pp-to-lit)) | ||
| 4242 | (lit-limits (car (cddr pp-to-lit)))) | 4245 | (lit-limits (car (cddr pp-to-lit)))) |
| 4243 | 4246 | ||
| 4244 | (cond | 4247 | (cond |
diff --git a/lisp/progmodes/cc-fonts.el b/lisp/progmodes/cc-fonts.el index f52864df809..e7d00815708 100644 --- a/lisp/progmodes/cc-fonts.el +++ b/lisp/progmodes/cc-fonts.el | |||
| @@ -1429,7 +1429,7 @@ casts and declarations are fontified. Used on level 2 and higher." | |||
| 1429 | nil) | 1429 | nil) |
| 1430 | 1430 | ||
| 1431 | ((and (not c-enums-contain-decls) | 1431 | ((and (not c-enums-contain-decls) |
| 1432 | ;; An optimisation quickly to eliminate scans of long enum | 1432 | ;; An optimization quickly to eliminate scans of long enum |
| 1433 | ;; declarations in the next cond arm. | 1433 | ;; declarations in the next cond arm. |
| 1434 | (let ((paren-state (c-parse-state))) | 1434 | (let ((paren-state (c-parse-state))) |
| 1435 | (and | 1435 | (and |
diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index 56f04751bda..cc5f0fef934 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el | |||
| @@ -463,7 +463,7 @@ Returns non-nil if it is a valid table." | |||
| 463 | 463 | ||
| 464 | ;; Subroutine of visit-tags-table-buffer. Search the current tags tables | 464 | ;; Subroutine of visit-tags-table-buffer. Search the current tags tables |
| 465 | ;; for one that has tags for THIS-FILE (or that includes a table that | 465 | ;; for one that has tags for THIS-FILE (or that includes a table that |
| 466 | ;; does). Return the name of the first table table listing THIS-FILE; if | 466 | ;; does). Return the name of the first table listing THIS-FILE; if |
| 467 | ;; the table is one included by another table, it is the master table that | 467 | ;; the table is one included by another table, it is the master table that |
| 468 | ;; we return. If CORE-ONLY is non-nil, check only tags tables that are | 468 | ;; we return. If CORE-ONLY is non-nil, check only tags tables that are |
| 469 | ;; already in buffers--don't visit any new files. | 469 | ;; already in buffers--don't visit any new files. |
diff --git a/lisp/progmodes/hideshow.el b/lisp/progmodes/hideshow.el index c9ba5ef2818..0884d28ad5a 100644 --- a/lisp/progmodes/hideshow.el +++ b/lisp/progmodes/hideshow.el | |||
| @@ -604,7 +604,7 @@ we return a list having a nil as its car and the end of comment position | |||
| 604 | as cdr." | 604 | as cdr." |
| 605 | (save-excursion | 605 | (save-excursion |
| 606 | ;; the idea is to look backwards for a comment start regexp, do a | 606 | ;; the idea is to look backwards for a comment start regexp, do a |
| 607 | ;; forward comment, and see if we are inside, then extend extend | 607 | ;; forward comment, and see if we are inside, then extend |
| 608 | ;; forward and backward as long as we have comments | 608 | ;; forward and backward as long as we have comments |
| 609 | (let ((q (point))) | 609 | (let ((q (point))) |
| 610 | (when (or (looking-at hs-c-start-regexp) | 610 | (when (or (looking-at hs-c-start-regexp) |
diff --git a/lisp/progmodes/idlw-shell.el b/lisp/progmodes/idlw-shell.el index 619b903e902..55a085fbde0 100644 --- a/lisp/progmodes/idlw-shell.el +++ b/lisp/progmodes/idlw-shell.el | |||
| @@ -227,7 +227,7 @@ window, but is useful for stepping, etc." | |||
| 227 | "Obsolete variable. See `idlwave-shell-debug-modifiers'.") | 227 | "Obsolete variable. See `idlwave-shell-debug-modifiers'.") |
| 228 | 228 | ||
| 229 | (defcustom idlwave-shell-use-truename nil | 229 | (defcustom idlwave-shell-use-truename nil |
| 230 | "*Non-nil means, use use `file-truename' when looking for buffers. | 230 | "*Non-nil means, use `file-truename' when looking for buffers. |
| 231 | If this variable is non-nil, Emacs will use the function `file-truename' to | 231 | If this variable is non-nil, Emacs will use the function `file-truename' to |
| 232 | resolve symbolic links in the file paths printed by e.g., STOP commands. | 232 | resolve symbolic links in the file paths printed by e.g., STOP commands. |
| 233 | This means, unvisited files will be loaded under their truename. | 233 | This means, unvisited files will be loaded under their truename. |
diff --git a/lisp/progmodes/mixal-mode.el b/lisp/progmodes/mixal-mode.el index b152f7367eb..54d857dd4b1 100644 --- a/lisp/progmodes/mixal-mode.el +++ b/lisp/progmodes/mixal-mode.el | |||
| @@ -145,43 +145,43 @@ zeros to make a word." | |||
| 145 | (LD1 loading "load I1" 9 field | 145 | (LD1 loading "load I1" 9 field |
| 146 | "Put in rI1 the contents of cell no. M. | 146 | "Put in rI1 the contents of cell no. M. |
| 147 | Uses a + when there is no sign in subfield. Subfield is left padded with | 147 | Uses a + when there is no sign in subfield. Subfield is left padded with |
| 148 | zeros to make a word. Index registers only have 2 bytes and a sign, Trying | 148 | zeros to make a word. Index registers only have 2 bytes and a sign; trying |
| 149 | to set anything more that that will result in undefined behavior." | 149 | to set anything more than that will result in undefined behavior." |
| 150 | 2) | 150 | 2) |
| 151 | 151 | ||
| 152 | (LD2 loading "load I2" 10 field | 152 | (LD2 loading "load I2" 10 field |
| 153 | "Put in rI2 the contents of cell no. M. | 153 | "Put in rI2 the contents of cell no. M. |
| 154 | Uses a + when there is no sign in subfield. Subfield is left padded with | 154 | Uses a + when there is no sign in subfield. Subfield is left padded with |
| 155 | zeros to make a word. Index registers only have 2 bytes and a sign, Trying | 155 | zeros to make a word. Index registers only have 2 bytes and a sign; trying |
| 156 | to set anything more that that will result in undefined behavior." | 156 | to set anything more than that will result in undefined behavior." |
| 157 | 2) | 157 | 2) |
| 158 | 158 | ||
| 159 | (LD3 loading "load I3" 11 field | 159 | (LD3 loading "load I3" 11 field |
| 160 | "Put in rI3 the contents of cell no. M. | 160 | "Put in rI3 the contents of cell no. M. |
| 161 | Uses a + when there is no sign in subfield. Subfield is left padded with | 161 | Uses a + when there is no sign in subfield. Subfield is left padded with |
| 162 | zeros to make a word. Index registers only have 2 bytes and a sign, Trying | 162 | zeros to make a word. Index registers only have 2 bytes and a sign; trying |
| 163 | to set anything more that that will result in undefined behavior." | 163 | to set anything more than that will result in undefined behavior." |
| 164 | 2) | 164 | 2) |
| 165 | 165 | ||
| 166 | (LD4 loading "load I4" 12 field | 166 | (LD4 loading "load I4" 12 field |
| 167 | "Put in rI4 the contents of cell no. M. | 167 | "Put in rI4 the contents of cell no. M. |
| 168 | Uses a + when there is no sign in subfield. Subfield is left padded with | 168 | Uses a + when there is no sign in subfield. Subfield is left padded with |
| 169 | zeros to make a word. Index registers only have 2 bytes and a sign, Trying | 169 | zeros to make a word. Index registers only have 2 bytes and a sign; trying |
| 170 | to set anything more that that will result in undefined behavior." | 170 | to set anything more than that will result in undefined behavior." |
| 171 | 2) | 171 | 2) |
| 172 | 172 | ||
| 173 | (LD5 loading "load I5" 13 field | 173 | (LD5 loading "load I5" 13 field |
| 174 | "Put in rI5 the contents of cell no. M. | 174 | "Put in rI5 the contents of cell no. M. |
| 175 | Uses a + when there is no sign in subfield. Subfield is left padded with | 175 | Uses a + when there is no sign in subfield. Subfield is left padded with |
| 176 | zeros to make a word. Index registers only have 2 bytes and a sign, Trying | 176 | zeros to make a word. Index registers only have 2 bytes and a sign; trying |
| 177 | to set anything more that that will result in undefined behavior." | 177 | to set anything more than that will result in undefined behavior." |
| 178 | 2) | 178 | 2) |
| 179 | 179 | ||
| 180 | (LD6 loading "load I6" 14 field | 180 | (LD6 loading "load I6" 14 field |
| 181 | "Put in rI6 the contents of cell no. M. | 181 | "Put in rI6 the contents of cell no. M. |
| 182 | Uses a + when there is no sign in subfield. Subfield is left padded with | 182 | Uses a + when there is no sign in subfield. Subfield is left padded with |
| 183 | zeros to make a word. Index registers only have 2 bytes and a sign, Trying | 183 | zeros to make a word. Index registers only have 2 bytes and a sign; trying |
| 184 | to set anything more that that will result in undefined behavior." | 184 | to set anything more than that will result in undefined behavior." |
| 185 | 2) | 185 | 2) |
| 186 | 186 | ||
| 187 | (LDAN loading "load A negative" 16 field | 187 | (LDAN loading "load A negative" 16 field |
| @@ -200,7 +200,7 @@ Subfield is left padded with zeros to make a word." | |||
| 200 | "Put in rI1 the contents of cell no. M, with opposite sign. | 200 | "Put in rI1 the contents of cell no. M, with opposite sign. |
| 201 | Uses a + when there is no sign in subfield, otherwise use the opposite sign. | 201 | Uses a + when there is no sign in subfield, otherwise use the opposite sign. |
| 202 | Subfield is left padded with zeros to make a word. Index registers only | 202 | Subfield is left padded with zeros to make a word. Index registers only |
| 203 | have 2 bytes and a sign, Trying to set anything more that that will result | 203 | have 2 bytes and a sign; trying to set anything more than that will result |
| 204 | in undefined behavior." | 204 | in undefined behavior." |
| 205 | 2) | 205 | 2) |
| 206 | 206 | ||
| @@ -208,7 +208,7 @@ in undefined behavior." | |||
| 208 | "Put in rI2 the contents of cell no. M, with opposite sign. | 208 | "Put in rI2 the contents of cell no. M, with opposite sign. |
| 209 | Uses a + when there is no sign in subfield, otherwise use the opposite sign. | 209 | Uses a + when there is no sign in subfield, otherwise use the opposite sign. |
| 210 | Subfield is left padded with zeros to make a word. Index registers only | 210 | Subfield is left padded with zeros to make a word. Index registers only |
| 211 | have 2 bytes and a sign, Trying to set anything more that that will result | 211 | have 2 bytes and a sign; trying to set anything more than that will result |
| 212 | in undefined behavior." | 212 | in undefined behavior." |
| 213 | 2) | 213 | 2) |
| 214 | 214 | ||
| @@ -216,7 +216,7 @@ in undefined behavior." | |||
| 216 | "Put in rI3 the contents of cell no. M, with opposite sign. | 216 | "Put in rI3 the contents of cell no. M, with opposite sign. |
| 217 | Uses a + when there is no sign in subfield, otherwise use the opposite sign. | 217 | Uses a + when there is no sign in subfield, otherwise use the opposite sign. |
| 218 | Subfield is left padded with zeros to make a word. Index registers only | 218 | Subfield is left padded with zeros to make a word. Index registers only |
| 219 | have 2 bytes and a sign, Trying to set anything more that that will result | 219 | have 2 bytes and a sign; trying to set anything more than that will result |
| 220 | in undefined behavior." | 220 | in undefined behavior." |
| 221 | 2) | 221 | 2) |
| 222 | 222 | ||
| @@ -224,7 +224,7 @@ in undefined behavior." | |||
| 224 | "Put in rI4 the contents of cell no. M, with opposite sign. | 224 | "Put in rI4 the contents of cell no. M, with opposite sign. |
| 225 | Uses a + when there is no sign in subfield, otherwise use the opposite sign. | 225 | Uses a + when there is no sign in subfield, otherwise use the opposite sign. |
| 226 | Subfield is left padded with zeros to make a word. Index registers only | 226 | Subfield is left padded with zeros to make a word. Index registers only |
| 227 | have 2 bytes and a sign, Trying to set anything more that that will result | 227 | have 2 bytes and a sign; trying to set anything more than that will result |
| 228 | in undefined behavior." | 228 | in undefined behavior." |
| 229 | 2) | 229 | 2) |
| 230 | 230 | ||
| @@ -232,7 +232,7 @@ in undefined behavior." | |||
| 232 | "Put in rI5 the contents of cell no. M, with opposite sign. | 232 | "Put in rI5 the contents of cell no. M, with opposite sign. |
| 233 | Uses a + when there is no sign in subfield, otherwise use the opposite sign. | 233 | Uses a + when there is no sign in subfield, otherwise use the opposite sign. |
| 234 | Subfield is left padded with zeros to make a word. Index registers only | 234 | Subfield is left padded with zeros to make a word. Index registers only |
| 235 | have 2 bytes and a sign, Trying to set anything more that that will result | 235 | have 2 bytes and a sign; trying to set anything more than that will result |
| 236 | in undefined behavior." | 236 | in undefined behavior." |
| 237 | 2) | 237 | 2) |
| 238 | 238 | ||
| @@ -240,7 +240,7 @@ in undefined behavior." | |||
| 240 | "Put in rI6 the contents of cell no. M, with opposite sign. | 240 | "Put in rI6 the contents of cell no. M, with opposite sign. |
| 241 | Uses a + when there is no sign in subfield, otherwise use the opposite sign. | 241 | Uses a + when there is no sign in subfield, otherwise use the opposite sign. |
| 242 | Subfield is left padded with zeros to make a word. Index registers only | 242 | Subfield is left padded with zeros to make a word. Index registers only |
| 243 | have 2 bytes and a sign, Trying to set anything more that that will result | 243 | have 2 bytes and a sign; trying to set anything more than that will result |
| 244 | in undefined behavior." | 244 | in undefined behavior." |
| 245 | 2) | 245 | 2) |
| 246 | 246 | ||
diff --git a/lisp/startup.el b/lisp/startup.el index 1cbf2f74c14..41056f3907e 100644 --- a/lisp/startup.el +++ b/lisp/startup.el | |||
| @@ -910,7 +910,7 @@ opening the first frame (e.g. open a connection to an X server).") | |||
| 910 | (setq no-blinking-cursor t))) | 910 | (setq no-blinking-cursor t))) |
| 911 | ;; If the cursorColor X resource exists, alter the `cursor' face | 911 | ;; If the cursorColor X resource exists, alter the `cursor' face |
| 912 | ;; spec, but mark it as changed outside of Customize. | 912 | ;; spec, but mark it as changed outside of Customize. |
| 913 | (let ((color (x-get-resource "cursorColor" "CursorColor"))) | 913 | (let ((color (x-get-resource "cursorColor" "Foreground"))) |
| 914 | (when color | 914 | (when color |
| 915 | (put 'cursor 'theme-face | 915 | (put 'cursor 'theme-face |
| 916 | `((changed ((t :background ,color))))) | 916 | `((changed ((t :background ,color))))) |
| @@ -929,7 +929,7 @@ opening the first frame (e.g. open a connection to an X server).") | |||
| 929 | emacs-basic-display | 929 | emacs-basic-display |
| 930 | (and (memq window-system '(x w32 ns)) | 930 | (and (memq window-system '(x w32 ns)) |
| 931 | (not (member (x-get-resource "cursorBlink" "CursorBlink") | 931 | (not (member (x-get-resource "cursorBlink" "CursorBlink") |
| 932 | '("off" "false"))))) | 932 | '("no" "off" "false" "0"))))) |
| 933 | (setq no-blinking-cursor t)) | 933 | (setq no-blinking-cursor t)) |
| 934 | 934 | ||
| 935 | ;; Re-evaluate predefined variables whose initial value depends on | 935 | ;; Re-evaluate predefined variables whose initial value depends on |
diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index d3fa49491d4..08254c6f5f7 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el | |||
| @@ -93,6 +93,7 @@ reinserts the fill prefix in each resulting line." | |||
| 93 | ;; Added `!' for doxygen comments starting with `//!' or `/*!'. | 93 | ;; Added `!' for doxygen comments starting with `//!' or `/*!'. |
| 94 | ;; Added `%' for TeX comments. | 94 | ;; Added `%' for TeX comments. |
| 95 | ;; RMS: deleted the code to match `1.' and `(1)'. | 95 | ;; RMS: deleted the code to match `1.' and `(1)'. |
| 96 | ;; Update mail-mode's paragraph-separate if you change this. | ||
| 96 | (purecopy "[ \t]*\\([-–!|#%;>*·•‣⁃◦]+[ \t]*\\)*") | 97 | (purecopy "[ \t]*\\([-–!|#%;>*·•‣⁃◦]+[ \t]*\\)*") |
| 97 | "Regexp to match text at start of line that constitutes indentation. | 98 | "Regexp to match text at start of line that constitutes indentation. |
| 98 | If Adaptive Fill mode is enabled, a prefix matching this pattern | 99 | If Adaptive Fill mode is enabled, a prefix matching this pattern |
diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog index 4c28ae3f1a9..f011a8d1dc0 100644 --- a/lisp/url/ChangeLog +++ b/lisp/url/ChangeLog | |||
| @@ -1,3 +1,9 @@ | |||
| 1 | 2012-01-12 Glenn Morris <rgm@gnu.org> | ||
| 2 | |||
| 3 | * url-auth.el (url-basic-auth, url-digest-auth): | ||
| 4 | Allow reading usernames etc when the minibuffer is already in use, | ||
| 5 | eg in url-handler-mode. (Bug#10298) | ||
| 6 | |||
| 1 | 2011-11-15 Juanma Barranquero <lekktu@gmail.com> | 7 | 2011-11-15 Juanma Barranquero <lekktu@gmail.com> |
| 2 | 8 | ||
| 3 | * url-dav.el (url-dav-delete-file): Fix typo. | 9 | * url-dav.el (url-dav-delete-file): Fix typo. |
diff --git a/lisp/url/url-auth.el b/lisp/url/url-auth.el index be307698575..f7e53eafb44 100644 --- a/lisp/url/url-auth.el +++ b/lisp/url/url-auth.el | |||
| @@ -69,6 +69,7 @@ instead of the filename inheritance method." | |||
| 69 | (file (url-filename href)) | 69 | (file (url-filename href)) |
| 70 | (user (url-user href)) | 70 | (user (url-user href)) |
| 71 | (pass (url-password href)) | 71 | (pass (url-password href)) |
| 72 | (enable-recursive-minibuffers t) ; for url-handler-mode (bug#10298) | ||
| 72 | byserv retval data) | 73 | byserv retval data) |
| 73 | (setq server (format "%s:%d" server port) | 74 | (setq server (format "%s:%d" server port) |
| 74 | file (cond | 75 | file (cond |
| @@ -163,6 +164,7 @@ instead of hostname:portnum." | |||
| 163 | (type (url-type href)) | 164 | (type (url-type href)) |
| 164 | (port (url-port href)) | 165 | (port (url-port href)) |
| 165 | (file (url-filename href)) | 166 | (file (url-filename href)) |
| 167 | (enable-recursive-minibuffers t) | ||
| 166 | user pass byserv retval data) | 168 | user pass byserv retval data) |
| 167 | (setq file (cond | 169 | (setq file (cond |
| 168 | (realm realm) | 170 | (realm realm) |
diff --git a/lisp/winner.el b/lisp/winner.el index 55f82647089..ef7b0c2a3ce 100644 --- a/lisp/winner.el +++ b/lisp/winner.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; winner.el --- Restore old window configurations | 1 | ;;; winner.el --- Restore old window configurations |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997-1998, 2001-2012 Free Software Foundation. Inc. | 3 | ;; Copyright (C) 1997-1998, 2001-2012 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Ivar Rummelhoff <ivarru@math.uio.no> | 5 | ;; Author: Ivar Rummelhoff <ivarru@math.uio.no> |
| 6 | ;; Created: 27 Feb 1997 | 6 | ;; Created: 27 Feb 1997 |