@group
;; Set calendar highlighting colors
(setq calendar-load-hook
- '(lambda ()
- (set-face-foreground 'diary-face "skyblue")
- (set-face-background 'holiday-face "slate blue")
- (set-face-foreground 'holiday-face "white")))
+ (lambda ()
+ (set-face-foreground 'diary-face "skyblue")
+ (set-face-background 'holiday-face "slate blue")
+ (set-face-foreground 'holiday-face "white")))
@end group
@end smallexample
@group
(defun one-fiftieth (full-range)
"Return list, each number one-fiftieth of previous."
- (mapcar '(lambda (arg) (/ arg 50)) full-range))
+ (mapcar (lambda (arg) (/ arg 50)) full-range))
@end group
@end smallexample
The whole expression looks like this:
@smallexample
-(mapcar '(lambda (arg) (/ arg 50)) full-range))
+(mapcar (lambda (arg) (/ arg 50)) full-range))
@end smallexample
@xref{Mapping Functions, , Mapping Functions, elisp, The GNU Emacs
@group
(defun one-fiftieth (full-range)
"Return list, each number of which is 1/50th previous."
- (mapcar '(lambda (arg) (/ arg 50)) full-range))
+ (mapcar (lambda (arg) (/ arg 50)) full-range))
@end group
@end smallexample