Lines Matching +defs:default +defs:keys
303 (defmacro gnus-local-set-keys (&rest plist)
304 "Set the keys in PLIST in the current keymap."
305 `(gnus-define-keys-1 (current-local-map) ',plist))
307 (defmacro gnus-define-keys (keymap &rest plist)
308 "Define all keys in PLIST in KEYMAP."
309 `(gnus-define-keys-1 (quote ,keymap) (quote ,plist)))
311 (defmacro gnus-define-keys-safe (keymap &rest plist)
312 "Define all keys in PLIST in KEYMAP without overwriting previous definitions."
313 `(gnus-define-keys-1 (quote ,keymap) (quote ,plist) t))
315 (put 'gnus-define-keys 'lisp-indent-function 1)
316 (put 'gnus-define-keys-safe 'lisp-indent-function 1)
317 (put 'gnus-local-set-keys 'lisp-indent-function 1)
320 "Define all keys in PLIST in KEYMAP."
321 `(gnus-define-keys-1 ,keymap (quote ,plist)))
325 (defun gnus-define-keys-1 (keymap plist &optional safe)
327 (error "Can't set keys in a null keymap"))
345 (defun gnus-completing-read-with-default (default prompt &rest args)
346 ;; Like `completing-read', except that DEFAULT is the default argument.
347 (let* ((prompt (if default
348 (concat prompt " (default " default "): ")
352 default
403 non-number, then the corresponding FORMAT is used as a default value.
469 ;; Make a hash table (default and minimum size is 256).
587 (list (read-file-name "Copy file: " default-directory)
588 (read-file-name "Copy file to: " default-directory)))
590 (setq to (read-file-name "Copy file to: " default-directory)))
927 (defvar rmail-default-rmail-file)
936 (setq rmail-default-rmail-file filename)
1354 (defmacro gnus-completing-read-maybe-default (prompt table &optional predicate
1356 history default)
1362 (list default))))
1369 (gnus-completing-read-maybe-default