Merge from emacs--devo--0
Patches applied: * emacs--devo--0 (patch 490-504) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 161-163) - Update from CVS - Merge from emacs--devo--0 Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-130
This commit is contained in:
commit
dbc3b08c40
156 changed files with 8249 additions and 4836 deletions
|
@ -176,7 +176,7 @@ listed.")
|
|||
Changes to files in this list are not listed.")
|
||||
|
||||
(defconst authors-fixed-entries
|
||||
'(("Richard M. Stallman" :wrote "[The original GNU emacs and numerous files]")
|
||||
'(("Richard M. Stallman" :wrote "[The original GNU Emacs and numerous files]")
|
||||
("Joseph Arceneaux" :wrote "xrdb.c")
|
||||
("Blitz Product Development Corporation" :wrote "ispell.el")
|
||||
("Frank Bresz" :wrote "diff.el")
|
||||
|
|
|
@ -2155,7 +2155,7 @@ before using the Ispell engine on it."
|
|||
(defun checkdoc-rogue-space-check-engine (&optional start end interact)
|
||||
"Return a message list if there is a line with white space at the end.
|
||||
If `checkdoc-autofix-flag' permits, delete that whitespace instead.
|
||||
If optional arguments START and END are non nil, bound the check to
|
||||
If optional arguments START and END are non-nil, bound the check to
|
||||
this region.
|
||||
Optional argument INTERACT may permit the user to fix problems on the fly."
|
||||
(let ((p (point))
|
||||
|
|
|
@ -256,7 +256,7 @@ Any pair that has the same PREDICATE is first removed."
|
|||
|
||||
(defun custom-print-install ()
|
||||
"Replace print functions with general, customizable, Lisp versions.
|
||||
The emacs subroutines are saved away, and you can reinstall them
|
||||
The Emacs subroutines are saved away, and you can reinstall them
|
||||
by running `custom-print-uninstall'."
|
||||
(interactive)
|
||||
(mapcar 'cust-print-set-function-cell
|
||||
|
@ -271,7 +271,7 @@ by running `custom-print-uninstall'."
|
|||
t)
|
||||
|
||||
(defun custom-print-uninstall ()
|
||||
"Reset print functions to their emacs subroutines."
|
||||
"Reset print functions to their Emacs subroutines."
|
||||
(interactive)
|
||||
(mapcar 'cust-print-set-function-cell
|
||||
'((prin1 cust-print-original-prin1)
|
||||
|
@ -375,7 +375,7 @@ The argument used by %s must be a string or a symbol;
|
|||
the argument used by %d, %b, %o, %x or %c must be a number.
|
||||
|
||||
This is the custom-print replacement for the standard `format'. It
|
||||
calls the emacs `format' after first making strings for list,
|
||||
calls the Emacs `format' after first making strings for list,
|
||||
vector, or symbol args. The format specification for such args should
|
||||
be `%s' in any case, so a string argument will also work. The string
|
||||
is generated with `custom-prin1-to-string', which quotes quotable
|
||||
|
|
|
@ -264,7 +264,7 @@ not selected. If the function definition can't be found in
|
|||
the buffer, returns (BUFFER).
|
||||
|
||||
If the file where FUNCTION is defined is not known, then it is
|
||||
searched for in `find-function-source-path' if non nil, otherwise
|
||||
searched for in `find-function-source-path' if non-nil, otherwise
|
||||
in `load-path'."
|
||||
(if (not function)
|
||||
(error "You didn't specify a function"))
|
||||
|
@ -357,7 +357,7 @@ places point before the definition.
|
|||
Set mark before moving, if the buffer already existed.
|
||||
|
||||
The library where FUNCTION is defined is searched for in
|
||||
`find-function-source-path', if non nil, otherwise in `load-path'.
|
||||
`find-function-source-path', if non-nil, otherwise in `load-path'.
|
||||
See also `find-function-recenter-line' and `find-function-after-hook'."
|
||||
(interactive (find-function-read))
|
||||
(find-function-do-it function nil 'switch-to-buffer))
|
||||
|
@ -387,7 +387,7 @@ the point of the definition. The buffer is not selected.
|
|||
If the variable's definition can't be found in the buffer, return (BUFFER).
|
||||
|
||||
The library where VARIABLE is defined is searched for in FILE or
|
||||
`find-function-source-path', if non nil, otherwise in `load-path'."
|
||||
`find-function-source-path', if non-nil, otherwise in `load-path'."
|
||||
(if (not variable)
|
||||
(error "You didn't specify a variable")
|
||||
(let ((library (or file
|
||||
|
@ -406,7 +406,7 @@ places point before the definition.
|
|||
Set mark before moving, if the buffer already existed.
|
||||
|
||||
The library where VARIABLE is defined is searched for in
|
||||
`find-function-source-path', if non nil, otherwise in `load-path'.
|
||||
`find-function-source-path', if non-nil, otherwise in `load-path'.
|
||||
See also `find-function-recenter-line' and `find-function-after-hook'."
|
||||
(interactive (find-function-read 'defvar))
|
||||
(find-function-do-it variable 'defvar 'switch-to-buffer))
|
||||
|
@ -436,7 +436,7 @@ variable, `defface' for a face. This function does not switch to the
|
|||
buffer nor display it.
|
||||
|
||||
The library where SYMBOL is defined is searched for in FILE or
|
||||
`find-function-source-path', if non nil, otherwise in `load-path'."
|
||||
`find-function-source-path', if non-nil, otherwise in `load-path'."
|
||||
(cond
|
||||
((not symbol)
|
||||
(error "You didn't specify a symbol"))
|
||||
|
@ -461,7 +461,7 @@ places point before the definition.
|
|||
Set mark before moving, if the buffer already existed.
|
||||
|
||||
The library where FACE is defined is searched for in
|
||||
`find-function-source-path', if non nil, otherwise in `load-path'.
|
||||
`find-function-source-path', if non-nil, otherwise in `load-path'.
|
||||
See also `find-function-recenter-line' and `find-function-after-hook'."
|
||||
(interactive (find-function-read 'defface))
|
||||
(find-function-do-it face 'defface 'switch-to-buffer))
|
||||
|
|
|
@ -191,7 +191,7 @@ secondary selection instead of the primary selection."
|
|||
"If there is a selection, delete the text it covers, and copy it to
|
||||
both the kill ring and the Clipboard."
|
||||
(interactive)
|
||||
(or (x-selection-owner-p) (error "emacs does not own the primary selection"))
|
||||
(or (x-selection-owner-p) (error "Emacs does not own the primary selection"))
|
||||
(setq last-command nil)
|
||||
(or primary-selection-extent
|
||||
(error "the primary selection is not an extent?"))
|
||||
|
@ -205,7 +205,7 @@ both the kill ring and the Clipboard."
|
|||
"If there is a selection, delete the text it covers *without* copying it to
|
||||
the kill ring or the Clipboard."
|
||||
(interactive)
|
||||
(or (x-selection-owner-p) (error "emacs does not own the primary selection"))
|
||||
(or (x-selection-owner-p) (error "Emacs does not own the primary selection"))
|
||||
(setq last-command nil)
|
||||
(or primary-selection-extent
|
||||
(error "the primary selection is not an extent?"))
|
||||
|
@ -219,7 +219,7 @@ the kill ring or the Clipboard."
|
|||
"If there is a selection, copy it to both the kill ring and the Clipboard."
|
||||
(interactive)
|
||||
(setq last-command nil)
|
||||
(or (x-selection-owner-p) (error "emacs does not own the primary selection"))
|
||||
(or (x-selection-owner-p) (error "Emacs does not own the primary selection"))
|
||||
(or primary-selection-extent
|
||||
(error "the primary selection is not an extent?"))
|
||||
(save-excursion
|
||||
|
|
|
@ -161,7 +161,7 @@ Ignores leading comment characters."
|
|||
(set-syntax-table stab)
|
||||
(if arg
|
||||
(insert (pp-to-string (eval exp)))
|
||||
(pp-eval-expression exp))))
|
||||
(pp-eval-expression (eval exp)))))
|
||||
|
||||
;;; Test cases for quote
|
||||
;; (pp-eval-expression ''(quote quote))
|
||||
|
|
|
@ -184,17 +184,17 @@ and that each of these directories contains a file called XXX.el. Then
|
|||
XXX.el in the site-lisp directory is referred to by all of:
|
||||
\(require 'XXX\), \(autoload .... \"XXX\"\), \(load-library \"XXX\"\) etc.
|
||||
|
||||
The first XXX.el file prevents emacs from seeing the second \(unless
|
||||
the second is loaded explicitly via load-file\).
|
||||
The first XXX.el file prevents Emacs from seeing the second \(unless
|
||||
the second is loaded explicitly via `load-file'\).
|
||||
|
||||
When not intended, such shadowings can be the source of subtle
|
||||
problems. For example, the above situation may have arisen because the
|
||||
XXX package was not distributed with versions of emacs prior to
|
||||
19.30. An emacs maintainer downloaded XXX from elsewhere and installed
|
||||
it. Later, XXX was updated and included in the emacs distribution.
|
||||
Unless the emacs maintainer checks for this, the new version of XXX
|
||||
XXX package was not distributed with versions of Emacs prior to
|
||||
19.30. An Emacs maintainer downloaded XXX from elsewhere and installed
|
||||
it. Later, XXX was updated and included in the Emacs distribution.
|
||||
Unless the Emacs maintainer checks for this, the new version of XXX
|
||||
will be hidden behind the old \(which may no longer work with the new
|
||||
emacs version\).
|
||||
Emacs version\).
|
||||
|
||||
This function performs these checks and flags all possible
|
||||
shadowings. Because a .el file may exist without a corresponding .elc
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue