Lines Matching +defs:last +defs:use +defs:time
61 ;; You automatically save the completions you use to a file between
77 ;; When you load this file, completion will be on. I suggest you use the
89 ;; completions that you often use. When you next start, Emacs loads in
261 ;; - Fixed bug with saving out .completion file the first time
300 See also `save-completions-retention-time'."
316 (defcustom save-completions-retention-time 336
341 This can be time consuming."
455 (let ((time (current-time)))
456 (floor (+ (* 65536.0 (nth 0 time)) (nth 1 time)) 3600)))
471 ;; Thus by judicious use of scan-sexps and forward-word, we can get
550 "Holds last character of symbol, after any completion symbol function.")
651 ;; If it comes into common use, it could be rewritten.
709 ;; All statistics code outside this block should use this
740 ;; 1) Faster (we don't use regexps)
748 ;; "A list of all the cdabbrev completions since the last reset.")
917 ;; We use two storage modes for the two search types ::
942 ;; last-use-time (the time the completion was last used)
943 ;; last-use-time is t if the string should be kept permanently
944 ;; num-uses is incremented every time the completion is used.
947 ;; creation time is about the same.
959 (defmacro completion-last-use-time (completion-entry)
960 ;; "The time it was last used. In hours since origin. Used to decide
974 (defmacro set-completion-last-use-time (completion-entry last-use-time)
975 (list 'setcar (list 'cdr (list 'cdr completion-entry)) last-use-time))
1131 (completion-last-use-time old-entry))
1325 (defun add-completion (string &optional num-uses last-use-time)
1327 The completion is altered appropriately if num-uses and/or last-use-time is
1337 (if last-use-time
1338 (set-completion-last-use-time entry last-use-time))))
1367 (defun use-completion-under-point ()
1373 (defun use-completion-before-point ()
1379 (defun use-completion-under-or-before-point ()
1385 (defun use-completion-before-separator ()
1441 (defvar cmpl-last-index 0)
1442 ;; "The last index that completion-search-next was called with."
1472 cmpl-last-index -1
1480 ((= index (setq cmpl-last-index (1+ cmpl-last-index)))
1484 (setq cmpl-last-index index)
1493 ((= -1 cmpl-last-index)
1507 (setq cmpl-last-index index)
1516 (defun completion-search-peek (use-cdabbrev)
1538 (use-cdabbrev
1539 ;; unsuccessful, use cdabbrev
1601 (defvar cmpl-last-insert-location -1)
1615 (cond ((eq last-command this-command)
1616 ;; Undo last one
1617 (delete-region cmpl-last-insert-location (point))
1667 (setq cmpl-last-insert-location (point))
1670 (setq cmpl-last-insert-location insert-point)))
1698 (if (eq this-command last-command) "more " "")))
1829 ;; As you might suspect by now, we use some symbol table hackery
1979 ;; The version of save-completions-to-file called at kill-emacs time.
1997 ;; Format is (<string> . <last-use-time>)
1999 ;; <last-use-time> is the time the completion was last used
2009 If file name is not specified, use `save-completions-file-name'."
2021 last-use-time
2022 (current-time (cmpl-hours-since-origin))
2045 (setq last-use-time (completion-last-use-time completion))
2049 (and (eq last-use-time t)
2054 (setq last-use-time current-time)
2056 (and last-use-time
2057 ;; save-completions-retention-time is nil
2058 (or (not save-completions-retention-time)
2059 ;; or time since last use is < ...retention-time*
2060 (< (- current-time last-use-time)
2061 save-completions-retention-time)))))
2065 last-use-time)) "\n"))))
2099 ;; (> cmpl-emacs-idle-time *completion-auto-save-period*)
2103 ;;(add-hook 'cmpl-emacs-idle-time-hooks 'auto-save-completions)
2107 If file is not specified, then use `save-completions-file-name'."
2126 string entry last-use-time
2127 cmpl-entry cmpl-last-use-time
2154 ((eq (setq last-use-time (cdr entry)) 'T)
2157 (setq last-use-time t))
2158 ((eq last-use-time t)
2160 ((integerp last-use-time))))
2163 (setq cmpl-last-use-time
2164 (completion-last-use-time
2167 (if (or (eq last-use-time t)
2168 (and (> last-use-time 1000);;backcompatibility
2169 (not (eq cmpl-last-use-time t))
2170 (or (not cmpl-last-use-time)
2172 (> last-use-time cmpl-last-use-time))))
2173 ;; update last-use-time
2174 (set-completion-last-use-time cmpl-entry last-use-time)))
2214 /(If you want to kill and then yank immediately, use \\[copy-region-as-kill].)
2221 the text killed this time appends to the text killed last time
2225 (cond ((eq last-command 'complete)
2226 (delete-region (point) cmpl-last-insert-location)
2251 (use-completion-before-separator)
2256 (use-completion-before-separator)
2273 '((:separator . use-completion-before-separator)
2274 (:before . use-completion-before-point)
2275 (:backward-under . use-completion-backward-under)
2276 (:backward . use-completion-backward)
2277 (:under . use-completion-under-point)
2278 (:under-or-before . use-completion-under-or-before-point)
2280 . use-completion-minibuffer-separator))))))
2282 (defun use-completion-minibuffer-separator ()
2284 (use-completion-before-separator)))
2286 (defun use-completion-backward-under ()
2287 (use-completion-under-point)
2288 (if (eq last-command 'complete)
2292 (defun use-completion-backward ()
2293 (if (eq last-command 'complete)
2300 'use-completion-under-or-before-point)))
2381 ;; "Complete" Key Keybindings. We don't want to use a minor-mode
2434 ;; - in text we want to pick up the last word in a sentence.
2462 (completion-def-wrapper 'eval-print-last-sexp :separator)
2463 (completion-def-wrapper 'eval-last-sexp :separator)