lisp/gnus/gnus-util.el

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
390 (defvar gnus-user-date-format-alist
398 This is an alist of items (AGE . FORMAT).  AGE can be a number (of
403 non-number, then the corresponding FORMAT is used as a default value.
415   "Format the messy-date according to gnus-user-date-format-alist.
424 	       (templist gnus-user-date-format-alist)
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)))
756 (defun gnus-alist-to-hashtable (alist)
764      alist)
767 (defun gnus-hashtable-to-alist (hash)
768   "Build an alist from the values in HASH."
927   (defvar rmail-default-rmail-file)
936   (setq rmail-default-rmail-file filename)
1094     (defalias 'gnus-delete-alist 'assq-delete-all)
1095   (defun gnus-delete-alist (key alist)
1097 Return the modified alist."
1099       (while (setq entry (assq key alist))
1100 	(setq alist (delq entry alist)))
1101       alist)))
1103 (defmacro gnus-pull (key alist &optional assoc-p)
1105   (unless (symbolp alist)
1106     (error "Not a symbol: %s" alist))
1108     `(setq ,alist (delq (,fun ,key ,alist) ,alist))))
1263 (defun gnus-remassoc (key alist)
1269   (when alist
1270     (if (equal key (caar alist))
1271 	(cdr alist)
1272       (setcdr alist (gnus-remassoc key (cdr alist)))
1273       alist)))
1275 (defun gnus-update-alist-soft (key value alist)
1277       (cons (cons key value) (gnus-remassoc key alist))
1278     (gnus-remassoc key alist)))
1354 (defmacro gnus-completing-read-maybe-default (prompt table &optional predicate
1356 					      history default)
1362                         (list default))))
1369   (gnus-completing-read-maybe-default
1438 		  (alist choice)
1452 	      (while alist
1460 		(insert (format format (caar alist) (nth idx (car alist))))
1461 		(setq alist (cdr alist))
1467 (defun gnus-select-frame-set-input-focus (frame)
1470 	 (if (fboundp 'select-frame-set-input-focus)
1471 	     (select-frame-set-input-focus frame)
1472 	   (raise-frame frame)
1473 	   (select-frame frame)
1474 	   (focus-frame frame)))
1475 	;; `select-frame-set-input-focus' defined in Emacs 21 will not
1478 	 (select-frame-set-input-focus frame))
1480 	 (raise-frame frame)
1481 	 (select-frame frame)
1483 		(x-focus-frame frame))
1485 		(w32-focus-frame frame)))
1487 	   (set-mouse-position frame (1- (frame-width frame)) 0)))))
1489 (defun gnus-frame-or-window-display-name (object)
1490   "Given a frame or window, return the associated display name.
1496 		 (setq object (window-frame object))))
1497 	(let ((display (frame-parameter object 'display)))
1518 		       ((fboundp 'redraw-frame)
1519 			(setq args (list (selected-frame)))
1520 			'redraw-frame)