Mercurial > emacs
comparison lisp/simple.el @ 83250:89ac10c67e45
Merged from miles@gnu.org--gnu-2005 (patch 12-13, 79-90)
Patches applied:
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-79
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-80
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-81
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-82
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-83
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-84
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-85
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-86
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-87
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-88
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-89
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-90
Update from CVS: man/calc.texi: Add macro for LaTeX for info output.
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-12
Merge from emacs--cvs-trunk--0
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-13
Update from CVS
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-290
author | Karoly Lorentey <lorentey@elte.hu> |
---|---|
date | Thu, 10 Feb 2005 20:43:55 +0000 |
parents | 3dcba0bc766b aac0a33f5772 |
children | c0215e820840 |
comparison
equal
deleted
inserted
replaced
83249:267c2ab562ab | 83250:89ac10c67e45 |
---|---|
69 ;;; next-error support framework | 69 ;;; next-error support framework |
70 | 70 |
71 (defgroup next-error nil | 71 (defgroup next-error nil |
72 "next-error support framework." | 72 "next-error support framework." |
73 :group 'compilation | 73 :group 'compilation |
74 :version "21.4") | 74 :version "22.1") |
75 | 75 |
76 (defface next-error | 76 (defface next-error |
77 '((t (:inherit region))) | 77 '((t (:inherit region))) |
78 "Face used to highlight next error locus." | 78 "Face used to highlight next error locus." |
79 :group 'next-error | 79 :group 'next-error |
80 :version "21.4") | 80 :version "22.1") |
81 | 81 |
82 (defcustom next-error-highlight 0.1 | 82 (defcustom next-error-highlight 0.1 |
83 "*Highlighting of locations in selected source buffers. | 83 "*Highlighting of locations in selected source buffers. |
84 If number, highlight the locus in next-error face for given time in seconds. | 84 If number, highlight the locus in next-error face for given time in seconds. |
85 If t, use persistent overlays fontified in next-error face. | 85 If t, use persistent overlays fontified in next-error face. |
88 :type '(choice (number :tag "Delay") | 88 :type '(choice (number :tag "Delay") |
89 (const :tag "Persistent overlay" t) | 89 (const :tag "Persistent overlay" t) |
90 (const :tag "No highlighting" nil) | 90 (const :tag "No highlighting" nil) |
91 (const :tag "Fringe arrow" 'fringe-arrow)) | 91 (const :tag "Fringe arrow" 'fringe-arrow)) |
92 :group 'next-error | 92 :group 'next-error |
93 :version "21.4") | 93 :version "22.1") |
94 | 94 |
95 (defcustom next-error-highlight-no-select 0.1 | 95 (defcustom next-error-highlight-no-select 0.1 |
96 "*Highlighting of locations in non-selected source buffers. | 96 "*Highlighting of locations in non-selected source buffers. |
97 If number, highlight the locus in next-error face for given time in seconds. | 97 If number, highlight the locus in next-error face for given time in seconds. |
98 If t, use persistent overlays fontified in next-error face. | 98 If t, use persistent overlays fontified in next-error face. |
101 :type '(choice (number :tag "Delay") | 101 :type '(choice (number :tag "Delay") |
102 (const :tag "Persistent overlay" t) | 102 (const :tag "Persistent overlay" t) |
103 (const :tag "No highlighting" nil) | 103 (const :tag "No highlighting" nil) |
104 (const :tag "Fringe arrow" 'fringe-arrow)) | 104 (const :tag "Fringe arrow" 'fringe-arrow)) |
105 :group 'next-error | 105 :group 'next-error |
106 :version "21.4") | 106 :version "22.1") |
107 | 107 |
108 (defvar next-error-last-buffer nil | 108 (defvar next-error-last-buffer nil |
109 "The most recent next-error buffer. | 109 "The most recent next-error buffer. |
110 A buffer becomes most recent when its compilation, grep, or | 110 A buffer becomes most recent when its compilation, grep, or |
111 similar mode is started, or when it is used with \\[next-error] | 111 similar mode is started, or when it is used with \\[next-error] |
1538 inhibited while the question is asked, meaning that Emacs might | 1538 inhibited while the question is asked, meaning that Emacs might |
1539 leak memory. So you should make sure that you do not wait | 1539 leak memory. So you should make sure that you do not wait |
1540 excessively long before answering the question." | 1540 excessively long before answering the question." |
1541 :type 'boolean | 1541 :type 'boolean |
1542 :group 'undo | 1542 :group 'undo |
1543 :version "21.4") | 1543 :version "22.1") |
1544 | 1544 |
1545 (defvar undo-extra-outer-limit nil | 1545 (defvar undo-extra-outer-limit nil |
1546 "If non-nil, an extra level of size that's ok in an undo item. | 1546 "If non-nil, an extra level of size that's ok in an undo item. |
1547 We don't ask the user about truncating the undo list until the | 1547 We don't ask the user about truncating the undo list until the |
1548 current item gets bigger than this amount. | 1548 current item gets bigger than this amount. |
2463 "*Text properties to discard when yanking. | 2463 "*Text properties to discard when yanking. |
2464 The value should be a list of text properties to discard or t, | 2464 The value should be a list of text properties to discard or t, |
2465 which means to discard all text properties." | 2465 which means to discard all text properties." |
2466 :type '(choice (const :tag "All" t) (repeat symbol)) | 2466 :type '(choice (const :tag "All" t) (repeat symbol)) |
2467 :group 'killing | 2467 :group 'killing |
2468 :version "21.4") | 2468 :version "22.1") |
2469 | 2469 |
2470 (defvar yank-window-start nil) | 2470 (defvar yank-window-start nil) |
2471 (defvar yank-undo-function nil | 2471 (defvar yank-undo-function nil |
2472 "If non-nil, function used by `yank-pop' to delete last stretch of yanked text. | 2472 "If non-nil, function used by `yank-pop' to delete last stretch of yanked text. |
2473 Function is called with two parameters, START and END corresponding to | 2473 Function is called with two parameters, START and END corresponding to |
5096 "*Idle time delay before updating various things on the screen. | 5096 "*Idle time delay before updating various things on the screen. |
5097 Various Emacs features that update auxiliary information when point moves | 5097 Various Emacs features that update auxiliary information when point moves |
5098 wait this many seconds after Emacs becomes idle before doing an update." | 5098 wait this many seconds after Emacs becomes idle before doing an update." |
5099 :type 'number | 5099 :type 'number |
5100 :group 'display | 5100 :group 'display |
5101 :version "21.4") | 5101 :version "22.1") |
5102 | 5102 |
5103 (defvar vis-mode-saved-buffer-invisibility-spec nil | 5103 (defvar vis-mode-saved-buffer-invisibility-spec nil |
5104 "Saved value of `buffer-invisibility-spec' when Visible mode is on.") | 5104 "Saved value of `buffer-invisibility-spec' when Visible mode is on.") |
5105 | 5105 |
5106 (define-minor-mode visible-mode | 5106 (define-minor-mode visible-mode |