diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2016-04-30 19:20:12 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2016-05-01 19:27:14 +0200 |
commit | 2abc85e41edafbb9c1187c5445056cc07759b4c1 (patch) | |
tree | 70cd20a7ada4834c353350015a9cd713d679c88e /doc/misc/rcirc.texi | |
parent | ec392ff1a3ce6bd4d32371be454003f642812d5b (diff) | |
download | emacs-2abc85e41edafbb9c1187c5445056cc07759b4c1.tar.gz |
Transform mentions of `eval-after-load' to `with-eval-after-load'
* doc/lispref/loading.texi (Hooks for Loading): Update text to
not mention `eval-after-load' (bug#20038).
(cherry picked from commit 9392193be56eebdfac702a0bbb5e954088371c7a)
Diffstat (limited to 'doc/misc/rcirc.texi')
-rw-r--r-- | doc/misc/rcirc.texi | 56 |
1 files changed, 28 insertions, 28 deletions
diff --git a/doc/misc/rcirc.texi b/doc/misc/rcirc.texi index 0098e2049d8..cdead72c630 100644 --- a/doc/misc/rcirc.texi +++ b/doc/misc/rcirc.texi @@ -880,11 +880,11 @@ because @code{defun-rcirc-command} is not yet available, and without @code{rcirc} loaded, the command wouldn't do us much good anyway. @smallexample -(eval-after-load 'rcirc - '(defun-rcirc-command sv (arg) - "Boast about rcirc." - (interactive "i") - (rcirc-send-message process target +(with-eval-after-load 'rcirc + (defun-rcirc-command sv (arg) + "Boast about rcirc." + (interactive "i") + (rcirc-send-message process target (concat "I use " rcirc-id-string)))) @end smallexample @@ -904,29 +904,29 @@ copies of every channel buffer, one dead and one live. The real answer, therefore, is a @code{/reconnect} command: @smallexample -(eval-after-load 'rcirc - '(defun-rcirc-command reconnect (arg) - "Reconnect the server process." - (interactive "i") - (unless process - (error "There's no process for this target")) - (let* ((server (car (process-contact process))) - (port (process-contact process :service)) - (nick (rcirc-nick process)) - channels query-buffers) - (dolist (buf (buffer-list)) - (with-current-buffer buf - (when (eq process (rcirc-buffer-process)) - (remove-hook 'change-major-mode-hook - 'rcirc-change-major-mode-hook) - (if (rcirc-channel-p rcirc-target) - (setq channels (cons rcirc-target channels)) - (setq query-buffers (cons buf query-buffers)))))) - (delete-process process) - (rcirc-connect server port nick - rcirc-default-user-name - rcirc-default-full-name - channels)))) +(with-eval-after-load 'rcirc + (defun-rcirc-command reconnect (arg) + "Reconnect the server process." + (interactive "i") + (unless process + (error "There's no process for this target")) + (let* ((server (car (process-contact process))) + (port (process-contact process :service)) + (nick (rcirc-nick process)) + channels query-buffers) + (dolist (buf (buffer-list)) + (with-current-buffer buf + (when (eq process (rcirc-buffer-process)) + (remove-hook 'change-major-mode-hook + 'rcirc-change-major-mode-hook) + (if (rcirc-channel-p rcirc-target) + (setq channels (cons rcirc-target channels)) + (setq query-buffers (cons buf query-buffers)))))) + (delete-process process) + (rcirc-connect server port nick + rcirc-default-user-name + rcirc-default-full-name + channels)))) @end smallexample @node GNU Free Documentation License |