aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorPaul Eggert2012-01-14 22:41:53 -0800
committerPaul Eggert2012-01-14 22:41:53 -0800
commit807f82fcebc7d946baa23f1d29ff5b0cf336f08e (patch)
treefa41cebf5b9c6d3bb6a22517a7002fe3a398588f /lisp
parent35cf62d95cdcd5323dcea4a5385942c342ff1d9c (diff)
parent861df977526140af8147bef4950e8863655c203d (diff)
downloademacs-807f82fcebc7d946baa23f1d29ff5b0cf336f08e.tar.gz
emacs-807f82fcebc7d946baa23f1d29ff5b0cf336f08e.zip
Merge from trunk.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/ChangeLog67
-rw-r--r--lisp/ChangeLog.1367
-rw-r--r--lisp/ChangeLog.144
-rw-r--r--lisp/ChangeLog.1540
-rw-r--r--lisp/ChangeLog.222
-rw-r--r--lisp/ChangeLog.330
-rw-r--r--lisp/ChangeLog.466
-rw-r--r--lisp/ChangeLog.566
-rw-r--r--lisp/ChangeLog.6217
-rw-r--r--lisp/ChangeLog.72
-rw-r--r--lisp/cedet/ChangeLog17
-rw-r--r--lisp/cedet/ede.el215
-rw-r--r--lisp/cedet/ede/auto.el28
-rw-r--r--lisp/cedet/ede/simple.el3
-rw-r--r--lisp/cedet/semantic/decorate/include.el2
-rw-r--r--lisp/cedet/semantic/grammar.el2
-rw-r--r--lisp/cedet/srecode/ctxt.el2
-rw-r--r--lisp/dired-aux.el19
-rw-r--r--lisp/dired.el30
-rw-r--r--lisp/emacs-lisp/byte-opt.el2
-rw-r--r--lisp/emacs-lisp/checkdoc.el2
-rw-r--r--lisp/emacs-lock.el2
-rw-r--r--lisp/emulation/keypad.el2
-rw-r--r--lisp/epg.el7
-rw-r--r--lisp/erc/ChangeLog.032
-rw-r--r--lisp/erc/ChangeLog.064
-rw-r--r--lisp/erc/erc-page.el2
-rw-r--r--lisp/find-dired.el18
-rw-r--r--lisp/gnus/ChangeLog14
-rw-r--r--lisp/gnus/auth-source.el20
-rw-r--r--lisp/gnus/nntp.el4
-rw-r--r--lisp/htmlfontify.el2
-rw-r--r--lisp/info.el2
-rw-r--r--lisp/mail/mail-extr.el2
-rw-r--r--lisp/mail/mailclient.el2
-rw-r--r--lisp/mail/sendmail.el21
-rw-r--r--lisp/mail/unrmail.el6
-rw-r--r--lisp/mh-e/ChangeLog.14
-rw-r--r--lisp/net/network-stream.el3
-rw-r--r--lisp/obsolete/old-emacs-lock.el2
-rw-r--r--lisp/org/ChangeLog10
-rw-r--r--lisp/org/ob-fortran.el4
-rw-r--r--lisp/org/ob-latex.el2
-rw-r--r--lisp/org/ob-ledger.el2
-rw-r--r--lisp/org/org-agenda.el14
-rw-r--r--lisp/org/org-beamer.el4
-rw-r--r--lisp/org/org-capture.el4
-rw-r--r--lisp/org/org-clock.el2
-rw-r--r--lisp/org/org-compat.el2
-rw-r--r--lisp/org/org-ctags.el2
-rw-r--r--lisp/org/org-exp.el14
-rw-r--r--lisp/org/org-list.el8
-rw-r--r--lisp/org/org-lparse.el8
-rw-r--r--lisp/org/org-odt.el10
-rw-r--r--lisp/org/org-protocol.el4
-rw-r--r--lisp/org/org-publish.el4
-rw-r--r--lisp/org/org-table.el8
-rw-r--r--lisp/org/org-taskjuggler.el4
-rw-r--r--lisp/org/org.el12
-rw-r--r--lisp/progmodes/ada-xref.el2
-rw-r--r--lisp/progmodes/cc-engine.el19
-rw-r--r--lisp/progmodes/cc-fonts.el2
-rw-r--r--lisp/progmodes/etags.el2
-rw-r--r--lisp/progmodes/hideshow.el2
-rw-r--r--lisp/progmodes/idlw-shell.el2
-rw-r--r--lisp/progmodes/mixal-mode.el36
-rw-r--r--lisp/startup.el4
-rw-r--r--lisp/textmodes/fill.el1
-rw-r--r--lisp/url/ChangeLog6
-rw-r--r--lisp/url/url-auth.el2
-rw-r--r--lisp/winner.el2
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 @@
12012-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
62012-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
112012-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
162012-01-14 Glenn Morris <rgm@gnu.org>
17
18 * dired.el (dired-get-filename): Fix 'verbatim case of previous change.
19
202012-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
282012-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
332012-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
412012-01-11 Glenn Morris <rgm@gnu.org>
42
43 * dired-aux.el (dired-do-shell-command): Fix */? logic. (Bug#6561)
44 Doc fix.
45
462012-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
522012-01-10 Glenn Morris <rgm@gnu.org>
53
54 * mail/unrmail.el (unrmail): Tweak previous change.
55
12012-01-09 Chong Yidong <cyd@gnu.org> 562012-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
332012-01-07 Juanma Barranquero <lekktu@gmail.com> 882012-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
13852011-11-08 thierry <thierry.volpiatto@gmail.com> 14402011-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
45352011-07-11 Leo <sdl.web@gmail.com> (tiny change) 45902011-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 @@
71162011-05-23 Kevin Ryde <user42@zip.com.au> 71712011-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
71222011-05-23 Stefan Monnier <monnier@iro.umontreal.ca> 71772011-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
95692011-03-20 Leo <sdl.web@gmail.com> 96242011-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
1011986-03-31 Richard M. Stallman (rms@prep) 1011986-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
1051986-03-28 Richard M. Stallman (rms@prep) 1051986-03-28 Richard M. Stallman (rms@prep)
106 106
@@ -117,7 +117,7 @@
1171986-03-26 Richard Mlynarik (mly@prep) 1171986-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
1221986-03-24 Richard M. Stallman (rms@prep) 1221986-03-24 Richard M. Stallman (rms@prep)
123 123
@@ -196,8 +196,8 @@
196 196
1971986-03-12 Richard Mlynarik (mly@prep) 1971986-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
2021986-03-12 Leonard H. Tower Jr. (tower@prep) 2021986-03-12 Leonard H. Tower Jr. (tower@prep)
203 203
@@ -226,16 +226,16 @@
226 226
2271986-03-07 Sundar Narasimhan (sundar@prep) 2271986-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
2321986-03-07 Bill Rozas (jinx@prep) 2321986-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
2401986-03-07 Richard M. Stallman (rms@prep) 2401986-03-07 Richard M. Stallman (rms@prep)
241 241
@@ -267,8 +267,8 @@
267 267
2681986-03-03 Leonard H. Tower Jr. (tower@prep) 2681986-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
2741986-03-03 Richard M. Stallman (rms@prep) 2741986-03-03 Richard M. Stallman (rms@prep)
@@ -320,8 +320,8 @@
3201986-02-20 Richard Mlynarik (mly@prep) 3201986-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
3261986-02-19 Richard M. Stallman (rms@prep) 3261986-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
4271986-02-03 Richard Mlynarik (mly@prep) 4271986-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
4311986-02-03 Richard M. Stallman (rms@prep) 4311986-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
5271986-01-21 Richard Mlynarik (mly@prep) 5271986-01-21 Richard Mlynarik (mly@prep)
528 528
@@ -585,7 +585,7 @@
5851986-01-09 Richard Mlynarik (mly@prep) 5851986-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
5901986-01-08 Richard Mlynarik (mly@prep) 5901986-01-08 Richard Mlynarik (mly@prep)
591 591
@@ -610,12 +610,12 @@
6101986-01-07 Richard Mlynarik (mly@prep) 6101986-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
6151986-01-06 Richard Mlynarik (mly@prep) 6151986-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
6201986-01-02 Richard Mlynarik (mly@prep) 6201986-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
6311985-12-30 Richard M. Stallman (rms@prep) 6311985-12-30 Richard M. Stallman (rms@prep)
632 632
@@ -646,7 +646,7 @@
6461985-12-30 Richard Mlynarik (mly@prep) 6461985-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
6511985-12-28 Richard M. Stallman (rms@prep) 6511985-12-28 Richard M. Stallman (rms@prep)
652 652
@@ -749,7 +749,7 @@
7491985-12-17 Richard Mlynarik (mly@prep) 7491985-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
7541985-12-17 Richard M. Stallman (rms@prep) 7541985-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
7781985-12-14 Richard M. Stallman (rms@prep) 7781985-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 @@
9071985-12-09 Richard Mlynarik (mly@prep) 9061985-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
10331985-12-05 Richard Mlynarik (mly@prep) 10321985-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
10411985-12-05 Richard M. Stallman (rms@prep) 10411985-12-05 Richard M. Stallman (rms@prep)
1042 1042
@@ -1091,18 +1091,18 @@
10911985-12-03 Richard Mlynarik (mly@prep) 10911985-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
11071985-12-03 Richard M. Stallman (rms@prep) 11071985-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 @@
11461985-11-26 Richard Mlynarik (mly@prep) 11451985-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
11591985-11-25 Richard M. Stallman (rms@prep) 11581985-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
12121985-11-20 Richard Mlynarik (mly@prep) 12111985-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
12421985-11-20 Richard M. Stallman (rms@prep) 12411985-11-20 Richard M. Stallman (rms@prep)
1243 1242
@@ -1275,14 +1274,14 @@
1275 1274
12761985-11-18 Richard Mlynarik (mly@prep) 12751985-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
13041985-11-14 Richard Mlynarik (mly@prep) 13031985-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
13091985-11-13 Richard M. Stallman (rms@prep) 13081985-11-13 Richard M. Stallman (rms@prep)
1310 1309
@@ -1332,19 +1331,19 @@
13321985-11-08 Richard Mlynarik (mly@prep) 13311985-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
13391985-11-07 Richard Mlynarik (mly@prep) 13381985-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
13441985-11-06 Richard Mlynarik (mly@prep) 13431985-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
13491985-11-05 Richard M. Stallman (rms@prep) 13481985-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
13751985-11-05 Richard M. Stallman (rms@prep) 13741985-11-05 Richard M. Stallman (rms@prep)
1376 1375
@@ -1381,7 +1380,7 @@
13811985-11-04 Richard Mlynarik (mly@prep) 13801985-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
13861985-11-04 Richard M. Stallman (rms@prep) 13851985-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
14281985-10-30 Richard Mlynarik (mly@prep) 14271985-10-30 Richard Mlynarik (mly@prep)
1429 1428
@@ -1449,7 +1448,7 @@
14491985-10-29 Richard Mlynarik (mly@prep) 14481985-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
14541985-10-29 Richard M. Stallman (rms@prep) 14531985-10-29 Richard M. Stallman (rms@prep)
1455 1454
@@ -1491,7 +1490,7 @@
1491 1490
14921985-10-23 Richard Mlynarik (mly@prep) 14911985-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 @@
15041985-10-22 Richard Mlynarik (mly@prep) 15031985-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
15121985-10-21 Richard M. Stallman (rms@mit-prep) 15111985-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
15301985-10-21 Richard M. Stallman (rms@mit-prep) 15291985-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
16241985-10-15 Richard M. Stallman (rms@mit-prep) 16231985-10-15 Richard M. Stallman (rms@mit-prep)
1625 1624
@@ -1651,7 +1650,7 @@
1651 1650
16521985-10-15 Richard Mlynarik (mly@mit-prep) 16511985-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
16571985-10-15 Richard M. Stallman (rms@mit-prep) 16561985-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
17901985-10-04 Richard M. Stallman (rms@mit-prep) 17881985-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
18111985-10-03 Richard Mlynarik (mly@mit-prep) 18091985-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
20201985-09-03 Richard Mlynarik (mly@mit-prep) 20181985-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
20251985-09-02 Richard M. Stallman (rms@mit-prep) 20231985-09-02 Richard M. Stallman (rms@mit-prep)
@@ -2052,7 +2050,7 @@
2052 2050
20531985-08-31 Richard Mlynarik (mly@mit-prep) 20511985-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
20581985-08-30 Richard M. Stallman (rms@mit-prep) 20561985-08-30 Richard M. Stallman (rms@mit-prep)
@@ -2062,7 +2060,7 @@
2062 2060
20631985-08-26 Richard Mlynarik (mly@mit-prep) 20611985-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
20711985-08-20 Richard Mlynarik (mly@mit-prep) 20691985-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
20771985-08-17 Richard Mlynarik (mly@mit-prep) 20751985-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
20891985-08-12 Richard Mlynarik (mly@mit-prep) 20871985-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
20941985-08-11 Richard Mlynarik (mly@mit-prep) 20921985-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
21011985-08-10 Richard Mlynarik (mly@mit-prep) 20991985-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
21061985-08-09 Richard Mlynarik (mly@mit-prep) 21041985-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
21301985-08-06 Richard Mlynarik (mly@mit-prep) 21271985-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
21721985-08-05 Richard Mlynarik (mly@mit-prep) 21691985-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
21831985-07-23 Richard Mlynarik (mly@mit-prep) 21801985-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
21891985-07-16 Richard Mlynarik (mly@mit-prep) 21861985-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
22051985-07-12 Richard M. Stallman (rms@mit-prep) 22021985-07-12 Richard M. Stallman (rms@mit-prep)
@@ -2222,7 +2219,7 @@
2222 2219
22231985-07-10 Richard Mlynarik (mly@mit-prep) 22201985-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
25551985-06-12 Richard Mlynarik (mly@mit-prep) 25521985-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
25601985-06-12 K. Shane Hartman (shane@mit-prep) 25571985-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
27361985-06-04 K. Shane Hartman (shane@mit-prep) 27331985-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
28031985-06-01 K. Shane Hartman (shane@mit-prep) 28001985-06-01 K. Shane Hartman (shane@mit-prep)
2804 2801
@@ -2823,7 +2820,7 @@
2823 2820
28241985-06-01 Richard M. Stallman (rms@mit-prep) 28211985-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
28281985-06-01 K. Shane Hartman (shane@mit-prep) 28251985-06-01 K. Shane Hartman (shane@mit-prep)
2829 2826
@@ -2862,16 +2859,16 @@
2862 2859
28631985-05-30 Richard Mlynarik (mly@mit-prep) 28601985-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
28761985-05-30 K. Shane Hartman (shane@mit-prep) 28731985-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
29201985-05-28 Richard Mlynarik (mly@mit-prep) 29171985-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
29331985-05-27 Richard M. Stallman (rms@mit-prep) 29301985-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
29731985-05-23 Richard Mlynarik (mly@mit-prep) 29701985-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
29951985-05-23 Richard M. Stallman (rms@mit-prep) 29921985-05-23 Richard M. Stallman (rms@mit-prep)
2996 2993
@@ -3008,19 +3005,19 @@
3008 3005
30091985-05-22 Richard Mlynarik (mly@mit-prep) 30061985-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
30161985-05-22 K. Shane Hartman (shane@mit-prep) 30131985-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 @@
30451985-05-21 Richard Mlynarik (mly@mit-prep) 30421985-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
30871985-05-19 Richard Mlynarik (mly@mit-prep) 30841985-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
31071985-05-19 Richard M. Stallman (rms@mit-prep) 31041985-05-19 Richard M. Stallman (rms@mit-prep)
3108 3105
@@ -3130,15 +3127,15 @@
31301985-05-17 Richard M. Stallman (rms@mit-prep) 31271985-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
31351985-05-16 Richard M. Stallman (rms@mit-prep) 31321985-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
31391985-05-16 K. Shane Hartman (shane@mit-prep) 31361985-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
5722009-04-16 Leo <sdl.web@gmail.com> (tiny change) 5722009-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
10442009-03-19 Leo <sdl.web@gmail.com> (tiny change) 10442009-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
2912011-03-04 Leo <sdl.web@gmail.com> 2912011-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
8692011-02-16 Leo <sdl.web@gmail.com> 8692011-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
15892011-01-28 Leo <sdl.web@gmail.com> 15892011-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
26712011-01-02 Leo <sdl.web@gmail.com> 26712011-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
27022011-01-02 Leo <sdl.web@gmail.com> 27022011-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
28702010-12-20 Leo <sdl.web@gmail.com> 28702010-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
29562010-12-16 Leo <sdl.web@gmail.com> 29562010-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
30842010-12-13 Leo <sdl.web@gmail.com> 30842010-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
31582010-12-13 Leo <sdl.web@gmail.com> 31582010-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
49932010-10-28 Leo <sdl.web@gmail.com> 49932010-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
52822010-10-24 Leo <sdl.web@gmail.com> 52822010-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
58792010-10-08 Leo <sdl.web@gmail.com> 58792010-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
70412010-09-12 Leo <sdl.web@gmail.com> 70412010-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
79642010-08-22 Leo <sdl.web@gmail.com> 79642010-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
79742010-08-22 Leo <sdl.web@gmail.com> 79742010-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
84322010-08-08 Leo <sdl.web@gmail.com> 84322010-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
85382010-08-03 Leo <sdl.web@gmail.com> 85382010-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
93392010-06-29 Leo <sdl.web@gmail.com> 93392010-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
193632009-09-13 Leo <sdl.web@gmail.com> (tiny change) 193632009-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
198262009-09-04 Leo <sdl.web@gmail.com> (tiny change) 198262009-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
611988-08-03 Robert J. Chassell (bob@frosted-flakes.ai.mit.edu) 611988-08-03 Robert J. Chassell (bob@frosted-flakes.ai.mit.edu)
62 62
@@ -454,7 +454,7 @@
454 454
4551988-04-09 Leonard H. Tower Jr. (tower@frosted-flakes.ai.mit.edu) 4551988-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
4601988-04-09 Richard Stallman (rms@frosted-flakes.ai.mit.edu) 4601988-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
8571987-12-01 Richard Stallman (rms@frosted-flakes) 8571987-12-01 Richard Stallman (rms@frosted-flakes)
858 858
@@ -1116,7 +1116,7 @@
1116 1116
11171987-06-08 Richard M. Stallman (rms@prep) 11171987-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
11321987-05-31 Richard M. Stallman (rms@prep) 11321987-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
13201987-04-15 Paul Rubin (phr@prep) 13201987-04-15 Paul Rubin (phr@prep)
1321 1321
1322 * version 18.44 released. 1322 * Version 18.44 released.
1323 1323
13241987-04-14 Richard Mlynarik (mly@prep) 13241987-04-14 Richard Mlynarik (mly@prep)
1325 1325
@@ -1910,7 +1910,7 @@
1910 1910
19111987-01-16 Richard Mlynarik (mly@prep) 19111987-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
23981986-11-23 Richard M. Stallman (rms@prep) 23981986-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
24831986-11-14 Richard M. Stallman (rms@prep) 24831986-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
26251986-11-04 Richard M. Stallman (rms@prep) 26251986-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
5341993-05-16 Richard Stallman (rms@geech.gnu.ai.mit.edu) 5341993-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
17731993-03-24 Jim Blandy (jimb@geech.gnu.ai.mit.edu) 17731993-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
18331993-03-22 Edward M. Reingold (reingold@emr.cs.uiuc.edu) 18331993-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
18451993-03-22 Eric S. Raymond (eric@geech.gnu.ai.mit.edu) 18451993-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
19771993-03-17 Eric S. Raymond (eric@mole.gnu.ai.mit.edu) 19771993-03-17 Eric S. Raymond (eric@mole.gnu.ai.mit.edu)
1978 1978
@@ -2186,8 +2186,8 @@
2186 2186
21871993-03-10 Edward M. Reingold (reingold@emr.cs.uiuc.edu) 21871993-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
21921993-03-10 Jim Blandy (jimb@totoro.cs.oberlin.edu) 21921993-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
1271994-05-24 Kenneth Manheimer (ken.manheimer@nist.gov) 1271994-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
3451994-05-12 Kenneth Manheimer (klm@coil.nist.gov) 3451994-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
4221994-05-10 Karl Heuer (kwzh@hal.gnu.ai.mit.edu) 4221994-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
5201994-05-08 Kenneth Manheimer (klm@coil.nist.gov) 5201994-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
9611994-04-29 Kenneth Manheimer (ken.manheimer@nist.gov) 9611994-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
59171993-08-26 Jim Blandy (blandy@comano.cscs.ch) 59191993-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
45071994-12-23 Richard Stallman <rms@mole.gnu.ai.mit.edu> 45071994-12-23 Richard Stallman <rms@mole.gnu.ai.mit.edu>
@@ -4732,8 +4732,8 @@
4732 4732
47331994-12-18 Lawrence R. Dodd (dodd@roebling.poly.edu) 47331994-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
52501994-11-09 Francesco Potortì (pot@cnuce.cnr.it) 52501994-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
52561994-11-09 Karl Heuer <kwzh@hal.gnu.ai.mit.edu> 52561994-11-09 Karl Heuer <kwzh@hal.gnu.ai.mit.edu>
@@ -5285,8 +5285,8 @@
5285 5285
52861994-11-08 Ed Reingold <reingold@albert.gnu.ai.mit.edu> 52861994-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
53441994-10-31 voelker <voelker@cs.washington.edu> 53441994-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
56351994-10-22 Roland McGrath <roland@churchy.gnu.ai.mit.edu> 56351994-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
56661994-10-20 Noah Friedman <friedman@splode.com> 56661994-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
57081994-10-19 Boris Goldowsky <boris@cs.rochester.edu> 57081994-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
70191994-09-18 Kenneth Manheimer (klm@coil.nist.gov) 70191994-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
72341994-09-14 Boris Goldowsky <boris@cs.rochester.edu> 72341994-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
72401994-09-13 Karl Heuer <kwzh@hal.gnu.ai.mit.edu> 72401994-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
72461994-09-11 Richard Stallman <rms@mole.gnu.ai.mit.edu> 72461994-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
87151994-06-22 Noah Friedman (friedman@splode.com) 87151994-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
89131994-06-17 Roland McGrath (roland@geech.gnu.ai.mit.edu) 89131994-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
6871996-06-23 Noah Friedman <friedman@splode.com> 6871996-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
6921996-06-22 Richard Stallman <rms@psilocin.gnu.ai.mit.edu> 6921996-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
14791996-04-18 Lars Magne Ingebrigtsen <larsi@ifi.uio.no> 14791996-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
28751996-01-29 Andreas Schwab <schwab@issan.informatik.uni-dortmund.de> 28751996-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
31591996-01-24 Karl Heuer <kwzh@gnu.ai.mit.edu> 31591996-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
32301996-01-24 Richard Stallman <rms@mole.gnu.ai.mit.edu> 32301996-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
43901995-12-19 Eli Zaretskii <eliz@is.elta.co.il> 43901995-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
43961995-12-19 Karl Heuer <kwzh@gnu.ai.mit.edu> 43961995-12-19 Karl Heuer <kwzh@gnu.ai.mit.edu>
4397 4397
@@ -4419,8 +4419,8 @@
4419 4419
44201995-12-14 Lars Magne Ingebrigtsen <larsi@ifi.uio.no> 44201995-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
47091995-11-29 Paul Eggert <eggert@twinsun.com> 47091995-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
47241995-11-29 Richard Stallman <rms@mole.gnu.ai.mit.edu> 47241995-11-29 Richard Stallman <rms@mole.gnu.ai.mit.edu>
@@ -5010,8 +5010,8 @@
50101995-11-14 Eric Ding <ericding@mit.edu> 50101995-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
50161995-11-13 Richard Stallman <rms@mole.gnu.ai.mit.edu> 50161995-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
62161995-09-18 Richard Stallman <rms@whiz-bang.gnu.ai.mit.edu> 62151995-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
70121995-08-04 Stephen A. Wood <saw@hallc1.cebaf.gov> 70111995-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
70171995-08-04 Roland McGrath <roland@churchy.gnu.ai.mit.edu> 70161995-08-04 Roland McGrath <roland@churchy.gnu.ai.mit.edu>
7018 7017
@@ -7287,7 +7286,7 @@
7287 7286
72881995-07-25 Ake Stenhoff <etxaksf@aom.ericsson.se> 72871995-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 @@
77991995-06-29 David M. Smith <D.M.Smith@lancaster.ac.uk> 77981995-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
78041995-06-29 Bryan O'Sullivan <bos@Eng.Sun.COM> 78031995-06-29 Bryan O'Sullivan <bos@Eng.Sun.COM>
7805 7804
@@ -7944,7 +7943,7 @@
7944 7943
79451995-06-24 Richard Stallman <rms@mole.gnu.ai.mit.edu> 79441995-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
19051998-06-22 WJCarpenter <bill@carpenter.ORG> 19051998-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 @@
12012-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
12011-12-19 Sam Steingold <sds@gnu.org> 182011-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.
99If the value is t, EDE may search in any directory.
100
101If the value is a function, EDE calls that function with one
102argument, the directory name; the function should return t iff
103EDE should look for project files in the directory.
104
105Otherwise, the value should be a list of fully-expanded directory
106names. EDE searches for project files only in those directories.
107If you invoke the commands \\[ede] or \\[ede-new] on a directory
108that is not listed, Emacs will offer to add it to the list.
109
110Any 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.
121Projects that do not load a project definition as Emacs Lisp code
122are safe, and can be loaded automatically. Other project types,
123such as those created with Project.ede files, are safe only if
124specified 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."
420Sets buffer local variables for EDE." 456Sets 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.
562Argument FILE is the file or directory to load a project from." 616If DIR has an existing project file, load it.
563 (interactive "fProject File: ") 617Otherwise, 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'.
660If it is not, try asking the user if it should be added; if so,
661add it and save `ede-project-directories' via Customize.
662Return 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'.
671Add 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.
1062It is recommended you track the project a different way as this function 1178It is recommended you track the project a different way as this function
1063could become slow in time." 1179could 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\".
65An unsafe project is one that loads project variables via Emacs
66Lisp code. A safe project is one that loads project variables by
67scanning 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.
63When more advanced functionality is needed from a project type, that projects 70When 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.
138THIS project description should be valid for DIR, where the project will
139be 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.
43The returned context is a list, with the top-most context first. 43The returned context is a list, with the top-most context first.
44Each returned context is a string that that would show up in a `context' 44Each returned context is a string that would show up in a `context'
45statement in an `.srt' file. 45statement in an `.srt' file.
46 46
47Some useful context values used by the provided srecode templates are: 47Some 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
578significance for `dired-do-shell-command', and are passed through 578significance for `dired-do-shell-command', and are passed through
579normally to the shell, but you must confirm first. To pass `*' by 579normally to the shell, but you must confirm first.
580itself to the shell as a wildcard, type `*\"\"'. 580
581If you want to use `*' as a shell wildcard with whitespace around
582it, write `*\"\"' in place of just `*'. This is equivalent to just
583`*' in the shell, but avoids Dired's special handling.
581 584
582If COMMAND produces output, it goes to a separate buffer. 585If 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.
1116Use SWITCHES to make the listings. 1121Use 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
3786significance for `dired-do-shell-command', and are passed through 3803significance for `dired-do-shell-command', and are passed through
3787normally to the shell, but you must confirm first. To pass `*' by 3804normally to the shell, but you must confirm first.
3788itself to the shell as a wildcard, type `*\"\"'. 3805
3806If you want to use `*' as a shell wildcard with whitespace around
3807it, write `*\"\"' in place of just `*'. This is equivalent to just
3808`*' in the shell, but avoids Dired's special handling.
3789 3809
3790If COMMAND produces output, it goes to a separate buffer. 3810If 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."
1943A code fragment is identified by an open parenthesis followed by a 1943A code fragment is identified by an open parenthesis followed by a
1944symbol which is a valid function or a word in all CAPS, or a parenthesis 1944symbol which is a valid function or a word in all CAPS, or a parenthesis
1945that is quoted with the ' character. Only the region from START to LIMIT 1945that is quoted with the ' character. Only the region from START to LIMIT
1946is is allowed while searching for the bounding parenthesis." 1946is 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
1951of PREFIX, and expanding against `temporary-file-directory' if necessary), 1951of PREFIX, and expanding against `temporary-file-directory' if necessary),
1952is guaranteed to point to a newly created empty file. 1952is guaranteed to point to a newly created empty file.
1953You can then use `write-region' to write new data into the file." 1953You 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
212006-12-28 Leo <sdl.web@gmail.com> (tiny change) 212006-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
542006-12-13 Leo <sdl.web@gmail.com> (tiny change) 542006-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'.
67This is a cons of two strings (FIND-OPTION . LS-SWITCHES). FIND-OPTION 67This is a cons of two strings (FIND-OPTION . LS-SWITCHES).
68gives the option (or options) to `find' that produce the desired output. 68FIND-OPTION is the option (or options) passed to `find' to produce
69LS-SWITCHES is a list of `ls' switches to tell dired how to parse the output." 69a 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
72The two options must be set to compatible values.
73For example, to use human-readable file sizes with GNU ls:
74 \(\"-exec ls -ldh {} +\" . \"-ldh\")
75
76To use GNU find's inbuilt \"-ls\" option to list files:
77 \(\"-ls\" . \"-dilsb\")
78since GNU find's output has the same format as using GNU ls with
79the 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 @@
12012-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
12012-01-07 Lars Magne Ingebrigtsen <larsi@gnus.org> 92012-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
962012-01-04 Leo <sdl.web@gmail.com> 1042012-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
1282012-01-03 Leo <sdl.web@gmail.com> 1362012-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
112372007-10-28 Leo <sdl.web@gmail.com> (tiny change) 112452007-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
862specify - this matches Emacs' behavior when deciding on which face attributes 862specify - this matches Emacs' behavior when deciding on which face attributes
863to use, to the best of my understanding).\n 863to use, to the best of my understanding).\n
864If CLASS is nil, then you just get get whatever `face-attr-construct' returns, 864If CLASS is nil, then you just get whatever `face-attr-construct' returns,
865ie the current specification in effect for FACE.\n 865ie 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
867no :inherit property to inherit from 'default (this is because 'default 867no :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
28992003-06-01 Peter S Galbraith <psg@debian.org> 28992003-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
11802012-01-03 Leo <sdl.web@gmail.com> 11802012-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
17502012-01-03 Suvayu Ali <fatkasuvayu+linux@gmail.com> (tiny change) 17502012-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
17552012-01-03 Bastien Guerry <bzg@gnu.org> 17552012-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
29672011-07-28 Bastien <bzg@gnu.org> 29672011-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
67892011-07-28 Bastien <bastien.guerry@wikimedia.fr> 67892011-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
195752008-10-12 Carsten Dominik <dominik@science.uva.nl> 195752008-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
131of the same value." 131of 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.
1092When using S-right in the agenda to move a a date forward, and the date 1092When using S-right in the agenda to move a a date forward, and the date
1093stamp currently points to the past, the first key press will move it 1093stamp currently points to the past, the first key press will move it
1094to today. WHen nil, just move one day forward even if the date stays 1094to 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
1660the icon should be displayed. 1660the icon should be displayed.
1661FILE-OR-DATA either a file path or a string containing image data. 1661FILE-OR-DATA either a file path or a string containing image data.
1662 1662
1663The other fields can be omited safely if not needed: 1663The other fields can be omitted safely if not needed:
1664TYPE indicates the image type. 1664TYPE indicates the image type.
1665DATA-P is a boolean indicating whether the FILE-OR-DATA string is 1665DATA-P is a boolean indicating whether the FILE-OR-DATA string is
1666image data. 1666image data.
@@ -3064,7 +3064,7 @@ define a filter for one of the individual blocks. You need to set it in
3064the global options and expect it to be applied to the entire view.") 3064the 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.
3068This must be a list of strings, each string must be a single category 3068This must be a list of strings, each string must be a single category
3069preceded by \"+\" or \"-\". 3069preceded by \"+\" or \"-\".
3070This variable should not be set directly, but agenda custom commands can 3070This 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).
4922SKIP-WEEKS is any number of ISO weeks in the block period for which the 4922SKIP-WEEKS is any number of ISO weeks in the block period for which the
4923item should be skipped. If any of the SKIP-WEEKS arguments is the symbol 4923item 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
4925holidy will also be skipped." 4925holiday 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'.
378When LOCAL is set, use the local variable `org-capture-current-plist', 378When LOCAL is set, use the local variable `org-capture-current-plist',
379this is necessary after initialization of the capture process, 379this is necessary after initialization of the capture process,
380to avoid conflicts with other active capture processes." 380to 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.
2129TABLES is a list of tables with clocking data as produced by 2129TABLES 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
2131from the dynamic block defintion." 2131from 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.
2800REPLACE-LABELS is dual-purpose. 2800REPLACE-LABELS is dual-purpose.
28011. It controls the retention of labels in the exported block. 28011. It controls the retention of labels in the exported block.
28022. It specifies in what manner the links (or references) to a 28022. It specifies in what manner the links (or references) to a
2803 labelled line be formatted. 2803 labeled line be formatted.
2804 2804
2805REPLACE-LABELS is the symbol `keep' if the literal example 2805REPLACE-LABELS is the symbol `keep' if the literal example
2806specifies \"-k\" option, is numeric if the literal example 2806specifies \"-k\" option, is numeric if the literal example
@@ -2808,12 +2808,12 @@ specifies \"-r\" option and is nil otherwise.
2808 2808
2809Handle REPLACE-LABELS as below: 2809Handle 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
2819LABEL-FORMAT is the value of \"-l\" switch associated with 2819LABEL-FORMAT is the value of \"-l\" switch associated with
@@ -2823,8 +2823,8 @@ PREPROCESS is intended for backend-agnostic handling of source
2823block numbering. When non-nil do the following: 2823block 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.
2677The first run indents the item, if applicable. Subsequents runs 2677The first run indents the item, if applicable. Subsequent runs
2678outdent it at meaningful levels in the list. When done, item is 2678outdent it at meaningful levels in the list. When done, item is
2679put back at its original position with its original bullet. 2679put back at its original position with its original bullet.
2680 2680
@@ -3047,7 +3047,7 @@ Valid parameters PARAMS are:
3047 3047
3048Alternatively, each parameter can also be a form returning 3048Alternatively, each parameter can also be a form returning
3049a string. These sexp can use keywords `counter' and `depth', 3049a string. These sexp can use keywords `counter' and `depth',
3050reprensenting respectively counter associated to the current 3050representing respectively counter associated to the current
3051item, and depth of the current sub-list, starting at 0. 3051item, and depth of the current sub-list, starting at 0.
3052Obviously, `counter' is only available for parameters applying to 3052Obviously, `counter' is only available for parameters applying to
3053items." 3053items."
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.
284Use options 1, 2 or 3 only if styles.xml alone suffices for 284Use options 1, 2 or 3 only if styles.xml alone suffices for
285achieving the desired formatting. Use option 4, if the styles.xml 285achieving the desired formatting. Use option 4, if the styles.xml
286references additional files like header and footer images for 286references additional files like header and footer images for
287achieving the desired formattting. 287achieving the desired formatting.
288 288
289Use \"#+ODT_STYLES_FILE: ...\" directive to set this variable on 289Use \"#+ODT_STYLES_FILE: ...\" directive to set this variable on
290a per-file basis. For example, 290a 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.
1882Each element of the alist is of the form (LABEL-NAME 1882Each element of the alist is of the form (LABEL-NAME
1883CATEGORY-NAME SEQNO LABEL-STYLE-NAME). LABEL-NAME is same as 1883CATEGORY-NAME SEQNO LABEL-STYLE-NAME). LABEL-NAME is same as
1884that specified by \"#+LABEL: ...\" line. CATEGORY-NAME is the 1884that 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
148This is done by advising `server-visit-files' to scann the list of filenames 148This is done by advising `server-visit-files' to scan the list of filenames
149for `org-protocol-the-protocol' and sub-procols defined in 149for `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.
281You could use brackets to delimit on what part the link will be. 281You 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.
52This can be used to add additional functionality after the table is sent 52This can be used to add additional functionality after the table is sent
53to the receiver position, othewise, if table is not sent, the functions 53to the receiver position, otherwise, if table is not sent, the functions
54are not run.") 54are 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.
1301If there is no data line in this line, return nil. 1301If there is no data line in this line, return nil.
1302If there is no matchin dline (most likely te refrence was a hline), the 1302If there is no matching dline (most likely the reference was a hline), the
1303first dline below it is used. When ABOVE is non-nil, the one above is used." 1303first 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.
2934The maximun number of iterations is 10, but you can chose a different value 2934The maximum number of iterations is 10, but you can choose a different value
2935with the prefix ARG." 2935with 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
576alist representing either a resource or a task. ATTRIBUTES is a 576alist representing either a resource or a task. ATTRIBUTES is a
577list of symbols. Only entries from ITEM are considered that are 577list of symbols. Only entries from ITEM are considered that are
578listed in ATTRIBUTES." 578listed 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'.
5740This is calles after `org-font-lock-extra-keywords' is defined, but before 5740This is called after `org-font-lock-extra-keywords' is defined, but before
5741it is installed to be used by font lock. This can be useful if something 5741it is installed to be used by font lock. This can be useful if something
5742needs to be inserted at a specific position in the font-lock sequence.") 5742needs 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
4212Note that this function might do hidden buffer changes. See the 4212Note that this function might do hidden buffer changes. See the
4213comment at the start of cc-engine.el for more info." 4213comment 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
604as cdr." 604as 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.
231If this variable is non-nil, Emacs will use the function `file-truename' to 231If this variable is non-nil, Emacs will use the function `file-truename' to
232resolve symbolic links in the file paths printed by e.g., STOP commands. 232resolve symbolic links in the file paths printed by e.g., STOP commands.
233This means, unvisited files will be loaded under their truename. 233This 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.
147Uses a + when there is no sign in subfield. Subfield is left padded with 147Uses a + when there is no sign in subfield. Subfield is left padded with
148zeros to make a word. Index registers only have 2 bytes and a sign, Trying 148zeros to make a word. Index registers only have 2 bytes and a sign; trying
149to set anything more that that will result in undefined behavior." 149to 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.
154Uses a + when there is no sign in subfield. Subfield is left padded with 154Uses a + when there is no sign in subfield. Subfield is left padded with
155zeros to make a word. Index registers only have 2 bytes and a sign, Trying 155zeros to make a word. Index registers only have 2 bytes and a sign; trying
156to set anything more that that will result in undefined behavior." 156to 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.
161Uses a + when there is no sign in subfield. Subfield is left padded with 161Uses a + when there is no sign in subfield. Subfield is left padded with
162zeros to make a word. Index registers only have 2 bytes and a sign, Trying 162zeros to make a word. Index registers only have 2 bytes and a sign; trying
163to set anything more that that will result in undefined behavior." 163to 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.
168Uses a + when there is no sign in subfield. Subfield is left padded with 168Uses a + when there is no sign in subfield. Subfield is left padded with
169zeros to make a word. Index registers only have 2 bytes and a sign, Trying 169zeros to make a word. Index registers only have 2 bytes and a sign; trying
170to set anything more that that will result in undefined behavior." 170to 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.
175Uses a + when there is no sign in subfield. Subfield is left padded with 175Uses a + when there is no sign in subfield. Subfield is left padded with
176zeros to make a word. Index registers only have 2 bytes and a sign, Trying 176zeros to make a word. Index registers only have 2 bytes and a sign; trying
177to set anything more that that will result in undefined behavior." 177to 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.
182Uses a + when there is no sign in subfield. Subfield is left padded with 182Uses a + when there is no sign in subfield. Subfield is left padded with
183zeros to make a word. Index registers only have 2 bytes and a sign, Trying 183zeros to make a word. Index registers only have 2 bytes and a sign; trying
184to set anything more that that will result in undefined behavior." 184to 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.
201Uses a + when there is no sign in subfield, otherwise use the opposite sign. 201Uses a + when there is no sign in subfield, otherwise use the opposite sign.
202Subfield is left padded with zeros to make a word. Index registers only 202Subfield is left padded with zeros to make a word. Index registers only
203have 2 bytes and a sign, Trying to set anything more that that will result 203have 2 bytes and a sign; trying to set anything more than that will result
204in undefined behavior." 204in 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.
209Uses a + when there is no sign in subfield, otherwise use the opposite sign. 209Uses a + when there is no sign in subfield, otherwise use the opposite sign.
210Subfield is left padded with zeros to make a word. Index registers only 210Subfield is left padded with zeros to make a word. Index registers only
211have 2 bytes and a sign, Trying to set anything more that that will result 211have 2 bytes and a sign; trying to set anything more than that will result
212in undefined behavior." 212in 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.
217Uses a + when there is no sign in subfield, otherwise use the opposite sign. 217Uses a + when there is no sign in subfield, otherwise use the opposite sign.
218Subfield is left padded with zeros to make a word. Index registers only 218Subfield is left padded with zeros to make a word. Index registers only
219have 2 bytes and a sign, Trying to set anything more that that will result 219have 2 bytes and a sign; trying to set anything more than that will result
220in undefined behavior." 220in 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.
225Uses a + when there is no sign in subfield, otherwise use the opposite sign. 225Uses a + when there is no sign in subfield, otherwise use the opposite sign.
226Subfield is left padded with zeros to make a word. Index registers only 226Subfield is left padded with zeros to make a word. Index registers only
227have 2 bytes and a sign, Trying to set anything more that that will result 227have 2 bytes and a sign; trying to set anything more than that will result
228in undefined behavior." 228in 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.
233Uses a + when there is no sign in subfield, otherwise use the opposite sign. 233Uses a + when there is no sign in subfield, otherwise use the opposite sign.
234Subfield is left padded with zeros to make a word. Index registers only 234Subfield is left padded with zeros to make a word. Index registers only
235have 2 bytes and a sign, Trying to set anything more that that will result 235have 2 bytes and a sign; trying to set anything more than that will result
236in undefined behavior." 236in 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.
241Uses a + when there is no sign in subfield, otherwise use the opposite sign. 241Uses a + when there is no sign in subfield, otherwise use the opposite sign.
242Subfield is left padded with zeros to make a word. Index registers only 242Subfield is left padded with zeros to make a word. Index registers only
243have 2 bytes and a sign, Trying to set anything more that that will result 243have 2 bytes and a sign; trying to set anything more than that will result
244in undefined behavior." 244in 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.
98If Adaptive Fill mode is enabled, a prefix matching this pattern 99If 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 @@
12012-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
12011-11-15 Juanma Barranquero <lekktu@gmail.com> 72011-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