Commit 71296446 authored by Juanma Barranquero's avatar Juanma Barranquero

Trailing whitespace deleted.

parent 693ff613
......@@ -229,7 +229,7 @@ Don't use this function in a Lisp program; use `define-abbrev' instead."
(interactive "p")
(if only-global-abbrevs
(or local-abbrev-table
(error "No per-mode abbrev table")))
"Mode" arg))
......@@ -5,7 +5,7 @@
;; Author: Ken Manheimer <>
;; Maintainer: Ken Manheimer <>
;; Created: Dec 1991 - first release to usenet
;; Version: $Id: allout.el,v 1.37 2002/12/16 00:42:23 rost Exp $||
;; Version: $Id: allout.el,v 1.38 2002/12/16 01:00:51 rost Exp $||
;; Keywords: outlines mode wp languages
;; This file is part of GNU Emacs.
......@@ -33,23 +33,23 @@
;; exposure. It also provides for syntax-sensitive text like
;; programming languages. (For an example, see the allout code
;; itself, which is organized in ;; an outline framework.)
;; In addition to outline navigation and exposure, allout includes:
;; - topic-oriented repositioning, cut, and paste
;; - integral outline exposure-layout
;; - incremental search with dynamic exposure and reconcealment of hidden text
;; - automatic topic-number maintenance
;; - "Hot-spot" operation, for single-keystroke maneuvering and
;; exposure control. (See the `allout-mode' docstring.)
;; and many other features.
;; The outline menubar additions provide quick reference to many of
;; the features, and see the docstring of the function `allout-init'
;; for instructions on priming your emacs session for automatic
;; activation of `allout-mode'.
;; See the docstring of the variables `allout-layout' and
;; `allout-auto-activation' for details on automatic activation of
;; allout `allout-mode' as a minor mode. (It has changed since allout
......@@ -89,7 +89,7 @@ With value `t', auto-mode-activation and auto-layout are enabled.
With value `ask', auto-mode-activation is enabled, and endorsement for
performing auto-layout is asked of the user each time.
With value `activate', only auto-mode-activation is enabled,
With value `activate', only auto-mode-activation is enabled,
auto-layout is not.
With value `nil', neither auto-mode-activation nor auto-layout are
......@@ -189,7 +189,7 @@ of this var to take effect."
These bullets are used to distinguish topics from the run-of-the-mill
ones. They are not used in the standard topic headers created by
the topic-opening, shifting, and rebulleting \(eg, on topic shift,
the topic-opening, shifting, and rebulleting \(eg, on topic shift,
topic paste, blanket rebulleting) routines, but are offered among the
choices for rebulleting. They are not altered by the above automatic
rebulleting, so they can be used to characterize topics, eg:
......@@ -242,7 +242,7 @@ tripled, but an underscore is substituted for the space. [This
presumes that the space is for appearance, not comment syntax. You
can use `allout-mode-leaders' to override this behavior, when
:type '(choice (const t) (const nil) string
:type '(choice (const t) (const nil) string
(const allout-mode-leaders)
(const comment-start))
:group 'allout)
......@@ -508,7 +508,7 @@ behavior."
;;;_ : Version
;;;_ = allout-version
(defvar allout-version
(let ((rcs-rev "$Revision: 1.37 $"))
(let ((rcs-rev "$Revision: 1.38 $"))
(condition-case err
(string-match "Revision: \\([0-9]+\\.[0-9]+\\)" rcs-rev)
......@@ -789,9 +789,9 @@ activation. Being deprecated.")
["Duplicate Exposed" allout-copy-exposed-to-buffer t]
["Duplicate Exposed, numbered"
allout-flatten-exposed-to-buffer t]
allout-flatten-exposed-to-buffer t]
["Duplicate Exposed, indented"
allout-indented-exposed-to-buffer t]
allout-indented-exposed-to-buffer t]
["Set Header Lead" allout-reset-header-lead t]
["Set New Exposure" allout-expose-topic t])))
......@@ -1006,7 +1006,7 @@ the following two lines in your emacs init file:
"Outline mode auto-activation and -layout enabled.")
;;;_ > allout-setup-menubar ()
(defun allout-setup-menubar ()
"Populate the current buffer's menubar with `allout-mode' stuff."
......@@ -2459,12 +2459,12 @@ The function checks to ensure that the rebinding is done only once."
(add-hook 'isearch-mode-end-hook 'allout-isearch-rectification)
(if (fboundp 'allout-real-isearch-abort)
; Ensure load of isearch-mode:
(if (or (and (fboundp 'isearch-mode)
(fboundp 'isearch-abort))
(condition-case error
(condition-case error
(load-library "isearch-mode")
('file-error (message
"Skipping isearch-mode provisions - %s '%s'"
......@@ -2475,7 +2475,7 @@ The function checks to ensure that the rebinding is done only once."
(setq allout-isearch-dynamic-expose nil))))
;; Isearch-mode loaded, encapsulate specific entry points for
;; outline dynamic-exposure business:
;; stash crucial isearch-mode funcs under known, private
;; names, then register wrapper functions under the old
;; names, in their stead:
......@@ -4053,7 +4053,7 @@ and retains start position."
Optional arg CONTEXT indicates interior levels to include."
(let ((delim ".")
(context-depth (or (and context 2) 1)))
;; Take care of the explicit context:
......@@ -4096,7 +4096,7 @@ Optional arg CONTEXT indicates interior levels to include."
(defun allout-stringify-flat-index-indented (flat-index)
"Convert list representing section/subsection/... to document string."
(let ((delim ".")
;; Take care of the explicit context:
(setq numstr (int-to-string (car flat-index))
......@@ -4534,7 +4534,7 @@ BULLET string, and a list of TEXT strings for the body."
body-content bop)
; Do the head line:
(insert (concat "\\OneHeadLine{\\verb\1 "
(insert (concat "\\OneHeadLine{\\verb\1 "
(allout-latex-verb-quote bullet)
......@@ -415,7 +415,7 @@ information will be used for the next call to
start of the region and set the face with which to start. Set
`ansi-color-context-region' to nil if you don't want this."
(let ((face (car ansi-color-context-region))
(start-marker (or (cadr ansi-color-context-region)
(start-marker (or (cadr ansi-color-context-region)
(copy-marker begin)))
(end-marker (copy-marker end))
......@@ -481,7 +481,7 @@ start of the region and set the face with which to start. Set
(defun ansi-color-make-face (property color)
"Return a face with PROPERTY set to COLOR.
PROPERTY can be either symbol `foreground' or symbol `background'.
PROPERTY can be either symbol `foreground' or symbol `background'.
For Emacs, we just return the cons cell \(PROPERTY . COLOR).
For XEmacs, we create a temporary face and return it."
......@@ -247,7 +247,7 @@ before finding a label."
(concat "\\("
(mapconcat 'identity words "\\|")
"\\)" wild
(if (cdr words)
(if (cdr words)
(concat "\\("
(mapconcat 'identity words "\\|")
......@@ -314,7 +314,7 @@ Value is a list of offsets of the words into the string."
(dolist (s (apropos-calc-scores doc apropos-all-words) score)
(setq score (+ score 50 (/ (* (- l s) 50) l)))))
(defun apropos-score-symbol (symbol &optional weight)
"Return apropos score for SYMBOL."
(setq symbol (symbol-name symbol))
......@@ -413,7 +413,7 @@ satisfy the predicate VAR-PREDICATE."
(if (functionp symbol)
(if (setq doc (documentation symbol t))
(setq score (+ score (apropos-score-doc doc)))
(setq score (+ score (apropos-score-doc doc)))
(substring doc 0 (string-match "\n" doc)))
"(not documented)")))
(and var-predicate
......@@ -531,7 +531,7 @@ Returns list of symbols and values found."
(if (apropos-false-hit-str p)
(setq p nil))
(if (or f v p)
(setq apropos-accumulator (cons (list symbol
(setq apropos-accumulator (cons (list symbol
(+ (apropos-score-str f)
(apropos-score-str v)
(apropos-score-str p))
......@@ -580,7 +580,7 @@ Returns list of symbols and documentation found."
(setcar (nthcdr 2 apropos-item) v)
(setcar apropos-item (+ (car apropos-item) sv)))))
(setq apropos-accumulator
(cons (list symbol
(cons (list symbol
(+ (apropos-score-symbol symbol 2) sf sv)
f v)
......@@ -665,7 +665,7 @@ Returns list of symbols and documentation found."
(or (and (setq apropos-item (assq symbol apropos-accumulator))
(setcar (cdr apropos-item)
(+ (cadr apropos-item) (apropos-score-doc doc))))
(setq apropos-item (list symbol
(setq apropos-item (list symbol
(+ (apropos-score-symbol symbol 2)
(apropos-score-doc doc))
nil nil)
......@@ -755,7 +755,7 @@ Will return nil instead."
(defun apropos-print (do-keys spacing)
"Output result of apropos searching into buffer `*Apropos*'.
The value of `apropos-accumulator' is the list of items to output.
Each element should have the format
Each element should have the format
The return value is the list that was in `apropos-accumulator', sorted
alphabetically by symbol name; but this function also sets
......@@ -757,7 +757,7 @@ when parsing the archive."
(function concat)
(lambda (fil)
;; Using `concat' here copies the text also, so we can add
;; properties without problems.
......@@ -58,7 +58,7 @@
(defvar array-respect-tabs))
;;; Internal information functions.
(defun array-cursor-in-array-range ()
"Return t if the cursor is in a valid array cell.
Its ok to be on a row number line."
......@@ -385,7 +385,7 @@ Leave point at the beginning of the field."
(insert array-copy-string))
(move-to-column array-buffer-column)
(setq count (1- count)))))
(defun array-copy-to-column (a-column)
"Copy current field horizontally into every cell up to and including A-COLUMN.
Leave point at the beginning of the field."
......@@ -113,7 +113,7 @@ If this contains a %s, that will be replaced by the matching rule."
(("[Mm]akefile\\'" . "Makefile") . "")
(html-mode . (lambda () (sgml-tag "html")))
(plain-tex-mode . "tex-insert.tex")
(bibtex-mode . "tex-insert.tex")
......@@ -130,7 +130,7 @@ If this contains a %s, that will be replaced by the matching rule."
lambda ()
(if (eq major-mode default-major-mode)
(ada-mode . ada-header)
(("\\.[1-9]\\'" . "Man page skeleton")
......@@ -144,19 +144,19 @@ The result of the body appears to the compiler as a quoted constant."
;; "Set some compilation-parameters for this file. This will affect only the
;; file in which it appears; this does nothing when evaluated, and when loaded
;; from a .el file.
;; Each argument to this macro must be a list of a key and a value.
;; Keys: Values: Corresponding variable:
;; verbose t, nil byte-compile-verbose
;; optimize t, nil, source, byte byte-compile-optimize
;; warnings list of warnings byte-compile-warnings
;; Legal elements: (callargs redefine free-vars unresolved)
;; file-format emacs18, emacs19 byte-compile-compatibility
;; For example, this might appear at the top of a source file:
;; (byte-compiler-options
;; (optimize t)
;; (warnings (- free-vars)) ; Don't warn about free variables
......@@ -47,19 +47,19 @@
;; character to the scheme process. Cmuscheme mode does *not* provide this
;; functionality. If you are a cscheme user, you may prefer to use the
;; xscheme.el/cscheme -emacs interaction.
;; Here's a summary of the pros and cons, as I see them.
;; xscheme: Tightly integrated with inferior cscheme process! A few commands
;; not in cmuscheme. But. Integration is a bit of a hack. Input
;; history only keeps the immediately prior input. Bizarre
;; keybindings.
;; cmuscheme: Not tightly integrated with inferior cscheme process. But.
;; Carefully integrated functionality with the entire suite of
;; comint-derived CMU process modes. Keybindings reminiscent of
;; Zwei and Hemlock. Good input history. A few commands not in
;; xscheme.
;; It's a tradeoff. Pay your money; take your choice. If you use a Scheme
;; that isn't Cscheme, of course, there isn't a choice. Xscheme.el is *very*
;; Cscheme-specific; you must use cmuscheme.el. Interested parties are
......@@ -432,7 +432,7 @@ for a minimal, simple implementation. Feel free to extend it.")
This is a good place to put keybindings."
:type 'hook
:group 'cmuscheme)
(run-hooks 'cmuscheme-load-hook)
(provide 'cmuscheme)
This diff is collapsed.
......@@ -95,7 +95,7 @@ follows (the point `*' corresponds to both reference points):
(or (integerp nref)
(setq nref (cdr (assq nref reference-point-alist))))
(or (and (>= gref 0) (< gref 12) (>= nref 0) (< nref 12))
(error "Invalid composition rule: %S" rule))
(error "Invalid composition rule: %S" rule))
(+ (* gref 12) nref))))
;; Decode encoded composition rule RULE-CODE. The value is a cons of
......@@ -331,7 +331,7 @@ This function is the default value of `compose-chars-after-function'."
(when tail
(while (and tail (not func))
(while (and tail (not func))
(setq pattern (car (car tail))
func (cdr (car tail)))
(goto-char pos)
......@@ -92,7 +92,7 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS"
(when members
;; So x and no-x builds won't differ.
(setq members
(sort (copy-sequence members)
(sort (copy-sequence members)
(lambda (x y) (string< (car x) (car y)))))
(while members
(setq item (car (car members))
......@@ -102,7 +102,7 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS"
(member where found))
(if found
(insert " ")
(insert "(put '" (symbol-name symbol)
(insert "(put '" (symbol-name symbol)
" 'custom-loads '("))
(prin1 where (current-buffer))
(push where found)))
......@@ -110,7 +110,7 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS"
(insert "))\n"))))))
(insert "\
;;; These are for handling :version. We need to have a minimum of
;;; information so `customize-changed-options' could do its job.
;;; information so `customize-changed-options' could do its job.
;;; For groups we set `custom-version', `group-documentation' and
;;; `custom-tag' (which are shown in the customize buffer), so we
......@@ -136,7 +136,7 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS"
(mapatoms (lambda (symbol)
(let ((version (get symbol 'custom-version))
(when version
(when version
(setq where (get symbol 'custom-where))
(when where
(if (or (custom-variable-p symbol)
......@@ -144,13 +144,13 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS"
;; This means it's a variable or a face.
(if (assoc version version-alist)
(member where
(member where
(cdr (assoc version version-alist)))
(push where (cdr (assoc version version-alist))))
(push (cons version (list where)) version-alist)))
;; This is a group
(insert "(custom-put-if-not '" (symbol-name symbol)
(insert "(custom-put-if-not '" (symbol-name symbol)
" 'custom-version ")
(prin1 version (current-buffer))
(insert ")\n")
......@@ -169,7 +169,7 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS"
(if version-alist "'" ""))
(prin1 version-alist (current-buffer))
(insert "\n \"For internal use by custom.\")\n"))
(insert "\
\(provide '" (file-name-sans-extension
......@@ -86,7 +86,7 @@
(const :tag "ultracondensed" ultra-condensed)
(const :tag "ultraexpanded" ultra-expanded)
(const :tag "wide" extra-expanded)))
(choice :tag "Height"
:help-echo "Face's font height."
......@@ -113,7 +113,7 @@
(const :tag "semilight" semi-light)
(const :tag "ultralight" ultra-light)
(const :tag "ultrabold" ultra-bold)))
(choice :tag "Slant"
:help-echo "Font slant."
......@@ -121,28 +121,28 @@
(const :tag "italic" italic)
(const :tag "oblique" oblique)
(const :tag "normal" normal)))
(choice :tag "Underline"
:help-echo "Control text underlining."
(const :tag "Off" nil)
(const :tag "On" t)
(color :tag "Colored")))
(choice :tag "Overline"
:help-echo "Control text overlining."
(const :tag "Off" nil)
(const :tag "On" t)
(color :tag "Colored")))
(choice :tag "Strike-through"
:help-echo "Control text strike-through."
(const :tag "Off" nil)
(const :tag "On" t)
(color :tag "Colored")))
;; Fixme: this can probably be done better.
(choice :tag "Box around text"
......@@ -190,21 +190,21 @@
(nconc (and lwidth `(:line-width ,lwidth))
(and color `(:color ,color))
(and style `(:style ,style)))))))))
(choice :tag "Inverse-video"
:help-echo "Control whether text should be in inverse-video."
(const :tag "Off" nil)
(const :tag "On" t)))
(color :tag "Foreground"
:help-echo "Set foreground color."))
(color :tag "Background"
:help-echo "Set background color."))
(choice :tag "Stipple"
:help-echo "Background bit-mask"
......@@ -230,7 +230,7 @@
(if (and (consp cus-value) (null (cdr cus-value)))
(car cus-value)
"Alist of face attributes.
The elements are of the form (KEY TYPE PRE-FILTER POST-FILTER),
......@@ -34,7 +34,7 @@
;;; Code:
(let ((all '(;; abbrev.c
(let ((all '(;; abbrev.c
(abbrev-all-caps abbrev-mode boolean)
(pre-abbrev-expand-hook abbrev-mode hook)
;; alloc.c
......@@ -88,7 +88,7 @@
(function :value ignore))))
(selection-coding-system mule coding-system)
;; dired.c
(completion-ignored-extensions dired
(completion-ignored-extensions dired
(repeat (string :format "%v")))
;; dispnew.c
(baud-rate display integer)
......@@ -106,7 +106,7 @@
:value (nil)
(symbol :format "%v"))
(const :tag "always" t)))
(debug-on-error debug
(debug-on-error debug
(choice (const :tag "off")
(repeat :menu-tag "When"
:value (nil)
......@@ -155,7 +155,7 @@
;; version-specific directories when you upgrade. We need
;; customization of the front of the list, maintaining the standard
;; value intact at the back.
;;; (load-path environment
;;; (load-path environment
;;; (repeat (choice :tag "[Current dir?]"
;;; :format "%[Current dir?%] %v"
;;; (const :tag " current dir" nil)
......@@ -205,8 +205,8 @@
(display-buffer-function windows (choice (const nil) function))
(pop-up-frames frames boolean)
(pop-up-frame-function frames function)
(repeat (choice :tag "Buffer"
:value ""
(string :format "%v")
......@@ -219,7 +219,7 @@
(symbol :tag "Parameter")
(sexp :tag "Value")))))))
(repeat (choice :tag "Buffer"
:value ""
(regexp :format "%v")
......@@ -283,7 +283,7 @@
(numberp sexp))
(list 'quote sexp)))))
(while all
(while all
(setq this (car all)
all (cdr all)
symbol (nth 0 this)
......@@ -307,7 +307,7 @@
(message "Note, built-in variable `%S' not bound" symbol))
;; Save the standard value, unless we already did.
(or (get symbol 'standard-value)
(put symbol 'standard-value
(put symbol 'standard-value
(list (funcall quoter (default-value symbol)))))
;; If this is NOT while dumping Emacs,
;; set up the rest of the customization info.
......@@ -53,7 +53,7 @@ This will help you share your customizations with other people.\n\n")
(widget-insert "\n\nDocumentation:\n")
(setq custom-theme-description
(widget-create 'text
(widget-create 'text
:value (format-time-string "Created %Y-%m-%d.")))
(widget-insert "\nVariables:\n\n")
(setq custom-theme-variables
......@@ -191,27 +191,27 @@ The following keywords are meaningful:
Include an external link after the documentation string for this
item. This is a sentence containing an active field which
references some other documentation.
There are three alternatives you can use for LINK-DATA:
(custom-manual INFO-NODE)
Link to an Info node; INFO-NODE is a string which specifies
the node name, as in \"(emacs)Top\". The link appears as
`[manual]' in the customization buffer.
(info-link INFO-NODE)
Like `custom-manual' except that the link appears in the
customization buffer with the Info node name.
(url-link URL)
Link to a web page; URL is a string which specifies the URL.
The link appears in the customization buffer as URL.
You can specify the text to use in the customization buffer by
adding `:tag NAME' after the first element of the LINK-DATA; for
example, (info-link :tag \"foo\" \"(emacs)Top\") makes a link to the
Emacs manual which appears in the buffer as `foo'.
An item can have more than one external link; however, most items
have none at all.
......@@ -772,7 +772,7 @@ in SYMBOL's list property `theme-value' \(using `custom-push-theme')."
((default-boundp symbol)
;; Something already set this, overwrite it.
(funcall set symbol (eval value))))
(message "Error setting %s: %s" symbol data)))
(setq args (cdr args))
(and (or now (default-boundp symbol))
......@@ -815,7 +815,7 @@ this sets the local binding in that buffer instead."