Commit 021d340c authored by Paul Eggert's avatar Paul Eggert
Browse files

; Spelling fixes

parent 2b36ae07
...@@ -109,7 +109,7 @@ ...@@ -109,7 +109,7 @@
(def-edebug-spec push (def-edebug-spec push
(&or [form symbolp] [form gv-place])) (&or [form symbolp] [form gv-place]))
;; Correct wrong declaration. This still doesn't support dotted desctructuring ;; Correct wrong declaration. This still doesn't support dotted destructuring
;; though. ;; though.
(def-edebug-spec cl-lambda-list (def-edebug-spec cl-lambda-list
(([&rest cl-macro-arg] (([&rest cl-macro-arg]
...@@ -1006,7 +1006,7 @@ BEG-UND are the starting points of the overline or underline, ...@@ -1006,7 +1006,7 @@ BEG-UND are the starting points of the overline or underline,
respectively. They may be nil if the respective thing is missing. respectively. They may be nil if the respective thing is missing.
BEG-TXT is the beginning of the title line or the transition and BEG-TXT is the beginning of the title line or the transition and
must be given. The end of the line is used as the end point. TXT must be given. The end of the line is used as the end point. TXT
is the title text or nil. If TXT is given the indendation of the is the title text or nil. If TXT is given the indentation of the
line containing BEG-TXT is used as indentation. Match group 0 is line containing BEG-TXT is used as indentation. Match group 0 is
derived from the remaining information." derived from the remaining information."
(cl-check-type beg-txt integer-or-marker) (cl-check-type beg-txt integer-or-marker)
...@@ -1845,8 +1845,7 @@ Uses and sets `rst-all-ttls-cache'." ...@@ -1845,8 +1845,7 @@ Uses and sets `rst-all-ttls-cache'."
HDRS reflects the order in which the headers appear in the HDRS reflects the order in which the headers appear in the
buffer. Return a `rst-Hdr' list representing the hierarchy of buffer. Return a `rst-Hdr' list representing the hierarchy of
headers in the buffer. Indentation is unified." headers in the buffer. Indentation is unified."
(let (ado2indents) ; Asscociates `rst-Ado' with the set of indents seen for (let (ado2indents) ; Associates `rst-Ado' with the set of indents seen for it.
; it.
(dolist (hdr hdrs) (dolist (hdr hdrs)
(let* ((ado (rst-Hdr-ado hdr)) (let* ((ado (rst-Hdr-ado hdr))
(indent (rst-Hdr-indent hdr)) (indent (rst-Hdr-indent hdr))
...@@ -2451,7 +2450,7 @@ also arranged by `rst-insert-list-new-tag'." ...@@ -2451,7 +2450,7 @@ also arranged by `rst-insert-list-new-tag'."
(defun rst-insert-list-continue (ind tag tab prefer-roman) (defun rst-insert-list-continue (ind tag tab prefer-roman)
;; testcover: ok. ;; testcover: ok.
"Insert a new list tag after the current line according to style. "Insert a new list tag after the current line according to style.
Style is defined by indentaton IND, TAG and suffix TAB. If Style is defined by indentation IND, TAG and suffix TAB. If
PREFER-ROMAN roman numbering is preferred over using letters." PREFER-ROMAN roman numbering is preferred over using letters."
(end-of-line) (end-of-line)
(insert (insert
...@@ -2551,8 +2550,8 @@ roman numerical list, just use a prefix to set PREFER-ROMAN." ...@@ -2551,8 +2550,8 @@ roman numerical list, just use a prefix to set PREFER-ROMAN."
"Return the positions of begs in region BEG to END. "Return the positions of begs in region BEG to END.
RST-RE-BEG is a `rst-re' argument and matched at the beginning of RST-RE-BEG is a `rst-re' argument and matched at the beginning of
a line. Return a list of (POINT . COLUMN) where POINT gives the a line. Return a list of (POINT . COLUMN) where POINT gives the
point after indentaton and COLUMN gives its column. The list is point after indentation and COLUMN gives its column. The list is
ordererd by POINT." ordered by POINT."
(let (r) (let (r)
(save-match-data (save-match-data
(save-excursion (save-excursion
...@@ -2963,7 +2962,7 @@ error if there is no working link at the given position." ...@@ -2963,7 +2962,7 @@ error if there is no working link at the given position."
(unless link-buf (unless link-buf
(setq link-buf (current-buffer))) (setq link-buf (current-buffer)))
;; Do not catch errors from `rst-toc-get-link' because otherwise the error is ;; Do not catch errors from `rst-toc-get-link' because otherwise the error is
;; suppressed and invisible in interactve use. ;; suppressed and invisible in interactive use.
(let ((mrkr (rst-toc-get-link link-buf link-pnt))) (let ((mrkr (rst-toc-get-link link-buf link-pnt)))
(condition-case nil (condition-case nil
(rst-toc-mode-return kill) (rst-toc-mode-return kill)
......
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