From: Gnus developers Date: Thu, 6 Oct 2011 22:11:15 +0000 (+0000) Subject: Merge changes made in Gnus trunk. X-Git-Tag: emacs-pretest-24.0.91~195 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=465d0300d4ffdaf2d816f79f76716ba3406ac869;p=emacs.git Merge changes made in Gnus trunk. gnus.texi (Gnus Utility Functions): Add more references and explanations (bug#9683). ecomplete.el (ecomplete-display-matches): Use a local keymap to handle bindings. gnus-win.el (gnus-configure-windows): Protect against reading ephemeral groups outside of Gnus. --- diff --git a/doc/misc/ChangeLog b/doc/misc/ChangeLog index 6af229bbdda..bb88eb70344 100644 --- a/doc/misc/ChangeLog +++ b/doc/misc/ChangeLog @@ -1,3 +1,8 @@ +2011-10-06 Lars Magne Ingebrigtsen + + * gnus.texi (Gnus Utility Functions): Add more references and + explanations (bug#9683). + 2011-09-21 Lars Magne Ingebrigtsen * gnus.texi (Archived Messages): Note the default (bug#9552). diff --git a/doc/misc/gnus.texi b/doc/misc/gnus.texi index 211bfdb5509..ad1d45cca1a 100644 --- a/doc/misc/gnus.texi +++ b/doc/misc/gnus.texi @@ -29093,7 +29093,7 @@ Takes an unprefixed group name and a select method, and returns the full @item gnus-get-info @findex gnus-get-info -Returns the group info list for @var{group}. +Returns the group info list for @var{group} (@pxref{Group Info}). @item gnus-group-unread @findex gnus-group-unread @@ -29102,7 +29102,8 @@ unknown. @item gnus-active @findex gnus-active -The active entry for @var{group}. +The active entry (i.e., a cons cell containing the lowest and highest +article numbers) for @var{group}. @item gnus-set-active @findex gnus-set-active @@ -29137,7 +29138,9 @@ Returns the select method corresponding to @var{server}. @item gnus-server-equal @findex gnus-server-equal -Says whether two virtual servers are equal. +Says whether two virtual servers are essentially equal. For instance, +two virtual servers may have server parameters in different order, but +this function will consider them equal. @item gnus-group-native-p @findex gnus-group-native-p @@ -29153,8 +29156,9 @@ Says whether @var{group} is foreign or not. @item gnus-group-find-parameter @findex gnus-group-find-parameter -Returns the parameter list of @var{group}. If given a second parameter, -returns the value of that parameter for @var{group}. +Returns the parameter list of @var{group} (@pxref{Group Parameters}). +If given a second parameter, returns the value of that parameter for +@var{group}. @item gnus-group-set-parameter @findex gnus-group-set-parameter diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index b2d907b7a86..69041ccbbd0 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,13 @@ +2011-09-22 Kan-Ru Chen + + * ecomplete.el (ecomplete-display-matches): Use a local keymap to + handle bindings. + +2011-10-06 Lars Magne Ingebrigtsen + + * gnus-win.el (gnus-configure-windows): Protect against reading + ephemeral groups outside of Gnus. + 2011-10-06 Katsumi Yamaoka * shr.el (shr-tag-img): Don't get images displayed in tables. diff --git a/lisp/gnus/ecomplete.el b/lisp/gnus/ecomplete.el index 6a47b119f10..5d1c46bc2f6 100644 --- a/lisp/gnus/ecomplete.el +++ b/lisp/gnus/ecomplete.el @@ -27,6 +27,11 @@ (eval-when-compile (require 'cl)) +(eval-when-compile + (when (featurep 'xemacs) + ;; The `kbd' macro requires that the `read-kbd-macro' macro is available. + (require 'edmacro))) + (defgroup ecomplete nil "Electric completion of email addresses and the like." :group 'mail) @@ -123,15 +128,24 @@ (message "%s" matches) nil) (setq highlight (ecomplete-highlight-match-line matches line)) - (while (not (memq (setq command (read-event highlight)) '(? return))) - (cond - ((eq command ?\M-n) - (setq line (min (1+ line) max-lines))) - ((eq command ?\M-p) - (setq line (max (1- line) 0)))) - (setq highlight (ecomplete-highlight-match-line matches line))) - (when (eq command 'return) - (nth line (split-string matches "\n"))))))) + (let ((local-map (make-sparse-keymap)) + selected) + (define-key local-map (kbd "RET") + (lambda () (setq selected (nth line (split-string matches "\n"))))) + (define-key local-map (kbd "M-n") + (lambda () (setq line (min (1+ line) max-lines)))) + (define-key local-map (kbd "M-p") + (lambda () (setq line (max (1- line) 0)))) + (let ((overriding-local-map local-map)) + (while (and (null selected) + (setq command (read-key-sequence highlight)) + (lookup-key local-map command)) + (apply (key-binding command) nil) + (setq highlight (ecomplete-highlight-match-line matches line)))) + (if selected + (message selected) + (message "Abort")) + selected))))) (defun ecomplete-highlight-match-line (matches line) (with-temp-buffer diff --git a/lisp/gnus/gnus-win.el b/lisp/gnus/gnus-win.el index c38f57d96cb..a1a8abc3086 100644 --- a/lisp/gnus/gnus-win.el +++ b/lisp/gnus/gnus-win.el @@ -358,8 +358,13 @@ See the Gnus manual for an explanation of the syntax used.") (defvar gnus-frame-split-p nil) (defun gnus-configure-windows (setting &optional force) - (if (window-configuration-p setting) - (set-window-configuration setting) + (cond + ((null setting) + ;; Do nothing. + ) + ((window-configuration-p setting) + (set-window-configuration setting)) + (t (setq gnus-current-window-configuration setting) (setq force (or force gnus-always-force-window-configuration)) (let ((split (if (symbolp setting) @@ -410,7 +415,7 @@ See the Gnus manual for an explanation of the syntax used.") (run-hooks 'gnus-configure-windows-hook) (when gnus-window-frame-focus (gnus-select-frame-set-input-focus - (window-frame gnus-window-frame-focus)))))))) + (window-frame gnus-window-frame-focus))))))))) (defun gnus-delete-windows-in-gnusey-frames () "Do a `delete-other-windows' in all frames that have Gnus windows."