mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 14:30:50 -08:00
Code Issues Projects Releases Wiki Activity

; Fix typos

Browse source
This commit is contained in:
Stefan Kangas 2023-01-15 02:10:32 +01:00
parent 48a62c5546
commit 920a7d38e9
10 changed files with 43 additions and 43 deletions
Download patch file Download diff file Expand all files Collapse all files

4
doc/misc/modus-themes.org
View file

@ -2811,7 +2811,7 @@ that can be overridden):
As one can tell, we bind a key to a hexadecimal RGB color value. Now As one can tell, we bind a key to a hexadecimal RGB color value. Now
say we wish to override those specific values and have our changes say we wish to override those specific values and have our changes
propagate to all faces that use those keys. We could write something propagate to all faces that use those keys. We could write something
like this, which adds a subtle ochre tint: like this, which adds a subtle ocher tint:
#+begin_src emacs-lisp #+begin_src emacs-lisp
(setq modus-themes-operandi-color-overrides (setq modus-themes-operandi-color-overrides
@ -2886,7 +2886,7 @@ look like this:
With those in place, one can use {{{kbd(M-x my-modus-themes-tinted)}}} With those in place, one can use {{{kbd(M-x my-modus-themes-tinted)}}}
and then load the Modus theme of their choice. The new palette subset and then load the Modus theme of their choice. The new palette subset
will come into effect: subtle ochre tints (or shades of gray) for Modus will come into effect: subtle ocher tints (or shades of gray) for Modus
Operandi and night sky blue shades for Modus Vivendi. Switching between Operandi and night sky blue shades for Modus Vivendi. Switching between
the two themes, such as with {{{kbd(M-x modus-themes-toggle)}}} will the two themes, such as with {{{kbd(M-x modus-themes-toggle)}}} will
also use the overrides. also use the overrides.

4
lisp/icomplete.el
View file

@ -252,7 +252,7 @@ the default otherwise."
"Step forward completions by one entry. "Step forward completions by one entry.
Second entry becomes the first and can be selected with Second entry becomes the first and can be selected with
`icomplete-force-complete-and-exit'. `icomplete-force-complete-and-exit'.
Return non-nil iff something was stepped." Return non-nil if something was stepped."
(interactive) (interactive)
(let* ((beg (icomplete--field-beg)) (let* ((beg (icomplete--field-beg))
(end (icomplete--field-end)) (end (icomplete--field-end))
@ -270,7 +270,7 @@ Return non-nil iff something was stepped."
"Step backward completions by one entry. "Step backward completions by one entry.
Last entry becomes the first and can be selected with Last entry becomes the first and can be selected with
`icomplete-force-complete-and-exit'. `icomplete-force-complete-and-exit'.
Return non-nil iff something was stepped." Return non-nil if something was stepped."
(interactive) (interactive)
(let* ((beg (icomplete--field-beg)) (let* ((beg (icomplete--field-beg))
(end (icomplete--field-end)) (end (icomplete--field-end))

4
lisp/org/org-mouse.el
View file

@ -241,7 +241,7 @@ return `:middle'."
(t :middle))) (t :middle)))
(defun org-mouse-empty-line () (defun org-mouse-empty-line ()
"Return non-nil iff the line contains only white space." "Return non-nil if the line contains only white space."
(save-excursion (beginning-of-line) (looking-at "[ \t]*$"))) (save-excursion (beginning-of-line) (looking-at "[ \t]*$")))
(defun org-mouse-next-heading () (defun org-mouse-next-heading ()
@ -283,7 +283,7 @@ keyword as the only argument.
If SELECTED is nil, then all items are normal menu items. If If SELECTED is nil, then all items are normal menu items. If
SELECTED is a function, then each item is a checkbox, which is SELECTED is a function, then each item is a checkbox, which is
enabled for a given keyword iff (funcall SELECTED keyword) return enabled for a given keyword if (funcall SELECTED keyword) return
non-nil. If SELECTED is neither nil nor a function, then the non-nil. If SELECTED is neither nil nor a function, then the
items are radio buttons. A radio button is enabled for the items are radio buttons. A radio button is enabled for the
keyword `equal' to SELECTED. keyword `equal' to SELECTED.

4
lisp/simple.el
View file

@ -2228,8 +2228,8 @@ are available:
This includes commands marked as specific to the current This includes commands marked as specific to the current
buffer's modes and commands that have keybindings in the buffer's modes and commands that have keybindings in the
current buffer's active local keymaps. It also includes current buffer's active local keymaps. It also includes
several commands, like Cuztomize commands, which should several commands, like Customize commands, which should
always be avaliable." always be available."
:version "28.1" :version "28.1"
:group 'completion :group 'completion
:type '(choice (const :tag "Don't exclude any commands" nil) :type '(choice (const :tag "Don't exclude any commands" nil)

60
lisp/woman.el
View file

@ -2355,7 +2355,7 @@ Currently set only from \\='\\\" t in the first line of the source file.")
(point-max))) (point-max)))
(defun woman-horizontal-escapes (to) (defun woman-horizontal-escapes (to)
"Process \\h'+/-N' local horizontal motion escapes upto TO. "Process \\h'+/-N' local horizontal motion escapes up to TO.
Implements arbitrary forward and non-overlapping backward motion. Implements arbitrary forward and non-overlapping backward motion.
Preserves location of `point'." Preserves location of `point'."
;; Moved from `woman-decode-region' for version 0.50. ;; Moved from `woman-decode-region' for version 0.50.
@ -3346,7 +3346,7 @@ Ignore the default face and underline only word characters."
(defun woman2-tr (to) (defun woman2-tr (to)
".tr abcde -- Translate a -> b, c -> d, ..., e -> space. ".tr abcde -- Translate a -> b, c -> d, ..., e -> space.
Format paragraphs upto TO. Supports special chars. Format paragraphs up to TO. Supports special chars.
\(Breaks, but should not.)" \(Breaks, but should not.)"
;; This should be an update, but consing onto the front of the alist ;; This should be an update, but consing onto the front of the alist
;; has the same effect and match duplicates should not matter. ;; has the same effect and match duplicates should not matter.
@ -3402,7 +3402,7 @@ Format paragraphs upto TO. Supports special chars.
(defvar woman-registers ; these are all read-only (defvar woman-registers ; these are all read-only
'((".H" 24) (".V" 48) ; resolution in basic units '((".H" 24) (".V" 48) ; resolution in basic units
(".g" 0) ; not groff (".g" 0) ; not groff
;; (Iff emulating groff need to implement groff italic correction ;; (If emulating groff need to implement groff italic correction
;; \/, e.g. for pic.1) ;; \/, e.g. for pic.1)
(".i" left-margin) ; current indent (".i" left-margin) ; current indent
(".j" woman-adjust) ; current adjustment (".j" woman-adjust) ; current adjustment
@ -3432,7 +3432,7 @@ Handle numeric arguments specially if optional argument NUMERIC is non-nil."
(defun woman2-nr (to) (defun woman2-nr (to)
".nr R +/-N M -- Assign +/-N (wrt to previous value, if any) to register R. ".nr R +/-N M -- Assign +/-N (wrt to previous value, if any) to register R.
The increment for auto-incrementing is set to M. The increment for auto-incrementing is set to M.
Format paragraphs upto TO. (Breaks, but should not!)" Format paragraphs up to TO. (Breaks, but should not!)"
(let* ((name (buffer-substring (let* ((name (buffer-substring
(point) (point)
(progn (skip-syntax-forward "^ ") (point)))) (progn (skip-syntax-forward "^ ") (point))))
@ -3699,7 +3699,7 @@ regexp, \"\\(\\\\c\\)?\\n[.\\=']\"."
(defun woman2-PD (to) (defun woman2-PD (to)
".PD d -- Set the interparagraph distance to d. ".PD d -- Set the interparagraph distance to d.
Round to whole lines, default 1 line. Format paragraphs upto TO. Round to whole lines, default 1 line. Format paragraphs up to TO.
\(Breaks, but should not.)" \(Breaks, but should not.)"
;; .ie \\n[.$] .nr PD (v;\\$1) ;; .ie \\n[.$] .nr PD (v;\\$1)
;; .el .nr PD .4v>?\n[.V] ;; .el .nr PD .4v>?\n[.V]
@ -3718,7 +3718,7 @@ Round to whole lines, default 1 line. Format paragraphs upto TO.
(setq woman-leave-blank-lines woman-interparagraph-distance)) (setq woman-leave-blank-lines woman-interparagraph-distance))
(defun woman2-TH (to) (defun woman2-TH (to)
".TH n c x v m -- Begin a man page. Format paragraphs upto TO. ".TH n c x v m -- Begin a man page. Format paragraphs up to TO.
n is the name of the page in chapter c; x is extra commentary; n is the name of the page in chapter c; x is extra commentary;
v alters page foot left; m alters page head center. v alters page foot left; m alters page head center.
\(Should set prevailing indent and tabs to 5.)" \(Should set prevailing indent and tabs to 5.)"
@ -3748,7 +3748,7 @@ v alters page foot left; m alters page head center.
(defun woman2-SH (to) (defun woman2-SH (to)
".SH -- Sub-head. Leave blank line and subhead. ".SH -- Sub-head. Leave blank line and subhead.
Format paragraphs upto TO. Set prevailing indent to 5." Format paragraphs up to TO. Set prevailing indent to 5."
(if (eolp) ; If no args then (if (eolp) ; If no args then
(delete-char 1) ; apply to next line (delete-char 1) ; apply to next line
(woman-unquote-args) ; else unquote to end of heading (woman-unquote-args) ; else unquote to end of heading
@ -3767,7 +3767,7 @@ Format paragraphs upto TO. Set prevailing indent to 5."
(defun woman2-SS (to) (defun woman2-SS (to)
".SS -- Sub-sub-head. Like .SH but indent heading 3 spaces. ".SS -- Sub-sub-head. Like .SH but indent heading 3 spaces.
Format paragraphs upto TO." Format paragraphs up to TO."
(if (eolp) ; If no args then (if (eolp) ; If no args then
(delete-char 1)) ; apply to next line. (delete-char 1)) ; apply to next line.
(insert " ") (insert " ")
@ -3776,7 +3776,7 @@ Format paragraphs upto TO."
(defun woman2-LP (to) (defun woman2-LP (to)
".LP,.PP -- Begin paragraph. Set prevailing indent to 5. ".LP,.PP -- Begin paragraph. Set prevailing indent to 5.
Leave 1 blank line. Format paragraphs upto TO." Leave 1 blank line. Format paragraphs up to TO."
(woman-delete-line 1) ; ignore any arguments (woman-delete-line 1) ; ignore any arguments
(woman-interparagraph-space) (woman-interparagraph-space)
(setq woman-prevailing-indent woman-default-indent) (setq woman-prevailing-indent woman-default-indent)
@ -3786,21 +3786,21 @@ Leave 1 blank line. Format paragraphs upto TO."
(defalias 'woman2-P #'woman2-LP) (defalias 'woman2-P #'woman2-LP)
(defun woman2-ns (to) (defun woman2-ns (to)
".ns -- Turn on no-space mode. Format paragraphs upto TO." ".ns -- Turn on no-space mode. Format paragraphs up to TO."
;; Should not cause a break! ;; Should not cause a break!
(woman-delete-line 1) ; ignore argument(s) (woman-delete-line 1) ; ignore argument(s)
(setq woman-nospace t) (setq woman-nospace t)
(woman2-format-paragraphs to)) (woman2-format-paragraphs to))
(defun woman2-rs (to) (defun woman2-rs (to)
".rs -- Turn off no-space mode. Format paragraphs upto TO." ".rs -- Turn off no-space mode. Format paragraphs up to TO."
;; Should not cause a break! ;; Should not cause a break!
(woman-delete-line 1) ; ignore argument(s) (woman-delete-line 1) ; ignore argument(s)
(setq woman-nospace nil) (setq woman-nospace nil)
(woman2-format-paragraphs to)) (woman2-format-paragraphs to))
(defun woman2-sp (to) (defun woman2-sp (to)
".sp N -- If N > 0 then leave 1 blank line. Format paragraphs upto TO." ".sp N -- If N > 0 then leave 1 blank line. Format paragraphs up to TO."
(let ((N (if (eolp) 1 (woman-get-numeric-arg)))) (let ((N (if (eolp) 1 (woman-get-numeric-arg))))
(if (>= N 0) (if (>= N 0)
(woman-delete-line 1) ; ignore argument(s) (woman-delete-line 1) ; ignore argument(s)
@ -3955,13 +3955,13 @@ Optional argument NUMERIC, if non-nil, means the argument is numeric."
;;; 4. Text Filling, Adjusting, and Centering ;;; 4. Text Filling, Adjusting, and Centering
(defun woman2-br (to) (defun woman2-br (to)
".br -- Break. Leave no blank line. Format paragraphs upto TO." ".br -- Break. Leave no blank line. Format paragraphs up to TO."
(woman-delete-line 1) ; ignore any arguments (woman-delete-line 1) ; ignore any arguments
(woman2-format-paragraphs to)) (woman2-format-paragraphs to))
(defun woman2-fi (to) (defun woman2-fi (to)
".fi -- Fill subsequent output lines. Leave no blank line. ".fi -- Fill subsequent output lines. Leave no blank line.
Format paragraphs upto TO." Format paragraphs up to TO."
(setq woman-nofill nil) (setq woman-nofill nil)
(woman-delete-line 1) ; ignore any arguments (woman-delete-line 1) ; ignore any arguments
;; Preserve any final blank line in the nofill region: ;; Preserve any final blank line in the nofill region:
@ -3981,7 +3981,7 @@ for the current line length. Format paragraphs up to TO."
(defun woman2-ad (to) (defun woman2-ad (to)
".ad c -- Line adjustment is begun (once fill mode is on). ".ad c -- Line adjustment is begun (once fill mode is on).
Set justification mode to c if specified. Set justification mode to c if specified.
Format paragraphs upto TO. (Breaks, but should not.)" Format paragraphs up to TO. (Breaks, but should not.)"
;; c = l -- left, r -- right, c -- center, b or n -- both, ;; c = l -- left, r -- right, c -- center, b or n -- both,
;; absent -- unchanged. Initial mode adj,both. ;; absent -- unchanged. Initial mode adj,both.
(setq woman-adjust (setq woman-adjust
@ -3997,7 +3997,7 @@ Format paragraphs upto TO. (Breaks, but should not.)"
(woman2-format-paragraphs to)) (woman2-format-paragraphs to))
(defun woman2-na (to) (defun woman2-na (to)
".na -- No adjusting. Format paragraphs upto TO. ".na -- No adjusting. Format paragraphs up to TO.
\(Breaks, but should not.)" \(Breaks, but should not.)"
(setq woman-adjust-previous woman-adjust (setq woman-adjust-previous woman-adjust
woman-justify-previous woman-justify woman-justify-previous woman-justify
@ -4037,7 +4037,7 @@ non-nil and non-zero."
(defvar woman-temp-indent nil) (defvar woman-temp-indent nil)
(defun woman2-format-paragraphs (to &optional new-left) (defun woman2-format-paragraphs (to &optional new-left)
"Indent, fill and adjust paragraphs upto TO to current left margin. "Indent, fill and adjust paragraphs up to TO to current left margin.
If optional arg NEW-LEFT is non-nil then reset current left margin. If optional arg NEW-LEFT is non-nil then reset current left margin.
If `woman-nofill' is non-nil then indent without filling or adjusting." If `woman-nofill' is non-nil then indent without filling or adjusting."
;; Blank space should only ever be output before text. ;; Blank space should only ever be output before text.
@ -4103,7 +4103,7 @@ If `woman-nofill' is non-nil then indent without filling or adjusting."
;;; Tagged, indented and hanging paragraphs: ;;; Tagged, indented and hanging paragraphs:
(defun woman2-TP (to) (defun woman2-TP (to)
".TP i -- Set prevailing indent to i. Format paragraphs upto TO. ".TP i -- Set prevailing indent to i. Format paragraphs up to TO.
Begin indented paragraph with hanging tag given by next text line. Begin indented paragraph with hanging tag given by next text line.
If tag doesn't fit, place it on a separate line." If tag doesn't fit, place it on a separate line."
(let ((i (woman2-get-prevailing-indent))) (let ((i (woman2-get-prevailing-indent)))
@ -4111,7 +4111,7 @@ If tag doesn't fit, place it on a separate line."
(woman2-tagged-paragraph to i))) (woman2-tagged-paragraph to i)))
(defun woman2-IP (to) (defun woman2-IP (to)
".IP x i -- Same as .TP with tag x. Format paragraphs upto TO." ".IP x i -- Same as .TP with tag x. Format paragraphs up to TO."
(woman-interparagraph-space) (woman-interparagraph-space)
(if (eolp) ; no args (if (eolp) ; no args
;; Like LP without resetting prevailing indent ;; Like LP without resetting prevailing indent
@ -4152,7 +4152,7 @@ If tag doesn't fit, place it on a separate line."
(defun woman2-tagged-paragraph (to i) (defun woman2-tagged-paragraph (to i)
"Begin indented paragraph with hanging tag given by current text line. "Begin indented paragraph with hanging tag given by current text line.
If tag doesn't fit, leave it on separate line. If tag doesn't fit, leave it on separate line.
Format paragraphs upto TO. Set prevailing indent to I." Format paragraphs up to TO. Set prevailing indent to I."
(if (not (looking-at "\\s *$")) ; non-empty tag (if (not (looking-at "\\s *$")) ; non-empty tag
(setq woman-leave-blank-lines nil)) (setq woman-leave-blank-lines nil))
@ -4206,7 +4206,7 @@ Format paragraphs upto TO. Set prevailing indent to I."
(goto-char to))))) (goto-char to)))))
(defun woman2-HP (to) (defun woman2-HP (to)
".HP i -- Set prevailing indent to i. Format paragraphs upto TO. ".HP i -- Set prevailing indent to i. Format paragraphs up to TO.
Begin paragraph with hanging indent." Begin paragraph with hanging indent."
(let ((i (woman2-get-prevailing-indent))) (let ((i (woman2-get-prevailing-indent)))
(woman-interparagraph-space) (woman-interparagraph-space)
@ -4228,7 +4228,7 @@ Delete line from point and eol unless LEAVE-EOL is non-nil."
(defun woman2-RS (to) (defun woman2-RS (to)
".RS i -- Start relative indent, move left margin in distance i. ".RS i -- Start relative indent, move left margin in distance i.
Set prevailing indent to 5 for nested indents. Format paragraphs upto TO." Set prevailing indent to 5 for nested indents. Format paragraphs up to TO."
(push woman-left-margin woman-RS-left-margin) (push woman-left-margin woman-RS-left-margin)
(push woman-prevailing-indent woman-RS-prevailing-indent) (push woman-prevailing-indent woman-RS-prevailing-indent)
(setq woman-left-margin (+ woman-left-margin (setq woman-left-margin (+ woman-left-margin
@ -4237,7 +4237,7 @@ Set prevailing indent to 5 for nested indents. Format paragraphs upto TO."
(woman2-format-paragraphs to woman-left-margin)) (woman2-format-paragraphs to woman-left-margin))
(defun woman2-RE (to) (defun woman2-RE (to)
".RE -- End of relative indent. Format paragraphs upto TO. ".RE -- End of relative indent. Format paragraphs up to TO.
Set prevailing indent to amount of starting .RS." Set prevailing indent to amount of starting .RS."
(when woman-RS-left-margin (when woman-RS-left-margin
(setq woman-left-margin (pop woman-RS-left-margin))) (setq woman-left-margin (pop woman-RS-left-margin)))
@ -4274,18 +4274,18 @@ otherwise set PREVIOUS. Delete the whole remaining control line."
(defun woman2-ll (to) (defun woman2-ll (to)
".ll +/-N -- Set, increment or decrement line length. ".ll +/-N -- Set, increment or decrement line length.
Format paragraphs upto TO. (Breaks, but should not.)" Format paragraphs up to TO. (Breaks, but should not.)"
(woman-set-arg 'fill-column 'woman-ll-fill-column) (woman-set-arg 'fill-column 'woman-ll-fill-column)
(woman2-format-paragraphs to)) (woman2-format-paragraphs to))
(defun woman2-in (to) (defun woman2-in (to)
".in +/-N -- Set, increment or decrement the indent. ".in +/-N -- Set, increment or decrement the indent.
Format paragraphs upto TO." Format paragraphs up to TO."
(woman-set-arg 'left-margin 'woman-in-left-margin) (woman-set-arg 'left-margin 'woman-in-left-margin)
(woman2-format-paragraphs to)) (woman2-format-paragraphs to))
(defun woman2-ti (to) (defun woman2-ti (to)
".ti +/-N -- Temporary indent. Format paragraphs upto TO." ".ti +/-N -- Temporary indent. Format paragraphs up to TO."
;; Ignore if no argument. ;; Ignore if no argument.
;; Indent next output line only wrt current indent. ;; Indent next output line only wrt current indent.
;; Current indent is not changed. ;; Current indent is not changed.
@ -4300,7 +4300,7 @@ Format paragraphs upto TO."
".ta Nt ... -- Set tabs, left type, unless t=R(right), C(centered). ".ta Nt ... -- Set tabs, left type, unless t=R(right), C(centered).
\(Breaks, but should not.) The tab stops are separated by spaces; \(Breaks, but should not.) The tab stops are separated by spaces;
a value preceded by + represents an increment to the previous stop value. a value preceded by + represents an increment to the previous stop value.
Format paragraphs upto TO." Format paragraphs up to TO."
(setq tab-stop-list nil) (setq tab-stop-list nil)
(woman2-process-escapes-to-eol 'numeric) (woman2-process-escapes-to-eol 'numeric)
(save-excursion (save-excursion
@ -4350,7 +4350,7 @@ tab stop columns or pairs (COLUMN . TYPE) where TYPE is R or C."
(insert ?\s)))) (insert ?\s))))
(defun woman2-DT (to) (defun woman2-DT (to)
".DT -- Restore default tabs. Format paragraphs upto TO. ".DT -- Restore default tabs. Format paragraphs up to TO.
\(Breaks, but should not.)" \(Breaks, but should not.)"
;; Currently just terminates special tab processing. ;; Currently just terminates special tab processing.
(setq tab-stop-list nil) (setq tab-stop-list nil)
@ -4359,7 +4359,7 @@ tab stop columns or pairs (COLUMN . TYPE) where TYPE is R or C."
(defun woman2-fc (to) (defun woman2-fc (to)
".fc a b -- Set field delimiter a and pad character b. ".fc a b -- Set field delimiter a and pad character b.
Format paragraphs upto TO. Format paragraphs up to TO.
A VERY FIRST ATTEMPT to make fields at least readable! A VERY FIRST ATTEMPT to make fields at least readable!
Needs doing properly!" Needs doing properly!"
(if (eolp) (if (eolp)
@ -4395,7 +4395,7 @@ Needs doing properly!"
(defun woman2-TS (to) (defun woman2-TS (to)
".TS -- Start of table code for the tbl processor. ".TS -- Start of table code for the tbl processor.
Format paragraphs upto TO." Format paragraphs up to TO."
(when woman-emulate-tbl (when woman-emulate-tbl
;; Assumes column separator is \t and intercolumn spacing is 3. ;; Assumes column separator is \t and intercolumn spacing is 3.
;; The first line may optionally be a list of options terminated by ;; The first line may optionally be a list of options terminated by

2
src/ccl.c
View file

@ -1987,7 +1987,7 @@ ccl_get_compiled_code (Lisp_Object ccl_prog, ptrdiff_t *idx)
/* Setup fields of the structure pointed by CCL appropriately for the /* Setup fields of the structure pointed by CCL appropriately for the
execution of CCL program CCL_PROG. CCL_PROG is the name (symbol) execution of CCL program CCL_PROG. CCL_PROG is the name (symbol)
of the CCL program or the already compiled code (vector). of the CCL program or the already compiled code (vector).
Return true iff successful. Return true if successful.
If CCL_PROG is nil, just reset the structure pointed by CCL. */ If CCL_PROG is nil, just reset the structure pointed by CCL. */
bool bool

2
src/keyboard.c
View file

@ -10010,7 +10010,7 @@ read_key_sequence (Lisp_Object *keybuf, Lisp_Object prompt,
if (/* first_unbound < indec.start && first_unbound < fkey.start && */ if (/* first_unbound < indec.start && first_unbound < fkey.start && */
first_unbound < keytran.start) first_unbound < keytran.start)
{ /* The prefix upto first_unbound has no binding and has { /* The prefix up to first_unbound has no binding and has
no translation left to do either, so we know it's unbound. no translation left to do either, so we know it's unbound.
If we don't stop now, we risk staying here indefinitely If we don't stop now, we risk staying here indefinitely
(if the user keeps entering fkey or keytran prefixes (if the user keeps entering fkey or keytran prefixes

2
src/regex-emacs.c
View file

@ -223,7 +223,7 @@ typedef enum
is followed by a range table: is followed by a range table:
2 bytes of flags for character sets (low 8 bits, high 8 bits) 2 bytes of flags for character sets (low 8 bits, high 8 bits)
See RANGE_TABLE_WORK_BITS below. See RANGE_TABLE_WORK_BITS below.
2 bytes, the number of pairs that follow (upto 32767) 2 bytes, the number of pairs that follow (up to 32767)
pairs, each 2 multibyte characters, pairs, each 2 multibyte characters,
each multibyte character represented as 3 bytes. */ each multibyte character represented as 3 bytes. */
charset, charset,

2
test/lisp/erc/resources/networks/merge-server/track.eld
View file

@ -21,7 +21,7 @@
(0.00 ":irc.example.net 376 tester :End of message of the day.")) (0.00 ":irc.example.net 376 tester :End of message of the day."))
((mode 10 "MODE tester +i") ((mode 10 "MODE tester +i")
(0.00 ":irc.example.net 501 tester x :is not a recognised user mode.") (0.00 ":irc.example.net 501 tester x :is not a recognized user mode.")
(0.00 ":NickServ!NickServ@services.int NOTICE tester :Welcome to FooNet, tester! Here on FooNet, we provide services to enable the registration of nicknames and channels! For details, type \2/msg NickServ help\2 and \2/msg ChanServ help\2.") (0.00 ":NickServ!NickServ@services.int NOTICE tester :Welcome to FooNet, tester! Here on FooNet, we provide services to enable the registration of nicknames and channels! For details, type \2/msg NickServ help\2 and \2/msg ChanServ help\2.")
(0.02 ":tester!user@10.0.2.100 MODE tester :+i")) (0.02 ":tester!user@10.0.2.100 MODE tester :+i"))

2
test/manual/indent/octave.m
View file

@ -1517,7 +1517,7 @@ function copy_files (desc, packdir, global_install)
if (exist (fullfile (desc.dir, getarch ()), "dir") && if (exist (fullfile (desc.dir, getarch ()), "dir") &&
! strcmp (fullfile (desc.dir, getarch ()), octfiledir)) ! strcmp (fullfile (desc.dir, getarch ()), octfiledir))
if (! exist (octfiledir, "dir")) if (! exist (octfiledir, "dir"))
## Can be required to create upto three levels of dirs. ## Can be required to create up to three levels of dirs.
octm1 = fileparts (octfiledir); octm1 = fileparts (octfiledir);
if (! exist (octm1, "dir")) if (! exist (octm1, "dir"))
octm2 = fileparts (octm1); octm2 = fileparts (octm1);