summaryrefslogtreecommitdiff
path: root/doc/lispintro/emacs-lisp-intro.texi
diff options
context:
space:
mode:
Diffstat (limited to 'doc/lispintro/emacs-lisp-intro.texi')
-rw-r--r--doc/lispintro/emacs-lisp-intro.texi11
1 files changed, 5 insertions, 6 deletions
diff --git a/doc/lispintro/emacs-lisp-intro.texi b/doc/lispintro/emacs-lisp-intro.texi
index 86c8da0e461..0a6b775ead1 100644
--- a/doc/lispintro/emacs-lisp-intro.texi
+++ b/doc/lispintro/emacs-lisp-intro.texi
@@ -17584,11 +17584,10 @@ file that set values:
@group
;; Set calendar highlighting colors
-(add-hook 'calendar-load-hook
- (lambda ()
- (set-face-foreground 'diary-face "skyblue")
- (set-face-background 'holiday-face "slate blue")
- (set-face-foreground 'holiday-face "white")))
+(with-eval-after-load 'calendar
+ (set-face-foreground 'diary "skyblue")
+ (set-face-background 'holiday "slate blue")
+ (set-face-foreground 'holiday "white"))
@end group
@end smallexample
@@ -17647,7 +17646,7 @@ Set the shape and color of the mouse cursor:
(setq mpointer "132")) ; top_left_arrow
@end group
@group
- (setq x-pointer-shape (string-to-int mpointer))
+ (setq x-pointer-shape (string-to-number mpointer))
(set-mouse-color "white"))
@end group
@end smallexample