diff options
| author | Karoly Lorentey | 2005-06-22 17:53:21 +0000 |
|---|---|---|
| committer | Karoly Lorentey | 2005-06-22 17:53:21 +0000 |
| commit | f4d9bf3a9be50a17c2e2f7569b88f3606ab273d9 (patch) | |
| tree | a06250d0c5fec729ab16920d2bb4f857f04cde8b | |
| parent | f3479ceeb65724094be33b49bae289a81f42b6ee (diff) | |
| parent | 73106994f86353b8bb5018bacdace22643c5f485 (diff) | |
| download | emacs-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
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 | |||
| 67 | time to make anfe-ftp more intelligent. | 67 | time to make anfe-ftp more intelligent. |
| 68 | 68 | ||
| 69 | 69 | ||
| 70 | * REDISPLAY RELATED BUGS | ||
| 71 | |||
| 72 | ** Avoid unbreakable loops in redisplay. | ||
| 73 | |||
| 74 | Redisplay may loop if there is an error in some display property, e.g. | ||
| 75 | (space 'left-margin) | ||
| 76 | |||
| 77 | A fix would be to somehow disable handling of display properties if an error | ||
| 78 | is encountered. | ||
| 79 | |||
| 80 | |||
| 81 | * DOCUMENTATION | 70 | * DOCUMENTATION |
| 82 | 71 | ||
| 83 | ** Document Custom Themes. | 72 | ** Document Custom Themes. |
| @@ -1982,7 +1982,7 @@ exceptions are M-a (c-beginning-of-statement) and M-e | |||
| 1982 | 1982 | ||
| 1983 | The notion of "defun" has been augmented to include AWK pattern-action | 1983 | The notion of "defun" has been augmented to include AWK pattern-action |
| 1984 | pairs. C-M-a (c-awk-beginning-of-defun) and C-M-e (c-awk-end-of-defun) | 1984 | pairs. C-M-a (c-awk-beginning-of-defun) and C-M-e (c-awk-end-of-defun) |
| 1985 | recognise these pattern-action pairs, as well as user defined | 1985 | recognize these pattern-action pairs, as well as user defined |
| 1986 | functions. | 1986 | functions. |
| 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 | ||
| 2022 | is now analysed as | 2022 | is 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 | ||
| 2543 | Previously, only the `template' and `class' keywords had this effect. | 2543 | Previously, 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 | |||
| 3942 | functions. | 3942 | functions. |
| 3943 | 3943 | ||
| 3944 | *** Function `signal-process' now accepts a process object or process | 3944 | *** Function `signal-process' now accepts a process object or process |
| 3945 | name in addition to a process id to identify the signalled process. | 3945 | name 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 |
| 3948 | maintain process state and other per-process related information. | 3948 | maintain 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" |
| 13312 | constructs are tagged. Files are recognised by the extension .java. | 13312 | constructs 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 |
| 13315 | recognised by the extensions .ps and .pdb (Postscript with C syntax). | 13315 | recognized by the extensions .ps and .pdb (Postscript with C syntax). |
| 13316 | In Postscript, tags are lines that start with a slash. | 13316 | In 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 | |||
| 13320 | recognizes special Objective C syntax for classes, class categories, | 13320 | recognizes special Objective C syntax for classes, class categories, |
| 13321 | methods and protocols. | 13321 | methods 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 |
| 13325 | column 8 and ends in a full stop, i.e. anything that could be a | 13325 | column 8 and ends in a full stop, i.e. anything that could be a |
| 13326 | paragraph name. | 13326 | paragraph name. |
| @@ -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 @@ | |||
| 1 | 2005-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 | |||
| 6 | 2005-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 | |||
| 17 | 2005-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 | |||
| 36 | 2005-06-21 Reiner Steib <Reiner.Steib@gmx.de> | ||
| 37 | |||
| 38 | * pcvs-defs.el (cvs-menu): Add cvs-mode-mark and cvs-mode-unmark. | ||
| 39 | |||
| 40 | 2005-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 | |||
| 1 | 2005-06-20 Kim F. Storm <storm@cua.dk> | 45 | 2005-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 | ||
| 539 | 2005-06-13 Lute Kamstra <lute@gnu.org> | 584 | 2005-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 | ||
| 1446 | 2005-05-31 Richard M. Stallman <rms@gnu.org> | 1492 | 2005-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 | ||
| 1482 | 2005-05-30 Glenn Morris <gmorris@ast.cam.ac.uk> | 1529 | 2005-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. | |||
| 534 | They specify the range of dates that the diary is being processed for. | 534 | They specify the range of dates that the diary is being processed for. |
| 535 | 535 | ||
| 536 | Any appointments made with `appt-add' are not affected by this | 536 | Any appointments made with `appt-add' are not affected by this |
| 537 | function." | 537 | function. |
| 538 | 538 | ||
| 539 | ;; We have something to do if the range of dates that the diary is | 539 | For backwards compatibility, this function activates the |
| 540 | ;; considering includes the current date. | 540 | appointment 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 @@ | |||
| 1126 | This assumes that the function will not have any side-effects and that | 1126 | This assumes that the function will not have any side-effects and that |
| 1127 | its return value depends solely on its arguments. | 1127 | its return value depends solely on its arguments. |
| 1128 | If the function can signal an error, this might change the semantics | 1128 | If the function can signal an error, this might change the semantics |
| 1129 | of FORM by signalling the error at compile-time." | 1129 | of 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 | |||
| 489 | expressions (\"sexps\") in general. This is done according to the | 489 | expressions (\"sexps\") in general. This is done according to the |
| 490 | current syntax table and will find unbalanced brackets or quotes as | 490 | current syntax table and will find unbalanced brackets or quotes as |
| 491 | appropriate. (See Info node `(emacs)Parentheses'.) If imbalance is | 491 | appropriate. (See Info node `(emacs)Parentheses'.) If imbalance is |
| 492 | found, an error is signalled and point is left at the first unbalanced | 492 | found, an error is signaled and point is left at the first unbalanced |
| 493 | character." | 493 | character." |
| 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. |
| 1479 | If there is neither a user setting nor a default for FACE, return nil." | 1479 | If 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. |
| 1552 | Set this to the symbol `dark' if your background color is dark, `light' if | 1553 | Set this to the symbol `dark' if your background color is dark, |
| 1553 | your 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 |
| 1554 | examine the brightness for you. Don't set this variable with `setq'; | 1555 | to examine the brightness for you. Don't set this variable with `setq'; |
| 1555 | this won't have the expected effect." | 1556 | this 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 @@ | |||
| 1 | 2005-06-21 Juanma Barranquero <lekktu@gmail.com> | ||
| 2 | |||
| 3 | * nnimap.el (nnimap-split-download-body): Fix spellings. | ||
| 4 | |||
| 1 | 2005-06-16 Juanma Barranquero <lekktu@gmail.com> | 5 | 2005-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. |
| 206 | This is generally not required, and will slow things down considerably. | 206 | This is generally not required, and will slow things down considerably. |
| 207 | You may need it if you want to use an advanced splitting function that | 207 | You may need it if you want to use an advanced splitting function that |
| 208 | analyses the body before splitting the article. | 208 | analyzes the body before splitting the article. |
| 209 | If this variable is nil, bodies will not be downloaded; if this | 209 | If this variable is nil, bodies will not be downloaded; if this |
| 210 | variable is the symbol `default' the default behaviour is | 210 | variable is the symbol `default' the default behaviour is |
| 211 | used (which currently is nil, unless you use a statistical | 211 | used (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 | ||
| 422 | This function does not do any hidden buffer changes." | 422 | This 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 | ||
| 490 | Return a lexical token. | 490 | Return 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 | ||
| 434 | Return a lexical token. | 434 | Return 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 | ||
| 1157 | Return a lexical token. | 1157 | Return 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 | ||
| 421 | Return a lexical token. | 421 | Return 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 | ||
| 394 | Return a lexical token. | 394 | Return 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 | ||
| 317 | Return a lexical token. | 317 | Return 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." | |||
| 878 | lambda of one argument) on VALUE. Result is the the printed cell as a | 878 | lambda of one argument) on VALUE. Result is the the printed cell as a |
| 879 | string. The variable `ses-call-printer-return' is set to t if the printer | 879 | string. The variable `ses-call-printer-return' is set to t if the printer |
| 880 | used parenthesis to request left-justification, or the error-signal if the | 880 | used parenthesis to request left-justification, or the error-signal if the |
| 881 | printer signalled one (and \"%s\" is used as the default printer), else nil." | 881 | printer 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 |
| 46 | instead of returning to its caller. If FORM does return, an error is | 46 | instead of returning to its caller. If FORM does return, an error is |
| 47 | signalled." | 47 | signaled." |
| 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 |
| 53 | from all evaluations of FORM. This is the global do-nothing | 53 | from all evaluations of FORM. This is the global do-nothing |
| 54 | version of `1value'. There is also `testcover-1value' that | 54 | version of `1value'. There is also `testcover-1value' that |
| 55 | complains if FORM ever does return differing values." | 55 | complains if FORM ever does return differing values." |
| @@ -61,7 +61,7 @@ A call of the form (lambda ARGS DOCSTRING INTERACTIVE BODY) is | |||
| 61 | self-quoting; the result of evaluating the lambda expression is the | 61 | self-quoting; the result of evaluating the lambda expression is the |
| 62 | expression itself. The lambda expression may then be treated as a | 62 | expression itself. The lambda expression may then be treated as a |
| 63 | function, i.e., stored as the function value of a symbol, passed to | 63 | function, i.e., stored as the function value of a symbol, passed to |
| 64 | funcall or mapcar, etc. | 64 | `funcall' or `mapcar', etc. |
| 65 | 65 | ||
| 66 | ARGS should take the same form as an argument list for a `defun'. | 66 | ARGS should take the same form as an argument list for a `defun'. |
| 67 | DOCSTRING is an optional documentation string. | 67 | DOCSTRING 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 @@ | |||
| 1 | 2005-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 | |||
| 1 | 2005-06-14 Juanma Barranquero <lekktu@gmail.com> | 6 | 2005-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. |
| 214 | Args per `open-network-stream'. | 214 | Args per `open-network-stream'. |
| 215 | Will not make a connexion if `url-gateway-unplugged' is non-nil." | 215 | Will 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. |
| 392 | This should be set, e.g. by mail user agents rendering HTML to avoid | 392 | This 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 | ||
| 7320 | The part within quotation marks, @code{"*p\ncZap to char:@: "}, specifies | 7320 | The part within quotation marks, @code{"*p\ncZap to char:@: "}, specifies |
| 7321 | three different things. First, and most simply, the asterisk, @samp{*}, | 7321 | three different things. First, and most simply, the asterisk, @samp{*}, |
| 7322 | causes an error to be signalled if the buffer is read-only. This means that | 7322 | causes an error to be signaled if the buffer is read-only. This means that |
| 7323 | if you try @code{zap-to-char} in a read-only buffer you will not be able to | 7323 | if you try @code{zap-to-char} in a read-only buffer you will not be able to |
| 7324 | remove text, and you will receive a message that says ``Buffer is | 7324 | remove text, and you will receive a message that says ``Buffer is |
| 7325 | read-only''; your terminal may beep at you as well. | 7325 | read-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 @@ | |||
| 1 | 2005-06-21 Richard M. Stallman <rms@gnu.org> | ||
| 2 | |||
| 3 | * anti.texi (Antinews): Texinfo usage fix. | ||
| 4 | |||
| 5 | 2005-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 | |||
| 13 | 2005-06-21 Juri Linkov <juri@jurta.org> | ||
| 14 | |||
| 15 | * display.texi (Defining Faces): Add `customized-face'. | ||
| 16 | |||
| 1 | 2005-06-20 Kim F. Storm <storm@cua.dk> | 17 | 2005-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 |
| 387 | There is a new variable, @code{recursive-load-depth-limit}, which | 387 | There is a new variable, @code{recursive-load-depth-limit}, which |
| 388 | specifies how many times files can recursively load themselves; it is | 388 | specifies how many times files can recursively load themselves; it is |
| 389 | 50 by default, and nil means infinity. Previously, Emacs signalled an | 389 | 50 by default, and @code{nil} means infinity. Previously, Emacs signaled an |
| 390 | error after just 3 recursive loads, which was boring. | 390 | error 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 |
| 154 | This variable's value is a function to use for making backups instead | 154 | This variable's value is a function to use for making backups instead |
| 155 | of the default @code{make-backup-file-name}. A value of @code{nil} | 155 | of the default @code{make-backup-file-name}. A value of @code{nil} |
| 156 | gives the default @code{make-backup-file-name} behaviour. | 156 | gives the default @code{make-backup-file-name} behavior. |
| 157 | @xref{Backup Names,, Naming Backup Files}. | 157 | @xref{Backup Names,, Naming Backup Files}. |
| 158 | 158 | ||
| 159 | This could be buffer-local to do something special for specific | 159 | This 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 |
| 737 | processing normally aborts all or part of the running program and | 737 | processing normally aborts all or part of the running program and |
| 738 | returns to a point that is set up to handle the error | 738 | returns 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 |
| 1910 | with the customization buffer, and @code{face-documentation} for the | 1910 | with the customization buffer, @code{customized-face} for the |
| 1911 | documentation string. | 1911 | attributes customized by the user for the current session, but not |
| 1912 | saved, and @code{face-documentation} for the documentation string. | ||
| 1912 | 1913 | ||
| 1913 | @defopt frame-background-mode | 1914 | @defopt frame-background-mode |
| 1914 | This option, if non-@code{nil}, specifies the background type to use for | 1915 | This 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 |
| 30 | This Info file contains edition @value{VERSION} of the GNU Emacs Lisp | 30 | This is edition @value{VERSION} of the GNU Emacs Lisp |
| 31 | Reference Manual, corresponding to Emacs version @value{EMACSVER}. | 31 | Reference Manual, corresponding to Emacs version @value{EMACSVER}. |
| 32 | 32 | ||
| 33 | Published by the Free Software Foundation | 33 | Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1998, 1999, |
| 34 | 59 Temple Place, Suite 330 | ||
| 35 | Boston, MA 02111-1307 USA | ||
| 36 | |||
| 37 | Copyright (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 | ||
| 40 | Permission is granted to copy, distribute and/or modify this document | 37 | Permission is granted to copy, distribute and/or modify this document |
| 41 | under the terms of the GNU Free Documentation License, Version 1.1 or | 38 | under the terms of the GNU Free Documentation License, Version 1.1 or |
| 42 | any later version published by the Free Software Foundation; with the | 39 | any later version published by the Free Software Foundation; with the |
| 43 | Invariant Sections being ``GNU General Public License'', with the Front-Cover texts being | 40 | Invariant Sections being ``GNU General Public License'', with the |
| 44 | ``A GNU Manual'', and with the Back-Cover Texts as in (a) below. A copy | 41 | Front-Cover texts being ``A GNU Manual'', and with the Back-Cover |
| 45 | of the license is included in the section entitled ``GNU Free | 42 | Texts as in (a) below. A copy of the license is included in the |
| 46 | Documentation License''. | 43 | section 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 |
| 49 | this GNU Manual, like GNU software. Copies published by the Free | 46 | this GNU Manual, like GNU software. Copies published by the Free |
| 50 | Software Foundation raise funds for GNU development.'' | 47 | Software 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 |
| 62 | Copyright @copyright{} 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1998,@* | 60 | @insertcopying |
| 63 | 1999, 2000, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. | ||
| 64 | |||
| 65 | @sp 2 | ||
| 66 | Edition @value{VERSION} @* | ||
| 67 | Revised for Emacs Version @value{EMACSVER},@* | ||
| 68 | January 2002.@* | ||
| 69 | @sp 2 | ||
| 70 | ISBN 1-882114-73-6 | ||
| 71 | 61 | ||
| 72 | @sp 2 | 62 | @sp 1 |
| 73 | Published by the Free Software Foundation @* | 63 | Published by the Free Software Foundation @* |
| 74 | 59 Temple Place, Suite 330@* | 64 | 51 Franklin St, Fifth Floor @* |
| 75 | Boston, MA 02111-1307 USA | 65 | Boston, MA 02110-1301 @* |
| 76 | 66 | USA @* | |
| 77 | Permission is granted to copy, distribute and/or modify this document | 67 | ISBN 1-882114-73-6 |
| 78 | under the terms of the GNU Free Documentation License, Version 1.1 or | ||
| 79 | any later version published by the Free Software Foundation; with the | ||
| 80 | Invariant 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 | ||
| 82 | of the license is included in the section entitled ``GNU Free | ||
| 83 | Documentation License''. | ||
| 84 | |||
| 85 | (a) The FSF's Back-Cover Text is: ``You have freedom to copy and modify | ||
| 86 | this GNU Manual, like GNU software. Copies published by the Free | ||
| 87 | Software Foundation raise funds for GNU development.'' | ||
| 88 | 68 | ||
| 69 | @sp 1 | ||
| 89 | Cover art by Etienne Suvasa. | 70 | Cover 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 |
| 1991 | This function returns the number of planes the display supports. | 1991 | This function returns the number of planes the display supports. |
| 1992 | This is typically the number of bits per pixel. | 1992 | This is typically the number of bits per pixel. |
| 1993 | For a tty display, it is log to base two of the number of colours supported. | 1993 | For 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. | |||
| 3529 | graphical applications use @key{Mouse-1} for following links. For | 3529 | graphical applications use @key{Mouse-1} for following links. For |
| 3530 | compatibility, @key{Mouse-1} follows links in Emacs too, when you | 3530 | compatibility, @key{Mouse-1} follows links in Emacs too, when you |
| 3531 | click on a link quickly without moving the mouse. The user can | 3531 | click on a link quickly without moving the mouse. The user can |
| 3532 | customize this behaviour through the variable | 3532 | customize 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 @@ | |||
| 1 | 2005-06-22 Miles Bader <miles@gnu.org> | ||
| 2 | |||
| 3 | * display.texi (Faces): Change `vertical-divider' to `vertical-border'. | ||
| 4 | |||
| 1 | 2005-06-20 Miles Bader <miles@gnu.org> | 5 | 2005-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 | |||
| 2363 | none of the list elements return a non-@code{nil} value, then an offset | 2363 | none of the list elements return a non-@code{nil} value, then an offset |
| 2364 | of 0 (zero) is used@footnote{There is however a variable | 2364 | of 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 |
| 2366 | error to be signalled in that case. It's now considered obsolete since | 2366 | error to be signaled in that case. It's now considered obsolete since |
| 2367 | it doesn't work well with some of the alignment functions that now | 2367 | it doesn't work well with some of the alignment functions that now |
| 2368 | returns @code{nil} instead of zero to be more usable in lists. You | 2368 | returns @code{nil} instead of zero to be more usable in lists. You |
| 2369 | should therefore leave @code{c-strict-syntax-p} set to @code{nil}.}. | 2369 | should 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 |
| 114 | Similar to @code{mode-line} for a window's header line. Most modes | 114 | Similar to @code{mode-line} for a window's header line. Most modes |
| 115 | don't use the header line, but the Info mode does. | 115 | don't use the header line, but the Info mode does. |
| 116 | @item vertical-divider | 116 | @item vertical-border |
| 117 | This face is used for the vertical divider between windows on | 117 | This face is used for the vertical divider between windows on |
| 118 | character terminals. By default this face inherits from the | 118 | character 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}. | |||
| 16497 | Set to non-@code{nil} to download entire articles during splitting. | 16497 | Set to non-@code{nil} to download entire articles during splitting. |
| 16498 | This is generally not required, and will slow things down | 16498 | This is generally not required, and will slow things down |
| 16499 | considerably. You may need it if you want to use an advanced | 16499 | considerably. You may need it if you want to use an advanced |
| 16500 | splitting function that analyses the body to split the article. | 16500 | splitting 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 |
| 422 | You might be one organised human freak and have a list of addresses of | 422 | You might be one organized human freak and have a list of addresses of |
| 423 | all subscribed mailing lists in a separate file! Then you can just | 423 | all subscribed mailing lists in a separate file! Then you can just |
| 424 | set this variable to the name of the file and life would be good. | 424 | set 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; |
| 640 | nothing is printed for it. | 640 | nothing 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 |
| 642 | producing a value: the print cell is filled with hash marks (#). | 642 | producing 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 | |||
| 99 | should read in @ref{Installation} how to create them. | 99 | should read in @ref{Installation} how to create them. |
| 100 | @end ifinfo | 100 | @end ifinfo |
| 101 | @ifhtml | 101 | @ifhtml |
| 102 | If you're using the other Emacs flavour, you should read the | 102 | If 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. | |||
| 850 | The library provides a general gateway layer through which all | 850 | The library provides a general gateway layer through which all |
| 851 | networking passes. It can both control access to the network and | 851 | networking passes. It can both control access to the network and |
| 852 | provide access through gateways in firewalls. This may make direct | 852 | provide access through gateways in firewalls. This may make direct |
| 853 | connexions in some cases and pass through some sort of gateway in | 853 | connections in some cases and pass through some sort of gateway in |
| 854 | others.@footnote{Proxies (which only operate over HTTP) are | 854 | others.@footnote{Proxies (which only operate over HTTP) are |
| 855 | implemented using this.} The library's basic function responsible for | 855 | implemented using this.} The library's basic function responsible for |
| 856 | making connexions is @code{url-open-stream}. | 856 | making 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 |
| 861 | Open a stream to @var{host}, possibly via a gateway. The other | 861 | Open a stream to @var{host}, possibly via a gateway. The other |
| 862 | arguments are as for @code{open-network-stream}. This will not make a | 862 | arguments are as for @code{open-network-stream}. This will not make a |
| 863 | connexion if @code{url-gateway-unplugged} is non-@code{nil}. | 863 | connection 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 |
| 867 | This is a regular expression that matches local hosts that do not | 867 | This is a regular expression that matches local hosts that do not |
| 868 | require the use of a gateway. If @code{nil}, all connexions are made | 868 | require the use of a gateway. If @code{nil}, all connections are made |
| 869 | through the gateway. | 869 | through 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' |
| 1001 | In some circumstances it is desirable to suppress making network | 1001 | In some circumstances it is desirable to suppress making network |
| 1002 | connexions. A typical case is when rendering HTML in a mail user | 1002 | connections. A typical case is when rendering HTML in a mail user |
| 1003 | agent, when external URLs should not be activated, particularly to | 1003 | agent, when external URLs should not be activated, particularly to |
| 1004 | avoid `bugs' which `call home' by fetch single-pixel images and the | 1004 | avoid `bugs' which `call home' by fetch single-pixel images and the |
| 1005 | like. To arrange this, bind the following variable for the duration | 1005 | like. To arrange this, bind the following variable for the duration |
| 1006 | of such processing. | 1006 | of such processing. |
| 1007 | 1007 | ||
| 1008 | @defvar url-gateway-unplugged | 1008 | @defvar url-gateway-unplugged |
| 1009 | If this variable is non-@code{nil} new network connexions are never | 1009 | If this variable is non-@code{nil} new network connections are never |
| 1010 | opened by the URL library. | 1010 | opened 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 |
| 1155 | A symbol specifying the type of gateway support to use fro connexions | 1155 | A symbol specifying the type of gateway support to use for connections |
| 1156 | from the local machine. The supported methods are: | 1156 | from 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 @@ | |||
| 1 | 2005-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 | |||
| 9 | 2005-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 | |||
| 20 | 2005-06-21 Juanma Barranquero <lekktu@gmail.com> | ||
| 21 | |||
| 22 | * fns.c (Fchar_table_range): | ||
| 23 | * process.c (Fmake_network_process): Fix spellings. | ||
| 24 | |||
| 1 | 2005-06-20 Kim F. Storm <storm@cua.dk> | 25 | 2005-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)); | |||
| 2786 | int compute_char_face P_ ((struct frame *, int, Lisp_Object)); | 2786 | int compute_char_face P_ ((struct frame *, int, Lisp_Object)); |
| 2787 | void free_all_realized_faces P_ ((Lisp_Object)); | 2787 | void free_all_realized_faces P_ ((Lisp_Object)); |
| 2788 | extern Lisp_Object Qforeground_color, Qbackground_color; | 2788 | extern Lisp_Object Qforeground_color, Qbackground_color; |
| 2789 | extern Lisp_Object Qframe_set_background_mode; | ||
| 2789 | extern char unspecified_fg[], unspecified_bg[]; | 2790 | extern char unspecified_fg[], unspecified_bg[]; |
| 2790 | void free_realized_multibyte_face P_ ((struct frame *, int)); | 2791 | void 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 |
| @@ -2546,7 +2546,7 @@ RANGE should be nil (for the default value), | |||
| 2546 | a vector which identifies a character set or a row of a character set, | 2546 | a vector which identifies a character set or a row of a character set, |
| 2547 | a character set name, or a character code. | 2547 | a character set name, or a character code. |
| 2548 | If the characters in the specified range have different values, | 2548 | If the characters in the specified range have different values, |
| 2549 | an error is signalled. | 2549 | an error is signaled. |
| 2550 | 2550 | ||
| 2551 | Note that this function doesn't check the parent of CHAR-TABLE. */) | 2551 | Note 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, | |||
| 2552 | In Emacs, network connections are represented by process objects, so | 2552 | In Emacs, network connections are represented by process objects, so |
| 2553 | input and output work as for subprocesses and `delete-process' closes | 2553 | input and output work as for subprocesses and `delete-process' closes |
| 2554 | a network connection. However, a network process has no process id, | 2554 | a network connection. However, a network process has no process id, |
| 2555 | it cannot be signalled, and the status codes are different from normal | 2555 | it cannot be signaled, and the status codes are different from normal |
| 2556 | processes. | 2556 | processes. |
| 2557 | 2557 | ||
| 2558 | Arguments are specified as keyword/argument pairs. The following | 2558 | Arguments 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; | |||
| 319 | char unspecified_fg[] = "unspecified-fg", unspecified_bg[] = "unspecified-bg"; | 319 | char 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 | ||
| 324 | Lisp_Object Qframe_update_face_colors; | 324 | Lisp_Object Qframe_set_background_mode; |
| 325 | 325 | ||
| 326 | /* Names of basic faces. */ | 326 | /* Names of basic faces. */ |
| 327 | 327 | ||
| 328 | Lisp_Object Qdefault, Qtool_bar, Qregion, Qfringe; | 328 | Lisp_Object Qdefault, Qtool_bar, Qregion, Qfringe; |
| 329 | Lisp_Object Qheader_line, Qscroll_bar, Qcursor, Qborder, Qmouse, Qmenu; | 329 | Lisp_Object Qheader_line, Qscroll_bar, Qcursor, Qborder, Qmouse, Qmenu; |
| 330 | Lisp_Object Qmode_line_inactive, Qvertical_divider; | 330 | Lisp_Object Qmode_line_inactive, Qvertical_border; |
| 331 | extern Lisp_Object Qmode_line; | 331 | extern 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"); |