aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaroly Lorentey2005-06-22 17:53:21 +0000
committerKaroly Lorentey2005-06-22 17:53:21 +0000
commitf4d9bf3a9be50a17c2e2f7569b88f3606ab273d9 (patch)
treea06250d0c5fec729ab16920d2bb4f857f04cde8b
parentf3479ceeb65724094be33b49bae289a81f42b6ee (diff)
parent73106994f86353b8bb5018bacdace22643c5f485 (diff)
downloademacs-f4d9bf3a9be50a17c2e2f7569b88f3606ab273d9.tar.gz
emacs-f4d9bf3a9be50a17c2e2f7569b88f3606ab273d9.zip
Merged from miles@gnu.org--gnu-2005 (patch 438-440)
Patches applied: * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-438 Rename vertical-divider face to vertical-border * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-439 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-440 Change escape-glyph color on dark backgrounds back to cyan git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-353
-rw-r--r--admin/FOR-RELEASE11
-rw-r--r--etc/NEWS14
-rw-r--r--etc/TODO3
-rw-r--r--lisp/ChangeLog47
-rw-r--r--lisp/autoinsert.el2
-rw-r--r--lisp/calc/calc-misc.el2
-rw-r--r--lisp/calendar/appt.el193
-rw-r--r--lisp/emacs-lisp/byte-opt.el16
-rw-r--r--lisp/emacs-lisp/edebug.el11
-rw-r--r--lisp/emacs-lisp/lisp-mode.el17
-rw-r--r--lisp/emacs-lisp/lisp.el2
-rw-r--r--lisp/faces.el13
-rw-r--r--lisp/gnus/ChangeLog4
-rw-r--r--lisp/gnus/nnimap.el2
-rw-r--r--lisp/net/browse-url.el4
-rw-r--r--lisp/pcvs-defs.el2
-rw-r--r--lisp/progmodes/cc-defs.el2
-rw-r--r--lisp/progmodes/ebnf-abn.el2
-rw-r--r--lisp/progmodes/ebnf-bnf.el4
-rw-r--r--lisp/progmodes/ebnf-dtd.el2
-rw-r--r--lisp/progmodes/ebnf-ebx.el6
-rw-r--r--lisp/progmodes/ebnf-iso.el2
-rw-r--r--lisp/progmodes/ebnf-yac.el2
-rw-r--r--lisp/ses.el2
-rw-r--r--lisp/subr.el8
-rw-r--r--lisp/url/ChangeLog5
-rw-r--r--lisp/url/url-gw.el2
-rw-r--r--lisp/url/url-vars.el2
-rw-r--r--lispintro/emacs-lisp-intro.texi2
-rw-r--r--lispref/ChangeLog16
-rw-r--r--lispref/anti.texi2
-rw-r--r--lispref/backups.texi2
-rw-r--r--lispref/control.texi2
-rw-r--r--lispref/display.texi5
-rw-r--r--lispref/elisp.texi65
-rw-r--r--lispref/frames.texi2
-rw-r--r--lispref/text.texi2
-rw-r--r--man/ChangeLog4
-rw-r--r--man/cc-mode.texi2
-rw-r--r--man/display.texi2
-rw-r--r--man/gnus.texi2
-rw-r--r--man/message.texi2
-rw-r--r--man/ses.texi2
-rw-r--r--man/tramp.texi2
-rw-r--r--man/url.texi24
-rw-r--r--src/ChangeLog24
-rw-r--r--src/dispextern.h3
-rw-r--r--src/dispnew.c2
-rw-r--r--src/fns.c2
-rw-r--r--src/frame.c6
-rw-r--r--src/process.c2
-rw-r--r--src/window.c2
-rw-r--r--src/xfaces.c22
53 files changed, 358 insertions, 225 deletions
diff --git a/admin/FOR-RELEASE b/admin/FOR-RELEASE
index 03bedbdb6dc..0d4e0083686 100644
--- a/admin/FOR-RELEASE
+++ b/admin/FOR-RELEASE
@@ -67,17 +67,6 @@ I think in the near future we will see more of this problem, so it might be
67time to make anfe-ftp more intelligent. 67time to make anfe-ftp more intelligent.
68 68
69 69
70* REDISPLAY RELATED BUGS
71
72** Avoid unbreakable loops in redisplay.
73
74Redisplay may loop if there is an error in some display property, e.g.
75 (space 'left-margin)
76
77A fix would be to somehow disable handling of display properties if an error
78is encountered.
79
80
81* DOCUMENTATION 70* DOCUMENTATION
82 71
83** Document Custom Themes. 72** Document Custom Themes.
diff --git a/etc/NEWS b/etc/NEWS
index 477bf23c524..40582c2ca97 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -1982,7 +1982,7 @@ exceptions are M-a (c-beginning-of-statement) and M-e
1982 1982
1983The notion of "defun" has been augmented to include AWK pattern-action 1983The notion of "defun" has been augmented to include AWK pattern-action
1984pairs. C-M-a (c-awk-beginning-of-defun) and C-M-e (c-awk-end-of-defun) 1984pairs. C-M-a (c-awk-beginning-of-defun) and C-M-e (c-awk-end-of-defun)
1985recognise these pattern-action pairs, as well as user defined 1985recognize these pattern-action pairs, as well as user defined
1986functions. 1986functions.
1987 1987
1988**** Auto-newline Insertion and Clean-ups 1988**** Auto-newline Insertion and Clean-ups
@@ -2019,7 +2019,7 @@ cells. E.g. a line that previously had the syntactic analysis
2019 2019
2020((inclass . 11) (topmost-intro . 13)) 2020((inclass . 11) (topmost-intro . 13))
2021 2021
2022is now analysed as 2022is now analyzed as
2023 2023
2024((inclass 11) (topmost-intro 13)) 2024((inclass 11) (topmost-intro 13))
2025 2025
@@ -2542,7 +2542,7 @@ per line. Lines beginning with space or tab are ignored.
2542 2542
2543Previously, only the `template' and `class' keywords had this effect. 2543Previously, only the `template' and `class' keywords had this effect.
2544 2544
2545**** The GCC __attribute__ keyword is now recognised and ignored. 2545**** The GCC __attribute__ keyword is now recognized and ignored.
2546 2546
2547**** New language HTML. 2547**** New language HTML.
2548 2548
@@ -3942,7 +3942,7 @@ function is still supported, but new code should use the new
3942functions. 3942functions.
3943 3943
3944*** Function `signal-process' now accepts a process object or process 3944*** Function `signal-process' now accepts a process object or process
3945name in addition to a process id to identify the signalled process. 3945name in addition to a process id to identify the signaled process.
3946 3946
3947*** Processes now have an associated property list where programs can 3947*** Processes now have an associated property list where programs can
3948maintain process state and other per-process related information. 3948maintain process state and other per-process related information.
@@ -13309,10 +13309,10 @@ not by default. Use --members to turn this feature on.
13309*** C++ member functions are now recognized as tags. 13309*** C++ member functions are now recognized as tags.
13310 13310
13311*** Java is tagged like C++. In addition, "extends" and "implements" 13311*** Java is tagged like C++. In addition, "extends" and "implements"
13312constructs are tagged. Files are recognised by the extension .java. 13312constructs are tagged. Files are recognized by the extension .java.
13313 13313
13314*** Etags can now handle programs written in Postscript. Files are 13314*** Etags can now handle programs written in Postscript. Files are
13315recognised by the extensions .ps and .pdb (Postscript with C syntax). 13315recognized by the extensions .ps and .pdb (Postscript with C syntax).
13316In Postscript, tags are lines that start with a slash. 13316In Postscript, tags are lines that start with a slash.
13317 13317
13318*** Etags now handles Objective C and Objective C++ code. The usual C and 13318*** Etags now handles Objective C and Objective C++ code. The usual C and
@@ -13320,7 +13320,7 @@ C++ tags are recognized in these languages; in addition, etags
13320recognizes special Objective C syntax for classes, class categories, 13320recognizes special Objective C syntax for classes, class categories,
13321methods and protocols. 13321methods and protocols.
13322 13322
13323*** Etags also handles Cobol. Files are recognised by the extension 13323*** Etags also handles Cobol. Files are recognized by the extension
13324.cobol. The tagged lines are those containing a word that begins in 13324.cobol. The tagged lines are those containing a word that begins in
13325column 8 and ends in a full stop, i.e. anything that could be a 13325column 8 and ends in a full stop, i.e. anything that could be a
13326paragraph name. 13326paragraph name.
diff --git a/etc/TODO b/etc/TODO
index ddfbad2b65f..6e174cd38a1 100644
--- a/etc/TODO
+++ b/etc/TODO
@@ -9,6 +9,9 @@ to the FSF.
9 9
10* Small but important fixes needed in existing features: 10* Small but important fixes needed in existing features:
11 11
12** Make occur correctly handle matches that span more than one line,
13 as well as overlapping matches.
14
12** Fix the kill/yank treatment of invisible text. At the moment, 15** Fix the kill/yank treatment of invisible text. At the moment,
13 invisible text is placed in the kill-ring, so that the contents of 16 invisible text is placed in the kill-ring, so that the contents of
14 the ring may not correspond to the text as displayed to the user. 17 the ring may not correspond to the text as displayed to the user.
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 45d7ccdca02..1079129698e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,47 @@
12005-06-22 Miles Bader <miles@gnu.org>
2
3 * faces.el (vertical-border): Renamed from `vertical-divider'.
4 (escape-glyph): Change dark-background color back to `cyan'.
5
62005-06-21 Juri Linkov <juri@jurta.org>
7
8 * faces.el (face-user-default-spec): Try getting `customized-face'
9 prior to `saved-face'.
10 (frame-background-mode): Refill docstring.
11
12 * emacs-lisp/lisp-mode.el (eval-defun-1):
13 * emacs-lisp/edebug.el (edebug-eval-defun):
14 Set `saved-face' temporarily to nil before calling form.
15 Set `customized-face' to the new spec after that.
16
172005-06-21 Juanma Barranquero <lekktu@gmail.com>
18
19 * subr.el (1value, lambda, key-substitution-in-progress):
20 Doc fixes.
21
22 * autoinsert.el (auto-insert-alist):
23 * ses.el (ses-call-printer):
24 * subr.el (noreturn):
25 * emacs-lisp/lisp.el (check-parens):
26 * emacs-lisp/byte-opt.el (byte-optimize-pure-func):
27 * net/browse-url.el (browse-url-mosaic):
28 * progmodes/cc-defs.el (c-safe-scan-lists):
29 * progmodes/ebnf-abn.el (ebnf-abn-lex):
30 * progmodes/ebnf-bnf.el (ebnf-bnf-lex):
31 * progmodes/ebnf-dtd.el (ebnf-dtd-lex):
32 * progmodes/ebnf-ebx.el (ebnf-ebx-lex):
33 * progmodes/ebnf-iso.el (ebnf-iso-lex):
34 * progmodes/ebnf-yac.el (ebnf-yac-lex): Fix spellings.
35
362005-06-21 Reiner Steib <Reiner.Steib@gmx.de>
37
38 * pcvs-defs.el (cvs-menu): Add cvs-mode-mark and cvs-mode-unmark.
39
402005-06-21 Glenn Morris <gmorris@ast.cam.ac.uk>
41
42 * calendar/appt.el (appt-make-list): Activate the package, if
43 not already active (for backwards compatibility).
44
12005-06-20 Kim F. Storm <storm@cua.dk> 452005-06-20 Kim F. Storm <storm@cua.dk>
2 46
3 * subr.el (add-to-ordered-list): Test membership with eq. Simplify. 47 * subr.el (add-to-ordered-list): Test membership with eq. Simplify.
@@ -536,6 +580,7 @@
536 variables, unless either `gtk' is boundp or this isn't a 580 variables, unless either `gtk' is boundp or this isn't a
537 `windows-nt' build. 581 `windows-nt' build.
538 582
583>>>>>>> 1.7817
5392005-06-13 Lute Kamstra <lute@gnu.org> 5842005-06-13 Lute Kamstra <lute@gnu.org>
540 585
541 * abbrev.el (edit-abbrevs-mode): Use kill-all-local-variables and 586 * abbrev.el (edit-abbrevs-mode): Use kill-all-local-variables and
@@ -1443,6 +1488,7 @@
1443 1488
1444 * simple.el (filter-buffer-substring): Fix typo in docstring. 1489 * simple.el (filter-buffer-substring): Fix typo in docstring.
1445 1490
1491>>>>>>> 1.7768
14462005-05-31 Richard M. Stallman <rms@gnu.org> 14922005-05-31 Richard M. Stallman <rms@gnu.org>
1447 1493
1448 * progmodes/vhdl-mode.el (vhdl-fill-region): Test ARG, not INTERACTIVE. 1494 * progmodes/vhdl-mode.el (vhdl-fill-region): Test ARG, not INTERACTIVE.
@@ -1479,6 +1525,7 @@
1479 * textmodes/tex-mode.el (tex-compile-commands, tex-compile) 1525 * textmodes/tex-mode.el (tex-compile-commands, tex-compile)
1480 (tex-start-tex): Undo all but the last part of the 2005-05-28 change. 1526 (tex-start-tex): Undo all but the last part of the 2005-05-28 change.
1481 1527
1528>>>>>>> 1.7646
14822005-05-30 Glenn Morris <gmorris@ast.cam.ac.uk> 15292005-05-30 Glenn Morris <gmorris@ast.cam.ac.uk>
1483 1530
1484 * calendar/diary-lib.el (mark-included-diary-files): Only kill 1531 * calendar/diary-lib.el (mark-included-diary-files): Only kill
diff --git a/lisp/autoinsert.el b/lisp/autoinsert.el
index 27f5555bb04..04bdb17efca 100644
--- a/lisp/autoinsert.el
+++ b/lisp/autoinsert.el
@@ -140,7 +140,7 @@ If this contains a %s, that will be replaced by the matching rule."
140 (getenv "ORGANIZATION") | (progn user-full-name) 140 (getenv "ORGANIZATION") | (progn user-full-name)
141 " 141 "
142.\\\" You may distribute this file under the terms of the GNU Free 142.\\\" You may distribute this file under the terms of the GNU Free
143.\\\" Documentation Licence. 143.\\\" Documentation License.
144.TH " (file-name-sans-extension (file-name-nondirectory (buffer-file-name))) 144.TH " (file-name-sans-extension (file-name-nondirectory (buffer-file-name)))
145 " " (file-name-extension (buffer-file-name)) 145 " " (file-name-extension (buffer-file-name))
146 " " (format-time-string "%Y-%m-%d ") 146 " " (format-time-string "%Y-%m-%d ")
diff --git a/lisp/calc/calc-misc.el b/lisp/calc/calc-misc.el
index ce0da11ecaa..643465f8478 100644
--- a/lisp/calc/calc-misc.el
+++ b/lisp/calc/calc-misc.el
@@ -1,4 +1,4 @@
1;;; calc-misc.el --- miscellaenous functions for Calc 1;;; calc-misc.el --- miscellaneous functions for Calc
2 2
3;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2005 Free Software Foundation, Inc. 3;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2005 Free Software Foundation, Inc.
4 4
diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el
index c3f29e3d371..a66ef9cec6e 100644
--- a/lisp/calendar/appt.el
+++ b/lisp/calendar/appt.el
@@ -534,88 +534,93 @@ NUMBER hold the arguments that `list-diary-entries' received.
534They specify the range of dates that the diary is being processed for. 534They specify the range of dates that the diary is being processed for.
535 535
536Any appointments made with `appt-add' are not affected by this 536Any appointments made with `appt-add' are not affected by this
537function." 537function.
538 538
539 ;; We have something to do if the range of dates that the diary is 539For backwards compatibility, this function activates the
540 ;; considering includes the current date. 540appointment package (if it is not already active)."
541 (if (and (not (calendar-date-compare 541 ;; See comments above appt-activate defun.
542 (list (calendar-current-date)) 542 (if (not appt-timer)
543 (list original-date))) 543 (appt-activate 1)
544 (calendar-date-compare 544 ;; We have something to do if the range of dates that the diary is
545 (list (calendar-current-date)) 545 ;; considering includes the current date.
546 (list (calendar-gregorian-from-absolute 546 (if (and (not (calendar-date-compare
547 (+ (calendar-absolute-from-gregorian original-date) 547 (list (calendar-current-date))
548 number))))) 548 (list original-date)))
549 (save-excursion 549 (calendar-date-compare
550 ;; Clear the appointments list, then fill it in from the diary. 550 (list (calendar-current-date))
551 (dolist (elt appt-time-msg-list) 551 (list (calendar-gregorian-from-absolute
552 ;; Delete any entries that were not made with appt-add. 552 (+ (calendar-absolute-from-gregorian original-date)
553 (unless (nth 2 elt) 553 number)))))
554 (setq appt-time-msg-list 554 (save-excursion
555 (delq elt appt-time-msg-list)))) 555 ;; Clear the appointments list, then fill it in from the diary.
556 (if diary-entries-list 556 (dolist (elt appt-time-msg-list)
557 557 ;; Delete any entries that were not made with appt-add.
558 ;; Cycle through the entry-list (diary-entries-list) 558 (unless (nth 2 elt)
559 ;; looking for entries beginning with a time. If 559 (setq appt-time-msg-list
560 ;; the entry begins with a time, add it to the 560 (delq elt appt-time-msg-list))))
561 ;; appt-time-msg-list. Then sort the list. 561 (if diary-entries-list
562 562
563 (let ((entry-list diary-entries-list) 563 ;; Cycle through the entry-list (diary-entries-list)
564 (new-time-string "")) 564 ;; looking for entries beginning with a time. If
565 ;; Skip diary entries for dates before today. 565 ;; the entry begins with a time, add it to the
566 (while (and entry-list 566 ;; appt-time-msg-list. Then sort the list.
567 (calendar-date-compare 567
568 (car entry-list) (list (calendar-current-date)))) 568 (let ((entry-list diary-entries-list)
569 (setq entry-list (cdr entry-list))) 569 (new-time-string ""))
570 ;; Parse the entries for today. 570 ;; Skip diary entries for dates before today.
571 (while (and entry-list 571 (while (and entry-list
572 (calendar-date-equal 572 (calendar-date-compare
573 (calendar-current-date) (car (car entry-list)))) 573 (car entry-list) (list (calendar-current-date))))
574 (let ((time-string (cadr (car entry-list)))) 574 (setq entry-list (cdr entry-list)))
575 (while (string-match 575 ;; Parse the entries for today.
576 "\\([0-9]?[0-9][:.][0-9][0-9]\\(am\\|pm\\)?\\).*" 576 (while (and entry-list
577 time-string) 577 (calendar-date-equal
578 (let* ((beg (match-beginning 0)) 578 (calendar-current-date) (car (car entry-list))))
579 ;; Get just the time for this appointment. 579 (let ((time-string (cadr (car entry-list))))
580 (only-time (match-string 1 time-string)) 580 (while (string-match
581 ;; Find the end of this appointment 581 "\\([0-9]?[0-9][:.][0-9][0-9]\\(am\\|pm\\)?\\).*"
582 ;; (the start of the next). 582 time-string)
583 (end (string-match 583 (let* ((beg (match-beginning 0))
584 "^[ \t]*[0-9]?[0-9][:.][0-9][0-9]\\(am\\|pm\\)?" 584 ;; Get just the time for this appointment.
585 time-string 585 (only-time (match-string 1 time-string))
586 (match-end 0))) 586 ;; Find the end of this appointment
587 ;; Get the whole string for this appointment. 587 ;; (the start of the next).
588 (appt-time-string 588 (end (string-match
589 (substring time-string beg (if end (1- end))))) 589 "^[ \t]*[0-9]?[0-9][:.][0-9][0-9]\\(am\\|pm\\)?"
590 590 time-string
591 ;; Add this appointment to appt-time-msg-list. 591 (match-end 0)))
592 (let* ((appt-time (list (appt-convert-time only-time))) 592 ;; Get the whole string for this appointment.
593 (time-msg (list appt-time appt-time-string))) 593 (appt-time-string
594 (setq appt-time-msg-list 594 (substring time-string beg (if end (1- end)))))
595 (nconc appt-time-msg-list (list time-msg)))) 595
596 596 ;; Add this appointment to appt-time-msg-list.
597 ;; Discard this appointment from the string. 597 (let* ((appt-time (list (appt-convert-time only-time)))
598 (setq time-string 598 (time-msg (list appt-time appt-time-string)))
599 (if end (substring time-string end) ""))))) 599 (setq appt-time-msg-list
600 (setq entry-list (cdr entry-list))))) 600 (nconc appt-time-msg-list (list time-msg))))
601 (setq appt-time-msg-list (appt-sort-list appt-time-msg-list)) 601
602 602 ;; Discard this appointment from the string.
603 ;; Get the current time and convert it to minutes 603 (setq time-string
604 ;; from midnight. ie. 12:01am = 1, midnight = 0, 604 (if end (substring time-string end) "")))))
605 ;; so that the elements in the list 605 (setq entry-list (cdr entry-list)))))
606 ;; that are earlier than the present time can 606 (setq appt-time-msg-list (appt-sort-list appt-time-msg-list))
607 ;; be removed. 607
608 608 ;; Get the current time and convert it to minutes
609 (let* ((now (decode-time)) 609 ;; from midnight. ie. 12:01am = 1, midnight = 0,
610 (cur-hour (nth 2 now)) 610 ;; so that the elements in the list
611 (cur-min (nth 1 now)) 611 ;; that are earlier than the present time can
612 (cur-comp-time (+ (* cur-hour 60) cur-min)) 612 ;; be removed.
613 (appt-comp-time (car (caar appt-time-msg-list)))) 613
614 614 (let* ((now (decode-time))
615 (while (and appt-time-msg-list (< appt-comp-time cur-comp-time)) 615 (cur-hour (nth 2 now))
616 (setq appt-time-msg-list (cdr appt-time-msg-list)) 616 (cur-min (nth 1 now))
617 (if appt-time-msg-list 617 (cur-comp-time (+ (* cur-hour 60) cur-min))
618 (setq appt-comp-time (car (caar appt-time-msg-list))))))))) 618 (appt-comp-time (car (caar appt-time-msg-list))))
619
620 (while (and appt-time-msg-list (< appt-comp-time cur-comp-time))
621 (setq appt-time-msg-list (cdr appt-time-msg-list))
622 (if appt-time-msg-list
623 (setq appt-comp-time (car (caar appt-time-msg-list))))))))))
619 624
620 625
621(defun appt-sort-list (appt-list) 626(defun appt-sort-list (appt-list)
@@ -665,6 +670,30 @@ This function is intended for use with `write-file-functions'."
665 nil) 670 nil)
666 671
667 672
673;; In Emacs-21.3, the manual documented the following procedure to
674;; activate this package:
675;; (display-time)
676;; (add-hook 'diary-hook 'appt-make-list)
677;; (diary 0)
678;; The display-time call was not necessary, AFAICS.
679;; What was really needed was to add the hook and load this file.
680;; Calling (diary 0) once the hook had been added was in some sense a
681;; roundabout way of loading this file. This file used to have code at
682;; the top-level that set up the appt-timer and global-mode-string.
683;; One way to maintain backwards compatibility would be to call
684;; (appt-activate 1) at top-level. However, this goes against the
685;; convention that just loading an Emacs package should not activate
686;; it. Instead, we make appt-make-list activate the package (after a
687;; suggestion from rms). This means that one has to call diary in
688;; order to get it to work, but that is in line with the old (weird,
689;; IMO) documented behavior for activating the package.
690;; Actually, since (diary 0) does not run diary-hook, I don't think
691;; the documented behavior in Emacs-21.3 would ever have worked.
692;; Oh well, at least with the changes to appt-make-list it will now
693;; work as well as it ever did.
694;; The new method is just to use (appt-activate 1).
695;; -- gmorris
696
668;;;###autoload 697;;;###autoload
669(defun appt-activate (&optional arg) 698(defun appt-activate (&optional arg)
670"Toggle checking of appointments. 699"Toggle checking of appointments.
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index acb882dd9a3..e1aacdd51e9 100644
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -152,11 +152,11 @@
152;; ;; Associative math should recognize subcalls to identical function: 152;; ;; Associative math should recognize subcalls to identical function:
153;; (disassemble (lambda (x) (+ (+ (foo) 1) (+ (bar) 2)))) 153;; (disassemble (lambda (x) (+ (+ (foo) 1) (+ (bar) 2))))
154;; ;; This should generate the same as (1+ x) and (1- x) 154;; ;; This should generate the same as (1+ x) and (1- x)
155 155
156;; (disassemble (lambda (x) (cons (+ x 1) (- x 1)))) 156;; (disassemble (lambda (x) (cons (+ x 1) (- x 1))))
157;; ;; An awful lot of functions always return a non-nil value. If they're 157;; ;; An awful lot of functions always return a non-nil value. If they're
158;; ;; error free also they may act as true-constants. 158;; ;; error free also they may act as true-constants.
159 159
160;; (disassemble (lambda (x) (and (point) (foo)))) 160;; (disassemble (lambda (x) (and (point) (foo))))
161;; ;; When 161;; ;; When
162;; ;; - all but one arguments to a function are constant 162;; ;; - all but one arguments to a function are constant
@@ -165,19 +165,19 @@
165;; ;; condition is side-effect-free [assignment-free] then the other 165;; ;; condition is side-effect-free [assignment-free] then the other
166;; ;; arguments may be any expressions. Since, however, the code size 166;; ;; arguments may be any expressions. Since, however, the code size
167;; ;; can increase this way they should be "simple". Compare: 167;; ;; can increase this way they should be "simple". Compare:
168 168
169;; (disassemble (lambda (x) (eq (if (point) 'a 'b) 'c))) 169;; (disassemble (lambda (x) (eq (if (point) 'a 'b) 'c)))
170;; (disassemble (lambda (x) (if (point) (eq 'a 'c) (eq 'b 'c)))) 170;; (disassemble (lambda (x) (if (point) (eq 'a 'c) (eq 'b 'c))))
171 171
172;; ;; (car (cons A B)) -> (prog1 A B) 172;; ;; (car (cons A B)) -> (prog1 A B)
173;; (disassemble (lambda (x) (car (cons (foo) 42)))) 173;; (disassemble (lambda (x) (car (cons (foo) 42))))
174 174
175;; ;; (cdr (cons A B)) -> (progn A B) 175;; ;; (cdr (cons A B)) -> (progn A B)
176;; (disassemble (lambda (x) (cdr (cons 42 (foo))))) 176;; (disassemble (lambda (x) (cdr (cons 42 (foo)))))
177 177
178;; ;; (car (list A B ...)) -> (prog1 A B ...) 178;; ;; (car (list A B ...)) -> (prog1 A B ...)
179;; (disassemble (lambda (x) (car (list (foo) 42 (bar))))) 179;; (disassemble (lambda (x) (car (list (foo) 42 (bar)))))
180 180
181;; ;; (cdr (list A B ...)) -> (progn A (list B ...)) 181;; ;; (cdr (list A B ...)) -> (progn A (list B ...))
182;; (disassemble (lambda (x) (cdr (list 42 (foo) (bar))))) 182;; (disassemble (lambda (x) (cdr (list 42 (foo) (bar)))))
183 183
@@ -1126,7 +1126,7 @@
1126This assumes that the function will not have any side-effects and that 1126This assumes that the function will not have any side-effects and that
1127its return value depends solely on its arguments. 1127its return value depends solely on its arguments.
1128If the function can signal an error, this might change the semantics 1128If the function can signal an error, this might change the semantics
1129of FORM by signalling the error at compile-time." 1129of FORM by signaling the error at compile-time."
1130 (let ((args (cdr form)) 1130 (let ((args (cdr form))
1131 (constant t)) 1131 (constant t))
1132 (while (and args constant) 1132 (while (and args constant)
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el
index e9c767961cd..ebe375088a3 100644
--- a/lisp/emacs-lisp/edebug.el
+++ b/lisp/emacs-lisp/edebug.el
@@ -511,9 +511,16 @@ the minibuffer."
511 (set-default (nth 1 form) (eval (nth 2 form)))) 511 (set-default (nth 1 form) (eval (nth 2 form))))
512 ((eq (car form) 'defface) 512 ((eq (car form) 'defface)
513 ;; Reset the face. 513 ;; Reset the face.
514 (put (nth 1 form) 'face-defface-spec nil)
515 (setq face-new-frame-defaults 514 (setq face-new-frame-defaults
516 (assq-delete-all (nth 1 form) face-new-frame-defaults)))) 515 (assq-delete-all (nth 1 form) face-new-frame-defaults))
516 (put (nth 1 form) 'face-defface-spec nil)
517 ;; See comments in `eval-defun-1' for purpose of code below
518 (setq form (prog1 `(prog1 ,form
519 (put ',(nth 1 form) 'saved-face
520 ',(get (nth 1 form) 'saved-face))
521 (put ',(nth 1 form) 'customized-face
522 ',(nth 2 form)))
523 (put (nth 1 form) 'saved-face nil)))))
517 (setq edebug-result (eval form)) 524 (setq edebug-result (eval form))
518 (if (not edebugging) 525 (if (not edebugging)
519 (princ edebug-result) 526 (princ edebug-result)
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index 72924417109..1ffc33835e9 100644
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -617,10 +617,23 @@ Reinitialize the face according to the `defface' specification."
617 ;; `defface' is macroexpanded to `custom-declare-face'. 617 ;; `defface' is macroexpanded to `custom-declare-face'.
618 ((eq (car form) 'custom-declare-face) 618 ((eq (car form) 'custom-declare-face)
619 ;; Reset the face. 619 ;; Reset the face.
620 (put (eval (nth 1 form)) 'face-defface-spec nil)
621 (setq face-new-frame-defaults 620 (setq face-new-frame-defaults
622 (assq-delete-all (eval (nth 1 form)) face-new-frame-defaults)) 621 (assq-delete-all (eval (nth 1 form)) face-new-frame-defaults))
623 form) 622 (put (eval (nth 1 form)) 'face-defface-spec nil)
623 ;; Setting `customized-face' to the new spec after calling
624 ;; the form, but preserving the old saved spec in `saved-face',
625 ;; imitates the situation when the new face spec is set
626 ;; temporarily for the current session in the customize
627 ;; buffer, thus allowing `face-user-default-spec' to use the
628 ;; new customized spec instead of the saved spec.
629 ;; Resetting `saved-face' temporarily to nil is needed to let
630 ;; `defface' change the spec, regardless of a saved spec.
631 (prog1 `(prog1 ,form
632 (put ',(eval (nth 1 form)) 'saved-face
633 ',(get (eval (nth 1 form)) 'saved-face))
634 (put ',(eval (nth 1 form)) 'customized-face
635 ',(eval (nth 2 form))))
636 (put (eval (nth 1 form)) 'saved-face nil)))
624 ((eq (car form) 'progn) 637 ((eq (car form) 'progn)
625 (cons 'progn (mapcar 'eval-defun-1 (cdr form)))) 638 (cons 'progn (mapcar 'eval-defun-1 (cdr form))))
626 (t form))) 639 (t form)))
diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el
index 955bc4499bc..a14c4815374 100644
--- a/lisp/emacs-lisp/lisp.el
+++ b/lisp/emacs-lisp/lisp.el
@@ -489,7 +489,7 @@ More accurately, check the narrowed part of the buffer for unbalanced
489expressions (\"sexps\") in general. This is done according to the 489expressions (\"sexps\") in general. This is done according to the
490current syntax table and will find unbalanced brackets or quotes as 490current syntax table and will find unbalanced brackets or quotes as
491appropriate. (See Info node `(emacs)Parentheses'.) If imbalance is 491appropriate. (See Info node `(emacs)Parentheses'.) If imbalance is
492found, an error is signalled and point is left at the first unbalanced 492found, an error is signaled and point is left at the first unbalanced
493character." 493character."
494 (interactive) 494 (interactive)
495 (condition-case data 495 (condition-case data
diff --git a/lisp/faces.el b/lisp/faces.el
index 279eda8c7b3..20dbee74517 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1477,7 +1477,8 @@ If there is no default for FACE, return nil."
1477(defsubst face-user-default-spec (face) 1477(defsubst face-user-default-spec (face)
1478 "Return the user's customized face-spec for FACE, or the default if none. 1478 "Return the user's customized face-spec for FACE, or the default if none.
1479If there is neither a user setting nor a default for FACE, return nil." 1479If there is neither a user setting nor a default for FACE, return nil."
1480 (or (get face 'saved-face) 1480 (or (get face 'customized-face)
1481 (get face 'saved-face)
1481 (face-default-spec face))) 1482 (face-default-spec face)))
1482 1483
1483 1484
@@ -1549,9 +1550,9 @@ If omitted or nil, that stands for the selected frame's display."
1549 1550
1550(defcustom frame-background-mode nil 1551(defcustom frame-background-mode nil
1551 "*The brightness of the background. 1552 "*The brightness of the background.
1552Set this to the symbol `dark' if your background color is dark, `light' if 1553Set this to the symbol `dark' if your background color is dark,
1553your background is light, or nil (default) if you want Emacs to 1554`light' if your background is light, or nil (default) if you want Emacs
1554examine the brightness for you. Don't set this variable with `setq'; 1555to examine the brightness for you. Don't set this variable with `setq';
1555this won't have the expected effect." 1556this won't have the expected effect."
1556 :group 'faces 1557 :group 'faces
1557 :set #'(lambda (var value) 1558 :set #'(lambda (var value)
@@ -1900,7 +1901,7 @@ created."
1900 :group 'modeline 1901 :group 'modeline
1901 :group 'basic-faces) 1902 :group 'basic-faces)
1902 1903
1903(defface vertical-divider 1904(defface vertical-border
1904 '((default :inherit mode-line-inactive)) 1905 '((default :inherit mode-line-inactive))
1905 "Face used for vertical window dividers on ttys." 1906 "Face used for vertical window dividers on ttys."
1906 :version "22.1" 1907 :version "22.1"
@@ -2136,7 +2137,7 @@ Note: Other faces cannot inherit from the cursor face."
2136 :group 'basic-faces) 2137 :group 'basic-faces)
2137 2138
2138(defface escape-glyph 2139(defface escape-glyph
2139 '((((background dark)) :foreground "pink2") 2140 '((((background dark)) :foreground "cyan")
2140 ;; See the comment in minibuffer-prompt for 2141 ;; See the comment in minibuffer-prompt for
2141 ;; the reason not to use blue on MS-DOS. 2142 ;; the reason not to use blue on MS-DOS.
2142 (((type pc)) :foreground "magenta") 2143 (((type pc)) :foreground "magenta")
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index eca1fc26ce9..dec81e0b696 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,7 @@
12005-06-21 Juanma Barranquero <lekktu@gmail.com>
2
3 * nnimap.el (nnimap-split-download-body): Fix spellings.
4
12005-06-16 Juanma Barranquero <lekktu@gmail.com> 52005-06-16 Juanma Barranquero <lekktu@gmail.com>
2 6
3 * gnus-art.el (gnus-article-encrypt-body): 7 * gnus-art.el (gnus-article-encrypt-body):
diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index 31d96cdd375..b09f5d19111 100644
--- a/lisp/gnus/nnimap.el
+++ b/lisp/gnus/nnimap.el
@@ -205,7 +205,7 @@ RFC2060 section 6.4.4."
205 "Whether to download entire articles during splitting. 205 "Whether to download entire articles during splitting.
206This is generally not required, and will slow things down considerably. 206This is generally not required, and will slow things down considerably.
207You may need it if you want to use an advanced splitting function that 207You may need it if you want to use an advanced splitting function that
208analyses the body before splitting the article. 208analyzes the body before splitting the article.
209If this variable is nil, bodies will not be downloaded; if this 209If this variable is nil, bodies will not be downloaded; if this
210variable is the symbol `default' the default behaviour is 210variable is the symbol `default' the default behaviour is
211used (which currently is nil, unless you use a statistical 211used (which currently is nil, unless you use a statistical
diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index 70388e56ab7..cd5c2d41f98 100644
--- a/lisp/net/browse-url.el
+++ b/lisp/net/browse-url.el
@@ -1216,11 +1216,11 @@ used instead of `browse-url-new-window-flag'."
1216 (save-buffer) 1216 (save-buffer)
1217 (kill-buffer nil) 1217 (kill-buffer nil)
1218 ;; Send signal SIGUSR to Mosaic 1218 ;; Send signal SIGUSR to Mosaic
1219 (message "Signalling Mosaic...") 1219 (message "Signaling Mosaic...")
1220 (signal-process pid 'SIGUSR1) 1220 (signal-process pid 'SIGUSR1)
1221 ;; Or you could try: 1221 ;; Or you could try:
1222 ;; (call-process "kill" nil 0 nil "-USR1" (int-to-string pid)) 1222 ;; (call-process "kill" nil 0 nil "-USR1" (int-to-string pid))
1223 (message "Signalling Mosaic...done") 1223 (message "Signaling Mosaic...done")
1224 ) 1224 )
1225 ;; Mosaic not running - start it 1225 ;; Mosaic not running - start it
1226 (message "Starting %s..." browse-url-mosaic-program) 1226 (message "Starting %s..." browse-url-mosaic-program)
diff --git a/lisp/pcvs-defs.el b/lisp/pcvs-defs.el
index 62c0d62d161..394c3580945 100644
--- a/lisp/pcvs-defs.el
+++ b/lisp/pcvs-defs.el
@@ -421,9 +421,11 @@ This variable is buffer local and only used in the *cvs* buffer.")
421 ["Ignore" cvs-mode-ignore (cvs-enabledp 'ignore)] 421 ["Ignore" cvs-mode-ignore (cvs-enabledp 'ignore)]
422 ["Add ChangeLog" cvs-mode-add-change-log-entry-other-window t] 422 ["Add ChangeLog" cvs-mode-add-change-log-entry-other-window t]
423 "----" 423 "----"
424 ["Mark" cvs-mode-mark t]
424 ["Mark all" cvs-mode-mark-all-files t] 425 ["Mark all" cvs-mode-mark-all-files t]
425 ["Mark by regexp..." cvs-mode-mark-matching-files t] 426 ["Mark by regexp..." cvs-mode-mark-matching-files t]
426 ["Mark by state..." cvs-mode-mark-on-state t] 427 ["Mark by state..." cvs-mode-mark-on-state t]
428 ["Unmark" cvs-mode-unmark t]
427 ["Unmark all" cvs-mode-unmark-all-files t] 429 ["Unmark all" cvs-mode-unmark-all-files t]
428 ["Hide handled" cvs-mode-remove-handled t] 430 ["Hide handled" cvs-mode-remove-handled t]
429 "----" 431 "----"
diff --git a/lisp/progmodes/cc-defs.el b/lisp/progmodes/cc-defs.el
index d9caca90666..f197a60c6a4 100644
--- a/lisp/progmodes/cc-defs.el
+++ b/lisp/progmodes/cc-defs.el
@@ -417,7 +417,7 @@ This function does not do any hidden buffer changes."
417 `(c-forward-sexp ,(if (numberp count) (- count) `(- ,count)))) 417 `(c-forward-sexp ,(if (numberp count) (- count) `(- ,count))))
418 418
419(defmacro c-safe-scan-lists (from count depth) 419(defmacro c-safe-scan-lists (from count depth)
420 "Like `scan-lists' but returns nil instead of signalling errors. 420 "Like `scan-lists' but returns nil instead of signaling errors.
421 421
422This function does not do any hidden buffer changes." 422This function does not do any hidden buffer changes."
423 (if (featurep 'xemacs) 423 (if (featurep 'xemacs)
diff --git a/lisp/progmodes/ebnf-abn.el b/lisp/progmodes/ebnf-abn.el
index 5bb0dd03913..d4d3399dc09 100644
--- a/lisp/progmodes/ebnf-abn.el
+++ b/lisp/progmodes/ebnf-abn.el
@@ -485,7 +485,7 @@
485 485
486 486
487(defun ebnf-abn-lex () 487(defun ebnf-abn-lex ()
488 "Lexical analyser for ABNF. 488 "Lexical analyzer for ABNF.
489 489
490Return a lexical token. 490Return a lexical token.
491 491
diff --git a/lisp/progmodes/ebnf-bnf.el b/lisp/progmodes/ebnf-bnf.el
index 09db8f8865d..4ea7d5e0404 100644
--- a/lisp/progmodes/ebnf-bnf.el
+++ b/lisp/progmodes/ebnf-bnf.el
@@ -109,7 +109,7 @@
109;; ;; 8-bit accentuated characters) except `"', as `"' is used to delimit a 109;; ;; 8-bit accentuated characters) except `"', as `"' is used to delimit a
110;; ;; terminal. Also, accepts escaped characters, that is, a character 110;; ;; terminal. Also, accepts escaped characters, that is, a character
111;; ;; pair starting with `\' followed by a printable character, for 111;; ;; pair starting with `\' followed by a printable character, for
112;; ;; example: \", \\. 112;; ;; example: \", \\.
113;; 113;;
114;; special = "[^?\\000-\\010\\012-\\037\\177-\\237]*". 114;; special = "[^?\\000-\\010\\012-\\037\\177-\\237]*".
115;; ;; that is, a valid special accepts any printable character (including 115;; ;; that is, a valid special accepts any printable character (including
@@ -429,7 +429,7 @@
429 429
430 430
431(defun ebnf-bnf-lex () 431(defun ebnf-bnf-lex ()
432 "Lexical analyser for EBNF. 432 "Lexical analyzer for EBNF.
433 433
434Return a lexical token. 434Return a lexical token.
435 435
diff --git a/lisp/progmodes/ebnf-dtd.el b/lisp/progmodes/ebnf-dtd.el
index 621cf424463..2f1d6412d38 100644
--- a/lisp/progmodes/ebnf-dtd.el
+++ b/lisp/progmodes/ebnf-dtd.el
@@ -1152,7 +1152,7 @@
1152 1152
1153 1153
1154(defun ebnf-dtd-lex () 1154(defun ebnf-dtd-lex ()
1155 "Lexical analyser for DTD. 1155 "Lexical analyzer for DTD.
1156 1156
1157Return a lexical token. 1157Return a lexical token.
1158 1158
diff --git a/lisp/progmodes/ebnf-ebx.el b/lisp/progmodes/ebnf-ebx.el
index 45ccb956af8..25e6c72d584 100644
--- a/lisp/progmodes/ebnf-ebx.el
+++ b/lisp/progmodes/ebnf-ebx.el
@@ -295,7 +295,7 @@
295 (cons (car except) 295 (cons (car except)
296 (ebnf-make-except (cdr term) (cdr except)))) 296 (ebnf-make-except (cdr term) (cdr except))))
297 term))) 297 term)))
298 298
299 299
300 300
301;;; term ::= factor ('*' | '+' | '?')? 301;;; term ::= factor ('*' | '+' | '?')?
@@ -416,7 +416,7 @@
416 416
417 417
418(defun ebnf-ebx-lex () 418(defun ebnf-ebx-lex ()
419 "Lexical analyser for EBNFX. 419 "Lexical analyzer for EBNFX.
420 420
421Return a lexical token. 421Return a lexical token.
422 422
@@ -503,7 +503,7 @@ See documentation for variable `ebnf-ebx-lex'."
503 (error "Missing end of constraint `]'")) 503 (error "Missing end of constraint `]'"))
504 (forward-char) 504 (forward-char)
505 t) 505 t)
506 506
507 507
508 508
509(defun ebnf-ebx-skip-end-of-rule () 509(defun ebnf-ebx-skip-end-of-rule ()
diff --git a/lisp/progmodes/ebnf-iso.el b/lisp/progmodes/ebnf-iso.el
index ba28dfb5af9..8be521052eb 100644
--- a/lisp/progmodes/ebnf-iso.el
+++ b/lisp/progmodes/ebnf-iso.el
@@ -389,7 +389,7 @@
389 389
390 390
391(defun ebnf-iso-lex () 391(defun ebnf-iso-lex ()
392 "Lexical analyser for ISO EBNF. 392 "Lexical analyzer for ISO EBNF.
393 393
394Return a lexical token. 394Return a lexical token.
395 395
diff --git a/lisp/progmodes/ebnf-yac.el b/lisp/progmodes/ebnf-yac.el
index 58f422b1714..cc1c8c451dd 100644
--- a/lisp/progmodes/ebnf-yac.el
+++ b/lisp/progmodes/ebnf-yac.el
@@ -312,7 +312,7 @@
312 312
313 313
314(defun ebnf-yac-lex () 314(defun ebnf-yac-lex ()
315 "Lexical analyser for Yacc/Bison. 315 "Lexical analyzer for Yacc/Bison.
316 316
317Return a lexical token. 317Return a lexical token.
318 318
diff --git a/lisp/ses.el b/lisp/ses.el
index 1107f21d510..09f7809752b 100644
--- a/lisp/ses.el
+++ b/lisp/ses.el
@@ -878,7 +878,7 @@ preceding cell has spilled over."
878lambda of one argument) on VALUE. Result is the the printed cell as a 878lambda of one argument) on VALUE. Result is the the printed cell as a
879string. The variable `ses-call-printer-return' is set to t if the printer 879string. The variable `ses-call-printer-return' is set to t if the printer
880used parenthesis to request left-justification, or the error-signal if the 880used parenthesis to request left-justification, or the error-signal if the
881printer signalled one (and \"%s\" is used as the default printer), else nil." 881printer signaled one (and \"%s\" is used as the default printer), else nil."
882 (setq ses-call-printer-return nil) 882 (setq ses-call-printer-return nil)
883 (unless value 883 (unless value
884 (setq value "")) 884 (setq value ""))
diff --git a/lisp/subr.el b/lisp/subr.el
index 2b0af2f95a0..f43f84fd7d7 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -44,12 +44,12 @@ Each element of this list holds the arguments to one call to `defcustom'.")
44(defmacro noreturn (form) 44(defmacro noreturn (form)
45 "Evaluates FORM, with the expectation that the evaluation will signal an error 45 "Evaluates FORM, with the expectation that the evaluation will signal an error
46instead of returning to its caller. If FORM does return, an error is 46instead of returning to its caller. If FORM does return, an error is
47signalled." 47signaled."
48 `(prog1 ,form 48 `(prog1 ,form
49 (error "Form marked with `noreturn' did return"))) 49 (error "Form marked with `noreturn' did return")))
50 50
51(defmacro 1value (form) 51(defmacro 1value (form)
52 "Evaluates FORM, with the expectation that all the same value will be returned 52 "Evaluates FORM, with the expectation that the same value will be returned
53from all evaluations of FORM. This is the global do-nothing 53from all evaluations of FORM. This is the global do-nothing
54version of `1value'. There is also `testcover-1value' that 54version of `1value'. There is also `testcover-1value' that
55complains if FORM ever does return differing values." 55complains if FORM ever does return differing values."
@@ -61,7 +61,7 @@ A call of the form (lambda ARGS DOCSTRING INTERACTIVE BODY) is
61self-quoting; the result of evaluating the lambda expression is the 61self-quoting; the result of evaluating the lambda expression is the
62expression itself. The lambda expression may then be treated as a 62expression itself. The lambda expression may then be treated as a
63function, i.e., stored as the function value of a symbol, passed to 63function, i.e., stored as the function value of a symbol, passed to
64funcall or mapcar, etc. 64`funcall' or `mapcar', etc.
65 65
66ARGS should take the same form as an argument list for a `defun'. 66ARGS should take the same form as an argument list for a `defun'.
67DOCSTRING is an optional documentation string. 67DOCSTRING is an optional documentation string.
@@ -347,7 +347,7 @@ but optional second arg NODIGITS non-nil treats them like other chars."
347 (setq loop (1+ loop)))))) 347 (setq loop (1+ loop))))))
348 348
349(defvar key-substitution-in-progress nil 349(defvar key-substitution-in-progress nil
350 "Used internally by substitute-key-definition.") 350 "Used internally by `substitute-key-definition'.")
351 351
352(defun substitute-key-definition (olddef newdef keymap &optional oldmap prefix) 352(defun substitute-key-definition (olddef newdef keymap &optional oldmap prefix)
353 "Replace OLDDEF with NEWDEF for any keys in KEYMAP now defined as OLDDEF. 353 "Replace OLDDEF with NEWDEF for any keys in KEYMAP now defined as OLDDEF.
diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 5718346b89b..5470a822a51 100644
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,8 @@
12005-06-21 Juanma Barranquero <lekktu@gmail.com>
2
3 * url-gw.el (url-open-stream):
4 * url-vars.el (url-gateway-unplugged): Fix spellings.
5
12005-06-14 Juanma Barranquero <lekktu@gmail.com> 62005-06-14 Juanma Barranquero <lekktu@gmail.com>
2 7
3 * url-history.el (url-completion-function): Follow error 8 * url-history.el (url-completion-function): Follow error
diff --git a/lisp/url/url-gw.el b/lisp/url/url-gw.el
index b5701668f83..153d146b608 100644
--- a/lisp/url/url-gw.el
+++ b/lisp/url/url-gw.el
@@ -212,7 +212,7 @@ linked Emacs under SunOS 4.x"
212(defun url-open-stream (name buffer host service) 212(defun url-open-stream (name buffer host service)
213 "Open a stream to HOST, possibly via a gateway. 213 "Open a stream to HOST, possibly via a gateway.
214Args per `open-network-stream'. 214Args per `open-network-stream'.
215Will not make a connexion if `url-gateway-unplugged' is non-nil." 215Will not make a connection if `url-gateway-unplugged' is non-nil."
216 (unless url-gateway-unplugged 216 (unless url-gateway-unplugged
217 (let ((gw-method (if (and url-gateway-local-host-regexp 217 (let ((gw-method (if (and url-gateway-local-host-regexp
218 (not (eq 'tls url-gateway-method)) 218 (not (eq 'tls url-gateway-method))
diff --git a/lisp/url/url-vars.el b/lisp/url/url-vars.el
index c3e17365242..53b144f0f98 100644
--- a/lisp/url/url-vars.el
+++ b/lisp/url/url-vars.el
@@ -388,7 +388,7 @@ Currently supported methods:
388(defconst url-working-buffer " *url-work") 388(defconst url-working-buffer " *url-work")
389 389
390(defvar url-gateway-unplugged nil 390(defvar url-gateway-unplugged nil
391 "Non-nil means don't open new network connexions. 391 "Non-nil means don't open new network connections.
392This should be set, e.g. by mail user agents rendering HTML to avoid 392This should be set, e.g. by mail user agents rendering HTML to avoid
393`bugs' which call home.") 393`bugs' which call home.")
394 394
diff --git a/lispintro/emacs-lisp-intro.texi b/lispintro/emacs-lisp-intro.texi
index 3714e010d18..cb2396975dc 100644
--- a/lispintro/emacs-lisp-intro.texi
+++ b/lispintro/emacs-lisp-intro.texi
@@ -7319,7 +7319,7 @@ this:
7319 7319
7320The part within quotation marks, @code{"*p\ncZap to char:@: "}, specifies 7320The part within quotation marks, @code{"*p\ncZap to char:@: "}, specifies
7321three different things. First, and most simply, the asterisk, @samp{*}, 7321three different things. First, and most simply, the asterisk, @samp{*},
7322causes an error to be signalled if the buffer is read-only. This means that 7322causes an error to be signaled if the buffer is read-only. This means that
7323if you try @code{zap-to-char} in a read-only buffer you will not be able to 7323if you try @code{zap-to-char} in a read-only buffer you will not be able to
7324remove text, and you will receive a message that says ``Buffer is 7324remove text, and you will receive a message that says ``Buffer is
7325read-only''; your terminal may beep at you as well. 7325read-only''; your terminal may beep at you as well.
diff --git a/lispref/ChangeLog b/lispref/ChangeLog
index e84463292e5..24d00a90f3a 100644
--- a/lispref/ChangeLog
+++ b/lispref/ChangeLog
@@ -1,3 +1,19 @@
12005-06-21 Richard M. Stallman <rms@gnu.org>
2
3 * anti.texi (Antinews): Texinfo usage fix.
4
52005-06-21 Karl Berry <karl@gnu.org>
6
7 * elisp.texi: Use @copying.
8
9 * elisp.texi: Put @summarycontents and @contents before the Top
10 node, instead of the end of the file, so that the contents appear
11 in the right place in the dvi/pdf output.
12
132005-06-21 Juri Linkov <juri@jurta.org>
14
15 * display.texi (Defining Faces): Add `customized-face'.
16
12005-06-20 Kim F. Storm <storm@cua.dk> 172005-06-20 Kim F. Storm <storm@cua.dk>
2 18
3 * variables.texi (Setting Variables): Any type of element can be 19 * variables.texi (Setting Variables): Any type of element can be
diff --git a/lispref/anti.texi b/lispref/anti.texi
index c7a72f04df8..2c3d6414c1c 100644
--- a/lispref/anti.texi
+++ b/lispref/anti.texi
@@ -386,7 +386,7 @@ previously autoloaded.
386@item 386@item
387There is a new variable, @code{recursive-load-depth-limit}, which 387There is a new variable, @code{recursive-load-depth-limit}, which
388specifies how many times files can recursively load themselves; it is 388specifies how many times files can recursively load themselves; it is
38950 by default, and nil means infinity. Previously, Emacs signalled an 38950 by default, and @code{nil} means infinity. Previously, Emacs signaled an
390error after just 3 recursive loads, which was boring. 390error after just 3 recursive loads, which was boring.
391 391
392@item 392@item
diff --git a/lispref/backups.texi b/lispref/backups.texi
index 1ba7ed1b931..24c617510bf 100644
--- a/lispref/backups.texi
+++ b/lispref/backups.texi
@@ -153,7 +153,7 @@ ignored.
153@tindex make-backup-file-name-function 153@tindex make-backup-file-name-function
154This variable's value is a function to use for making backups instead 154This variable's value is a function to use for making backups instead
155of the default @code{make-backup-file-name}. A value of @code{nil} 155of the default @code{make-backup-file-name}. A value of @code{nil}
156gives the default @code{make-backup-file-name} behaviour. 156gives the default @code{make-backup-file-name} behavior.
157@xref{Backup Names,, Naming Backup Files}. 157@xref{Backup Names,, Naming Backup Files}.
158 158
159This could be buffer-local to do something special for specific 159This could be buffer-local to do something special for specific
diff --git a/lispref/control.texi b/lispref/control.texi
index 760e7bb82de..573a32b1cde 100644
--- a/lispref/control.texi
+++ b/lispref/control.texi
@@ -733,7 +733,7 @@ instead. @xref{Catch and Throw}.
733@subsubsection How to Signal an Error 733@subsubsection How to Signal an Error
734@cindex signaling errors 734@cindex signaling errors
735 735
736 @dfn{Signalling} an error means beginning error processing. Error 736 @dfn{Signaling} an error means beginning error processing. Error
737processing normally aborts all or part of the running program and 737processing normally aborts all or part of the running program and
738returns to a point that is set up to handle the error 738returns to a point that is set up to handle the error
739(@pxref{Processing of Errors}). Here we describe how to signal an 739(@pxref{Processing of Errors}). Here we describe how to signal an
diff --git a/lispref/display.texi b/lispref/display.texi
index 930f8aa31bc..2243a1e6899 100644
--- a/lispref/display.texi
+++ b/lispref/display.texi
@@ -1907,8 +1907,9 @@ frame must match one of the @var{value}s specified for it in
1907 Internally, @code{defface} uses the symbol property 1907 Internally, @code{defface} uses the symbol property
1908@code{face-defface-spec} to record the face attributes specified in 1908@code{face-defface-spec} to record the face attributes specified in
1909@code{defface}, @code{saved-face} for the attributes saved by the user 1909@code{defface}, @code{saved-face} for the attributes saved by the user
1910with the customization buffer, and @code{face-documentation} for the 1910with the customization buffer, @code{customized-face} for the
1911documentation string. 1911attributes customized by the user for the current session, but not
1912saved, and @code{face-documentation} for the documentation string.
1912 1913
1913@defopt frame-background-mode 1914@defopt frame-background-mode
1914This option, if non-@code{nil}, specifies the background type to use for 1915This option, if non-@code{nil}, specifies the background type to use for
diff --git a/lispref/elisp.texi b/lispref/elisp.texi
index 0a4849c236b..9e52b39223e 100644
--- a/lispref/elisp.texi
+++ b/lispref/elisp.texi
@@ -26,29 +26,27 @@
26@c We use the "type index" to index new functions and variables. 26@c We use the "type index" to index new functions and variables.
27@c @syncodeindex tp fn 27@c @syncodeindex tp fn
28 28
29@ifnottex 29@copying
30This Info file contains edition @value{VERSION} of the GNU Emacs Lisp 30This is edition @value{VERSION} of the GNU Emacs Lisp
31Reference Manual, corresponding to Emacs version @value{EMACSVER}. 31Reference Manual, corresponding to Emacs version @value{EMACSVER}.
32 32
33Published by the Free Software Foundation 33Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1998, 1999,
3459 Temple Place, Suite 330
35Boston, MA 02111-1307 USA
36
37Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1998, 1999, @*
38 2000, 2002, 2003, 2004, 2005, Free Software Foundation, Inc. 34 2000, 2002, 2003, 2004, 2005, Free Software Foundation, Inc.
39 35
36@quotation
40Permission is granted to copy, distribute and/or modify this document 37Permission is granted to copy, distribute and/or modify this document
41under the terms of the GNU Free Documentation License, Version 1.1 or 38under the terms of the GNU Free Documentation License, Version 1.1 or
42any later version published by the Free Software Foundation; with the 39any later version published by the Free Software Foundation; with the
43Invariant Sections being ``GNU General Public License'', with the Front-Cover texts being 40Invariant Sections being ``GNU General Public License'', with the
44``A GNU Manual'', and with the Back-Cover Texts as in (a) below. A copy 41Front-Cover texts being ``A GNU Manual'', and with the Back-Cover
45of the license is included in the section entitled ``GNU Free 42Texts as in (a) below. A copy of the license is included in the
46Documentation License''. 43section entitled ``GNU Free Documentation License''.
47 44
48(a) The FSF's Back-Cover Text is: ``You have freedom to copy and modify 45(a) The FSF's Back-Cover Text is: ``You have freedom to copy and modify
49this GNU Manual, like GNU software. Copies published by the Free 46this GNU Manual, like GNU software. Copies published by the Free
50Software Foundation raise funds for GNU development.'' 47Software Foundation raise funds for GNU development.''
51@end ifnottex 48@end quotation
49@end copying
52 50
53@titlepage 51@titlepage
54@title GNU Emacs Lisp Reference Manual 52@title GNU Emacs Lisp Reference Manual
@@ -59,36 +57,24 @@ Software Foundation raise funds for GNU development.''
59@author and the GNU Manual Group 57@author and the GNU Manual Group
60@page 58@page
61@vskip 0pt plus 1filll 59@vskip 0pt plus 1filll
62Copyright @copyright{} 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1998,@* 60@insertcopying
631999, 2000, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
64
65@sp 2
66Edition @value{VERSION} @*
67Revised for Emacs Version @value{EMACSVER},@*
68January 2002.@*
69@sp 2
70ISBN 1-882114-73-6
71 61
72@sp 2 62@sp 1
73Published by the Free Software Foundation @* 63Published by the Free Software Foundation @*
7459 Temple Place, Suite 330@* 6451 Franklin St, Fifth Floor @*
75Boston, MA 02111-1307 USA 65Boston, MA 02110-1301 @*
76 66USA @*
77Permission is granted to copy, distribute and/or modify this document 67ISBN 1-882114-73-6
78under the terms of the GNU Free Documentation License, Version 1.1 or
79any later version published by the Free Software Foundation; with the
80Invariant Sections being ``Copying'', with the Front-Cover texts being
81``A GNU Manual'', and with the Back-Cover Texts as in (a) below. A copy
82of the license is included in the section entitled ``GNU Free
83Documentation License''.
84
85(a) The FSF's Back-Cover Text is: ``You have freedom to copy and modify
86this GNU Manual, like GNU software. Copies published by the Free
87Software Foundation raise funds for GNU development.''
88 68
69@sp 1
89Cover art by Etienne Suvasa. 70Cover art by Etienne Suvasa.
90@end titlepage 71@end titlepage
91@page 72
73
74@c Print the tables of contents
75@summarycontents
76@contents
77
92 78
93@ifnottex 79@ifnottex
94@node Top, Introduction, (dir), (dir) 80@node Top, Introduction, (dir), (dir)
@@ -1150,11 +1136,6 @@ Object Internals
1150 1136
1151@printindex tp 1137@printindex tp
1152 1138
1153@c Print the tables of contents
1154@summarycontents
1155@contents
1156@c That's all
1157
1158@bye 1139@bye
1159 1140
1160 1141
diff --git a/lispref/frames.texi b/lispref/frames.texi
index 10035b76f9f..13921c0b6fc 100644
--- a/lispref/frames.texi
+++ b/lispref/frames.texi
@@ -1990,7 +1990,7 @@ quickly.
1990@tindex display-planes 1990@tindex display-planes
1991This function returns the number of planes the display supports. 1991This function returns the number of planes the display supports.
1992This is typically the number of bits per pixel. 1992This is typically the number of bits per pixel.
1993For a tty display, it is log to base two of the number of colours supported. 1993For a tty display, it is log to base two of the number of colors supported.
1994@end defun 1994@end defun
1995 1995
1996@defun display-visual-class &optional display 1996@defun display-visual-class &optional display
diff --git a/lispref/text.texi b/lispref/text.texi
index 5a4d743ab75..3d668738250 100644
--- a/lispref/text.texi
+++ b/lispref/text.texi
@@ -3529,7 +3529,7 @@ buffer.
3529graphical applications use @key{Mouse-1} for following links. For 3529graphical applications use @key{Mouse-1} for following links. For
3530compatibility, @key{Mouse-1} follows links in Emacs too, when you 3530compatibility, @key{Mouse-1} follows links in Emacs too, when you
3531click on a link quickly without moving the mouse. The user can 3531click on a link quickly without moving the mouse. The user can
3532customize this behaviour through the variable 3532customize this behavior through the variable
3533@code{mouse-1-click-follows-link}. 3533@code{mouse-1-click-follows-link}.
3534 3534
3535 To define text as a link at the Lisp level, you should bind the 3535 To define text as a link at the Lisp level, you should bind the
diff --git a/man/ChangeLog b/man/ChangeLog
index 33541408e4b..1289ebb6a55 100644
--- a/man/ChangeLog
+++ b/man/ChangeLog
@@ -1,3 +1,7 @@
12005-06-22 Miles Bader <miles@gnu.org>
2
3 * display.texi (Faces): Change `vertical-divider' to `vertical-border'.
4
12005-06-20 Miles Bader <miles@gnu.org> 52005-06-20 Miles Bader <miles@gnu.org>
2 6
3 * display.texi (Faces): Add `vertical-divider'. 7 * display.texi (Faces): Add `vertical-divider'.
diff --git a/man/cc-mode.texi b/man/cc-mode.texi
index 6ac86e986a9..b9113088d44 100644
--- a/man/cc-mode.texi
+++ b/man/cc-mode.texi
@@ -2363,7 +2363,7 @@ returns a non-@code{nil} value succeeds and the evaluation stops. If
2363none of the list elements return a non-@code{nil} value, then an offset 2363none of the list elements return a non-@code{nil} value, then an offset
2364of 0 (zero) is used@footnote{There is however a variable 2364of 0 (zero) is used@footnote{There is however a variable
2365@code{c-strict-syntax-p} that, when set to non-@code{nil}, will cause an 2365@code{c-strict-syntax-p} that, when set to non-@code{nil}, will cause an
2366error to be signalled in that case. It's now considered obsolete since 2366error to be signaled in that case. It's now considered obsolete since
2367it doesn't work well with some of the alignment functions that now 2367it doesn't work well with some of the alignment functions that now
2368returns @code{nil} instead of zero to be more usable in lists. You 2368returns @code{nil} instead of zero to be more usable in lists. You
2369should therefore leave @code{c-strict-syntax-p} set to @code{nil}.}. 2369should therefore leave @code{c-strict-syntax-p} set to @code{nil}.}.
diff --git a/man/display.texi b/man/display.texi
index 858a33f9ffe..473f1e65e4b 100644
--- a/man/display.texi
+++ b/man/display.texi
@@ -113,7 +113,7 @@ in that face affect mode lines in all windows.
113@item header-line 113@item header-line
114Similar to @code{mode-line} for a window's header line. Most modes 114Similar to @code{mode-line} for a window's header line. Most modes
115don't use the header line, but the Info mode does. 115don't use the header line, but the Info mode does.
116@item vertical-divider 116@item vertical-border
117This face is used for the vertical divider between windows on 117This face is used for the vertical divider between windows on
118character terminals. By default this face inherits from the 118character terminals. By default this face inherits from the
119@code{mode-line-inactive} face. 119@code{mode-line-inactive} face.
diff --git a/man/gnus.texi b/man/gnus.texi
index 7db03996984..dd736cd8162 100644
--- a/man/gnus.texi
+++ b/man/gnus.texi
@@ -16497,7 +16497,7 @@ Nnmail equivalent: @code{nnmail-split-fancy}.
16497Set to non-@code{nil} to download entire articles during splitting. 16497Set to non-@code{nil} to download entire articles during splitting.
16498This is generally not required, and will slow things down 16498This is generally not required, and will slow things down
16499considerably. You may need it if you want to use an advanced 16499considerably. You may need it if you want to use an advanced
16500splitting function that analyses the body to split the article. 16500splitting function that analyzes the body to split the article.
16501 16501
16502@end table 16502@end table
16503 16503
diff --git a/man/message.texi b/man/message.texi
index 01b3f9105d0..20a89debcc5 100644
--- a/man/message.texi
+++ b/man/message.texi
@@ -419,7 +419,7 @@ This is how you would do it.
419 419
420@vindex message-subscribed-address-file 420@vindex message-subscribed-address-file
421@item message-subscribed-address-file 421@item message-subscribed-address-file
422You might be one organised human freak and have a list of addresses of 422You might be one organized human freak and have a list of addresses of
423all subscribed mailing lists in a separate file! Then you can just 423all subscribed mailing lists in a separate file! Then you can just
424set this variable to the name of the file and life would be good. 424set this variable to the name of the file and life would be good.
425 425
diff --git a/man/ses.texi b/man/ses.texi
index 9b0137d2002..9667161f673 100644
--- a/man/ses.texi
+++ b/man/ses.texi
@@ -638,7 +638,7 @@ Special cell values:
638@item nil prints the same as "", but allows previous cell to spill over. 638@item nil prints the same as "", but allows previous cell to spill over.
639@item '*skip* replaces nil when the previous cell actually does spill over; 639@item '*skip* replaces nil when the previous cell actually does spill over;
640nothing is printed for it. 640nothing is printed for it.
641@item '*error* indicates that the formula signalled an error instead of 641@item '*error* indicates that the formula signaled an error instead of
642producing a value: the print cell is filled with hash marks (#). 642producing a value: the print cell is filled with hash marks (#).
643@end itemize 643@end itemize
644 644
diff --git a/man/tramp.texi b/man/tramp.texi
index 854dbba5919..5b406cb1662 100644
--- a/man/tramp.texi
+++ b/man/tramp.texi
@@ -99,7 +99,7 @@ If you want to read the info pages for @value{emacsothername}, you
99should read in @ref{Installation} how to create them. 99should read in @ref{Installation} how to create them.
100@end ifinfo 100@end ifinfo
101@ifhtml 101@ifhtml
102If you're using the other Emacs flavour, you should read the 102If you're using the other Emacs flavor, you should read the
103@uref{@value{emacsotherfilename}, @value{emacsothername}} pages. 103@uref{@value{emacsotherfilename}, @value{emacsothername}} pages.
104@end ifhtml 104@end ifhtml
105@end ifset 105@end ifset
diff --git a/man/url.texi b/man/url.texi
index 0380b833ed8..cccd79a0e7e 100644
--- a/man/url.texi
+++ b/man/url.texi
@@ -850,22 +850,22 @@ initialized from the environment as above.
850The library provides a general gateway layer through which all 850The library provides a general gateway layer through which all
851networking passes. It can both control access to the network and 851networking passes. It can both control access to the network and
852provide access through gateways in firewalls. This may make direct 852provide access through gateways in firewalls. This may make direct
853connexions in some cases and pass through some sort of gateway in 853connections in some cases and pass through some sort of gateway in
854others.@footnote{Proxies (which only operate over HTTP) are 854others.@footnote{Proxies (which only operate over HTTP) are
855implemented using this.} The library's basic function responsible for 855implemented using this.} The library's basic function responsible for
856making connexions is @code{url-open-stream}. 856making connections is @code{url-open-stream}.
857 857
858@defun url-open-stream name buffer host service 858@defun url-open-stream name buffer host service
859@cindex opening a stream 859@cindex opening a stream
860@cindex stream, opening 860@cindex stream, opening
861Open a stream to @var{host}, possibly via a gateway. The other 861Open a stream to @var{host}, possibly via a gateway. The other
862arguments are as for @code{open-network-stream}. This will not make a 862arguments are as for @code{open-network-stream}. This will not make a
863connexion if @code{url-gateway-unplugged} is non-@code{nil}. 863connection if @code{url-gateway-unplugged} is non-@code{nil}.
864@end defun 864@end defun
865 865
866@defvar url-gateway-local-host-regexp 866@defvar url-gateway-local-host-regexp
867This is a regular expression that matches local hosts that do not 867This is a regular expression that matches local hosts that do not
868require the use of a gateway. If @code{nil}, all connexions are made 868require the use of a gateway. If @code{nil}, all connections are made
869through the gateway. 869through the gateway.
870@end defvar 870@end defvar
871 871
@@ -987,26 +987,26 @@ This the @samp{nslookup} program. It is @code{"nslookup"} by default.
987@end defopt 987@end defopt
988 988
989@menu 989@menu
990* Suppressing network connexions:: 990* Suppressing network connections::
991@end menu 991@end menu
992@c * Broken hostname resolution:: 992@c * Broken hostname resolution::
993 993
994@node Suppressing network connexions 994@node Suppressing network connections
995@subsection Suppressing Network Connexions 995@subsection Suppressing Network Connections
996 996
997@cindex network connexions, suppressing 997@cindex network connections, suppressing
998@cindex suppressing network connexions 998@cindex suppressing network connections
999@cindex bugs, HTML 999@cindex bugs, HTML
1000@cindex HTML `bugs' 1000@cindex HTML `bugs'
1001In some circumstances it is desirable to suppress making network 1001In some circumstances it is desirable to suppress making network
1002connexions. A typical case is when rendering HTML in a mail user 1002connections. A typical case is when rendering HTML in a mail user
1003agent, when external URLs should not be activated, particularly to 1003agent, when external URLs should not be activated, particularly to
1004avoid `bugs' which `call home' by fetch single-pixel images and the 1004avoid `bugs' which `call home' by fetch single-pixel images and the
1005like. To arrange this, bind the following variable for the duration 1005like. To arrange this, bind the following variable for the duration
1006of such processing. 1006of such processing.
1007 1007
1008@defvar url-gateway-unplugged 1008@defvar url-gateway-unplugged
1009If this variable is non-@code{nil} new network connexions are never 1009If this variable is non-@code{nil} new network connections are never
1010opened by the URL library. 1010opened by the URL library.
1011@end defvar 1011@end defvar
1012 1012
@@ -1152,7 +1152,7 @@ only if an affirmative answer is given.
1152@end defopt 1152@end defopt
1153@defopt url-gateway-method 1153@defopt url-gateway-method
1154@c fixme: describe gatewaying 1154@c fixme: describe gatewaying
1155A symbol specifying the type of gateway support to use fro connexions 1155A symbol specifying the type of gateway support to use for connections
1156from the local machine. The supported methods are: 1156from the local machine. The supported methods are:
1157 1157
1158@table @code 1158@table @code
diff --git a/src/ChangeLog b/src/ChangeLog
index a6532912246..659f1066efc 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,27 @@
12005-06-22 Miles Bader <miles@gnu.org>
2
3 * xfaces.c (Qvertical_border): Renamed from `Qvertical_divider'.
4 (realize_basic_faces, syms_of_xfaces): Update references to it.
5 * dispextern.h (enum face_id): Rename `VERTICAL_DIVIDER_FACE_ID'
6 to `VERTICAL_BORDER_FACE_ID'.
7 * dispnew.c (build_frame_matrix_from_leaf_window): Update references.
8
92005-06-21 Juri Linkov <juri@jurta.org>
10
11 * dispextern.h: Add extern Qframe_set_background_mode.
12
13 * xfaces.c: Rename obsolete function Qframe_update_face_colors to
14 Qframe_set_background_mode.
15
16 * frame.c (Fmodify_frame_parameters):
17 Call frame-set-background-mode after changing the background color
18 on non-window non-dos branch.
19
202005-06-21 Juanma Barranquero <lekktu@gmail.com>
21
22 * fns.c (Fchar_table_range):
23 * process.c (Fmake_network_process): Fix spellings.
24
12005-06-20 Kim F. Storm <storm@cua.dk> 252005-06-20 Kim F. Storm <storm@cua.dk>
2 26
3 * fns.c (Fsort): Doc fix. 27 * fns.c (Fsort): Doc fix.
diff --git a/src/dispextern.h b/src/dispextern.h
index 5219a6e924f..3fb4f76a61f 100644
--- a/src/dispextern.h
+++ b/src/dispextern.h
@@ -1588,7 +1588,7 @@ enum face_id
1588 CURSOR_FACE_ID, 1588 CURSOR_FACE_ID,
1589 MOUSE_FACE_ID, 1589 MOUSE_FACE_ID,
1590 MENU_FACE_ID, 1590 MENU_FACE_ID,
1591 VERTICAL_DIVIDER_FACE_ID, 1591 VERTICAL_BORDER_FACE_ID,
1592 BASIC_FACE_ID_SENTINEL 1592 BASIC_FACE_ID_SENTINEL
1593}; 1593};
1594 1594
@@ -2786,6 +2786,7 @@ int merge_faces P_ ((struct frame *, Lisp_Object, int, int));
2786int compute_char_face P_ ((struct frame *, int, Lisp_Object)); 2786int compute_char_face P_ ((struct frame *, int, Lisp_Object));
2787void free_all_realized_faces P_ ((Lisp_Object)); 2787void free_all_realized_faces P_ ((Lisp_Object));
2788extern Lisp_Object Qforeground_color, Qbackground_color; 2788extern Lisp_Object Qforeground_color, Qbackground_color;
2789extern Lisp_Object Qframe_set_background_mode;
2789extern char unspecified_fg[], unspecified_bg[]; 2790extern char unspecified_fg[], unspecified_bg[];
2790void free_realized_multibyte_face P_ ((struct frame *, int)); 2791void free_realized_multibyte_face P_ ((struct frame *, int));
2791 2792
diff --git a/src/dispnew.c b/src/dispnew.c
index 307e3c5f010..c5256142588 100644
--- a/src/dispnew.c
+++ b/src/dispnew.c
@@ -2716,7 +2716,7 @@ build_frame_matrix_from_leaf_window (frame_matrix, w)
2716 2716
2717 if (FAST_GLYPH_FACE (right_border_glyph) <= 0) 2717 if (FAST_GLYPH_FACE (right_border_glyph) <= 0)
2718 right_border_glyph 2718 right_border_glyph
2719 = FAST_MAKE_GLYPH (right_border_glyph, VERTICAL_DIVIDER_FACE_ID); 2719 = FAST_MAKE_GLYPH (right_border_glyph, VERTICAL_BORDER_FACE_ID);
2720 } 2720 }
2721 } 2721 }
2722 else 2722 else
diff --git a/src/fns.c b/src/fns.c
index 792f94189d1..7365aa05e79 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -2546,7 +2546,7 @@ RANGE should be nil (for the default value),
2546a vector which identifies a character set or a row of a character set, 2546a vector which identifies a character set or a row of a character set,
2547a character set name, or a character code. 2547a character set name, or a character code.
2548If the characters in the specified range have different values, 2548If the characters in the specified range have different values,
2549an error is signalled. 2549an error is signaled.
2550 2550
2551Note that this function doesn't check the parent of CHAR-TABLE. */) 2551Note that this function doesn't check the parent of CHAR-TABLE. */)
2552 (char_table, range) 2552 (char_table, range)
diff --git a/src/frame.c b/src/frame.c
index 10318ba7110..62dba4d4d15 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -2548,6 +2548,12 @@ enabled such bindings for that variable with `make-variable-frame-local'. */)
2548 prop = parms[i]; 2548 prop = parms[i];
2549 val = values[i]; 2549 val = values[i];
2550 store_frame_param (f, prop, val); 2550 store_frame_param (f, prop, val);
2551
2552 /* Changing the background color might change the background
2553 mode, so that we have to load new defface specs.
2554 Call frame-set-background-mode to do that. */
2555 if (EQ (prop, Qbackground_color))
2556 call1 (Qframe_set_background_mode, frame);
2551 } 2557 }
2552 } 2558 }
2553 2559
diff --git a/src/process.c b/src/process.c
index dd13138e273..46808674a0d 100644
--- a/src/process.c
+++ b/src/process.c
@@ -2552,7 +2552,7 @@ DEFUN ("make-network-process", Fmake_network_process, Smake_network_process,
2552In Emacs, network connections are represented by process objects, so 2552In Emacs, network connections are represented by process objects, so
2553input and output work as for subprocesses and `delete-process' closes 2553input and output work as for subprocesses and `delete-process' closes
2554a network connection. However, a network process has no process id, 2554a network connection. However, a network process has no process id,
2555it cannot be signalled, and the status codes are different from normal 2555it cannot be signaled, and the status codes are different from normal
2556processes. 2556processes.
2557 2557
2558Arguments are specified as keyword/argument pairs. The following 2558Arguments are specified as keyword/argument pairs. The following
diff --git a/src/window.c b/src/window.c
index 5bfff27f976..df284420ddf 100644
--- a/src/window.c
+++ b/src/window.c
@@ -4182,7 +4182,7 @@ enlarge_window (window, delta, widthflag, preserve_before)
4182 4182
4183 The number of children n equals the number of resizable 4183 The number of children n equals the number of resizable
4184 children of this window + 1 because we know window itself 4184 children of this window + 1 because we know window itself
4185 is resizable (otherwise we would have signalled an error. */ 4185 is resizable (otherwise we would have signalled an error). */
4186 4186
4187 struct window *w = XWINDOW (window); 4187 struct window *w = XWINDOW (window);
4188 Lisp_Object s; 4188 Lisp_Object s;
diff --git a/src/xfaces.c b/src/xfaces.c
index 2494e1e1837..78dc41116e4 100644
--- a/src/xfaces.c
+++ b/src/xfaces.c
@@ -319,15 +319,15 @@ Lisp_Object Qunspecified;
319char unspecified_fg[] = "unspecified-fg", unspecified_bg[] = "unspecified-bg"; 319char unspecified_fg[] = "unspecified-fg", unspecified_bg[] = "unspecified-bg";
320 320
321/* The name of the function to call when the background of the frame 321/* The name of the function to call when the background of the frame
322 has changed, frame_update_face_colors. */ 322 has changed, frame_set_background_mode. */
323 323
324Lisp_Object Qframe_update_face_colors; 324Lisp_Object Qframe_set_background_mode;
325 325
326/* Names of basic faces. */ 326/* Names of basic faces. */
327 327
328Lisp_Object Qdefault, Qtool_bar, Qregion, Qfringe; 328Lisp_Object Qdefault, Qtool_bar, Qregion, Qfringe;
329Lisp_Object Qheader_line, Qscroll_bar, Qcursor, Qborder, Qmouse, Qmenu; 329Lisp_Object Qheader_line, Qscroll_bar, Qcursor, Qborder, Qmouse, Qmenu;
330Lisp_Object Qmode_line_inactive, Qvertical_divider; 330Lisp_Object Qmode_line_inactive, Qvertical_border;
331extern Lisp_Object Qmode_line; 331extern Lisp_Object Qmode_line;
332 332
333/* The symbol `face-alias'. A symbols having that property is an 333/* The symbol `face-alias'. A symbols having that property is an
@@ -4526,10 +4526,10 @@ update_face_from_frame_parameter (f, param, new_value)
4526 Lisp_Object frame; 4526 Lisp_Object frame;
4527 4527
4528 /* Changing the background color might change the background 4528 /* Changing the background color might change the background
4529 mode, so that we have to load new defface specs. Call 4529 mode, so that we have to load new defface specs.
4530 frame-update-face-colors to do that. */ 4530 Call frame-set-background-mode to do that. */
4531 XSETFRAME (frame, f); 4531 XSETFRAME (frame, f);
4532 call1 (Qframe_update_face_colors, frame); 4532 call1 (Qframe_set_background_mode, frame);
4533 4533
4534 face = Qdefault; 4534 face = Qdefault;
4535 lface = lface_from_face_name (f, face, 1); 4535 lface = lface_from_face_name (f, face, 1);
@@ -6899,7 +6899,7 @@ realize_basic_faces (f)
6899 realize_named_face (f, Qcursor, CURSOR_FACE_ID); 6899 realize_named_face (f, Qcursor, CURSOR_FACE_ID);
6900 realize_named_face (f, Qmouse, MOUSE_FACE_ID); 6900 realize_named_face (f, Qmouse, MOUSE_FACE_ID);
6901 realize_named_face (f, Qmenu, MENU_FACE_ID); 6901 realize_named_face (f, Qmenu, MENU_FACE_ID);
6902 realize_named_face (f, Qvertical_divider, VERTICAL_DIVIDER_FACE_ID); 6902 realize_named_face (f, Qvertical_border, VERTICAL_BORDER_FACE_ID);
6903 6903
6904 /* Reflect changes in the `menu' face in menu bars. */ 6904 /* Reflect changes in the `menu' face in menu bars. */
6905 if (FRAME_FACE_CACHE (f)->menu_face_changed_p) 6905 if (FRAME_FACE_CACHE (f)->menu_face_changed_p)
@@ -7910,8 +7910,8 @@ syms_of_xfaces ()
7910 staticpro (&Qface_no_inherit); 7910 staticpro (&Qface_no_inherit);
7911 Qbitmap_spec_p = intern ("bitmap-spec-p"); 7911 Qbitmap_spec_p = intern ("bitmap-spec-p");
7912 staticpro (&Qbitmap_spec_p); 7912 staticpro (&Qbitmap_spec_p);
7913 Qframe_update_face_colors = intern ("frame-update-face-colors"); 7913 Qframe_set_background_mode = intern ("frame-set-background-mode");
7914 staticpro (&Qframe_update_face_colors); 7914 staticpro (&Qframe_set_background_mode);
7915 7915
7916 /* Lisp face attribute keywords. */ 7916 /* Lisp face attribute keywords. */
7917 QCfamily = intern (":family"); 7917 QCfamily = intern (":family");
@@ -8035,8 +8035,8 @@ syms_of_xfaces ()
8035 staticpro (&Qmouse); 8035 staticpro (&Qmouse);
8036 Qmode_line_inactive = intern ("mode-line-inactive"); 8036 Qmode_line_inactive = intern ("mode-line-inactive");
8037 staticpro (&Qmode_line_inactive); 8037 staticpro (&Qmode_line_inactive);
8038 Qvertical_divider = intern ("vertical-divider"); 8038 Qvertical_border = intern ("vertical-border");
8039 staticpro (&Qvertical_divider); 8039 staticpro (&Qvertical_border);
8040 Qtty_color_desc = intern ("tty-color-desc"); 8040 Qtty_color_desc = intern ("tty-color-desc");
8041 staticpro (&Qtty_color_desc); 8041 staticpro (&Qtty_color_desc);
8042 Qtty_color_standard_values = intern ("tty-color-standard-values"); 8042 Qtty_color_standard_values = intern ("tty-color-standard-values");