aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/rect.el6
-rw-r--r--src/bidi.c14
-rw-r--r--src/data.c7
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
284deleted. 284deleted.
285 285
286If the buffer is read-only, Emacs will beep and refrain from deleting 286If the buffer is read-only, Emacs will beep and refrain from deleting
287the rectangle, but put it in the kill ring anyway. This means that 287the rectangle, but put it in `killed-rectangle' anyway. This means that
288you can use this command to copy text from a read-only buffer. 288you 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
290even beep.)" 290even 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. */
633DEFUN ("fboundp", Ffboundp, Sfboundp, 1, 1, 0, 638DEFUN ("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)