71 |
(defgroup next-error nil |
(defgroup next-error nil |
72 |
"next-error support framework." |
"next-error support framework." |
73 |
:group 'compilation |
:group 'compilation |
74 |
:version "21.4") |
:version "22.1") |
75 |
|
|
76 |
(defface next-error |
(defface next-error |
77 |
'((t (:inherit region))) |
'((t (:inherit region))) |
78 |
"Face used to highlight next error locus." |
"Face used to highlight next error locus." |
79 |
:group 'next-error |
:group 'next-error |
80 |
:version "21.4") |
:version "22.1") |
81 |
|
|
82 |
(defcustom next-error-highlight 0.1 |
(defcustom next-error-highlight 0.1 |
83 |
"*Highlighting of locations in selected source buffers. |
"*Highlighting of locations in selected source buffers. |
90 |
(const :tag "No highlighting" nil) |
(const :tag "No highlighting" nil) |
91 |
(const :tag "Fringe arrow" 'fringe-arrow)) |
(const :tag "Fringe arrow" 'fringe-arrow)) |
92 |
:group 'next-error |
:group 'next-error |
93 |
:version "21.4") |
:version "22.1") |
94 |
|
|
95 |
(defcustom next-error-highlight-no-select 0.1 |
(defcustom next-error-highlight-no-select 0.1 |
96 |
"*Highlighting of locations in non-selected source buffers. |
"*Highlighting of locations in non-selected source buffers. |
103 |
(const :tag "No highlighting" nil) |
(const :tag "No highlighting" nil) |
104 |
(const :tag "Fringe arrow" 'fringe-arrow)) |
(const :tag "Fringe arrow" 'fringe-arrow)) |
105 |
:group 'next-error |
:group 'next-error |
106 |
:version "21.4") |
:version "22.1") |
107 |
|
|
108 |
(defvar next-error-last-buffer nil |
(defvar next-error-last-buffer nil |
109 |
"The most recent next-error buffer. |
"The most recent next-error buffer. |
1540 |
excessively long before answering the question." |
excessively long before answering the question." |
1541 |
:type 'boolean |
:type 'boolean |
1542 |
:group 'undo |
:group 'undo |
1543 |
:version "21.4") |
:version "22.1") |
1544 |
|
|
1545 |
(defvar undo-extra-outer-limit nil |
(defvar undo-extra-outer-limit nil |
1546 |
"If non-nil, an extra level of size that's ok in an undo item. |
"If non-nil, an extra level of size that's ok in an undo item. |
2461 |
which means to discard all text properties." |
which means to discard all text properties." |
2462 |
:type '(choice (const :tag "All" t) (repeat symbol)) |
:type '(choice (const :tag "All" t) (repeat symbol)) |
2463 |
:group 'killing |
:group 'killing |
2464 |
:version "21.4") |
:version "22.1") |
2465 |
|
|
2466 |
(defvar yank-window-start nil) |
(defvar yank-window-start nil) |
2467 |
(defvar yank-undo-function nil |
(defvar yank-undo-function nil |
5094 |
wait this many seconds after Emacs becomes idle before doing an update." |
wait this many seconds after Emacs becomes idle before doing an update." |
5095 |
:type 'number |
:type 'number |
5096 |
:group 'display |
:group 'display |
5097 |
:version "21.4") |
:version "22.1") |
5098 |
|
|
5099 |
(defvar vis-mode-saved-buffer-invisibility-spec nil |
(defvar vis-mode-saved-buffer-invisibility-spec nil |
5100 |
"Saved value of `buffer-invisibility-spec' when Visible mode is on.") |
"Saved value of `buffer-invisibility-spec' when Visible mode is on.") |