diff options
| author | Paul Eggert | 2016-08-05 14:09:09 -0700 |
|---|---|---|
| committer | Paul Eggert | 2016-08-05 14:09:09 -0700 |
| commit | a855bf48d42cd7cbc9c72def3584fd354d433f97 (patch) | |
| tree | 9c9c2d5329af83b6cdf9de3871e268072b96ffeb | |
| parent | 8c818d8cb75f4d61cc1875311a7b6b5f0a2d8bd1 (diff) | |
| parent | 9a41cd1215e60415777bb139c0669100e347375b (diff) | |
| download | emacs-a855bf48d42cd7cbc9c72def3584fd354d433f97.tar.gz emacs-a855bf48d42cd7cbc9c72def3584fd354d433f97.zip | |
Merge from origin/emacs-25
9a41cd1 ; Fix typo
9356fe2 Expand FIXME near definition of fboundp
219b39f kill-rectangle should mention killed-rectangle
59fa4c3 Avoid assertion violations in nhexl-mode
| -rw-r--r-- | lisp/rect.el | 6 | ||||
| -rw-r--r-- | src/bidi.c | 14 | ||||
| -rw-r--r-- | src/data.c | 7 |
3 files changed, 15 insertions, 12 deletions
diff --git a/lisp/rect.el b/lisp/rect.el index 8803a47215f..13db7d8ee3d 100644 --- a/lisp/rect.el +++ b/lisp/rect.el | |||
| @@ -284,7 +284,7 @@ With a prefix (or a FILL) argument, also fill lines where nothing has to be | |||
| 284 | deleted. | 284 | deleted. |
| 285 | 285 | ||
| 286 | If the buffer is read-only, Emacs will beep and refrain from deleting | 286 | If the buffer is read-only, Emacs will beep and refrain from deleting |
| 287 | the rectangle, but put it in the kill ring anyway. This means that | 287 | the rectangle, but put it in `killed-rectangle' anyway. This means that |
| 288 | you can use this command to copy text from a read-only buffer. | 288 | you can use this command to copy text from a read-only buffer. |
| 289 | \(If the variable `kill-read-only-ok' is non-nil, then this won't | 289 | \(If the variable `kill-read-only-ok' is non-nil, then this won't |
| 290 | even beep.)" | 290 | even beep.)" |
| @@ -295,7 +295,7 @@ even beep.)" | |||
| 295 | (setq deactivate-mark t) | 295 | (setq deactivate-mark t) |
| 296 | (setq killed-rectangle (extract-rectangle start end)) | 296 | (setq killed-rectangle (extract-rectangle start end)) |
| 297 | (if kill-read-only-ok | 297 | (if kill-read-only-ok |
| 298 | (progn (message "Read only text copied to kill ring") nil) | 298 | (progn (message "Read only text copied to `killed-rectangle'") nil) |
| 299 | (barf-if-buffer-read-only) | 299 | (barf-if-buffer-read-only) |
| 300 | (signal 'text-read-only (list (current-buffer))))))) | 300 | (signal 'text-read-only (list (current-buffer))))))) |
| 301 | 301 | ||
| @@ -403,7 +403,7 @@ With a prefix (or a FILL) argument, also fill too short lines." | |||
| 403 | :version "25.1") | 403 | :version "25.1") |
| 404 | 404 | ||
| 405 | (defcustom rectangle-preview t | 405 | (defcustom rectangle-preview t |
| 406 | "If non-nil, `string-rectangle' will show an-the-fly preview." | 406 | "If non-nil, `string-rectangle' will show an on-the-fly preview." |
| 407 | :version "25.1" | 407 | :version "25.1" |
| 408 | :type 'boolean) | 408 | :type 'boolean) |
| 409 | 409 | ||
diff --git a/src/bidi.c b/src/bidi.c index 6ea84d9c0c4..5824de54ad8 100644 --- a/src/bidi.c +++ b/src/bidi.c | |||
| @@ -2971,15 +2971,13 @@ bidi_resolve_neutral (struct bidi_it *bidi_it) | |||
| 2971 | /* N1-N2/Retaining */ | 2971 | /* N1-N2/Retaining */ |
| 2972 | || type == WEAK_BN) | 2972 | || type == WEAK_BN) |
| 2973 | { | 2973 | { |
| 2974 | if (bidi_it->next_for_neutral.type != UNKNOWN_BT) | 2974 | if (bidi_it->next_for_neutral.type != UNKNOWN_BT |
| 2975 | && (bidi_it->next_for_neutral.charpos > bidi_it->charpos | ||
| 2976 | /* PDI defines an eos, so it's OK for it to serve as its | ||
| 2977 | own next_for_neutral. */ | ||
| 2978 | || (bidi_it->next_for_neutral.charpos == bidi_it->charpos | ||
| 2979 | && bidi_it->type == PDI))) | ||
| 2975 | { | 2980 | { |
| 2976 | /* Make sure the data for resolving neutrals we are | ||
| 2977 | about to use is valid. */ | ||
| 2978 | eassert (bidi_it->next_for_neutral.charpos > bidi_it->charpos | ||
| 2979 | /* PDI defines an eos, so it's OK for it to | ||
| 2980 | serve as its own next_for_neutral. */ | ||
| 2981 | || (bidi_it->next_for_neutral.charpos == bidi_it->charpos | ||
| 2982 | && bidi_it->type == PDI)); | ||
| 2983 | type = bidi_resolve_neutral_1 (bidi_it->prev_for_neutral.type, | 2981 | type = bidi_resolve_neutral_1 (bidi_it->prev_for_neutral.type, |
| 2984 | bidi_it->next_for_neutral.type, | 2982 | bidi_it->next_for_neutral.type, |
| 2985 | current_level); | 2983 | current_level); |
diff --git a/src/data.c b/src/data.c index 71da916ae74..5af590abed9 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -629,7 +629,12 @@ global value outside of any lexical scope. */) | |||
| 629 | return (EQ (valcontents, Qunbound) ? Qnil : Qt); | 629 | return (EQ (valcontents, Qunbound) ? Qnil : Qt); |
| 630 | } | 630 | } |
| 631 | 631 | ||
| 632 | /* FIXME: Make it an alias for function-symbol! */ | 632 | /* FIXME: It has been previously suggested to make this function an |
| 633 | alias for symbol-function, but upon discussion at Debbug#23957, | ||
| 634 | there is a risk breaking backward compatiblity, as some users of | ||
| 635 | fboundp may expect `t' in particular, rather than any true | ||
| 636 | value. An alias is still welcome so long as the compatibility | ||
| 637 | issues are addressed. */ | ||
| 633 | DEFUN ("fboundp", Ffboundp, Sfboundp, 1, 1, 0, | 638 | DEFUN ("fboundp", Ffboundp, Sfboundp, 1, 1, 0, |
| 634 | doc: /* Return t if SYMBOL's function definition is not void. */) | 639 | doc: /* Return t if SYMBOL's function definition is not void. */) |
| 635 | (register Lisp_Object symbol) | 640 | (register Lisp_Object symbol) |