# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1083048349 0
# Node ID 144273ac799a8fab3a3004bc68a99f88278016a9
# Parent  6bce3db285b50139f9f0a0bb02f265d53de08483
(kill-ring-save): Use blink-matching-delay instead of the constant value 1.
(completions-common-part): Expand docstring.

diff -r 6bce3db285b5 -r 144273ac799a lisp/simple.el
--- a/lisp/simple.el	Tue Apr 27 06:43:42 2004 +0000
+++ b/lisp/simple.el	Tue Apr 27 06:45:49 2004 +0000
@@ -2148,7 +2148,7 @@
 	      ;; 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 @@
 
 (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 ()