842 |
(reset-cdabbrev-window t)) |
(reset-cdabbrev-window t)) |
843 |
|
|
844 |
(defun set-cdabbrev-buffer () |
(defun set-cdabbrev-buffer () |
845 |
;; cdabbrev-current-window must not be NIL |
;; cdabbrev-current-window must not be nil |
846 |
(set-buffer (if (eq cdabbrev-current-window t) |
(set-buffer (if (eq cdabbrev-current-window t) |
847 |
(other-buffer) |
(other-buffer) |
848 |
(window-buffer cdabbrev-current-window)))) |
(window-buffer cdabbrev-current-window)))) |
1001 |
|
|
1002 |
;; A completion entry is a LIST of string, prefix-symbol num-uses, and |
;; A completion entry is a LIST of string, prefix-symbol num-uses, and |
1003 |
;; last-use-time (the time the completion was last used) |
;; last-use-time (the time the completion was last used) |
1004 |
;; last-use-time is T if the string should be kept permanently |
;; last-use-time is t if the string should be kept permanently |
1005 |
;; num-uses is incremented every time the completion is used. |
;; num-uses is incremented every time the completion is used. |
1006 |
|
|
1007 |
;; We chose lists because (car foo) is faster than (aref foo 0) and the |
;; We chose lists because (car foo) is faster than (aref foo 0) and the |
1019 |
|
|
1020 |
(defmacro completion-last-use-time (completion-entry) |
(defmacro completion-last-use-time (completion-entry) |
1021 |
;; "The time it was last used. In hours since origin. Used to decide |
;; "The time it was last used. In hours since origin. Used to decide |
1022 |
;; whether to save it. T if one should always save it." |
;; whether to save it. t if one should always save it." |
1023 |
(list 'nth 2 completion-entry)) |
(list 'nth 2 completion-entry)) |
1024 |
|
|
1025 |
(defmacro completion-source (completion-entry) |
(defmacro completion-source (completion-entry) |
1132 |
;; "The interned prefix symbol corresponding to cmpl-db-downcase-string." |
;; "The interned prefix symbol corresponding to cmpl-db-downcase-string." |
1133 |
(defvar cmpl-db-entry nil) |
(defvar cmpl-db-entry nil) |
1134 |
(defvar cmpl-db-debug-p nil |
(defvar cmpl-db-debug-p nil |
1135 |
"Set to T if you want to debug the database.") |
"Set to t if you want to debug the database.") |
1136 |
|
|
1137 |
;; READS |
;; READS |
1138 |
(defun find-exact-completion (string) |
(defun find-exact-completion (string) |