From: Juri Linkov Date: Tue, 27 Apr 2004 06:45:49 +0000 (+0000) Subject: (kill-ring-save): Use blink-matching-delay instead of the constant value 1. X-Git-Tag: ttn-vms-21-2-B4~6568 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e4ef3e9287e447f28ba586c3a2c9fe88ec7258f4;p=emacs.git (kill-ring-save): Use blink-matching-delay instead of the constant value 1. (completions-common-part): Expand docstring. --- diff --git a/lisp/simple.el b/lisp/simple.el index 782dd9c3a2e..80c16726c50 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -2148,7 +2148,7 @@ visual feedback indicating the extent of the region being copied." ;; Swap point and mark. (set-marker (mark-marker) (point) (current-buffer)) (goto-char other-end) - (sit-for 1) + (sit-for blink-matching-delay) ;; Swap back. (set-marker (mark-marker) other-end (current-buffer)) (goto-char opoint) @@ -4258,7 +4258,10 @@ The completion list buffer is available as the value of `standard-output'.") (defface completions-common-part '((t (:inherit default))) - "Face put on the common prefix substring in completions in *Completions* buffer." + "Face put on the common prefix substring in completions in *Completions* buffer. +The idea of `completions-common-part' is that you can use it to +make the common parts less visible than normal, so that the rest +of the differing parts is, by contrast, slightly highlighted." :group 'completion) (defun completion-setup-function ()