# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 744356793 0
# Node ID 4ad99dc50f6f2f5579a1380facc1f321db7c8522
# Parent  265397236749545bc85b0915290a53abb83171a9
(cmpl-read-time-eval): Make it no-op.
(cmpl-hours-since-origin): Use truncate to make an integer.
(completion-search-reset): Use completion-prefix-min-length.

diff -r 265397236749 -r 4ad99dc50f6f lisp/completion.el
--- a/lisp/completion.el	Tue Aug 03 04:36:52 1993 +0000
+++ b/lisp/completion.el	Tue Aug 03 05:46:33 1993 +0000
@@ -377,10 +377,9 @@
   "True iff the current window is the minibuffer."
   (window-minibuffer-p (selected-window)))
 
+;; This used to be `(eval form)'.  Eval FORM at run time now.
 (defmacro cmpl-read-time-eval (form)
-  ;; Like the #. reader macro
-  (eval form))
-
+  form)
 
 ;;;-----------------------------------------------
 ;;; String case coercion
@@ -444,8 +443,9 @@
 
 (defun cmpl-hours-since-origin ()
   (let ((time (current-time)))
-    (+ (* (/ (car time) 3600.0) (lsh 1 16))
-       (/ (nth 2 time) 3600.0))))
+    (truncate
+     (+ (* (/ (car time) 3600.0) (lsh 1 16))
+	(/ (nth 2 time) 3600.0)))))
 
 ;;;---------------------------------------------------------------------------
 ;;; "Symbol" parsing functions
@@ -1579,7 +1579,8 @@
   (if completion-to-accept (accept-completion))
   (setq cmpl-starting-possibilities
 	(cmpl-prefix-entry-head
-	  (find-cmpl-prefix-entry (downcase (substring string 0 3))))
+	  (find-cmpl-prefix-entry
+	   (downcase (substring string 0 completion-prefix-min-length))))
 	cmpl-test-string string
 	cmpl-test-regexp (concat (regexp-quote string) "."))
   (completion-search-reset-1)