(enriched-translations): Add top' and choice' everywhere so that *

[bpt/emacs.git] / lisp / completion.el

diff --git a/lisp/completion.el b/lisp/completion.el
index 2e6c465..6ef5057 100644 (file)
--- a/lisp/completion.el
+++ b/lisp/completion.el
@@ -470,9 +470,7 @@ Used to decide whether to save completions.")
 \f
 (defun cmpl-hours-since-origin ()
   (let ((time (current-time)))
-    (truncate
-     (+ (* (/ (car time) 3600.0) (lsh 1 16))
-       (/ (nth 2 time) 3600.0)))))
+    (floor (+ (* 65536.0 (nth 0 time)) (nth 1 time)) 3600)))
 \f
 ;;---------------------------------------------------------------------------
 ;; "Symbol" parsing functions
@@ -528,8 +526,13 @@ Used to decide whether to save completions.")
 ;;-----------------------------------------------
 
 (defun cmpl-make-standard-completion-syntax-table ()
-  (let ((table (make-syntax-table)) ;; default syntax is whitespace
+  (let ((table (make-syntax-table))
        i)
+    ;; Default syntax is whitespace.
+    (setq i 0)
+    (while (< i 256)
+      (modify-syntax-entry i " " table)
+      (setq i (1+ i)))
     ;; alpha chars
     (setq i 0)
     (while (< i 26)
@@ -2612,6 +2615,10 @@ TYPE is the type of the wrapper to be added.  Can be :before or :under."
 (define-key lisp-mode-map "=" 'self-insert-command)
 (define-key lisp-mode-map "^" 'self-insert-command)
 
+;; Avoid warnings.
+(defvar c-mode-map)
+(defvar fortran-mode-map)
+
 ;; C mode diffs.
 (defun completion-c-mode-hook ()
   (def-completion-wrapper electric-c-semi :separator)
@@ -2671,4 +2678,6 @@ TYPE is the type of the wrapper to be added.  Can be :before or :under."
 (cmpl-statistics-block
   (record-completion-file-loaded))
 
+(provide 'completion)
+
 ;;; completion.el ends here