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:
Glenn Morris 2017-12-22 16:26:08 -05:00
parent b07b56a351
commit cf36c82127
5 changed files with 20 additions and 13 deletions

View file

@ -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

View file

@ -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

View file

@ -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

View file

@ -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))

View file

@ -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