@lisp
(read-multiple-choice
"Continue connecting?"
- '((?a "always" "Accept this certificate this session and for all future sessions.")
- (?s "session only" "Accept this certificate this session only.")
- (?n "no" "Refuse to use this certificate, and close the connection.")))
+ '((?a "always" "Accept certificate for this and future sessions.")
+ (?s "session only" "Accept certificate this session only.")
+ (?n "no" "Refuse to use certificate, close connection.")))
@end lisp
The @code{read-multiple-choice-face} face is used to highlight the
@lisp
(let ((svg (svg-create 400 400 :stroke-width 10)))
(svg-gradient svg "gradient1" 'linear '((0 . "red") (100 . "blue")))
- (svg-circle svg 200 200 100 :gradient "gradient1" :stroke-color "green")
+ (svg-circle svg 200 200 100 :gradient "gradient1"
+ :stroke-color "green")
(insert-image (svg-image svg)))
@end lisp
@example
(setq default-frame-alist
- '((fullscreen . fullboth) (fullscreen-restore . fullheight)))
+ '((fullscreen . fullboth)
+ (fullscreen-restore . fullheight)))
@end example
This will give a new frame full height after typing in it @key{F11} for
(let ((category-table (make-category-table))
;; Create a char-table which gives the 'bidi-class' Unicode
;; property for each character.
- (uniprop-table (unicode-property-table-internal 'bidi-class)))
+ (uniprop-table
+ (unicode-property-table-internal 'bidi-class)))
(define-category ?R "Characters of bidi-class R, AL, or RLO"
category-table)
- ;; Modify the category entry of each character whose 'bidi-class'
- ;; Unicode property is R, AL, or RLO -- these have a
- ;; right-to-left directionality.
+ ;; Modify the category entry of each character whose
+ ;; 'bidi-class' Unicode property is R, AL, or RLO --
+ ;; these have a right-to-left directionality.
(map-char-table
#'(lambda (key val)
(if (memq val '(R AL RLO))
@example
@group
(defvar parameters
- '(window-parameters . ((no-other-window . t) (no-delete-other-windows . t))))
+ '(window-parameters . ((no-other-window . t)
+ (no-delete-other-windows . t))))
(setq fit-window-to-buffer-horizontally t)
(setq window-resize-pixelwise t)
("\\*Tags List\\*" display-buffer-in-side-window
(side . right) (slot . 0) (window-width . fit-window-to-buffer)
(preserve-size . (t . nil)) ,parameters)
- ("\\*\\(?:help\\|grep\\|Completions\\)\\*" display-buffer-in-side-window
- (side . bottom) (slot . -1) (preserve-size . (nil . t)) ,parameters)
+ ("\\*\\(?:help\\|grep\\|Completions\\)\\*"
+ display-buffer-in-side-window
+ (side . bottom) (slot . -1) (preserve-size . (nil . t))
+ ,parameters)
("\\*\\(?:shell\\|compilation\\)\\*" display-buffer-in-side-window
- (side . bottom) (slot . 1) (preserve-size . (nil . t)) ,parameters)))
+ (side . bottom) (slot . 1) (preserve-size . (nil . t))
+ ,parameters)))
@end group
@end example