From 3220ac7f5e6bde4e38c5eb8a91c6366b1abbd86e Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sat, 6 Oct 2007 22:20:41 +0000 Subject: [PATCH] (cua-paste): Check if mouse-region-match is fbound to not fail on mouseless tty. --- lisp/ChangeLog | 18 ++++++++++++++++++ lisp/emulation/cua-base.el | 1 + 2 files changed, 19 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 21df22350de..f45cc865e3a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,21 @@ +2007-10-06 Juri Linkov + + * textmodes/fill.el (fill-paragraph-or-region): New function. + + * bindings.el (esc-map): Bind M-q to fill-paragraph-or-region + instead of fill-paragraph. + + * tutorial.el (tutorial--default-keys): Replace fill-paragraph + with fill-paragraph-or-region. Suspend command is now the same + `suspend-frame' on window systems and on tty. + + * image.el (image-type): Check if image-types is bound to not fail + on tty. + + * delsel.el (delete-selection-pre-hook): + * emulation/cua-base.el (cua-paste): Check if mouse-region-match + is fbound to not fail on mouseless tty. + 2007-10-06 Michael Albinus * net/tramp.el (top): Move loading of tramp-util.el and diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el index 5e18953752a..fbb39ee66d3 100644 --- a/lisp/emulation/cua-base.el +++ b/lisp/emulation/cua-base.el @@ -911,6 +911,7 @@ If global mark is active, copy from register or one character." ;; That would make yank a no-op. (if (and (string= (filter-buffer-substring (point) (mark)) (car kill-ring)) + (fboundp 'mouse-region-match) (mouse-region-match)) (current-kill 1)) (cua-delete-region))) -- 2.39.2