From 7c5d56afe08753062ce6b39383d2b1e033746914 Mon Sep 17 00:00:00 2001 From: Reiner Steib Date: Fri, 14 Dec 2007 21:12:40 +0000 Subject: [PATCH] (gnus-y-or-n-p, gnus-yes-or-no-p): Alias to y-or-n-p and yes-or-no-p. --- lisp/ChangeLog | 5 +++++ lisp/gnus-util.el | 26 +++++++++++++++++--------- 2 files changed, 22 insertions(+), 9 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2e38cf8b6..b8a257410 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-12-14 Reiner Steib + + * gnus-util.el (gnus-y-or-n-p, gnus-yes-or-no-p): Alias to y-or-n-p and + yes-or-no-p. + 2007-12-11 Katsumi Yamaoka * mm-decode.el (mm-add-meta-html-tag): New function. diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el index 8a6e8fa71..ea9512d13 100644 --- a/lisp/gnus-util.el +++ b/lisp/gnus-util.el @@ -330,15 +330,23 @@ Symbols are also allowed; their print names are used instead." ;; Two silly functions to ensure that all `y-or-n-p' questions clear ;; the echo area. -(defun gnus-y-or-n-p (prompt) - (prog1 - (y-or-n-p prompt) - (message ""))) - -(defun gnus-yes-or-no-p (prompt) - (prog1 - (yes-or-no-p prompt) - (message ""))) +;; +;; Do we really need these aliases? Workarounds for bugs in the corresponding +;; Emacs functions? Maybe these bug are no longer present in any supported +;; (X)Emacs version? Alias them to the original functions and see if anyone +;; reports a problem. If not, replace with original functions. --rsteib +;; +;; (defun gnus-y-or-n-p (prompt) +;; (prog1 +;; (y-or-n-p prompt) +;; (message ""))) +;; (defun gnus-yes-or-no-p (prompt) +;; (prog1 +;; (yes-or-no-p prompt) +;; (message ""))) + +(defalias 'gnus-y-or-n-p 'y-or-n-p) +(defalias 'gnus-yes-or-no-p 'yes-or-no-p) ;; By Frank Schmitt . Allows to have ;; age-depending date representations. (e.g. just the time if it's -- 2.25.1