Avoid some overfull lines in PDF lispref
* doc/lispref/commands.texi (Reading One Event): * doc/lispref/display.texi (SVG Images): * doc/lispref/frames.texi (Size Parameters): * doc/lispref/syntax.texi (Categories): * doc/lispref/windows.texi (Frame Layouts with Side Windows): Avoid overfull lines.
This commit is contained in:
parent
b07b56a351
commit
cf36c82127
5 changed files with 20 additions and 13 deletions
|
@ -2634,9 +2634,9 @@ The return value is the matching value from @var{choices}.
|
||||||
@lisp
|
@lisp
|
||||||
(read-multiple-choice
|
(read-multiple-choice
|
||||||
"Continue connecting?"
|
"Continue connecting?"
|
||||||
'((?a "always" "Accept this certificate this session and for all future sessions.")
|
'((?a "always" "Accept certificate for this and future sessions.")
|
||||||
(?s "session only" "Accept this certificate this session only.")
|
(?s "session only" "Accept certificate this session only.")
|
||||||
(?n "no" "Refuse to use this certificate, and close the connection.")))
|
(?n "no" "Refuse to use certificate, close connection.")))
|
||||||
@end lisp
|
@end lisp
|
||||||
|
|
||||||
The @code{read-multiple-choice-face} face is used to highlight the
|
The @code{read-multiple-choice-face} face is used to highlight the
|
||||||
|
|
|
@ -5543,7 +5543,8 @@ inserts an image with a circle:
|
||||||
@lisp
|
@lisp
|
||||||
(let ((svg (svg-create 400 400 :stroke-width 10)))
|
(let ((svg (svg-create 400 400 :stroke-width 10)))
|
||||||
(svg-gradient svg "gradient1" 'linear '((0 . "red") (100 . "blue")))
|
(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)))
|
(insert-image (svg-image svg)))
|
||||||
@end lisp
|
@end lisp
|
||||||
|
|
||||||
|
|
|
@ -1716,7 +1716,8 @@ file as, for example
|
||||||
|
|
||||||
@example
|
@example
|
||||||
(setq default-frame-alist
|
(setq default-frame-alist
|
||||||
'((fullscreen . fullboth) (fullscreen-restore . fullheight)))
|
'((fullscreen . fullboth)
|
||||||
|
(fullscreen-restore . fullheight)))
|
||||||
@end example
|
@end example
|
||||||
|
|
||||||
This will give a new frame full height after typing in it @key{F11} for
|
This will give a new frame full height after typing in it @key{F11} for
|
||||||
|
|
|
@ -1099,12 +1099,13 @@ bidi-class}).
|
||||||
(let ((category-table (make-category-table))
|
(let ((category-table (make-category-table))
|
||||||
;; Create a char-table which gives the 'bidi-class' Unicode
|
;; Create a char-table which gives the 'bidi-class' Unicode
|
||||||
;; property for each character.
|
;; 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"
|
(define-category ?R "Characters of bidi-class R, AL, or RLO"
|
||||||
category-table)
|
category-table)
|
||||||
;; Modify the category entry of each character whose 'bidi-class'
|
;; Modify the category entry of each character whose
|
||||||
;; Unicode property is R, AL, or RLO -- these have a
|
;; 'bidi-class' Unicode property is R, AL, or RLO --
|
||||||
;; right-to-left directionality.
|
;; these have a right-to-left directionality.
|
||||||
(map-char-table
|
(map-char-table
|
||||||
#'(lambda (key val)
|
#'(lambda (key val)
|
||||||
(if (memq val '(R AL RLO))
|
(if (memq val '(R AL RLO))
|
||||||
|
|
|
@ -3391,7 +3391,8 @@ producing the frame layout sketched above.
|
||||||
@example
|
@example
|
||||||
@group
|
@group
|
||||||
(defvar parameters
|
(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 fit-window-to-buffer-horizontally t)
|
||||||
(setq window-resize-pixelwise t)
|
(setq window-resize-pixelwise t)
|
||||||
|
@ -3404,10 +3405,13 @@ producing the frame layout sketched above.
|
||||||
("\\*Tags List\\*" display-buffer-in-side-window
|
("\\*Tags List\\*" display-buffer-in-side-window
|
||||||
(side . right) (slot . 0) (window-width . fit-window-to-buffer)
|
(side . right) (slot . 0) (window-width . fit-window-to-buffer)
|
||||||
(preserve-size . (t . nil)) ,parameters)
|
(preserve-size . (t . nil)) ,parameters)
|
||||||
("\\*\\(?:help\\|grep\\|Completions\\)\\*" display-buffer-in-side-window
|
("\\*\\(?:help\\|grep\\|Completions\\)\\*"
|
||||||
(side . bottom) (slot . -1) (preserve-size . (nil . t)) ,parameters)
|
display-buffer-in-side-window
|
||||||
|
(side . bottom) (slot . -1) (preserve-size . (nil . t))
|
||||||
|
,parameters)
|
||||||
("\\*\\(?:shell\\|compilation\\)\\*" display-buffer-in-side-window
|
("\\*\\(?: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 group
|
||||||
@end example
|
@end example
|
||||||
|
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue