summaryrefslogtreecommitdiff
path: root/doc/misc/rcirc.texi
diff options
context:
space:
mode:
authorLars Ingebrigtsen <larsi@gnus.org>2016-04-30 19:20:12 +0200
committerLars Ingebrigtsen <larsi@gnus.org>2016-05-01 19:27:14 +0200
commit2abc85e41edafbb9c1187c5445056cc07759b4c1 (patch)
tree70cd20a7ada4834c353350015a9cd713d679c88e /doc/misc/rcirc.texi
parentec392ff1a3ce6bd4d32371be454003f642812d5b (diff)
downloademacs-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.texi56
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