procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make old aliases to gnus-child* commands work before Gnus is loaded

Browse source 
* 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).
This commit is contained in:
Lars Ingebrigtsen 2020-07-17 03:52:35 +02:00
parent 3cf9176d9d
commit ef4c92bc0c
2 changed files with 16 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/gnus/gnus-agent.el
View file

@ -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")

14
lisp/gnus/gnus.el
View file

@ -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.