lisp/gnus/gnus-util.el

115 		   (select-window ,w)
116 		   (set-buffer (window-buffer ,w)))
119 	 (select-window ,tempvar)))))
128 	 (set symbol nil))
303 (defmacro gnus-local-set-keys (&rest plist)
317 (put 'gnus-local-set-keys 'lisp-indent-function 1)
327     (error "Can't set keys in a null keymap"))
332 	 (set (car keymap) nil)
416 Returns \"  ?  \" if there's bad input or if an other error occurs.
552       (set-window-hscroll (gnus-get-buffer-window (current-buffer) t) 0)
567 	    (set-window-hscroll
571 	  (set-window-hscroll (gnus-get-buffer-window (current-buffer) t) 0))
598 (defun gnus-set-work-buffer ()
602 	(set-buffer gnus-work-buffer)
604     (set-buffer (gnus-get-buffer-create gnus-work-buffer))
624        (format "%s:%s" (car gnus-select-method) (cadr gnus-select-method)))))
861 set to nil on a successful assignment.  In case of an error or other
915      (define-compiler-macro rmail-select-summary (&rest body)
920        `(eval '(rmail-select-summary ,@body)))
923      ;; version fails halfway, however it provides the rmail-select-summary
947 		  (set-buffer file-buffer)
954       (set-buffer tmpbuf)
964 	  (set-buffer outbuf)
980 		(rmail-select-summary
1001 		(set-buffer file-buffer)
1007       (set-buffer tmpbuf)
1034 	  (set-buffer outbuf)
1081 	 (set-buffer gnus-group-buffer)
1116 (defun gnus-set-window-start (&optional point)
1120       (set-window-start win (or point (point))))))
1368     (set history nil))
1411 	  (set variable (list file time contents))
1467 (defun gnus-select-frame-set-input-focus (frame)
1468   "Select FRAME, raise it, and set input focus, if possible."
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
1476 	;; set the input focus.
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)))
1486 	 (when focus-follows-mouse
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)
1640 (if (fboundp 'set-process-query-on-exit-flag)
1641     (defalias 'gnus-set-process-query-on-exit-flag
1642       'set-process-query-on-exit-flag)
1643   (defalias 'gnus-set-process-query-on-exit-flag