37 |
|
|
38 |
|
|
39 |
(defgroup killing nil |
(defgroup killing nil |
40 |
"Killing and yanking commands" |
"Killing and yanking commands." |
41 |
:group 'editing) |
:group 'editing) |
42 |
|
|
43 |
(defgroup paren-matching nil |
(defgroup paren-matching nil |
133 |
(if other-buffer |
(if other-buffer |
134 |
(message "This is the only next-error capable buffer.")) |
(message "This is the only next-error capable buffer.")) |
135 |
(current-buffer))) |
(current-buffer))) |
136 |
(error "No next-error capable buffer found!")))))))) |
(error "No next-error capable buffer found")))))))) |
137 |
|
|
138 |
(defun next-error (arg &optional reset) |
(defun next-error (arg &optional reset) |
139 |
"Visit next next-error message and corresponding source code. |
"Visit next next-error message and corresponding source code. |
791 |
in addition to the value printed by prin1 in functions which |
in addition to the value printed by prin1 in functions which |
792 |
display the result of expression evaluation." |
display the result of expression evaluation." |
793 |
(if (and (integerp value) |
(if (and (integerp value) |
794 |
(or (not (eq this-command 'eval-last-sexp)) |
(or (not (memq this-command '(eval-last-sexp eval-print-last-sexp))) |
795 |
(eq this-command last-command) |
(eq this-command last-command) |
796 |
(and (boundp 'edebug-active) edebug-active))) |
(and (boundp 'edebug-active) edebug-active))) |
797 |
(let ((char-string |
(let ((char-string |
798 |
(if (or (and (boundp 'edebug-active) edebug-active) |
(if (or (and (boundp 'edebug-active) edebug-active) |
799 |
(eq this-command 'eval-last-sexp)) |
(memq this-command '(eval-last-sexp eval-print-last-sexp))) |
800 |
(prin1-char value)))) |
(prin1-char value)))) |
801 |
(if char-string |
(if char-string |
802 |
(format " (0%o, 0x%x) = %s" value value char-string) |
(format " (0%o, 0x%x) = %s" value value char-string) |
2220 |
The value should be a list of text properties to discard or t, |
The value should be a list of text properties to discard or t, |
2221 |
which means to discard all text properties." |
which means to discard all text properties." |
2222 |
:type '(choice (const :tag "All" t) (repeat symbol)) |
:type '(choice (const :tag "All" t) (repeat symbol)) |
2223 |
:group 'editing |
:group 'killing |
2224 |
:version "21.4") |
:version "21.4") |
2225 |
|
|
2226 |
(defvar yank-window-start nil) |
(defvar yank-window-start nil) |