* textmodes/flyspell.el (message-signature-separator):
* longlines.el (message-indent-citation-function): Pacify byte compiler. * emacs-lisp/cl-loaddefs.el: * ldefs-boot.el: Regenerate. * Makefile.in (BYTE_COMPILE_EXTRA_FLAGS): New variable. (.el.elc, compile, compile-always, compile-calc) ($(lisp)/progmodes/cc-mode.elc): Use it.
This commit is contained in:
Dan Nicolaescu
parent
383b707ece
commit
fc5e09b3ee
6 changed files with 4062 additions and 4001 deletions
|
|
@ -1,5 +1,16 @@
|
|||
2007-10-29 Dan Nicolaescu <dann@ics.uci.edu>
|
||||
|
||||
* textmodes/flyspell.el (message-signature-separator):
|
||||
* longlines.el (message-indent-citation-function): Pacify byte
|
||||
compiler.
|
||||
|
||||
* emacs-lisp/cl-loaddefs.el:
|
||||
* ldefs-boot.el: Regenerate.
|
||||
|
||||
* Makefile.in (BYTE_COMPILE_EXTRA_FLAGS): New variable.
|
||||
(.el.elc, compile, compile-always, compile-calc)
|
||||
($(lisp)/progmodes/cc-mode.elc): Use it.
|
||||
|
||||
* ps-print.el (ps-xemacs-color-name, ps-xemacs-face-kind-p): Only
|
||||
do work for XEmacs.
|
||||
(ps-xemacs-mapper): Rename from ps-mapper, only work on XEmacs.
|
||||
|
|
|
|||
|
|
@ -35,6 +35,12 @@ EMACS = ../src/emacs
|
|||
|
||||
EMACSOPT = -batch --no-site-file --multibyte
|
||||
|
||||
# Extra flags to pass to the byte compiler
|
||||
BYTE_COMPILE_EXTRA_FLAGS =
|
||||
# For example to not display the undefined function warnings you can use this:
|
||||
# BYTE_COMPILE_EXTRA_FLAGS = --eval '(setq byte-compile-warnings (quote (not unresolved)))'
|
||||
# The example above is just for developers, it should not be used by default.
|
||||
|
||||
SOURCES = *.el COPYING Makefile
|
||||
lisptagsfiles1 = $(lisp)/[a-zA-Z]*.el
|
||||
lisptagsfiles2 = $(lisp)/[a-zA-Z]*/[a-zA-Z]*.el
|
||||
|
|
@ -141,7 +147,7 @@ TAGS-LISP: $(lisptagsfiles1) $(lisptagsfiles2)
|
|||
.SUFFIXES: .elc .el
|
||||
|
||||
.el.elc: $(lisp)/subdirs.el
|
||||
-$(emacs) -f batch-byte-compile $<
|
||||
-$(emacs) $(BYTE_COMPILE_EXTRA_FLAGS) -f batch-byte-compile $<
|
||||
|
||||
# Compile all Lisp files, but don't recompile those that are up to
|
||||
# date. Some files don't actually get compiled because they set the
|
||||
|
|
@ -166,7 +172,7 @@ compile: $(lisp)/subdirs.el mh-autoloads doit
|
|||
if test -f $$el; \
|
||||
then \
|
||||
echo Compiling $$el; \
|
||||
$(emacs) -f batch-byte-compile-if-not-done $$el || exit 1; \
|
||||
$(emacs) $(BYTE_COMPILE_EXTRA_FLAGS) -f batch-byte-compile-if-not-done $$el || exit 1; \
|
||||
fi \
|
||||
done
|
||||
|
||||
|
|
@ -185,14 +191,14 @@ compile-always: $(lisp)/subdirs.el mh-autoloads doit
|
|||
if test -f $$el; \
|
||||
then \
|
||||
echo Compiling $$el; \
|
||||
$(emacs) -f batch-byte-compile $$el || exit 1; \
|
||||
$(emacs) $(BYTE_COMPILE_EXTRA_FLAGS) -f batch-byte-compile $$el || exit 1; \
|
||||
fi \
|
||||
done
|
||||
|
||||
compile-calc:
|
||||
for el in `find $(lisp)/calc -name '*.el'`; do \
|
||||
echo Compiling $$el; \
|
||||
$(emacs) -f batch-byte-compile $$el || exit 1; \
|
||||
$(emacs) $(BYTE_COMPILE_EXTRA_FLAGS) -f batch-byte-compile $$el || exit 1; \
|
||||
done
|
||||
|
||||
# Backup compiled Lisp files in elc.tar.gz. If that file already
|
||||
|
|
@ -219,7 +225,7 @@ $(lisp)/progmodes/cc-mode.elc: \
|
|||
$(lisp)/progmodes/cc-mode.el \
|
||||
$(lisp)/progmodes/cc-langs.el \
|
||||
$(lisp)/progmodes/cc-defs.el
|
||||
$(emacs) -f batch-byte-compile $(lisp)/progmodes/cc-mode.el
|
||||
$(emacs) $(BYTE_COMPILE_EXTRA_FLAGS) -f batch-byte-compile $(lisp)/progmodes/cc-mode.el
|
||||
|
||||
# Update MH-E internal autoloads. These are not to be confused with
|
||||
# the autoloads for the MH-E entry points, which are already in
|
||||
|
|
|
|||
|
|
@ -283,7 +283,7 @@ Not documented
|
|||
;;;;;; do* do loop return-from return block etypecase typecase ecase
|
||||
;;;;;; case load-time-value eval-when destructuring-bind function*
|
||||
;;;;;; defmacro* defun* gentemp gensym cl-compile-time-init) "cl-macs"
|
||||
;;;;;; "cl-macs.el" "d1c9f68f599fbec644a06dd5cf520fb5")
|
||||
;;;;;; "cl-macs.el" "c9b59a98f2066022e751aa5203b8d6b0")
|
||||
;;; Generated autoloads from cl-macs.el
|
||||
|
||||
(autoload 'cl-compile-time-init "cl-macs" "\
|
||||
|
|
@ -745,24 +745,24 @@ Not documented
|
|||
;;;;;; find nsubstitute-if-not nsubstitute-if nsubstitute substitute-if-not
|
||||
;;;;;; substitute-if substitute delete-duplicates remove-duplicates
|
||||
;;;;;; delete-if-not delete-if delete* remove-if-not remove-if remove*
|
||||
;;;;;; replace fill reduce) "cl-seq" "cl-seq.el" "c972a97c053d4e001ac1d1012c315b28")
|
||||
;;;;;; replace fill reduce) "cl-seq" "cl-seq.el" "77bee7df392948b6ab0699e391e8abc1")
|
||||
;;; Generated autoloads from cl-seq.el
|
||||
|
||||
(autoload (quote reduce) "cl-seq" "\
|
||||
(autoload 'reduce "cl-seq" "\
|
||||
Reduce two-argument FUNCTION across SEQ.
|
||||
|
||||
Keywords supported: :start :end :from-end :initial-value :key
|
||||
|
||||
\(fn FUNCTION SEQ [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote fill) "cl-seq" "\
|
||||
(autoload 'fill "cl-seq" "\
|
||||
Fill the elements of SEQ with ITEM.
|
||||
|
||||
Keywords supported: :start :end
|
||||
|
||||
\(fn SEQ ITEM [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote replace) "cl-seq" "\
|
||||
(autoload 'replace "cl-seq" "\
|
||||
Replace the elements of SEQ1 with the elements of SEQ2.
|
||||
SEQ1 is destructively modified, then returned.
|
||||
|
||||
|
|
@ -770,7 +770,7 @@ Keywords supported: :start1 :end1 :start2 :end2
|
|||
|
||||
\(fn SEQ1 SEQ2 [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote remove*) "cl-seq" "\
|
||||
(autoload 'remove* "cl-seq" "\
|
||||
Remove all occurrences of ITEM in SEQ.
|
||||
This is a non-destructive function; it makes a copy of SEQ if necessary
|
||||
to avoid corrupting the original SEQ.
|
||||
|
|
@ -779,7 +779,7 @@ Keywords supported: :test :test-not :key :count :start :end :from-end
|
|||
|
||||
\(fn ITEM SEQ [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote remove-if) "cl-seq" "\
|
||||
(autoload 'remove-if "cl-seq" "\
|
||||
Remove all items satisfying PREDICATE in SEQ.
|
||||
This is a non-destructive function; it makes a copy of SEQ if necessary
|
||||
to avoid corrupting the original SEQ.
|
||||
|
|
@ -788,7 +788,7 @@ Keywords supported: :key :count :start :end :from-end
|
|||
|
||||
\(fn PREDICATE SEQ [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote remove-if-not) "cl-seq" "\
|
||||
(autoload 'remove-if-not "cl-seq" "\
|
||||
Remove all items not satisfying PREDICATE in SEQ.
|
||||
This is a non-destructive function; it makes a copy of SEQ if necessary
|
||||
to avoid corrupting the original SEQ.
|
||||
|
|
@ -797,7 +797,7 @@ Keywords supported: :key :count :start :end :from-end
|
|||
|
||||
\(fn PREDICATE SEQ [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote delete*) "cl-seq" "\
|
||||
(autoload 'delete* "cl-seq" "\
|
||||
Remove all occurrences of ITEM in SEQ.
|
||||
This is a destructive function; it reuses the storage of SEQ whenever possible.
|
||||
|
||||
|
|
@ -805,7 +805,7 @@ Keywords supported: :test :test-not :key :count :start :end :from-end
|
|||
|
||||
\(fn ITEM SEQ [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote delete-if) "cl-seq" "\
|
||||
(autoload 'delete-if "cl-seq" "\
|
||||
Remove all items satisfying PREDICATE in SEQ.
|
||||
This is a destructive function; it reuses the storage of SEQ whenever possible.
|
||||
|
||||
|
|
@ -813,7 +813,7 @@ Keywords supported: :key :count :start :end :from-end
|
|||
|
||||
\(fn PREDICATE SEQ [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote delete-if-not) "cl-seq" "\
|
||||
(autoload 'delete-if-not "cl-seq" "\
|
||||
Remove all items not satisfying PREDICATE in SEQ.
|
||||
This is a destructive function; it reuses the storage of SEQ whenever possible.
|
||||
|
||||
|
|
@ -821,21 +821,21 @@ Keywords supported: :key :count :start :end :from-end
|
|||
|
||||
\(fn PREDICATE SEQ [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote remove-duplicates) "cl-seq" "\
|
||||
(autoload 'remove-duplicates "cl-seq" "\
|
||||
Return a copy of SEQ with all duplicate elements removed.
|
||||
|
||||
Keywords supported: :test :test-not :key :start :end :from-end
|
||||
|
||||
\(fn SEQ [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote delete-duplicates) "cl-seq" "\
|
||||
(autoload 'delete-duplicates "cl-seq" "\
|
||||
Remove all duplicate elements from SEQ (destructively).
|
||||
|
||||
Keywords supported: :test :test-not :key :start :end :from-end
|
||||
|
||||
\(fn SEQ [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote substitute) "cl-seq" "\
|
||||
(autoload 'substitute "cl-seq" "\
|
||||
Substitute NEW for OLD in SEQ.
|
||||
This is a non-destructive function; it makes a copy of SEQ if necessary
|
||||
to avoid corrupting the original SEQ.
|
||||
|
|
@ -844,7 +844,7 @@ Keywords supported: :test :test-not :key :count :start :end :from-end
|
|||
|
||||
\(fn NEW OLD SEQ [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote substitute-if) "cl-seq" "\
|
||||
(autoload 'substitute-if "cl-seq" "\
|
||||
Substitute NEW for all items satisfying PREDICATE in SEQ.
|
||||
This is a non-destructive function; it makes a copy of SEQ if necessary
|
||||
to avoid corrupting the original SEQ.
|
||||
|
|
@ -853,7 +853,7 @@ Keywords supported: :key :count :start :end :from-end
|
|||
|
||||
\(fn NEW PREDICATE SEQ [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote substitute-if-not) "cl-seq" "\
|
||||
(autoload 'substitute-if-not "cl-seq" "\
|
||||
Substitute NEW for all items not satisfying PREDICATE in SEQ.
|
||||
This is a non-destructive function; it makes a copy of SEQ if necessary
|
||||
to avoid corrupting the original SEQ.
|
||||
|
|
@ -862,7 +862,7 @@ Keywords supported: :key :count :start :end :from-end
|
|||
|
||||
\(fn NEW PREDICATE SEQ [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote nsubstitute) "cl-seq" "\
|
||||
(autoload 'nsubstitute "cl-seq" "\
|
||||
Substitute NEW for OLD in SEQ.
|
||||
This is a destructive function; it reuses the storage of SEQ whenever possible.
|
||||
|
||||
|
|
@ -870,7 +870,7 @@ Keywords supported: :test :test-not :key :count :start :end :from-end
|
|||
|
||||
\(fn NEW OLD SEQ [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote nsubstitute-if) "cl-seq" "\
|
||||
(autoload 'nsubstitute-if "cl-seq" "\
|
||||
Substitute NEW for all items satisfying PREDICATE in SEQ.
|
||||
This is a destructive function; it reuses the storage of SEQ whenever possible.
|
||||
|
||||
|
|
@ -878,7 +878,7 @@ Keywords supported: :key :count :start :end :from-end
|
|||
|
||||
\(fn NEW PREDICATE SEQ [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote nsubstitute-if-not) "cl-seq" "\
|
||||
(autoload 'nsubstitute-if-not "cl-seq" "\
|
||||
Substitute NEW for all items not satisfying PREDICATE in SEQ.
|
||||
This is a destructive function; it reuses the storage of SEQ whenever possible.
|
||||
|
||||
|
|
@ -886,7 +886,7 @@ Keywords supported: :key :count :start :end :from-end
|
|||
|
||||
\(fn NEW PREDICATE SEQ [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote find) "cl-seq" "\
|
||||
(autoload 'find "cl-seq" "\
|
||||
Find the first occurrence of ITEM in SEQ.
|
||||
Return the matching ITEM, or nil if not found.
|
||||
|
||||
|
|
@ -894,7 +894,7 @@ Keywords supported: :test :test-not :key :start :end :from-end
|
|||
|
||||
\(fn ITEM SEQ [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote find-if) "cl-seq" "\
|
||||
(autoload 'find-if "cl-seq" "\
|
||||
Find the first item satisfying PREDICATE in SEQ.
|
||||
Return the matching item, or nil if not found.
|
||||
|
||||
|
|
@ -902,7 +902,7 @@ Keywords supported: :key :start :end :from-end
|
|||
|
||||
\(fn PREDICATE SEQ [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote find-if-not) "cl-seq" "\
|
||||
(autoload 'find-if-not "cl-seq" "\
|
||||
Find the first item not satisfying PREDICATE in SEQ.
|
||||
Return the matching item, or nil if not found.
|
||||
|
||||
|
|
@ -910,7 +910,7 @@ Keywords supported: :key :start :end :from-end
|
|||
|
||||
\(fn PREDICATE SEQ [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote position) "cl-seq" "\
|
||||
(autoload 'position "cl-seq" "\
|
||||
Find the first occurrence of ITEM in SEQ.
|
||||
Return the index of the matching item, or nil if not found.
|
||||
|
||||
|
|
@ -918,7 +918,7 @@ Keywords supported: :test :test-not :key :start :end :from-end
|
|||
|
||||
\(fn ITEM SEQ [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote position-if) "cl-seq" "\
|
||||
(autoload 'position-if "cl-seq" "\
|
||||
Find the first item satisfying PREDICATE in SEQ.
|
||||
Return the index of the matching item, or nil if not found.
|
||||
|
||||
|
|
@ -926,7 +926,7 @@ Keywords supported: :key :start :end :from-end
|
|||
|
||||
\(fn PREDICATE SEQ [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote position-if-not) "cl-seq" "\
|
||||
(autoload 'position-if-not "cl-seq" "\
|
||||
Find the first item not satisfying PREDICATE in SEQ.
|
||||
Return the index of the matching item, or nil if not found.
|
||||
|
||||
|
|
@ -934,28 +934,28 @@ Keywords supported: :key :start :end :from-end
|
|||
|
||||
\(fn PREDICATE SEQ [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote count) "cl-seq" "\
|
||||
(autoload 'count "cl-seq" "\
|
||||
Count the number of occurrences of ITEM in SEQ.
|
||||
|
||||
Keywords supported: :test :test-not :key :start :end
|
||||
|
||||
\(fn ITEM SEQ [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote count-if) "cl-seq" "\
|
||||
(autoload 'count-if "cl-seq" "\
|
||||
Count the number of items satisfying PREDICATE in SEQ.
|
||||
|
||||
Keywords supported: :key :start :end
|
||||
|
||||
\(fn PREDICATE SEQ [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote count-if-not) "cl-seq" "\
|
||||
(autoload 'count-if-not "cl-seq" "\
|
||||
Count the number of items not satisfying PREDICATE in SEQ.
|
||||
|
||||
Keywords supported: :key :start :end
|
||||
|
||||
\(fn PREDICATE SEQ [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote mismatch) "cl-seq" "\
|
||||
(autoload 'mismatch "cl-seq" "\
|
||||
Compare SEQ1 with SEQ2, return index of first mismatching element.
|
||||
Return nil if the sequences match. If one sequence is a prefix of the
|
||||
other, the return value indicates the end of the shorter sequence.
|
||||
|
|
@ -964,7 +964,7 @@ Keywords supported: :test :test-not :key :start1 :end1 :start2 :end2 :from-end
|
|||
|
||||
\(fn SEQ1 SEQ2 [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote search) "cl-seq" "\
|
||||
(autoload 'search "cl-seq" "\
|
||||
Search for SEQ1 as a subsequence of SEQ2.
|
||||
Return the index of the leftmost element of the first match found;
|
||||
return nil if there are no matches.
|
||||
|
|
@ -973,7 +973,7 @@ Keywords supported: :test :test-not :key :start1 :end1 :start2 :end2 :from-end
|
|||
|
||||
\(fn SEQ1 SEQ2 [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote sort*) "cl-seq" "\
|
||||
(autoload 'sort* "cl-seq" "\
|
||||
Sort the argument SEQ according to PREDICATE.
|
||||
This is a destructive function; it reuses the storage of SEQ if possible.
|
||||
|
||||
|
|
@ -981,7 +981,7 @@ Keywords supported: :key
|
|||
|
||||
\(fn SEQ PREDICATE [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote stable-sort) "cl-seq" "\
|
||||
(autoload 'stable-sort "cl-seq" "\
|
||||
Sort the argument SEQ stably according to PREDICATE.
|
||||
This is a destructive function; it reuses the storage of SEQ if possible.
|
||||
|
||||
|
|
@ -989,7 +989,7 @@ Keywords supported: :key
|
|||
|
||||
\(fn SEQ PREDICATE [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote merge) "cl-seq" "\
|
||||
(autoload 'merge "cl-seq" "\
|
||||
Destructively merge the two sequences to produce a new sequence.
|
||||
TYPE is the sequence type to return, SEQ1 and SEQ2 are the two argument
|
||||
sequences, and PREDICATE is a `less-than' predicate on the elements.
|
||||
|
|
@ -998,7 +998,7 @@ Keywords supported: :key
|
|||
|
||||
\(fn TYPE SEQ1 SEQ2 PREDICATE [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote member*) "cl-seq" "\
|
||||
(autoload 'member* "cl-seq" "\
|
||||
Find the first occurrence of ITEM in LIST.
|
||||
Return the sublist of LIST whose car is ITEM.
|
||||
|
||||
|
|
@ -1006,7 +1006,7 @@ Keywords supported: :test :test-not :key
|
|||
|
||||
\(fn ITEM LIST [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote member-if) "cl-seq" "\
|
||||
(autoload 'member-if "cl-seq" "\
|
||||
Find the first item satisfying PREDICATE in LIST.
|
||||
Return the sublist of LIST whose car matches.
|
||||
|
||||
|
|
@ -1014,7 +1014,7 @@ Keywords supported: :key
|
|||
|
||||
\(fn PREDICATE LIST [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote member-if-not) "cl-seq" "\
|
||||
(autoload 'member-if-not "cl-seq" "\
|
||||
Find the first item not satisfying PREDICATE in LIST.
|
||||
Return the sublist of LIST whose car matches.
|
||||
|
||||
|
|
@ -1022,54 +1022,54 @@ Keywords supported: :key
|
|||
|
||||
\(fn PREDICATE LIST [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote cl-adjoin) "cl-seq" "\
|
||||
(autoload 'cl-adjoin "cl-seq" "\
|
||||
Not documented
|
||||
|
||||
\(fn CL-ITEM CL-LIST &rest CL-KEYS)" nil nil)
|
||||
|
||||
(autoload (quote assoc*) "cl-seq" "\
|
||||
(autoload 'assoc* "cl-seq" "\
|
||||
Find the first item whose car matches ITEM in LIST.
|
||||
|
||||
Keywords supported: :test :test-not :key
|
||||
|
||||
\(fn ITEM LIST [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote assoc-if) "cl-seq" "\
|
||||
(autoload 'assoc-if "cl-seq" "\
|
||||
Find the first item whose car satisfies PREDICATE in LIST.
|
||||
|
||||
Keywords supported: :key
|
||||
|
||||
\(fn PREDICATE LIST [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote assoc-if-not) "cl-seq" "\
|
||||
(autoload 'assoc-if-not "cl-seq" "\
|
||||
Find the first item whose car does not satisfy PREDICATE in LIST.
|
||||
|
||||
Keywords supported: :key
|
||||
|
||||
\(fn PREDICATE LIST [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote rassoc*) "cl-seq" "\
|
||||
(autoload 'rassoc* "cl-seq" "\
|
||||
Find the first item whose cdr matches ITEM in LIST.
|
||||
|
||||
Keywords supported: :test :test-not :key
|
||||
|
||||
\(fn ITEM LIST [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote rassoc-if) "cl-seq" "\
|
||||
(autoload 'rassoc-if "cl-seq" "\
|
||||
Find the first item whose cdr satisfies PREDICATE in LIST.
|
||||
|
||||
Keywords supported: :key
|
||||
|
||||
\(fn PREDICATE LIST [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote rassoc-if-not) "cl-seq" "\
|
||||
(autoload 'rassoc-if-not "cl-seq" "\
|
||||
Find the first item whose cdr does not satisfy PREDICATE in LIST.
|
||||
|
||||
Keywords supported: :key
|
||||
|
||||
\(fn PREDICATE LIST [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote union) "cl-seq" "\
|
||||
(autoload 'union "cl-seq" "\
|
||||
Combine LIST1 and LIST2 using a set-union operation.
|
||||
The result list contains all items that appear in either LIST1 or LIST2.
|
||||
This is a non-destructive function; it makes a copy of the data if necessary
|
||||
|
|
@ -1079,7 +1079,7 @@ Keywords supported: :test :test-not :key
|
|||
|
||||
\(fn LIST1 LIST2 [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote nunion) "cl-seq" "\
|
||||
(autoload 'nunion "cl-seq" "\
|
||||
Combine LIST1 and LIST2 using a set-union operation.
|
||||
The result list contains all items that appear in either LIST1 or LIST2.
|
||||
This is a destructive function; it reuses the storage of LIST1 and LIST2
|
||||
|
|
@ -1089,7 +1089,7 @@ Keywords supported: :test :test-not :key
|
|||
|
||||
\(fn LIST1 LIST2 [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote intersection) "cl-seq" "\
|
||||
(autoload 'intersection "cl-seq" "\
|
||||
Combine LIST1 and LIST2 using a set-intersection operation.
|
||||
The result list contains all items that appear in both LIST1 and LIST2.
|
||||
This is a non-destructive function; it makes a copy of the data if necessary
|
||||
|
|
@ -1099,7 +1099,7 @@ Keywords supported: :test :test-not :key
|
|||
|
||||
\(fn LIST1 LIST2 [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote nintersection) "cl-seq" "\
|
||||
(autoload 'nintersection "cl-seq" "\
|
||||
Combine LIST1 and LIST2 using a set-intersection operation.
|
||||
The result list contains all items that appear in both LIST1 and LIST2.
|
||||
This is a destructive function; it reuses the storage of LIST1 and LIST2
|
||||
|
|
@ -1109,7 +1109,7 @@ Keywords supported: :test :test-not :key
|
|||
|
||||
\(fn LIST1 LIST2 [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote set-difference) "cl-seq" "\
|
||||
(autoload 'set-difference "cl-seq" "\
|
||||
Combine LIST1 and LIST2 using a set-difference operation.
|
||||
The result list contains all items that appear in LIST1 but not LIST2.
|
||||
This is a non-destructive function; it makes a copy of the data if necessary
|
||||
|
|
@ -1119,7 +1119,7 @@ Keywords supported: :test :test-not :key
|
|||
|
||||
\(fn LIST1 LIST2 [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote nset-difference) "cl-seq" "\
|
||||
(autoload 'nset-difference "cl-seq" "\
|
||||
Combine LIST1 and LIST2 using a set-difference operation.
|
||||
The result list contains all items that appear in LIST1 but not LIST2.
|
||||
This is a destructive function; it reuses the storage of LIST1 and LIST2
|
||||
|
|
@ -1129,7 +1129,7 @@ Keywords supported: :test :test-not :key
|
|||
|
||||
\(fn LIST1 LIST2 [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote set-exclusive-or) "cl-seq" "\
|
||||
(autoload 'set-exclusive-or "cl-seq" "\
|
||||
Combine LIST1 and LIST2 using a set-exclusive-or operation.
|
||||
The result list contains all items that appear in exactly one of LIST1, LIST2.
|
||||
This is a non-destructive function; it makes a copy of the data if necessary
|
||||
|
|
@ -1139,7 +1139,7 @@ Keywords supported: :test :test-not :key
|
|||
|
||||
\(fn LIST1 LIST2 [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote nset-exclusive-or) "cl-seq" "\
|
||||
(autoload 'nset-exclusive-or "cl-seq" "\
|
||||
Combine LIST1 and LIST2 using a set-exclusive-or operation.
|
||||
The result list contains all items that appear in exactly one of LIST1, LIST2.
|
||||
This is a destructive function; it reuses the storage of LIST1 and LIST2
|
||||
|
|
@ -1149,7 +1149,7 @@ Keywords supported: :test :test-not :key
|
|||
|
||||
\(fn LIST1 LIST2 [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote subsetp) "cl-seq" "\
|
||||
(autoload 'subsetp "cl-seq" "\
|
||||
Return true if LIST1 is a subset of LIST2.
|
||||
I.e., if every element of LIST1 also appears in LIST2.
|
||||
|
||||
|
|
@ -1157,7 +1157,7 @@ Keywords supported: :test :test-not :key
|
|||
|
||||
\(fn LIST1 LIST2 [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote subst-if) "cl-seq" "\
|
||||
(autoload 'subst-if "cl-seq" "\
|
||||
Substitute NEW for elements matching PREDICATE in TREE (non-destructively).
|
||||
Return a copy of TREE with all matching elements replaced by NEW.
|
||||
|
||||
|
|
@ -1165,7 +1165,7 @@ Keywords supported: :key
|
|||
|
||||
\(fn NEW PREDICATE TREE [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote subst-if-not) "cl-seq" "\
|
||||
(autoload 'subst-if-not "cl-seq" "\
|
||||
Substitute NEW for elts not matching PREDICATE in TREE (non-destructively).
|
||||
Return a copy of TREE with all non-matching elements replaced by NEW.
|
||||
|
||||
|
|
@ -1173,7 +1173,7 @@ Keywords supported: :key
|
|||
|
||||
\(fn NEW PREDICATE TREE [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote nsubst) "cl-seq" "\
|
||||
(autoload 'nsubst "cl-seq" "\
|
||||
Substitute NEW for OLD everywhere in TREE (destructively).
|
||||
Any element of TREE which is `eql' to OLD is changed to NEW (via a call
|
||||
to `setcar').
|
||||
|
|
@ -1182,7 +1182,7 @@ Keywords supported: :test :test-not :key
|
|||
|
||||
\(fn NEW OLD TREE [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote nsubst-if) "cl-seq" "\
|
||||
(autoload 'nsubst-if "cl-seq" "\
|
||||
Substitute NEW for elements matching PREDICATE in TREE (destructively).
|
||||
Any element of TREE which matches is changed to NEW (via a call to `setcar').
|
||||
|
||||
|
|
@ -1190,7 +1190,7 @@ Keywords supported: :key
|
|||
|
||||
\(fn NEW PREDICATE TREE [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote nsubst-if-not) "cl-seq" "\
|
||||
(autoload 'nsubst-if-not "cl-seq" "\
|
||||
Substitute NEW for elements not matching PREDICATE in TREE (destructively).
|
||||
Any element of TREE which matches is changed to NEW (via a call to `setcar').
|
||||
|
||||
|
|
@ -1198,7 +1198,7 @@ Keywords supported: :key
|
|||
|
||||
\(fn NEW PREDICATE TREE [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote sublis) "cl-seq" "\
|
||||
(autoload 'sublis "cl-seq" "\
|
||||
Perform substitutions indicated by ALIST in TREE (non-destructively).
|
||||
Return a copy of TREE with all matching elements replaced.
|
||||
|
||||
|
|
@ -1206,7 +1206,7 @@ Keywords supported: :test :test-not :key
|
|||
|
||||
\(fn ALIST TREE [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote nsublis) "cl-seq" "\
|
||||
(autoload 'nsublis "cl-seq" "\
|
||||
Perform substitutions indicated by ALIST in TREE (destructively).
|
||||
Any matching element of TREE is changed via a call to `setcar'.
|
||||
|
||||
|
|
@ -1214,7 +1214,7 @@ Keywords supported: :test :test-not :key
|
|||
|
||||
\(fn ALIST TREE [KEYWORD VALUE]...)" nil nil)
|
||||
|
||||
(autoload (quote tree-equal) "cl-seq" "\
|
||||
(autoload 'tree-equal "cl-seq" "\
|
||||
Return t if trees TREE1 and TREE2 have `eql' leaves.
|
||||
Atoms are compared by `eql'; cons cells are compared recursively.
|
||||
|
||||
|
|
|
|||
7913
lisp/ldefs-boot.el
7913
lisp/ldefs-boot.el
File diff suppressed because one or more lines are too long
|
|
@ -93,6 +93,8 @@ This is used when `longlines-show-hard-newlines' is on."
|
|||
|
||||
;; Mode
|
||||
|
||||
(defvar message-indent-citation-function)
|
||||
|
||||
;;;###autoload
|
||||
(define-minor-mode longlines-mode
|
||||
"Toggle Long Lines mode.
|
||||
|
|
|
|||
|
|
@ -296,6 +296,7 @@ property of the major mode name.")
|
|||
;;*--- mail mode -------------------------------------------------------*/
|
||||
(put 'mail-mode 'flyspell-mode-predicate 'mail-mode-flyspell-verify)
|
||||
(put 'message-mode 'flyspell-mode-predicate 'mail-mode-flyspell-verify)
|
||||
(defvar message-signature-separator)
|
||||
(defun mail-mode-flyspell-verify ()
|
||||
"Function used for `flyspell-generic-check-word-predicate' in Mail mode."
|
||||
(let ((header-end (save-excursion
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue