Commit cf36c821 authored by Glenn Morris's avatar Glenn Morris

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.
parent b07b56a3
...@@ -2634,9 +2634,9 @@ The return value is the matching value from @var{choices}. ...@@ -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: ...@@ -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 ...@@ -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}). ...@@ -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. ...@@ -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. ...@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment