Lines Matching +defs:accept +defs:set
98 ;; completions have their num-uses slot set to T. Use
202 ;; set-completion-num-uses completion num-uses
203 ;; set-completion-string completion string
355 :type '(set (const lisp) (const c))
782 (defun set-cdabbrev-buffer ()
784 (set-buffer (if (eq cdabbrev-current-window t)
804 (set-cdabbrev-buffer)
829 (set-cdabbrev-buffer)
834 (set-syntax-table completion-syntax-table)
890 (set-syntax-table saved-syntax)
968 (defmacro set-completion-string (completion-entry string)
971 (defmacro set-completion-num-uses (completion-entry num-uses)
974 (defmacro set-completion-last-use-time (completion-entry last-use-time)
1002 (defmacro set-cmpl-prefix-entry-head (prefix-entry new-head)
1005 (defmacro set-cmpl-prefix-entry-tail (prefix-entry new-tail)
1061 (defvar completion-to-accept nil
1123 (set cmpl-db-symbol nil)
1170 (set-cmpl-prefix-entry-tail prefix-entry entry))
1172 (set cmpl-db-prefix-symbol (make-cmpl-prefix-entry entry))))
1176 ;; set symbol
1177 (set cmpl-db-symbol (car entry)))))
1188 (if completion-to-accept (accept-completion))
1198 (set-completion-string cmpl-db-entry completion-string)
1206 (set-cmpl-prefix-entry-tail prefix-entry splice-ptr))
1209 (set-cmpl-prefix-entry-head prefix-entry cmpl-ptr)))
1221 (set-cmpl-prefix-entry-head prefix-entry entry))
1224 (set cmpl-db-prefix-symbol (make-cmpl-prefix-entry entry))))
1229 (set cmpl-db-symbol (car entry)))))
1235 (if completion-to-accept (accept-completion))
1243 (set cmpl-db-symbol nil)
1249 (set-cmpl-prefix-entry-tail prefix-entry splice-ptr)))
1252 (or (set-cmpl-prefix-entry-head
1255 (set cmpl-db-prefix-symbol nil))))
1336 (if num-uses (set-completion-num-uses entry num-uses))
1338 (set-completion-last-use-time entry last-use-time))))
1354 (defun accept-completion ()
1355 "Accepts the pending completion in `completion-to-accept'.
1358 (let ((string completion-to-accept)
1362 (setq completion-to-accept nil)
1364 (set-completion-num-uses entry (1+ (completion-num-uses entry)))
1399 (set-completion-num-uses entry 1)
1412 ;; (setq completion-to-accept "banana")
1413 ;; (accept-completion)
1416 ;; (setq completion-to-accept "banish")
1446 ;; "A pointer to the element BEFORE the next set of possible completions.
1459 (if completion-to-accept (accept-completion))
1570 ;; (setq completion-to-accept "cumberland")
1663 ;; accept it
1664 (setq completion-to-accept string)
1691 ;; Don't accept completions
1692 (setq completion-to-accept nil)
2089 (set-buffer-modified-p nil)
2174 (set-completion-last-use-time cmpl-entry last-use-time)))
2228 (setq completion-to-accept nil)
2315 (local-set-key "!" 'self-insert-command)
2316 (local-set-key "&" 'self-insert-command)
2317 (local-set-key "%" 'self-insert-command)
2318 (local-set-key "?" 'self-insert-command)
2319 (local-set-key "=" 'self-insert-command)
2320 (local-set-key "^" 'self-insert-command))
2334 (local-set-key "+" 'completion-separator-self-insert-command)
2335 (local-set-key "*" 'completion-separator-self-insert-command)
2336 (local-set-key "/" 'completion-separator-self-insert-command))
2349 (local-set-key "+" 'completion-separator-self-insert-command)
2350 (local-set-key "-" 'completion-separator-self-insert-command)
2351 (local-set-key "*" 'completion-separator-self-insert-command)
2352 (local-set-key "/" 'completion-separator-self-insert-command))
2387 (global-set-key (car binding) (cdr binding))))
2442 (global-set-key (car binding) (cdr binding)))