[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master ef4c92b: Make old aliases to gnus-child* commands work before Gnu
From: |
Lars Ingebrigtsen |
Subject: |
master ef4c92b: Make old aliases to gnus-child* commands work before Gnus is loaded |
Date: |
Thu, 16 Jul 2020 21:59:08 -0400 (EDT) |
branch: master
commit ef4c92bc0cebf36a21ab2074931b64701afc18e4
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Make old aliases to gnus-child* commands work before Gnus is loaded
* lisp/gnus/gnus.el (gnus-slave-no-server, gnus-slave): Mark as
obsolete in a way that still lets them be used as interactive
commands before Gnus is loaded.
* lisp/gnus/gnus-agent.el (gnus-slave-unplugged): Ditto (bug#42401).
---
lisp/gnus/gnus-agent.el | 8 ++++++--
lisp/gnus/gnus.el | 14 ++++++++++----
2 files changed, 16 insertions(+), 6 deletions(-)
diff --git a/lisp/gnus/gnus-agent.el b/lisp/gnus/gnus-agent.el
index a617429..88873f4 100644
--- a/lisp/gnus/gnus-agent.el
+++ b/lisp/gnus/gnus-agent.el
@@ -610,8 +610,12 @@ manipulated as follows:
(gnus arg nil 'child))
;;;###autoload
-(define-obsolete-function-alias 'gnus-slave-unplugged #'gnus-child-unplugged
- "28.1")
+(defun gnus-slave-unplugged (&optional arg)
+ "Read news as a child unplugged."
+ (interactive "P")
+ (setq gnus-plugged nil)
+ (gnus arg nil 'child))
+(make-obsolete 'gnus-slave-unplugged 'gnus-child-unplugged "28.1")
diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el
index f40ce0c..69f2bb2 100644
--- a/lisp/gnus/gnus.el
+++ b/lisp/gnus/gnus.el
@@ -4040,8 +4040,11 @@ Allow completion over sensible values."
(gnus-no-server arg t))
;;;###autoload
-(define-obsolete-function-alias 'gnus-slave-no-server #'gnus-child-no-server
- "28.1")
+(defun gnus-slave-no-server (&optional arg)
+ "Read network news as a child, without connecting to the local server."
+ (interactive "P")
+ (gnus-no-server arg t))
+(make-obsolete 'gnus-slave-no-server 'gnus-child-no-server "28.1")
;;;###autoload
(defun gnus-no-server (&optional arg child)
@@ -4062,8 +4065,11 @@ server."
(gnus arg nil 'child))
;;;###autoload
-(define-obsolete-function-alias 'gnus-slave #'gnus-child "28.1")
-
+(defun gnus-slave (&optional arg)
+ "Read news as a child."
+ (interactive "P")
+ (gnus arg nil 'child))
+(make-obsolete 'gnus-slave 'gnus-child "28.1")
(defun gnus-delete-gnus-frame ()
"Delete gnus frame unless it is the only one.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master ef4c92b: Make old aliases to gnus-child* commands work before Gnus is loaded,
Lars Ingebrigtsen <=