diff options
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/bibtex.el | 2 | ||||
| -rw-r--r-- | lisp/textmodes/enriched.el | 2 | ||||
| -rw-r--r-- | lisp/textmodes/fill.el | 15 | ||||
| -rw-r--r-- | lisp/textmodes/flyspell.el | 93 | ||||
| -rw-r--r-- | lisp/textmodes/ispell.el | 12 | ||||
| -rw-r--r-- | lisp/textmodes/org.el | 76 | ||||
| -rw-r--r-- | lisp/textmodes/reftex-cite.el | 9 | ||||
| -rw-r--r-- | lisp/textmodes/table.el | 2 | ||||
| -rw-r--r-- | lisp/textmodes/texinfmt.el | 4 |
9 files changed, 119 insertions, 96 deletions
diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el index c82f2dcf3d0..9597b136d7d 100644 --- a/lisp/textmodes/bibtex.el +++ b/lisp/textmodes/bibtex.el @@ -5,7 +5,7 @@ ;; Author: Stefan Schoef <schoef@offis.uni-oldenburg.de> ;; Bengt Martensson <bengt@mathematik.uni-Bremen.de> -;; Mark Shapiro <shapiro@corto.inria.fr> +;; Marc Shapiro <marc.shapiro@acm.org> ;; Mike Newton <newton@gumby.cs.caltech.edu> ;; Aaron Larson <alarson@src.honeywell.com> ;; Dirk Herrmann <D.Herrmann@tu-bs.de> diff --git a/lisp/textmodes/enriched.el b/lisp/textmodes/enriched.el index 1c81b5cf25e..cd1079e0924 100644 --- a/lisp/textmodes/enriched.el +++ b/lisp/textmodes/enriched.el @@ -66,7 +66,7 @@ (defface fixed '((t (:weight bold))) "Face used for text that must be shown in fixed width. -Currently, emacs can only display fixed-width fonts, but this may change. +Currently, Emacs can only display fixed-width fonts, but this may change. This face is used for text specifically marked as fixed-width, for example in text/enriched files." :group 'enriched) diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index 1ef6783e341..6aae79a825f 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el @@ -746,6 +746,12 @@ space does not end a sentence, so don't break a line there." (looking-at (regexp-quote prefix)))) (goto-char (match-end 0)))) +(defun fill-minibuffer-function (arg) + "Fill a paragraph in the minibuffer, ignoring the prompt." + (save-restriction + (narrow-to-region (minibuffer-prompt-end) (point-max)) + (fill-paragraph arg))) + (defun fill-paragraph (arg) "Fill paragraph at or after point. Prefix ARG means justify as well. If `sentence-end-double-space' is non-nil, then period followed by one @@ -760,8 +766,13 @@ If `fill-paragraph-function' is nil, return the `fill-prefix' used for filling." (barf-if-buffer-read-only) (list (if current-prefix-arg 'full)))) ;; First try fill-paragraph-function. - (or (and fill-paragraph-function - (let ((function fill-paragraph-function) + (or (and (or fill-paragraph-function + (and (window-minibuffer-p (selected-window)) + (= 1 (point-min)))) + (let ((function (or fill-paragraph-function + ;; In the minibuffer, don't count the width + ;; of the prompt. + 'fill-minibuffer-function)) ;; If fill-paragraph-function is set, it probably takes care ;; of comments and stuff. If not, it will have to set ;; fill-paragraph-handle-comment back to t explicitly or diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el index b24124851de..5268988f427 100644 --- a/lisp/textmodes/flyspell.el +++ b/lisp/textmodes/flyspell.el @@ -189,7 +189,7 @@ Ispell's ultimate default dictionary." :type 'string) (defcustom flyspell-check-tex-math-command nil - "Non nil means check even inside TeX math environment. + "Non-nil means check even inside TeX math environment. TeX math environments are discovered by the TEXMATHP that implemented inside the texmathp.el Emacs package. That package may be found at: http://strw.leidenuniv.nl/~dominik/Tools" @@ -412,6 +412,7 @@ property of the major mode name.") (define-key map flyspell-auto-correct-binding 'flyspell-auto-correct-previous-word) (define-key map [(control ?\,)] 'flyspell-goto-next-error) (define-key map [(control ?\.)] 'flyspell-auto-correct-word) + (define-key map [(meta ?\^m)] 'flyspell-correct-word-before-point) map) "Minor mode keymap for Flyspell mode--for the whole buffer.") @@ -1999,52 +2000,62 @@ But don't look beyond what's visible on the screen." ;;*---------------------------------------------------------------------*/ ;;* flyspell-correct-word ... */ ;;*---------------------------------------------------------------------*/ + (defun flyspell-correct-word (event) "Pop up a menu of possible corrections for a misspelled word. The word checked is the word at the mouse position." (interactive "e") - ;; use the correct dictionary - (flyspell-accept-buffer-local-defs) - ;; retain cursor location (I don't know why but save-excursion here fails). (let ((save (point))) (mouse-set-point event) - (let ((cursor-location (point)) - (word (flyspell-get-word nil))) - (if (consp word) - (let ((start (car (cdr word))) - (end (car (cdr (cdr word)))) - (word (car word)) - poss ispell-filter) - ;; now check spelling of word. - (ispell-send-string "%\n") ;put in verbose mode - (ispell-send-string (concat "^" word "\n")) - ;; wait until ispell has processed word - (while (progn - (accept-process-output ispell-process) - (not (string= "" (car ispell-filter))))) - ;; Remove leading empty element - (setq ispell-filter (cdr ispell-filter)) - ;; ispell process should return something after word is sent. - ;; Tag word as valid (i.e., skip) otherwise - (or ispell-filter - (setq ispell-filter '(*))) - (if (consp ispell-filter) - (setq poss (ispell-parse-output (car ispell-filter)))) - (cond - ((or (eq poss t) (stringp poss)) - ;; don't correct word - t) - ((null poss) - ;; ispell error - (error "Ispell: error in Ispell process")) - ((featurep 'xemacs) - (flyspell-xemacs-popup - poss word cursor-location start end save)) - (t - ;; The word is incorrect, we have to propose a replacement. - (flyspell-do-correct (flyspell-emacs-popup event poss word) - poss word cursor-location start end save))) - (ispell-pdict-save t)))))) + (flyspell-correct-word-before-point event save))) + +(defun flyspell-correct-word-before-point (&optional event opoint) + "Pop up a menu of possible corrections for misspelled word before point. +If EVENT is non-nil, it is the mouse event that invoked this operation; +that controls where to put the menu. +If OPOINT is non-nil, restore point there after adjusting it for replacement." + (interactive) + (unless (mouse-position) + (error "Pop-up menus do not work on this terminal")) + ;; use the correct dictionary + (flyspell-accept-buffer-local-defs) + (let ((cursor-location (point)) + (word (flyspell-get-word nil))) + (if (consp word) + (let ((start (car (cdr word))) + (end (car (cdr (cdr word)))) + (word (car word)) + poss ispell-filter) + ;; now check spelling of word. + (ispell-send-string "%\n") ;put in verbose mode + (ispell-send-string (concat "^" word "\n")) + ;; wait until ispell has processed word + (while (progn + (accept-process-output ispell-process) + (not (string= "" (car ispell-filter))))) + ;; Remove leading empty element + (setq ispell-filter (cdr ispell-filter)) + ;; ispell process should return something after word is sent. + ;; Tag word as valid (i.e., skip) otherwise + (or ispell-filter + (setq ispell-filter '(*))) + (if (consp ispell-filter) + (setq poss (ispell-parse-output (car ispell-filter)))) + (cond + ((or (eq poss t) (stringp poss)) + ;; don't correct word + t) + ((null poss) + ;; ispell error + (error "Ispell: error in Ispell process")) + ((featurep 'xemacs) + (flyspell-xemacs-popup + poss word cursor-location start end opoint)) + (t + ;; The word is incorrect, we have to propose a replacement. + (flyspell-do-correct (flyspell-emacs-popup event poss word) + poss word cursor-location start end opoint))) + (ispell-pdict-save t))))) ;;*---------------------------------------------------------------------*/ ;;* flyspell-do-correct ... */ diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index 53cc61c48a2..a8b7d1bd7df 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -217,7 +217,7 @@ "Empty replacement for defgroup when not supplied."))) (defgroup ispell nil - "User variables for emacs ispell interface." + "User variables for Emacs ispell interface." :group 'applications) (if (not (fboundp 'buffer-substring-no-properties)) @@ -496,7 +496,7 @@ These can override the values in `ispell-dictionary-alist'. To make permanent changes to your dictionary definitions, you will need to make your changes in this variable, save, and then -re-start emacs." +re-start Emacs." :type '(repeat (list (choice :tag "Dictionary" (string :tag "Dictionary name") (const :tag "default" nil)) @@ -900,13 +900,13 @@ and added as a submenu of the \"Edit\" menu.") (buffer-string)))) ;; Search for the named dictionaries. (found - (delq nil + (delq nil (mapcar #'ispell-aspell-find-dictionary dictionaries)))) ;; Ensure aspell's alias dictionary will override standard ;; definitions. (setq found (ispell-aspell-add-aliases found)) ;; Merge into FOUND any elements from the standard ispell-dictionary-alist - ;; which have no element in FOUND at all. + ;; which have no element in FOUND at all. (dolist (dict ispell-dictionary-alist) (unless (assoc (car dict) found) (setq found (nconc found (list dict))))) @@ -2074,7 +2074,7 @@ SPC: Accept word this time. `m': Place typed-in value in personal dictionary, then recheck current word. `C-l': redraws screen `C-r': recursive edit -`C-z': suspend emacs or iconify frame" +`C-z': suspend Emacs or iconify frame" (if (equal ispell-help-in-bufferp 'electric) (progn @@ -2106,7 +2106,7 @@ SPC: Accept word this time. `m': Place typed-in value in personal dictionary, then recheck current word. `C-l': redraws screen `C-r': recursive edit -`C-z': suspend emacs or iconify frame") +`C-z': suspend Emacs or iconify frame") nil ;undocumented requirement of with-electric-help )))) diff --git a/lisp/textmodes/org.el b/lisp/textmodes/org.el index caca6a6ae7d..5e15855a69d 100644 --- a/lisp/textmodes/org.el +++ b/lisp/textmodes/org.el @@ -1103,7 +1103,7 @@ for some files for which the OS does not have a good default. See `org-file-apps'.") (defconst org-file-apps-defaults-windowsnt - (list + (list '(remote . emacs) (cons t (list (if (featurep 'xemacs) @@ -1132,7 +1132,7 @@ file identifier are \"ext\" A string identifying an extension `directory' Matches a directory `remote' Matches a remote file, accessible through tramp or efs. - Remote files most likely should be visited through emacs + Remote files most likely should be visited through Emacs because external applications cannot handle such paths. t Default for all remaining files @@ -2342,7 +2342,7 @@ stacked Non-nil means, allow stacked styles. This works only in HTML export. When this is set, all marker characters (as given in `org-emphasis-alist') will be allowed as pre/post, aiding inside-out matching. -Use customize to modify this, or restart emacs after changing it." +Use customize to modify this, or restart Emacs after changing it." :group 'org-font-lock :set 'org-set-emph-re :type '(list @@ -2360,12 +2360,12 @@ Use customize to modify this, or restart emacs after changing it." ("=" shadow "<code>" "</code>") ("+" (:strike-through t) "<del>" "</del>") ) -"Special syntax for emphasised text. +"Special syntax for emphasized text. Text starting and ending with a special character will be emphasized, for example *bold*, _underlined_ and /italic/. This variable sets the marker characters, the face to bbe used by font-lock for highlighting in Org-mode -emacs buffers, and the HTML tags to be used for this. -Use customize to modify this, or restart emacs after changing it." +Emacs buffers, and the HTML tags to be used for this. +Use customize to modify this, or restart Emacs after changing it." :group 'org-font-lock :set 'org-set-emph-re :type '(repeat @@ -2897,11 +2897,8 @@ Also put tags into group 4 if tags are present.") ;;; Define the mode -(defvar org-mode-map - (if (and (not (keymapp outline-mode-map)) (featurep 'allout)) - (error "Conflict with outdated version of allout.el. Load org.el before allout.el, or ugrade to newer allout, for example by switching to Emacs 22.") - (copy-keymap outline-mode-map)) - "Keymap for Org-mode.") +(if (and (not (keymapp outline-mode-map)) (featurep 'allout)) + (error "Conflict with outdated version of allout.el. Load org.el before allout.el, or ugrade to newer allout, for example by switching to Emacs 22.")) (defvar org-struct-menu) ; defined later in this file (defvar org-org-menu) ; defined later in this file @@ -2913,6 +2910,7 @@ Also put tags into group 4 if tags are present.") "Indicates that a table might need an update. This variable is set by `org-before-change-function'. `org-table-align' sets it back to nil.") +(defvar org-mode-map) (defvar org-mode-hook nil) (defvar org-inhibit-startup nil) ; Dynamically-scoped param. (defvar org-agenda-keep-modes nil) ; Dynamically-scoped param. @@ -3453,7 +3451,7 @@ between words." (call-interactively 'org-table-next-field))))) ((eq arg t) ;; Global cycling - + (cond ((and (eq last-command this-command) (eq org-cycle-global-status 'overview)) @@ -3953,7 +3951,7 @@ would end up with no indentation after the change, nothing at all is done." (let ((end (save-excursion (outline-next-heading) (point-marker))) (prohibit (if (> diff 0) - "^\\S-" + "^\\S-" (concat "^ \\{0," (int-to-string (- diff)) "\\}\\S-"))) col) (unless (save-excursion (re-search-forward prohibit end t)) @@ -4029,7 +4027,7 @@ This is a short-hand for marking the subtree and then cutting it." (defun org-copy-subtree (&optional cut) "Cut the current subtree into the clipboard. This is a short-hand for marking the subtree and then copying it. -If CUT is non nil, actually cut the subtree." +If CUT is non-nil, actually cut the subtree." (interactive) (let (beg end folded) (org-back-to-heading) @@ -4217,7 +4215,7 @@ If optional TXT is given, check this string instead of the current kill." (setq status (equal (match-string 0) "[X]")) (when (eq firstnew 'unknown) (setq firstnew (not status))) - (replace-match + (replace-match (if (if arg (not status) firstnew) "[X]" "[ ]") t t)) (beginning-of-line 2)))))) @@ -4513,7 +4511,7 @@ this heading. " (if find-done (org-archive-all-done) ;; Save all relevant TODO keyword-relatex variables - + (let ((tr-org-todo-line-regexp org-todo-line-regexp) ; keep despite compiler (tr-org-todo-keywords org-todo-keywords) (tr-org-todo-interpretation org-todo-interpretation) @@ -4620,7 +4618,7 @@ When TAG is non-nil, don't move trees, but mark them with the ARCHIVE tag." (if (org-on-heading-p) (progn (setq re1 (concat "^" (regexp-quote - (make-string + (make-string (1+ (- (match-end 0) (match-beginning 0))) ?*)) " ")) @@ -4751,7 +4749,7 @@ the children that do not contain any open TODO items." (org-end-of-subtree) (throw :skip t)) (if (equal (char-after p) ?#) (throw :skip t)))) - + (defun org-agenda-toggle-archive-tag () "Toggle the archive tag for the current entry." (interactive) @@ -6192,12 +6190,12 @@ the returned times will be formatted strings." (apply 'encode-time (org-parse-time-string te))))) (move-marker ins (point)) (setq ipos (point)) - (insert-before-markers "Clock summary at [" + (insert-before-markers "Clock summary at [" (substring (format-time-string (cdr org-time-stamp-formats)) 1 -1) "]." - (if block + (if block (format " Considered range is /%s/." block) "") "\n\n|L|Headline|Time|\n") @@ -6223,7 +6221,7 @@ the returned times will be formatted strings." (goto-char ins) (if (= level 1) (insert-before-markers "|-\n")) (insert-before-markers - "| " (int-to-string level) "|" hlc hdl hlc " |" + "| " (int-to-string level) "|" hlc hdl hlc " |" (make-string (1- level) ?|) hlc (format "%d:%02d" h m) @@ -8818,7 +8816,7 @@ With prefix ARG, realign all tags in headings in the current buffer." nil nil current 'org-tags-history)))) (while (string-match "[-+&]+" tags) (setq tags (replace-match ":" t t tags)))) - + (unless (setq empty (string-match "\\`[\t ]*\\'" tags)) (unless (string-match ":$" tags) (setq tags (concat tags ":"))) (unless (string-match "^:" tags) (setq tags (concat ":" tags)))) @@ -9971,7 +9969,7 @@ For file links, arg negates `org-context-in-file-links'." ((eq major-mode 'image-mode) (setq cpltxt (concat "file:" (abbreviate-file-name buffer-file-name)) - link (org-make-link cpltxt))) + link (org-make-link cpltxt))) ((org-mode-p) ;; Just link to current headline @@ -13354,7 +13352,7 @@ translations. There is currently no way for users to extend this.") ;; Convert LaTeX fragments to images (when (memq :LaTeX-fragments parameters) - (org-format-latex + (org-format-latex (concat "ltxpng/" (file-name-sans-extension (file-name-nondirectory org-current-export-file))) @@ -13873,7 +13871,7 @@ org-mode's default settings, but still inferior to file-local settings." (all_lines (org-skip-comments (org-split-string (org-cleaned-string-for-export - region :emph-multiline + region :emph-multiline (if (plist-get opt-plist :LaTeX-fragments) :LaTeX-fragments)) "[\r\n]"))) @@ -14137,7 +14135,7 @@ lang=\"%s\" xml:lang=\"%s\"> (setq valid (if (functionp link-validate) (funcall link-validate filename current-dir) - t)) + t)) (setq file-is-image-p (string-match (org-image-file-name-regexp) filename)) (setq thefile (if abs-p (expand-file-name filename) filename)) @@ -14993,7 +14991,7 @@ a time), or the day by one (if it does not contain a time)." (defvar org-cdlatex-texmathp-advice-is-done nil "Flag remembering if we have applied the advice to texmathp already.") -(define-minor-mode org-cdlatex-mode +(define-minor-mode org-cdlatex-mode "Toggle the minor `org-cdlatex-mode'. This mode supports entering LaTeX environment and math in LaTeX fragments in Org-mode. @@ -15121,7 +15119,7 @@ Revert to the normal definition outside of these fragments." If the cursor is in a LaTeX fragment, create the image and overlay it over the source code. If there is no fragment at point, display all fragments in the current text, from one headline to the next. With -prefix SUBTREE, display all fragments in the current subtree. With a +prefix SUBTREE, display all fragments in the current subtree. With a double prefix `C-u C-u', or when the cursor is before the first headline, display all fragments in the buffer. The images can be removed again with \\[org-ctrl-c-ctrl-c]." @@ -15209,16 +15207,16 @@ The images can be removed again with \\[org-ctrl-c-ctrl-c]." (progn (org-overlay-put ov 'invisible t) (org-overlay-put - ov 'end-glyph + ov 'end-glyph (make-glyph (vector 'png :file movefile)))) - (org-overlay-put - ov 'display + (org-overlay-put + ov 'display (list 'image :type 'png :file movefile :ascent 'center))) (push ov org-latex-fragment-image-overlays) (goto-char end)) (delete-region beg end) (insert link)))))))) - + ;; This function borrows from Ganesh Swami's latex2png.el (defun org-create-formula-image (string tofile options) (let* ((tmpdir (if (featurep 'xemacs) @@ -15870,7 +15868,7 @@ See the individual commands for more information." :style toggle :selected (not org-agenda-skip-archived-trees)] "--" ["Move Subtree to Archive" org-archive-subtree t] - ["Check and Move Children" (org-archive-subtree '(4)) + ["Check and Move Children" (org-archive-subtree '(4)) :active t :keys "C-u C-c $"]) "--" ("TODO Lists" @@ -15940,14 +15938,14 @@ See the individual commands for more information." "--" ["Export/Publish" org-export t] ("LaTeX" - ["Org CDLaTeX mode" org-cdlatex-mode :style toggle + ["Org CDLaTeX mode" org-cdlatex-mode :style toggle :selected org-cdlatex-mode] ["Insert Environment" cdlatex-environment (fboundp 'cdlatex-environment)] ["Insert math symbol" cdlatex-math-symbol (fboundp 'cdlatex-math-symbol)] ["Modify math symbol" org-cdlatex-math-modify (org-inside-LaTeX-fragment-p)] ["Export LaTeX fragments as images" - (setq org-export-with-LaTeX-fragments (not org-export-with-LaTeX-fragments)) + (setq org-export-with-LaTeX-fragments (not org-export-with-LaTeX-fragments)) :style toggle :selected org-export-with-LaTeX-fragments]) "--" ("Documentation" @@ -16097,13 +16095,13 @@ and :keyword." (push (org-point-in-group p 0 :radio-target) clist)) (goto-char p)) ((setq o (car (delq nil - (mapcar + (mapcar (lambda (x) (if (memq x org-latex-fragment-image-overlays) x)) (org-overlays-at (point)))))) - (push (list :latex-fragment + (push (list :latex-fragment (org-overlay-start o) (org-overlay-end o)) clist) - (push (list :latex-preview + (push (list :latex-preview (org-overlay-start o) (org-overlay-end o)) clist)) ((org-inside-LaTeX-fragment-p) ;; FIXME: positions wring. @@ -16413,7 +16411,7 @@ Show the heading too, if it is currently invisible." ;;; Finish up - + (provide 'org) (run-hooks 'org-load-hook) diff --git a/lisp/textmodes/reftex-cite.el b/lisp/textmodes/reftex-cite.el index ced44757ffd..a83c790f076 100644 --- a/lisp/textmodes/reftex-cite.el +++ b/lisp/textmodes/reftex-cite.el @@ -125,7 +125,7 @@ ;; If MARK-TO-KILL is non-nil, mark new buffer to kill. ;; If HIGHLIGHT is non-nil, highlight the match. ;; If ITEM in non-nil, search for bibitem instead of database entry. - ;; If RETURN is non-nil, just return the entry. + ;; If RETURN is non-nil, just return the entry and restore point. (let* ((re (if item @@ -133,7 +133,7 @@ (concat "@[a-zA-Z]+[ \t\n\r]*[{(][ \t\n\r]*" (regexp-quote key) "[, \t\r\n}]"))) (buffer-conf (current-buffer)) - file buf pos) + file buf pos oldpos) (catch 'exit (while file-list @@ -142,9 +142,11 @@ (unless (setq buf (reftex-get-file-buffer-force file mark-to-kill)) (error "No such file %s" file)) (set-buffer buf) + (setq oldpos (point)) (widen) (goto-char (point-min)) - (when (re-search-forward re nil t) + (if (not (re-search-forward re nil t)) + (goto-char oldpos) ;; restore previous position of point (goto-char (match-beginning 0)) (setq pos (point)) (when return @@ -152,6 +154,7 @@ (if item (goto-char (match-end 0))) (setq return (buffer-substring (point) (reftex-end-of-bib-entry item))) + (goto-char oldpos) ;; restore point. (set-buffer buffer-conf) (throw 'exit return)) (switch-to-buffer-other-window buf) diff --git a/lisp/textmodes/table.el b/lisp/textmodes/table.el index 169eeb249f2..70bd3a07a9f 100644 --- a/lisp/textmodes/table.el +++ b/lisp/textmodes/table.el @@ -4692,7 +4692,7 @@ of line." (point))) (defun table--row-column-insertion-point-p (&optional columnp) - "Return non nil if it makes sense to insert a row or a column at point." + "Return non-nil if it makes sense to insert a row or a column at point." (and (not buffer-read-only) (or (get-text-property (point) 'table-cell) (let ((column (current-column))) diff --git a/lisp/textmodes/texinfmt.el b/lisp/textmodes/texinfmt.el index 9e0b6b63901..35ac181817a 100644 --- a/lisp/textmodes/texinfmt.el +++ b/lisp/textmodes/texinfmt.el @@ -2125,7 +2125,7 @@ This command is executed when texinfmt sees @item inside @multitable." (setq tab-number (1+ tab-number))) (let ((needed-tabs (- (length table-widths) tab-number))) (when (> needed-tabs 0) - (goto-char (point-min)) + (goto-char (point-min)) (end-of-line) (while (> needed-tabs 0) (insert "@w{ }\n@tab") @@ -4292,7 +4292,7 @@ the @ifeq command." (defun batch-texinfo-format () "Runs texinfo-format-buffer on the files remaining on the command line. -Must be used only with -batch, and kills emacs on completion. +Must be used only with -batch, and kills Emacs on completion. Each file will be processed even if an error occurred previously. For example, invoke \"emacs -batch -funcall batch-texinfo-format $docs/ ~/*.texinfo\"." |