Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-22 04:47:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

Merge from trunk.

Browse source
This commit is contained in:
Paul Eggert 2011-11-13 20:35:22 -08:00
commit c3ca24d48c
92 changed files with 408 additions and 354 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
ChangeLog
View file

@ -1,3 +1,7 @@
2011-11-13 Glenn Morris <rgm@gnu.org>
* INSTALL: Tiny updates for disk space used during installation.
2011-11-05 Eli Zaretskii <eliz@gnu.org>
* lib/makefile.w32-in (FRC): New dummy target.

6
INSTALL
View file

@ -31,9 +31,9 @@ some of the steps manually. The more detailed description in the other
sections of this guide will help you do that, so please refer to those
sections if you need to.
1. Unpacking the Emacs 23.2 release requires about 170 MB of free
disk space. Building Emacs uses about another 60 MB of space.
The final installed Emacs uses about 120 MB of disk space.
1. Unpacking the Emacs 24.1 release requires about 180 MB of free
disk space. Building Emacs uses about another 70 MB of space.
The final installed Emacs uses about 110 MB of disk space.
This includes the space-saving that comes from automatically
compressing the Lisp source files on installation.

2
admin/charsets/cp51932.awk
View file

@ -20,7 +20,7 @@
# Commentary:
# Genereate a translation table for CP51932 (EUC-JP of MicroSoft Version).
# Generate a translation table for CP51932 (EUC-JP of MicroSoft Version).
# It maps invalid JISX0208 code points used by CP51932 to Unicode.
# 4th field of the input has these meanings:
# 0: JISX0208 characters.

2
admin/grammars/python.wy
View file

@ -828,7 +828,7 @@ paren_classes
;
;; In general, the base class can be specified by a general expression
;; which evalue to a class object, i.e., base classes are not just names!
;; which evaluates to a class object, i.e., base classes are not just names!
;; However base classes are names in most cases. Thus the
;; non-terminals below work only with simple names. Even if the
;; parser can parse general expressions, I don't see much benefit in

2
admin/notes/bzr
View file

@ -173,7 +173,7 @@ This restores file, but without its history (`bzr log file' will be
very short). This is because file gets re-added with a new file-id
(use `bzr file-id file' to see the id).
Insteading of adding the file, try:
Instead of adding the file, try:
bzr revert -rN file; bzr commit

2
admin/nt/README-ftp-server
View file

@ -92,7 +92,7 @@ See the end of the file for license conditions.
or libpng.dll. LibPNG requires zlib, which should come from the same
source as you got libpng.
JPEG: requires the Independant JPEG Group's libjpeg 6b or later,
JPEG: requires the Independent JPEG Group's libjpeg 6b or later,
which will be called jpeg62.dll, libjpeg.dll, jpeg-62.dll or jpeg.dll.
TIFF: requires libTIFF 3.0 or later, which will be called libtiff3.dll

4
doc/emacs/ack.texi
View file

@ -99,7 +99,7 @@ ERC distribution).
@item
Scott Bender, Michael Brouwer, Christophe de Dinechin, Carl Edman,
Christian Limpach and Adrian Robert developed and maintained the
Christian Limpach and Adrian Robert developed and maintained the
NeXTstep port of Emacs.
@item
@ -576,7 +576,7 @@ Emacs.
@item
Karel Klí@v{c} contributed SELinux support, for preserving the
Security-Enchanced Linux context of files on backup and copy.
Security-Enhanced Linux context of files on backup and copy.
@item
Shuhei Kobayashi wrote @file{hex-util.el}, for operating on hexadecimal

5
doc/lispref/ChangeLog
View file

@ -1,3 +1,8 @@
2011-11-12 Martin Rudalics <rudalics@gmx.at>
* windows.texi (Splitting Windows, Deleting Windows): Remove
references to splits status of windows.
2011-11-10 Glenn Morris <rgm@gnu.org>
* buffers.texi (Read Only Buffers): Expand a bit on why

2
doc/lispref/files.texi
View file

@ -2827,7 +2827,7 @@ If @code{file-remote-p} returns the same identifier for two different
filenames, that means they are stored on the same file system and can
be accessed locally with respect to each other. This means, for
example, that it is possible to start a remote process accessing both
files at the same time. Implementors of file handlers need to ensure
files at the same time. Implementers of file handlers need to ensure
this principle is valid.
@var{identification} specifies which part of the identifier shall be

50
doc/lispref/windows.texi
View file

@ -855,43 +855,14 @@ resize all windows that are part of the same combination as
this may allow @code{split-window} to succeed even if @var{window} is
a fixed-size window or too small to ordinarily split.
In any case, the value of this variable is assigned to the splits status
of the new window and, provided old and new window form a new
combination, of the old window as well. The splits status of a window
can be retrieved by invoking the function @code{window-splits} and
altered by the function @code{set-window-splits} described next.
Also if this variable is non-@code{nil}, subsequent resizing and
deleting @var{window} will usually affect @emph{all} windows in
@var{window}'s combination.
If @code{window-nest} (see below) is non-@code{nil}, the space for the
new window is exclusively taken from the old window, but the splits
status of the involved windows is nevertheless set as described here.
The setting of this variable has no effect if @code{window-nest} (see
below) is non-@code{nil}.
@end defopt
@defun window-splits &optional window
This function returns the splits status of @var{window}. The argument
@var{window} can be any window and defaults to the selected one.
@cindex splits status
The @dfn{splits status} of a window specifies how resizing and deleting
that window may affect the size of other windows in the same window
combination. More precisely, if @var{window}'s splits status is
@code{nil} and @var{window} is resized, the corresponding space is
preferably taken from (or given to) @var{window}'s right sibling. When
@var{window} is deleted, its space is given to its left sibling. If
@var{window}'s splits status is non-@code{nil}, resizing and deleting
@var{window} may resize @emph{all} windows in @var{window}'s
combination.
The splits status is initially set by @code{split-window}
from the current value of the variable @code{window-splits} (see above)
and can be reset by the function @code{set-window-splits} (see below).
@end defun
@defun set-window-splits window &optional status
This function sets the splits status (see above) of @var{window} to
@var{status}. The argument @var{window} can be any window and defaults
to the selected one. The return value is @var{status}.
@end defun
To illustrate the use of @code{window-splits} consider the following
window configuration:
@smallexample
@ -1208,12 +1179,11 @@ window parameters. If the @code{delete-window} parameter specifies a
function, that function is called with @var{window} as its sole
argument.
If the splits status of @var{window} (@pxref{Splitting Windows}) is
@code{nil}, the space @var{window} took up is given to its left sibling
if such a window exists and to its right sibling otherwise. If the
splits status of @var{window} is non-@code{nil}, its space is
proportionally distributed among the remaining windows in the same
combination.
If @code{window-splits} (@pxref{Splitting Windows}) is @code{nil}, the
space @var{window} took up is given to its left sibling if such a window
exists and to its right sibling otherwise. If @code{window-splits} is
non-@code{nil}, the space of @var{window} is proportionally distributed
among the remaining windows in the same combination.
@end deffn
@deffn Command delete-other-windows &optional window

4
doc/misc/ChangeLog
View file

@ -1,3 +1,7 @@
2011-11-11 Juanma Barranquero <lekktu@gmail.com>
* semantic.texi (Tag handling): Fix typo.
2011-10-31 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus.texi (Other Gnus Versions): Remove.

2
doc/misc/semantic.texi
View file

@ -306,7 +306,7 @@ Files associated with tags. Goto-tag, file for include, and file for
a prototype.
@item semantic-tag-ls.el
Language dependant features of a tag, such as parent calculation, slot
Language dependent features of a tag, such as parent calculation, slot
protection, and other states like abstract, virtual, static, and leaf.
@item semantic-dep.el

2
etc/NEWS.20
View file

@ -2047,7 +2047,7 @@ standard fontset are created automatically.
If you specify a default ASCII font with the `Font' resource or `-fn'
argument, a fontset is generated from it. This works by replacing the
FOUNDARY, FAMILY, ADD_STYLE, and AVERAGE_WIDTH fields of the font name
FOUNDRY, FAMILY, ADD_STYLE, and AVERAGE_WIDTH fields of the font name
with `*' then using this to specify a fontset. This fontset's short
name is `fontset-startup'.

2
lib-src/etags.c
View file

@ -6097,7 +6097,7 @@ readline (linebuffer *lbp, FILE *stream)
lineno += 1; /* increment global line number */
charno += result; /* increment global char number */
/* Honour #line directives. */
/* Honor #line directives. */
if (!no_line_directive)
{
static bool discard_until_line_directive;

49
lisp/ChangeLog
View file

@ -1,3 +1,52 @@
2011-11-14 Glenn Morris <rgm@gnu.org>
* progmodes/executable.el
(executable-make-buffer-file-executable-if-script-p):
Handle file-modes returning nil.
* mail/rmail.el (rmail-no-mail-p): Remove mode-line N/M indicator.
* mail/rmailsum.el (rmail-summary, rmail-new-summary)
(rmail-new-summary-1): Allow empty summaries. (Bug#9964)
(rmail-new-summary): Remember that rmail-summary-buffer is buffer-local.
2011-11-12 Martin Rudalics <rudalics@gmx.at>
* window.el (window-resize, delete-window): Use window-splits
variable instead of function.
(window-state-get-1, window-state-put-2, window-state-put):
Don't deal with windows' splits status.
2011-11-12 Glenn Morris <rgm@gnu.org>
* apropos.el (apropos-do-all, apropos-library, apropos-value)
(apropos-documentation): Doc fixes.
2011-11-11 Juanma Barranquero <lekktu@gmail.com>
* progmodes/idlw-shell.el (idlwave-shell-make-new-bp-overlay):
* textmodes/sgml-mode.el (html-tag-help): Fix typos.
2011-11-11 Stefan Monnier <monnier@iro.umontreal.ca>
* electric.el (electric-indent-post-self-insert-function): Make it
possible for a char to only indent in some circumstances.
(electric-indent-mode): Simplify.
2011-11-11 Martin Rudalics <rudalics@gmx.at>
* window.el (windows-with-parameter): Remove unused function.
(windows-at-side): Rename to window-at-side-list.
(window-check, window-atom-check, window-atom-check-1)
(window-side-check, window-size-ignore, window-size-fixed-1)
(window-in-direction-2): Prefix with "window--".
(window-tree-1): Rename to window--subtree, fix doc-string.
2011-11-11 Glenn Morris <rgm@gnu.org>
* subr.el (eval-after-load): If FILE is already loaded,
evaluate FORM before it gets wrapped in more stuff. (Bug#10009)
2011-11-10 Glenn Morris <rgm@gnu.org>
* vc/vc-svn.el (vc-svn-create-repo, vc-svn-modify-change-comment):

2
lisp/ChangeLog.12
View file

@ -18374,7 +18374,7 @@
(tar-summarize-buffer): Don't clear the modified-p bit if it wasn't
cleared before. Obey default-enable-multibyte-characters.
Use mapconcat. Simplify setting of tar-header-offset.
(tar-mode-map): Move initialization inside delcaration.
(tar-mode-map): Move initialization inside declaration.
(tar-flag-deleted): Use `abs'.
(tar-expunge-internal): Remove unused var `line'.
(tar-expunge-internal): Don't hardcode point-min==1.

2
lisp/ChangeLog.15
View file

@ -2252,7 +2252,7 @@
Use define-derived-mode.
* textmodes/reftex-index.el (reftex-index-phrases-mode-map)
(reftex-index-mode-map): Rename from reftex-index(-phrases)-map.
Move init into delcaration.
Move init into declaration.
(reftex-index-mode, reftex-index-phrases-mode):
Use define-derived-mode.
* speedbar.el (speedbar-mode-syntax-table): Renaqme from

2
lisp/ChangeLog.9
View file

@ -2628,7 +2628,7 @@
2001-07-06 Vinicius Jose Latorre <vinicius@cpqd.com.br>
* ps-print.el: Use locale dependant date to print date in header.
* ps-print.el: Use locale dependent date to print date in header.
Doc fix.
(ps-print-version): New version number (6.5.3).
(ps-right-header, ps-right-footer): Initialization and doc fix.

34
lisp/apropos.el
View file

@ -66,9 +66,22 @@
;; I see a degradation of maybe 10-20% only.
(defcustom apropos-do-all nil
"Whether the apropos commands should do more.
"Non nil means apropos commands will search more extensively.
This may be slower. This option affects the following commands:
Slows them down more or less. Set this non-nil if you have a fast machine."
`apropos-variable' will search all variables, not just user variables.
`apropos-command' will also search non-interactive functions.
`apropos' will search all symbols, not just functions, variables, faces,
and those with property lists.
`apropos-value' will also search in property lists and functions.
`apropos-documentation' will search all documentation strings, not just
those in the etc/DOC documentation file.
This option only controls the default behavior. Each of the above
commands also has an optional argument to request a more extensive search.
Additionally, this option makes the function `apropos-library'
include key-binding information in its output."
:group 'apropos
:type 'boolean)
@ -582,7 +595,8 @@ Returns list of symbols and documentation found."
(defun apropos-library (file)
"List the variables and functions defined by library FILE.
FILE should be one of the libraries currently loaded and should
thus be found in `load-history'."
thus be found in `load-history'. If `apropos-do-all' is non-nil,
the output includes key-bindings of commands."
(interactive
(let* ((libs (delq nil (mapcar 'car load-history)))
(libs
@ -693,7 +707,9 @@ search for matches for that word as a substring. If it is a list of words,
search for matches for any two (or more) of those words.
With \\[universal-argument] prefix, or if `apropos-do-all' is non-nil, also looks
at the function and at the names and values of properties.
at function definitions (arguments, documentation and body) and at the
names and values of properties.
Returns list of symbols and values found."
(interactive (list (apropos-read-pattern "value")
current-prefix-arg))
@ -738,10 +754,14 @@ or a regexp (using some regexp special characters). If it is a word,
search for matches for that word as a substring. If it is a list of words,
search for matches for any two (or more) of those words.
With \\[universal-argument] prefix, or if `apropos-do-all' is non-nil, also use
documentation that is not stored in the documentation file and show key
bindings.
Note that by default this command only searches in the file specified by
`internal-doc-file-name'; i.e., the etc/DOC file. With \\[universal-argument] prefix,
or if `apropos-do-all' is non-nil, it searches all currently defined
documentation strings.
Returns list of symbols and documentation found."
;; The doc used to say that DO-ALL includes key-bindings info in the
;; output, but I cannot see that that is true.
(interactive (list (apropos-read-pattern "documentation")
current-prefix-arg))
(apropos-parse-pattern pattern)

2
lisp/cedet/cedet.el
View file

@ -75,7 +75,7 @@
This is used by `semantic-mode' and `global-ede-mode'.")
(defun cedet-version ()
"Display all active versions of CEDET and Dependant packages.
"Display all active versions of CEDET and Dependent packages.
The PACKAGE column is the name of a given package from CEDET.

2
lisp/cedet/ede/proj-elisp.el
View file

@ -217,7 +217,7 @@ is found, such as a `-version' variable, or the standard header."
(save-excursion
(if (file-symlink-p ec)
(progn
;; Desymlinkafy
;; Desymlinkify
(rename-file ec (concat ec ".tmp"))
(copy-file (concat ec ".tmp") ec)
(delete-file (concat ec ".tmp"))))

2
lisp/cedet/semantic/bovine/c.el
View file

@ -249,7 +249,7 @@ Return the defined symbol as a special spp lex token."
(point))))
)
;; Only do argument checking if the paren was immediatly after
;; Only do argument checking if the paren was immediately after
;; the macro name.
(if with-args
(semantic-lex-spp-first-token-arg-list (car raw-stream)))

2
lisp/cedet/semantic/decorate/include.el
View file

@ -296,7 +296,7 @@ This mode provides a nice context menu on the include statements."
;; Set ourselves up for synchronization
(semanticdb-cache-get
table 'semantic-decoration-unparsed-include-cache)
;; Add a dependancy.
;; Add a dependency.
(let ((table semanticdb-current-table))
(semanticdb-add-reference table tag))
)

2
lisp/cedet/semantic/edit.el
View file

@ -427,7 +427,7 @@ See `semantic-edits-change-leaf-tag' for details on parents."
;; which must have a value by now.
;; Loop over the search list to find the preceding CDR.
;; Fortunatly, (car overlapped-tags) happens to be
;; Fortunately, (car overlapped-tags) happens to be
;; the first tag positionally.
(let ((tokstart (semantic-tag-start (car overlapped-tags))))
(while (and list-to-search

2
lisp/cedet/semantic/format.el
View file

@ -291,7 +291,7 @@ local definitions."
;; Try and find a trail of parents from PARENT
(let ((rlist (list parent))
)
;; IMPLELEMENT ME!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
;; IMPLEMENT ME!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
(reverse rlist)))
(define-overloadable-function semantic-format-tag-canonical-name (tag &optional parent color)

2
lisp/cedet/semantic/html.el
View file

@ -61,7 +61,7 @@
(define-mode-local-override semantic-parse-region
html-mode (&rest ignore)
"Parse the current html buffer for semantic tags.
INGNORE any arguments. Always parse the whole buffer.
IGNORE any arguments. Always parse the whole buffer.
Each tag returned is of the form:
(\"NAME\" section (:members CHILDREN))
or

2
lisp/cedet/semantic/scope.el
View file

@ -426,7 +426,7 @@ implicit \"object\"."
;; Collect all the types (class, etc) that are in our heratage.
;; These are types that we can extract members from, not those
;; delclared in using statements, or the like.
;; declared in using statements, or the like.
;; Get the PARENTS including nesting scope for this location.
(while parentlist
(oset miniscope scope currentscope)

2
lisp/cedet/semantic/tag-file.el
View file

@ -154,7 +154,7 @@ Depends on `semantic-dependency-include-path' for searching. Always searches
(setq result
;; I don't have a plan for refreshing tags with a dependency
;; stuck on them somehow. I'm thinking that putting a cache
;; onto the dependancy finding with a hash table might be best.
;; onto the dependency finding with a hash table might be best.
;;(if (semantic--tag-get-property tag 'dependency-file)
;; (semantic--tag-get-property tag 'dependency-file)
(:override

2
lisp/cedet/semantic/texi.el
View file

@ -421,7 +421,7 @@ Optional argument POINT is where to look for the environment."
texinfo-mode (context)
"List smart completions at point.
Since texinfo is not a programming language the default version is not
useful. Insted, look at the current symbol. If it is a command
useful. Instead, look at the current symbol. If it is a command
do primitive texinfo built ins. If not, use ispell to lookup words
that start with that symbol."
(let ((prefix (car (oref context :prefix)))

2
lisp/cedet/srecode/extract.el
View file

@ -66,7 +66,7 @@
(defmethod srecode-extract-state-extract ((st srecode-extract-state)
endpoint)
"Perform an extraction on the extract state ST with ENDPOITNT.
"Perform an extraction on the extract state ST with ENDPOINT.
If there was no waiting inserter, do nothing."
(when (oref st lastinserter)
(save-match-data

2
lisp/cedet/srecode/getset.el
View file

@ -215,7 +215,7 @@ INCLASS specifies if the cursor is already in CLASS or not."
(when (not te)
(message "Unknown location for tag-end in %s:" (semantic-tag-name aftertag)))
(goto-char te)
;; If there is a comment immediatly after aftertag, skip over it.
;; If there is a comment immediately after aftertag, skip over it.
(when (looking-at (concat "\\s-*\n?\\s-*" semantic-lex-comment-regex))
(let ((pos (point))
(rnext (semantic-find-tag-by-overlay-next (point))))

2
lisp/cedet/srecode/mode.el
View file

@ -366,7 +366,7 @@ programming modes."
(define-key srecode-prefix-map oldkey nil)
)))
;; Update Keybings
;; Update Keybindings
(let ((oldbinding (lookup-key srecode-prefix-map binding)))
;; During development, allow overrides.

2
lisp/dframe.el
View file

@ -523,7 +523,7 @@ LOCATION can be one of 'random, 'left-right, or 'top-bottom."
(funcall f 'default frame)))))
(defun dframe-detach (frame-var cache-var buffer-var)
"Detatch the frame in symbol FRAME-VAR.
"Detach the frame in symbol FRAME-VAR.
CACHE-VAR and BUFFER-VAR are symbols as in `dframe-frame-mode'"
(with-current-buffer (symbol-value buffer-var)
(rename-buffer (buffer-name) t)

31
lisp/electric.el
View file

@ -197,7 +197,11 @@ Returns nil when we can't find this char."
;; value, which only works well if the variable is preloaded.
;;;###autoload
(defvar electric-indent-chars '(?\n)
"Characters that should cause automatic reindentation.")
"Characters that should cause automatic reindentation.
Each entry of the list can be either a character or a cons of the
form (CHAR . PREDICATE) which means that CHAR should cause reindentation
only if PREDICATE returns non-nil. PREDICATE is called with no arguments
and with point before the inserted char.")
(defun electric-indent-post-self-insert-function ()
;; FIXME: This reindents the current line, but what we really want instead is
@ -208,7 +212,12 @@ Returns nil when we can't find this char."
;; There might be a way to get it working by analyzing buffer-undo-list, but
;; it looks challenging.
(let (pos)
(when (and (memq last-command-event electric-indent-chars)
(when (and (or (memq last-command-event electric-indent-chars)
(let ((cp (assq last-command-event electric-indent-chars)))
(and cp (setq pos (electric--after-char-pos))
(save-excursion
(goto-char (1- pos))
(funcall (cdr cp))))))
;; Don't reindent while inserting spaces at beginning of line.
(or (not (memq last-command-event '(?\s ?\t)))
(save-excursion (skip-chars-backward " \t") (not (bolp))))
@ -253,19 +262,13 @@ in `electric-indent-chars'."
:group 'electricity
(if electric-indent-mode
(add-hook 'post-self-insert-hook
#'electric-indent-post-self-insert-function)
#'electric-indent-post-self-insert-function
;; post-self-insert-hooks interact in non-trivial ways.
;; It turns out that electric-indent-mode generally works
;; better last.
'append)
(remove-hook 'post-self-insert-hook
#'electric-indent-post-self-insert-function))
;; FIXME: electric-indent-mode and electric-layout-mode interact
;; in non-trivial ways. It turns out that electric-indent-mode works
;; better if it is run *after* electric-layout-mode's hook.
(when (memq #'electric-layout-post-self-insert-function
(memq #'electric-indent-post-self-insert-function
(default-value 'post-self-insert-hook)))
(remove-hook 'post-self-insert-hook
#'electric-layout-post-self-insert-function)
(add-hook 'post-self-insert-hook
#'electric-layout-post-self-insert-function)))
#'electric-indent-post-self-insert-function)))
;; Electric pairing.

2
lisp/emacs-lisp/eieio-opt.el
View file

@ -92,7 +92,7 @@ Optional HEADERFCN should be called to insert a few bits of info first."
(princ "Class ")
(prin1 class)
(terpri)
;; Inheritence tree information
;; Inheritance tree information
(let ((pl (class-parents class)))
(when pl
(princ " Inherits from ")

2
lisp/emacs-lisp/eieio.el
View file

@ -1,5 +1,5 @@
;;; eieio.el --- Enhanced Implementation of Emacs Interpreted Objects
;;; or maybe Eric's Implementation of Emacs Intrepreted Objects
;;; or maybe Eric's Implementation of Emacs Interpreted Objects
;; Copyright (C) 1995-1996, 1998-2011 Free Software Foundation, Inc.

2
lisp/emulation/viper-cmd.el
View file

@ -1599,7 +1599,7 @@ as a Meta key and any number of multiple escapes are allowed."
;; call viper-execute-com to execute viper-exec-change, which eventually will
;; call viper-change to invoke the replace mode on the region.
;;
;; The var viper-d-com is set to (M-COM VAL COM REG INSETED-TEXT COMMAND-KEYS)
;; The var viper-d-com is set to (M-COM VAL COM REG INSERTED-TEXT COMMAND-KEYS)
;; via a call to viper-set-destructive-command, for later use by viper-repeat.
(defun viper-execute-com (m-com val com)
(let ((reg viper-use-register))

3
lisp/erc/erc-backend.el
View file

@ -79,7 +79,7 @@
;;; TODO:
;; o Generalise the display-line code so that we can use it to
;; o Generalize the display-line code so that we can use it to
;; display the stuff we send, as well as the stuff we receive.
;; Then, move all display-related code into another backend-like
;; file, erc-display.el, say.
@ -2000,4 +2000,3 @@ See `erc-display-error-notice'." nil
;; Local Variables:
;; indent-tabs-mode: nil
;; End:

2
lisp/eshell/esh-var.el
View file

@ -344,7 +344,7 @@ This function is explicit for adding to `eshell-parse-argument-hook'."
(pcomplete-here))))
(defun eshell/env (&rest args)
"Implemention of `env' in Lisp."
"Implementation of `env' in Lisp."
(eshell-init-print-buffer)
(eshell-eval-using-options
"env" args

4
lisp/ezimage.el
View file

@ -257,9 +257,9 @@ Optional argument STRING is a string upon which to add text properties."
(a (assoc bt ezimage-expand-image-button-alist)))
;; Regular images (created with `insert-image' are intangible
;; which (I suppose) make them more compatible with XEmacs 21.
;; Unfortunatly, there is a giant pile o code dependent on the
;; Unfortunately, there is a giant pile of code dependent on the
;; underlying text. This means if we leave it tangible, then I
;; don't have to change said giant piles o code.
;; don't have to change said giant piles of code.
(if (and a (symbol-value (cdr a)))
(ezimage-insert-over-text (symbol-value (cdr a))
start

2
lisp/font-lock.el
View file

@ -1742,7 +1742,7 @@ If SYNTACTIC-KEYWORDS is non-nil, it means these keywords are used for
keyword)))
(defun font-lock-eval-keywords (keywords)
"Evalulate KEYWORDS if a function (funcall) or variable (eval) name."
"Evaluate KEYWORDS if a function (funcall) or variable (eval) name."
(if (listp keywords)
keywords
(font-lock-eval-keywords (if (fboundp keywords)

2
lisp/gnus/gnus-sum.el
View file

@ -4727,7 +4727,7 @@ If LINE, insert the rebuilt thread starting on line LINE."
(car headers))))
(defun gnus-parent-headers (in-headers &optional generation)
"Return the headers of the GENERATIONeth parent of HEADERS."
"Return the headers of the GENERATIONth parent of HEADERS."
(unless generation
(setq generation 1))
(let ((parent t)

4
lisp/htmlfontify.el
View file

@ -432,8 +432,8 @@ and so on."
(const :tag "Lucid Toolkit" lucid )
(const :tag "Motif Toolkit" motif )))
(class (choice (const :tag "Colour" color )
(const :tag "Greyscale" grayscale)))
(class (choice (const :tag "Color" color )
(const :tag "Grayscale" grayscale)))
(background (choice (const :tag "Dark" dark )
(const :tag "Bright" light ))) ))

12
lisp/international/quail.el
View file

@ -43,7 +43,7 @@
;; CONVERSION-KEYS argument of the Quail package.
;; [There was an input method for Mule 2.3 called `Tamago' from the
;; Japanese `TAkusan MAtasete GOmenasai', or `Sorry for having you
;; Japanese `TAkusan MAtasete GOmen-nasai', or `Sorry for having you
;; wait so long'; this couldn't be included in Emacs 20. `Tamago' is
;; Japanese for `egg' (implicitly a hen's egg). Handa-san made a
;; smaller and simpler system; the smaller quail egg is also eaten in
@ -1377,7 +1377,7 @@ Return the input string."
(set-buffer-modified-p modified-p)
(quail-show-guidance)
(let* ((prompt (if input-method-use-echo-area
(format "%s%s %s"
(format "%s%s %s"
(or input-method-previous-message "")
quail-current-str
quail-guidance-str)))
@ -1443,7 +1443,7 @@ Return the input string."
(quail-setup-overlays nil)))
(quail-show-guidance)
(let* ((prompt (if input-method-use-echo-area
(format "%s%s%s %s"
(format "%s%s%s %s"
(or input-method-previous-message "")
quail-conversion-str
quail-current-str
@ -2125,7 +2125,7 @@ minibuffer and the selected frame has no other windows)."
(- quail-guidance-translations-starting-column
7 (string-width str))
32))))
(setq str (format "%s(%02d/%s)"
(setq str (format "%s(%02d/%s)"
str (nth 3 indices)
(if (nth 4 indices)
(format "%02d" (nth 4 indices))
@ -2135,7 +2135,7 @@ minibuffer and the selected frame has no other windows)."
(trans (aref (cdr quail-current-translations) idx)))
(or (stringp trans)
(setq trans (string trans)))
(setq str (format "%s %d.%s"
(setq str (format "%s %d.%s"
str
(if (= (- idx start) 9) 0
(1+ (- idx start)))
@ -2787,7 +2787,7 @@ If CHAR is an ASCII character and can be input by typing itself, return t."
(cdr decode-map)))
(let ((key-head (aref decode-map char)))
(if (stringp key-head)
(setq key-list (quail-find-key1
(setq key-list (quail-find-key1
(quail-lookup-key key-head nil t)
key-head char nil))
(mapc #'(lambda (elt)

2
lisp/international/robin.el
View file

@ -229,7 +229,7 @@
;; As stated in Murphy's law, it took longer than expected to develop the
;; very first version of Japanese input subsystem in NEmacs (Nihongo
;; Emacs). So the subsystem was named "TAMAGO", which is an acronym of
;; "TAkusan Matasete GOmennasai" (Sorry to have kept you waiting so
;; "TAkusan Matasete GOmen-nasai" (Sorry to have kept you waiting so
;; long). "Tamago" as a Japanese word means "egg", so the word "egg" was
;; also used for related filenames and function names.

2
lisp/mail/rmail.el
View file

@ -2602,6 +2602,8 @@ Ask the user whether to add that list name to `mail-mailing-lists'."
"Return nil if there is mail, else \"No mail.\"."
(if (zerop rmail-total-messages)
(save-excursion
;; Eg we deleted all the messages, so remove the old N/M mark.
(with-current-buffer rmail-buffer (setq mode-line-process nil))
(with-current-buffer rmail-view-buffer
(erase-buffer)
"No mail."))))

21
lisp/mail/rmailsum.el
View file

@ -269,7 +269,8 @@ Setting this option to nil might speed up the generation of summaries."
"Display a summary of all messages, one line per message."
(interactive)
(rmail-new-summary "All" '(rmail-summary) nil)
(unless (get-buffer-window rmail-buffer)
(unless (or (zerop (buffer-size)) ; empty summary
(get-buffer-window rmail-buffer))
(rmail-summary-beginning-of-message)))
;;;###autoload
@ -404,13 +405,13 @@ nil for FUNCTION means all messages."
(message "Computing summary lines...")
(unless rmail-buffer
(error "No RMAIL buffer found"))
(let (mesg was-in-summary)
(let (mesg was-in-summary sumbuf)
(if (eq major-mode 'rmail-summary-mode)
(setq was-in-summary t))
(with-current-buffer rmail-buffer
(if (zerop (setq mesg rmail-current-message))
(error "No messages to summarize"))
(setq rmail-summary-buffer (rmail-new-summary-1 desc redo func args)))
(setq rmail-summary-buffer (rmail-new-summary-1 desc redo func args)
;; r-s-b is buffer-local.
sumbuf rmail-summary-buffer))
;; Now display the summary buffer and go to the right place in it.
(unless was-in-summary
(if (and (one-window-p)
@ -420,13 +421,12 @@ nil for FUNCTION means all messages."
(progn
(split-window (selected-window) rmail-summary-window-size)
(select-window (next-window (frame-first-window)))
(rmail-pop-to-buffer rmail-summary-buffer)
(rmail-pop-to-buffer sumbuf)
;; If pop-to-buffer did not use that window, delete that
;; window. (This can happen if it uses another frame.)
(if (not (eq rmail-summary-buffer
(window-buffer (frame-first-window))))
(if (not (eq sumbuf (window-buffer (frame-first-window))))
(delete-other-windows)))
(rmail-pop-to-buffer rmail-summary-buffer))
(rmail-pop-to-buffer sumbuf))
(set-buffer rmail-buffer)
;; This is how rmail makes the summary buffer reappear.
;; We do this here to make the window the proper size.
@ -490,9 +490,6 @@ message."
;; Temporarily, while summary buffer is unfinished,
;; we "don't have" a summary.
(setq rmail-summary-buffer nil)
(unless summary-msgs
(kill-buffer sumbuf)
(error "Nothing to summarize"))
;; I have not a clue what this clause is doing. If you read this
;; chunk of code and have a clue, then please email that clue to
;; pmr@pajato.com

2
lisp/mh-e/mh-e.el
View file

@ -2447,7 +2447,7 @@ of citations entirely, choose \"None\"."
"Followup-To:" ; RFC 1036
"For-Approval:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
"For-Comment:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
"For-Handdling:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
"For-Handling:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
"Forwarded:" ; MH
"From " ; sendmail
"Generate-Delivery-Report:" ; RFC 2156

2
lisp/net/dbus.el
View file

@ -145,7 +145,7 @@ association to the service from D-Bus."
(service (car value))
(entry (gethash key dbus-registered-objects-table))
ret)
;; key has the structure (BUS INTERRFACE MEMBER).
;; key has the structure (BUS INTERFACE MEMBER).
;; value has the structure (SERVICE PATH [HANDLER]).
;; entry has the structure ((UNAME SERVICE PATH MEMBER [RULE]) ...).
;; MEMBER is either a string (the handler), or a cons cell (a

2
lisp/net/soap-client.el
View file

@ -32,7 +32,7 @@
;; `soap-invoke' method passing it the WSDL, the service name, the operation
;; you wish to invoke and any required parameters.
;;
;; Idealy, the service you want to access will have some documentation about
;; Ideally, the service you want to access will have some documentation about
;; the operations it supports. If it does not, you can try using
;; `soap-inspect' to browse the WSDL document and see the available operations
;; and their parameters.

2
lisp/net/webjump.el
View file

@ -235,7 +235,7 @@
"www.faqs.org/faqs/")
("RTFM Usenet FAQs by Group" .
"ftp://rtfm.mit.edu/pub/usenet-by-group/")
("RTFM Usenet FAQs by Hierachy" .
("RTFM Usenet FAQs by Hierarchy" .
"ftp://rtfm.mit.edu/pub/usenet-by-hierarchy/")
("X Consortium Archive" . "ftp.x.org")

34
lisp/org/ChangeLog
View file

@ -1,3 +1,7 @@
2011-11-11 Juanma Barranquero <lekktu@gmail.com>
* org-plot.el (org-plot/gnuplot-to-grid-data): Fix typo in docstring.
2011-09-27 Eli Zaretskii <eliz@gnu.org>
* org.el (org-mode): Force left-to-right paragraphs in Org
@ -1965,7 +1969,7 @@
2011-07-28 Carsten Dominik <carsten.dominik@gmail.com>
* org-latex.el (org-export-latex-preprocess): Protect index string
* org-latex.el (org-export-latex-preprocess): Protect index string.
2011-07-28 Carsten Dominik <carsten.dominik@gmail.com>
@ -2119,11 +2123,11 @@
(org-bibtex-headline): Make use of new
`org-bibtex-export-arbitrary-fields' and `org-bibtex-key-property'
variables.
(org-bibtex-autokey): Make use of new `org-bibtex-key-property'
(org-bibtex-autokey): Make use of new `org-bibtex-key-property'
variable.
(org-bibtex-fleshout): Make use of new `org-bibtex-key-property'
(org-bibtex-fleshout): Make use of new `org-bibtex-key-property'
variable.
(org-bibtex-write): Make use of new `org-bibtex-key-property'
(org-bibtex-write): Make use of new `org-bibtex-key-property'
variable.
2011-07-28 Eric Schulte <schulte.eric@gmail.com>
@ -2247,7 +2251,7 @@
2011-07-28 Manuel Giraud <manuel.giraud@univ-nantes.fr>
* org-html.el (org-html-handle-links): Add an alternate for inline
images
images.
2011-07-28 Carsten Dominik <carsten.dominik@gmail.com>
@ -2293,7 +2297,7 @@
* ob-python.el (org-babel-python-evaluate-external-process): Allow
parsing as a table in the case of ":results output table".
(org-babel-python-evaluate-session): Allow parsing as a table in
(org-babel-python-evaluate-session): Allow parsing as a table in
the case of ":results output table".
2011-07-28 Carsten Dominik <carsten.dominik@gmail.com>
@ -2343,7 +2347,7 @@
* org.el (org-set-font-lock-defaults): Be more strict when
recognizing description items, and do not fontify wrong cases
like: "- term ::description" or "1. term :: description"
like: "- term ::description" or "1. term :: description".
2011-07-28 Nicolas Goaziou <n.goaziou@gmail.com>
@ -2894,12 +2898,12 @@
2011-07-28 Bernt Hansen <bernt@norang.ca>
* org-clock.el (org-clock-in): Allow clocking in new tasks
inserted before the current clocking task
inserted before the current clocking task.
2011-07-28 Bernt Hansen <bernt@norang.ca>
* org-clock.el (org-clock-in): Set default clocking task when
already clocking the task
already clocking the task.
2011-07-28 Nicolas Goaziou <n.goaziou@gmail.com>
@ -3045,7 +3049,7 @@
2011-07-28 Bastien Guerry <bzg@gnu.org>
* org.el (org-refile-get-targets): Rename from
`org-get-refile-targets.'
`org-get-refile-targets'.
2011-07-28 Bastien Guerry <bzg@gnu.org>
@ -3727,7 +3731,7 @@
(org-in-item-p,org-list-struct,org-list-parse-list): Apply change.
* org-exp.el (org-export-mark-list-end)
(org-export-mark-list-properties): Apply change
(org-export-mark-list-properties): Apply change.
* org-latex.el (org-export-latex-lists): Apply change. Also
prevent items with org-example property to be considered as real
@ -4774,7 +4778,7 @@
* ob-tangle.el (org-babel-spec-to-string): Adding "noweb" as a
linking comment type
(org-babel-tangle-comment-links): Returns comment links for the
source code block at point
source code block at point.
2011-07-28 Bastien Guerry <bzg@gnu.org>
@ -4855,7 +4859,7 @@
* org-capture.el (org-capture-templates): Add %f and %F escapes
(org-capture): Add more information to capture property list
(org-capture-fill-template): Handle %f and %F escapes
(org-capture-fill-template): Handle %f and %F escapes.
2011-07-28 David Maus <dmaus@ictsoc.de>
@ -5003,7 +5007,7 @@
output file.
* ob-sass.el (org-babel-execute:sass): Return nil if result has
been written to file
been written to file.
2011-07-28 Dan Davison <dandavison7@gmail.com>
@ -16833,7 +16837,7 @@
* org-agenda.el (org-format-agenda-item)
(org-agenda-filter-make-matcher): Make sure tags are stored and
compared donwcased.
compared downcased.
2008-10-26 Carsten Dominik <dominik@science.uva.nl>

4
lisp/org/org-list.el
View file

@ -70,12 +70,12 @@
;; (a few thousand lines long). Thus, code should follow the rule :
;; "collect once, use many". As a corollary, it is usally a bad idea
;; to use directly an interactive function inside the code, as those,
;; being independant entities, read the whole list structure another
;; being independent entities, read the whole list structure another
;; time.
;;; Code:
(eval-when-compile
(eval-when-compile
(require 'cl))
(require 'org-macs)
(require 'org-compat)

2
lisp/org/org-plot.el
View file

@ -136,7 +136,7 @@ Pass PARAMS through to `orgtbl-to-generic' when exporting TABLE."
"Export the data in TABLE to DATA-FILE for gnuplot.
This means in a format appropriate for grid plotting by gnuplot.
PARAMS specifies which columns of TABLE should be plotted as independent
and dependant variables."
and dependent variables."
(interactive)
(let* ((ind (- (plist-get params :ind) 1))
(deps (if (plist-member params :deps)

2
lisp/progmodes/cc-fonts.el
View file

@ -317,7 +317,7 @@
(match-beginning ,(car highlight))
(match-end ,(car highlight))
,(elt highlight 1))))
;; highlight is an "ANCHORED HIGHLIGHER" of the form
;; highlight is an "ANCHORED HIGHLIGHTER" of the form
;; (ANCHORED-MATCHER PRE-FORM POST-FORM SUBEXP-HIGHLIGHTERS...)
(when (nth 3 highlight)
(error "Match highlights currently not supported in %s"

2
lisp/progmodes/ebnf2ps.el
View file

@ -4007,7 +4007,7 @@ See documentation for `ebnf-terminal-shape', `ebnf-non-terminal-shape' and
/#ebnf2ps#dict 230 dict def
#ebnf2ps#dict begin
% Initiliaze variables to avoid name-conflicting with document variables.
% Initialize variables to avoid name-conflicting with document variables.
% This is the case when using `bind' operator.
/-fillp- 0 def /h 0 def
/-ox- 0 def /half 0 def

16
lisp/progmodes/executable.el
View file

@ -268,12 +268,16 @@ file modes."
(save-restriction
(widen)
(string= "#!" (buffer-substring (point-min) (+ 2 (point-min)))))
(let* ((current-mode (file-modes (buffer-file-name)))
(add-mode (logand ?\111 (default-file-modes))))
(or (/= (logand ?\111 current-mode) 0)
(zerop add-mode)
(set-file-modes (buffer-file-name)
(logior current-mode add-mode))))))
(condition-case nil
(let* ((current-mode (file-modes (buffer-file-name)))
(add-mode (logand ?\111 (default-file-modes))))
(or (/= (logand ?\111 current-mode) 0)
(zerop add-mode)
(set-file-modes (buffer-file-name)
(logior current-mode add-mode))))
;; Eg file-modes can return nil (bug#9879). It should not,
;; in this context, but we should handle it all the same.
(error (message "Unable to make file executable")))))
(provide 'executable)

2
lisp/progmodes/gud.el
View file

@ -2016,7 +2016,7 @@ extension EXTN. Normally EXTN is given as the regular expression
((looking-at "final")
(forward-char 5))
;; Move point past a ClassDeclaraction, but save the class
;; Move point past a ClassDeclaration, but save the class
;; Identifier.
((looking-at "class")
(forward-char 5)

4
lisp/progmodes/idlw-shell.el
View file

@ -959,7 +959,7 @@ IDL has currently stepped.")
;; Can not use history expansion because "!" is used for system variables.
(setq comint-input-autoexpand nil)
;; (setq comint-input-ring-size 64)
(set (make-local-variable 'completion-ignore-case) t)
(set (make-local-variable 'comint-completion-addsuffix) '("/" . ""))
(setq comint-input-ignoredups t)
@ -3707,7 +3707,7 @@ Existing overlays are recycled, in order to minimize consumption."
(defun idlwave-shell-make-new-bp-overlay (&optional type disabled)
"Make a new overlay for highlighting breakpoints.
This stuff is strongly dependant upon the version of Emacs. If TYPE
This stuff is strongly dependent upon the version of Emacs. If TYPE
is passed, make an overlay of that type ('bp or 'bp-cond, currently
only for glyphs)."
(let ((ov (make-overlay 1 1))

2
lisp/progmodes/idlwave.el
View file

@ -8961,7 +8961,7 @@ This expects NAME TYPE IDLWAVE-TWIN-CLASS to be bound to the right values."
(nth 1 source)))
(defun idlwave-downcase-safe (string)
"Donwcase if string, else return unchanged."
"Downcase if string, else return unchanged."
(if (stringp string)
(downcase string)
string))

2
lisp/progmodes/modula2.el
View file

@ -466,7 +466,7 @@ followed by the first character of the construct.
'(m2-var) \n _ \n \n
'(m2-begin)
'(m2-begin-comment)
" Module " str " Initialisation Code "
" Module " str " Initialization Code "
'(m2-end-comment)
\n \n "END " str "." > \n)

2
lisp/progmodes/pascal.el
View file

@ -227,7 +227,7 @@ will do all lineups."
:type '(set :extra-offset 8
(const :tag "Everything" all)
(const :tag "Parameter lists" paramlist)
(const :tag "Decalrations" declaration)
(const :tag "Declarations" declaration)
(const :tag "Case statements" case))
:group 'pascal)

2
lisp/progmodes/ps-mode.el
View file

@ -624,7 +624,7 @@ Typing \\<ps-run-mode-map>\\[ps-run-goto-error] when the cursor is at the number
(defun ps-mode-target-column ()
"To what column should text on current line be indented?
Identation is increased if the last token on the current line
Indentation is increased if the last token on the current line
defines the beginning of a group. These tokens are: { [ <<"
(save-excursion
(beginning-of-line)

2
lisp/ses.el
View file

@ -43,7 +43,7 @@
;; working fine in most cases, however failed in some cases of several path
;; racing together.
;;
;; The current algorithm is based on Dijksta algorithm. The ``cycle length'' is
;; The current algorithm is based on Dijkstra's algorithm. The cycle length is
;; stored in some cell property. In order not to reset in all cells such
;; property at each update, the cycle length is stored in this property along
;; with some update attempt id that is incremented at each update. The current

43
lisp/subr.el
View file

@ -1797,30 +1797,29 @@ This function makes or adds to an entry on `after-load-alist'."
(push elt after-load-alist))
;; Make sure `form' is evalled in the current lexical/dynamic code.
(setq form `(funcall ',(eval `(lambda () ,form) lexical-binding)))
(when (symbolp regexp-or-feature)
;; For features, the after-load-alist elements get run when `provide' is
;; called rather than at the end of the file. So add an indirection to
;; make sure that `form' is really run "after-load" in case the provide
;; call happens early.
(setq form
`(when load-file-name
(let ((fun (make-symbol "eval-after-load-helper")))
(fset fun `(lambda (file)
(if (not (equal file ',load-file-name))
nil
(remove-hook 'after-load-functions ',fun)
,',form)))
(add-hook 'after-load-functions fun)))))
;; Add FORM to the element unless it's already there.
(unless (member form (cdr elt))
(nconc elt (purecopy (list form))))
;; Is there an already loaded file whose name (or `provide' name)
;; matches FILE?
(if (if (stringp file)
(load-history-filename-element regexp-or-feature)
(featurep file))
(eval form))))
(prog1 (if (if (stringp file)
(load-history-filename-element regexp-or-feature)
(featurep file))
(eval form))
(when (symbolp regexp-or-feature)
;; For features, the after-load-alist elements get run when `provide' is
;; called rather than at the end of the file. So add an indirection to
;; make sure that `form' is really run "after-load" in case the provide
;; call happens early.
(setq form
`(when load-file-name
(let ((fun (make-symbol "eval-after-load-helper")))
(fset fun `(lambda (file)
(if (not (equal file ',load-file-name))
nil
(remove-hook 'after-load-functions ',fun)
,',form)))
(add-hook 'after-load-functions fun)))))
;; Add FORM to the element unless it's already there.
(unless (member form (cdr elt))
(nconc elt (purecopy (list form)))))))
(defvar after-load-functions nil
"Special hook run after loading a file.

2
lisp/term.el
View file

@ -4249,7 +4249,7 @@ special identifiers such as COM1."
"History of serial ports used by `serial-read-name'.")
(defvar serial-speed-history
;; Initialised with reasonable values for newbies.
;; Initialized with reasonable values for newbies.
(list "9600" ;; Given twice because 9600 b/s is the most common speed
"1200" "2400" "4800" "9600" "14400" "19200"
"28800" "38400" "57600" "115200")

2
lisp/textmodes/conf-mode.el
View file

@ -417,7 +417,7 @@ See also `conf-space-mode', `conf-colon-mode', `conf-javaprop-mode',
(run-mode-hooks 'conf-mode-hook)))
(defun conf-mode-initialize (comment &optional font-lock)
"Intitializations for sub-modes of conf-mode.
"Initializations for sub-modes of conf-mode.
COMMENT initializes `comment-start' and `comment-start-skip'.
The optional arg FONT-LOCK is the value for FONT-LOCK-KEYWORDS."
(set (make-local-variable 'comment-start) comment)

2
lisp/textmodes/ispell.el
View file

@ -2783,7 +2783,7 @@ By just answering RET you can find out what the current dictionary is."
(mapcar 'list (ispell-valid-dictionary-list)))
nil t)
current-prefix-arg))
(ispell-set-spellchecker-params) ; Initilize variables and dicts alists
(ispell-set-spellchecker-params) ; Initialize variables and dicts alists
(unless arg (ispell-buffer-local-dict 'no-reload))
(if (equal dict "default") (setq dict nil))
;; This relies on completing-read's bug of returning "" for no match

4
lisp/textmodes/sgml-mode.el
View file

@ -1872,7 +1872,7 @@ This takes effect when first loading the library.")
("dir" . "Directory list (obsolete)")
("div" . "Generic block-level container")
("dl" . "Definition list")
("dt" . "Term to be definined")
("dt" . "Term to be defined")
("em" . "Emphasized")
("embed" . "Embedded data in foreign format")
("fig" . "Figure")
@ -1897,7 +1897,7 @@ This takes effect when first loading the library.")
("input" . "Form input field")
("ins" . "Inserted text")
("isindex" . "Input field for index search")
("kbd" . "Keybard example face")
("kbd" . "Keyboard example face")
("lang" . "Natural language")
("li" . "List item")
("link" . "Link relationship")

117
lisp/window.el
View file

@ -292,28 +292,6 @@ is unpredictable."
(setq window (window-normalize-window window))
(walk-window-tree-1 proc window any t))
(defun windows-with-parameter (parameter &optional value frame any values)
"Return a list of all windows on FRAME with PARAMETER non-nil.
FRAME defaults to the selected frame. Optional argument VALUE
non-nil means only return windows whose window-parameter value of
PARAMETER equals VALUE \(comparison is done using `equal').
Optional argument ANY non-nil means consider internal windows
too. Optional argument VALUES non-nil means return a list of cons
cells whose car is the value of the parameter and whose cdr is
the window."
(let (this-value windows)
(walk-window-tree
(lambda (window)
(when (and (setq this-value (window-parameter window parameter))
(or (not value) (or (equal value this-value))))
(setq windows
(if values
(cons (cons this-value window) windows)
(cons window windows)))))
frame any)
(nreverse windows)))
(defun window-with-parameter (parameter &optional value frame any)
"Return first window on FRAME with PARAMETER non-nil.
FRAME defaults to the selected frame. Optional argument VALUE
@ -353,8 +331,8 @@ WINDOW must be an internal window. Return WINDOW."
window t)
window))
(defun window-atom-check-1 (window)
"Subroutine of `window-atom-check'."
(defun window--atom-check-1 (window)
"Subroutine of `window--atom-check'."
(when window
(if (window-parameter window 'window-atom)
(let ((count 0))
@ -375,18 +353,18 @@ WINDOW must be an internal window. Return WINDOW."
window t)))
;; Check children.
(unless (window-buffer window)
(window-atom-check-1 (window-left-child window))
(window-atom-check-1 (window-top-child window))))
(window--atom-check-1 (window-left-child window))
(window--atom-check-1 (window-top-child window))))
;; Check right sibling
(window-atom-check-1 (window-right window))))
(window--atom-check-1 (window-right window))))
(defun window-atom-check (&optional frame)
(defun window--atom-check (&optional frame)
"Check atomicity of all windows on FRAME.
FRAME defaults to the selected frame. If an atomic window is
wrongly configured, reset the atomicity of all its windows on
FRAME to nil. An atomic window is wrongly configured if it has
no child windows or one of its child windows is not atomic."
(window-atom-check-1 (frame-root-window frame)))
(window--atom-check-1 (frame-root-window frame)))
;; Side windows.
(defvar window-sides '(left top right bottom)
@ -441,7 +419,7 @@ number of slots on that side."
(integer :tag "Number" :value 3 :size 5)))
:group 'windows)
(defun window-side-check (&optional frame)
(defun window--side-check (&optional frame)
"Check the window-side parameter of all windows on FRAME.
FRAME defaults to the selected frame. If the configuration is
invalid, reset all window-side parameters to nil.
@ -512,11 +490,11 @@ A valid configuration has to preserve the following invariant:
(set-window-parameter window 'window-side nil))
frame t))))
(defun window-check (&optional frame)
(defun window--check (&optional frame)
"Check atomic and side windows on FRAME.
FRAME defaults to the selected frame."
(window-side-check frame)
(window-atom-check frame))
(window--side-check frame)
(window--atom-check frame))
;;; Window sizes.
(defvar window-size-fixed nil
@ -530,7 +508,7 @@ unless it has no other choice \(like when deleting a neighboring
window).")
(make-variable-buffer-local 'window-size-fixed)
(defun window-size-ignore (window ignore)
(defun window--size-ignore (window ignore)
"Return non-nil if IGNORE says to ignore size restrictions for WINDOW."
(if (window-valid-p ignore) (eq window ignore) ignore))
@ -571,7 +549,7 @@ restrictions for that window only."
value)
(with-current-buffer (window-buffer window)
(cond
((and (not (window-size-ignore window ignore))
((and (not (window--size-ignore window ignore))
(window-size-fixed-p window horizontal))
;; The minimum size of a fixed size window is its size.
(window-total-size window horizontal))
@ -600,7 +578,7 @@ restrictions for that window only."
(ceiling (or (frame-parameter frame 'scroll-bar-width) 14)
(frame-char-width)))
(t 0)))
(if (and (not (window-size-ignore window ignore))
(if (and (not (window--size-ignore window ignore))
(numberp window-min-width))
window-min-width
0))))
@ -610,7 +588,7 @@ restrictions for that window only."
(max (+ window-safe-min-height
(if header-line-format 1 0)
(if mode-line-format 1 0))
(if (and (not (window-size-ignore window ignore))
(if (and (not (window--size-ignore window ignore))
(numberp window-min-height))
window-min-height
0))))))))
@ -647,7 +625,7 @@ restrictions for that window only."
(max (- (window-min-size window horizontal ignore)
(window-total-size window horizontal))
delta))
((window-size-ignore window ignore)
((window--size-ignore window ignore)
delta)
((> delta 0)
(if (window-size-fixed-p window horizontal)
@ -664,7 +642,7 @@ doc-string of `window-sizable'."
(>= (window-sizable window delta horizontal ignore) delta)
(<= (window-sizable window delta horizontal ignore) delta)))
(defun window-size-fixed-1 (window horizontal)
(defun window--size-fixed-1 (window horizontal)
"Internal function for `window-size-fixed-p'."
(let ((sub (window-child window)))
(catch 'fixed
@ -675,7 +653,7 @@ doc-string of `window-sizable'."
;; windows are fixed-size.
(progn
(while sub
(unless (window-size-fixed-1 sub horizontal)
(unless (window--size-fixed-1 sub horizontal)
;; We found a non-fixed-size child window, so
;; WINDOW's size is not fixed.
(throw 'fixed nil))
@ -686,7 +664,7 @@ doc-string of `window-sizable'."
;; An ortho-combination is fixed-size if at least one of its
;; child windows is fixed-size.
(while sub
(when (window-size-fixed-1 sub horizontal)
(when (window--size-fixed-1 sub horizontal)
;; We found a fixed-size child window, so WINDOW's size
;; is fixed.
(throw 'fixed t))
@ -706,7 +684,7 @@ non-nil if WINDOW's width is fixed.
If this function returns nil, this does not necessarily mean that
WINDOW can be resized in the desired direction. The function
`window-resizable' can tell that."
(window-size-fixed-1
(window--size-fixed-1
(window-normalize-window window) horizontal))
(defun window-min-delta-1 (window delta &optional horizontal ignore trail noup)
@ -728,7 +706,7 @@ WINDOW can be resized in the desired direction. The function
((eq sub window)
(setq skip (eq trail 'before)))
(skip)
((and (not (window-size-ignore window ignore))
((and (not (window--size-ignore window ignore))
(window-size-fixed-p sub horizontal)))
(t
;; We found a non-fixed-size child window.
@ -817,7 +795,7 @@ at least one other window can be enlarged appropriately."
;; child window is fixed-size.
(while sub
(when (and (not (eq sub window))
(not (window-size-ignore sub ignore))
(not (window--size-ignore sub ignore))
(window-size-fixed-p sub horizontal))
(throw 'fixed delta))
(setq sub (window-right sub))))
@ -856,7 +834,7 @@ Optional argument NODOWN non-nil means do not check whether
WINDOW itself \(and its child windows) can be enlarged; check
only whether other windows can be shrunk appropriately."
(setq window (window-normalize-window window))
(if (and (not (window-size-ignore window ignore))
(if (and (not (window--size-ignore window ignore))
(not nodown) (window-size-fixed-p window horizontal))
;; With IGNORE and NOWDON nil return zero if WINDOW has fixed
;; size.
@ -1106,7 +1084,7 @@ The default value nil is handled like `bottom'."
(= (nth edge (window-edges window))
(nth edge (window-edges (frame-root-window window))))))
(defun windows-at-side (&optional frame side)
(defun window-at-side-list (&optional frame side)
"Return list of all windows on SIDE of FRAME.
FRAME must be a live frame and defaults to the selected frame.
SIDE can be any of the symbols `left', `top', `right' or
@ -1120,7 +1098,7 @@ SIDE can be any of the symbols `left', `top', `right' or
frame)
(nreverse windows)))
(defun window-in-direction-2 (window posn &optional horizontal)
(defun window--in-direction-2 (window posn &optional horizontal)
"Support function for `window-in-direction'."
(if horizontal
(let ((top (window-top-line window)))
@ -1190,7 +1168,7 @@ IGNORE, when non-nil means a window can be returned even if its
;; W is to the left or right of WINDOW but does not
;; cover POSN.
(setq best-diff-2-new
(window-in-direction-2 w posn hor))
(window--in-direction-2 w posn hor))
(or (< best-diff-2-new best-diff-2)
(and (= best-diff-2-new best-diff-2)
(if (eq direction 'left)
@ -1215,7 +1193,7 @@ IGNORE, when non-nil means a window can be returned even if its
(and (eq direction 'below) (<= last w-top)))
;; W is above or below WINDOW but does not cover POSN.
(setq best-diff-2-new
(window-in-direction-2 w posn hor))
(window--in-direction-2 w posn hor))
(or (< best-diff-2-new best-diff-2)
(and (= best-diff-2-new best-diff-2)
(if (eq direction 'above)
@ -1504,12 +1482,12 @@ instead."
((window--resizable-p window delta horizontal ignore)
(window--resize-reset frame horizontal)
(window--resize-this-window window delta horizontal ignore t)
(if (and (not (window-splits window))
(if (and (not window-splits)
(window-combined-p window horizontal)
(setq sibling (or (window-right window) (window-left window)))
(window-sizable-p sibling (- delta) horizontal ignore))
;; If window-splits returns nil for WINDOW, WINDOW is part of
;; an iso-combination, and WINDOW's neighboring right or left
;; If window-splits is nil, WINDOW is part of an
;; iso-combination, and WINDOW's neighboring right or left
;; sibling can be resized as requested, resize that sibling.
(let ((normal-delta
(/ (float delta)
@ -1844,7 +1822,7 @@ preferably only resize windows adjacent to EDGE."
;; Make sure this sibling is left alone when
;; resizing its siblings.
(set-window-new-normal sub 'ignore))
((or (window-size-ignore sub ignore)
((or (window--size-ignore sub ignore)
(not (window-size-fixed-p sub horizontal)))
;; Set this-delta to t to signal that we found a sibling
;; of WINDOW whose size is not fixed.
@ -2176,9 +2154,9 @@ WINDOW can be any window and defaults to the selected window."
"Return non-nil if WINDOW is the root window of its frame."
(eq window (frame-root-window window)))
(defun window-tree-1 (window &optional next)
"Return window tree rooted at WINDOW.
Optional argument NEXT non-nil means include windows right
(defun window--subtree (window &optional next)
"Return window subtree rooted at WINDOW.
Optional argument NEXT non-nil means include WINDOW's right
siblings in the return value.
See the documentation of `window-tree' for a description of the
@ -2190,10 +2168,10 @@ return value."
(cond
((window-top-child window)
(cons t (cons (window-edges window)
(window-tree-1 (window-top-child window) t))))
(window--subtree (window-top-child window) t))))
((window-left-child window)
(cons nil (cons (window-edges window)
(window-tree-1 (window-left-child window) t))))
(window--subtree (window-left-child window) t))))
(t window))
list))
(setq window (when next (window-next-sibling window))))
@ -2215,7 +2193,7 @@ Each of the child windows may again be a window or a list
representing a window split, and so on. EDGES is a list \(LEFT
TOP RIGHT BOTTOM) as returned by `window-edges'."
(setq frame (window-normalize-frame frame))
(window-tree-1 (frame-root-window frame) t))
(window--subtree (frame-root-window frame) t))
(defun other-window (count &optional all-frames)
"Select another window in cyclic ordering of windows.
@ -2379,7 +2357,7 @@ non-side window, signal an error."
(function (window-parameter window 'delete-window))
(parent (window-parent window))
atom-root)
(window-check frame)
(window--check frame)
(catch 'done
;; Handle window parameters.
(cond
@ -2411,8 +2389,7 @@ non-side window, signal an error."
(sibling (or (window-left window) (window-right window))))
(window--resize-reset frame horizontal)
(cond
((and (not (window-splits window))
sibling (window-sizable-p sibling size))
((and (not window-splits) sibling (window-sizable-p sibling size))
;; Resize WINDOW's sibling.
(window--resize-this-window sibling size horizontal nil t)
(set-window-new-normal
@ -2433,7 +2410,7 @@ non-side window, signal an error."
;; not be selected, fix this here.
(other-window -1 frame))
(run-window-configuration-change-hook frame)
(window-check frame)
(window--check frame)
;; Always return nil.
nil))))
@ -2460,7 +2437,7 @@ window signal an error."
(function (window-parameter window 'delete-other-windows))
(window-side (window-parameter window 'window-side))
atom-root side-main)
(window-check frame)
(window--check frame)
(catch 'done
(cond
;; Ignore window parameters if `ignore-window-parameters' is t or
@ -2484,7 +2461,7 @@ window signal an error."
(unless (eq window side-main)
(delete-other-windows-internal window side-main)
(run-window-configuration-change-hook frame)
(window-check frame))
(window--check frame))
;; Always return nil.
nil)))
@ -3111,7 +3088,7 @@ frame. The selected window is not changed by this function."
(window-nest window-nest)
atom-root)
(window-check frame)
(window--check frame)
(catch 'done
(cond
;; Ignore window parameters if either `ignore-window-parameters'
@ -3265,7 +3242,7 @@ frame. The selected window is not changed by this function."
(set-window-parameter new 'window-side window-side))
(run-window-configuration-change-hook frame)
(window-check frame)
(window--check frame)
;; Always return the new window.
new)))))
@ -3607,7 +3584,6 @@ specific buffers."
(total-width . ,(window-total-size window t))
(normal-height . ,(window-normal-size window))
(normal-width . ,(window-normal-size window t))
(splits . ,(window-splits window))
(nest . ,(window-nest window))
,@(let (list)
(dolist (parameter (window-parameters window))
@ -3762,7 +3738,6 @@ value can be also stored on disk and read back in a new session."
(nest (cdr (assq 'nest item)))
(parameters (cdr (assq 'parameters item)))
(state (cdr (assq 'buffer item))))
(when splits (set-window-splits window splits))
(when nest (set-window-nest window nest))
;; Process parameters.
(when parameters
@ -3850,7 +3825,7 @@ windows can get as small as `window-safe-min-height' and
(cdr (assq 'total-width state)))))
(min-height (cdr (assq 'min-height head)))
(min-width (cdr (assq 'min-width head)))
window-splits selected)
selected)
(if (and (not totals)
(or (> min-height (window-total-size window))
(> min-width (window-total-size window t)))
@ -3885,7 +3860,7 @@ windows can get as small as `window-safe-min-height' and
(set-window-buffer window (current-buffer))
(window-state-put-1 state window nil totals)
(window-state-put-2 ignore))
(window-check frame))))
(window--check frame))))
(defun display-buffer-record-window (type window buffer)
"Record information for window used by `display-buffer'.

4
nt/ChangeLog
View file

@ -1,3 +1,7 @@
2011-11-13 Christoph Scholtes <cschol2112@googlemail.com>
* inc/stdint.h (UINT64_MAX, UINT32_MAX): Fix values.
2011-11-05 Christoph Scholtes <cschol2112@googlemail.com>
* inc/stdint.h (UINT64_MAX, UINT64_MIN, INT64_MIN, UINTMAX_MAX)

2
nt/README.W32
View file

@ -142,7 +142,7 @@ See the end of the file for license conditions.
the PNG support will not work, and you will have to download
newer versions.
JPEG: requires the Independant JPEG Group's libjpeg 6b or later,
JPEG: requires the Independent JPEG Group's libjpeg 6b or later,
which will be called jpeg62.dll, libjpeg.dll, jpeg-62.dll or jpeg.dll.
TIFF: requires libTIFF 3.0 or later, which will be called libtiff3.dll

4
nt/inc/stdint.h
View file

@ -29,7 +29,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
#ifdef _WIN64
typedef __int64 intptr_t;
#define UINT64_MAX 18446744073709551616
#define UINT64_MAX 18446744073709551615
#define UINT64_MIN 0
/* "i64" is the non-standard suffix used by MSVC for 64-bit constants. */
#define INT64_MAX 9223372036854775807i64
@ -42,7 +42,7 @@ typedef __int64 intptr_t;
#else
typedef int intptr_t;
typedef unsigned int uint32_t;
#define UINT32_MAX 4294967296
#define UINT32_MAX 4294967295
#define UINT32_MIN 0
#define INT32_MAX 2147483647
#define INT32_MIN (~INT32_MAX)

47
src/ChangeLog
View file

@ -1,4 +1,4 @@
2011-11-10 Paul Eggert <eggert@cs.ucla.edu>
2011-11-14 Paul Eggert <eggert@cs.ucla.edu>
Standardize on VIRT_ADDR_VARIES behavior; otherwise, valgrind
does not work on some platforms. Problem reported by Andreas Schwab in
@ -17,6 +17,51 @@
* m/ibms390.h, m/intel386.h, m/template.h, s/cygwin.h, s/hpux10-20.h:
Remove VIRT_ADDR_VARIES no longer needed.
2011-11-12 Eli Zaretskii <eliz@gnu.org>
* makefile.w32-in (HEAPSIZE): New variable, allows to build temacs
with user-defined heap size. Bump the default size of the temacs
heap to 27MB, to avoid memory warning when running temacs.
($(TEMACS)): Use HEAPSIZE instead of a hardcoded value.
* dispnew.c (scrolling_window): Fix incorrect indices in accessing
current_matrix and desired_matrix. (Bug#9990)
(verify_row_hash) [XASSERTS]: New function.
(adjust_glyph_matrix, row_equal_p): Use it in xassert to verify
that the hash value of glyph rows is correct.
2011-11-12 Martin Rudalics <rudalics@gmx.at>
* window.h (window): Remove splits slot.
* window.c (Fwindow_splits, Fset_window_splits): Remove.
(Fdelete_other_windows_internal, make_parent_window)
(make_window, Fsplit_window_internal, Fdelete_window_internal)
(Fset_window_configuration, save_window_save): Don't deal with
split status of windows.
(saved_window): Remove splits slot.
(Vwindow_splits): Rewrite doc-string.
2011-11-11 Jan Djärv <jan.h.d@swipnet.se>
* xfns.c (unwind_create_frame):
* nsfns.m (unwind_create_frame):
* w32fns.c (unwind_create_frame): Use Fmemq to check if frame is in
Vframe_list (Bug#9999).
2011-11-11 Dmitry Antipov <dmantipov@yandex.ru>
* xdisp.c (syms_of_xdisp): Remove duplicated definition of Qtext.
2011-11-11 Kenichi Handa <handa@m17n.org>
* callproc.c (Fcall_process): Set the member dst_multibyte of
process_coding.
2011-11-11 Johan Bockgård <bojohan@gnu.org>
* xdisp.c (fill_composite_glyph_string): Always set s->face, to
avoid a crash (bug#9496).
2011-11-09 Chong Yidong <cyd@gnu.org>
* window.c (Fwindow_inside_edges, Fwindow_inside_pixel_edges)

6
src/ChangeLog.11
View file

@ -7949,7 +7949,7 @@
2010-05-11 Karel Klíč <kklic@redhat.com>
* ftfont.c: Fix incorrect parentheses of #if condition for
definining M17N_FLT_USE_NEW_FEATURE.
defining M17N_FLT_USE_NEW_FEATURE.
2010-05-11 Glenn Morris <rgm@gnu.org>
@ -25474,7 +25474,7 @@
* term.c (terminal_encode_buffer): Make externally visible.
* makefile.w32-in: Add character.h dependancies.
* makefile.w32-in: Add character.h dependencies.
(character.o, chartab.o): New targets.
2008-02-01 Kenichi Handa <handa@m17n.org>
@ -29718,7 +29718,7 @@
* keyboard.c (restore_kboard_configuration): Only define when
MULTI_KBOARD defined.
* makefile.w32-in: Update dependancies from Makefile.in.
* makefile.w32-in: Update dependencies from Makefile.in.
(OBJ1): Add terminal.$(O)
* term.c (dissociate_if_controlling_tty) [WINDOWSNT]:

2
src/ChangeLog.3
View file

@ -13393,7 +13393,7 @@
* macros.c (Fstart_kbd_macro): Local cleanup.
* minibuf.c (read_minibuf): No more delcaration of
* minibuf.c (read_minibuf): No more declaration of
Frestore_screen_configuration.
* search.c (Fregexp_quote): Simplified.

8
src/ChangeLog.7
View file

@ -592,7 +592,7 @@
* coding.h (Qemacs_mule): Extern it.
* process.c (init_process): Initilize Vdefault_process_coding_system.
* process.c (init_process): Initialize Vdefault_process_coding_system.
1998-06-26 Kenichi Handa <handa@etl.go.jp>
@ -972,7 +972,7 @@
1998-06-01 Ken'ichi Handa <handa@melange.gnu.org>
* coding.c (detect_coding_mask): Initilize local variable C.
* coding.c (detect_coding_mask): Initialize local variable C.
1998-06-01 Richard Stallman <rms@gnu.org>
@ -6317,7 +6317,7 @@
(ENCODE_ISO_CHARACTER_DIMENSION2): Likewise.
(safe_terminal_coding): New variable.
(Fset_safe_terminal_coding_system_internal): New function.
(init_coding_once): Initilize safe_terminal_coding.
(init_coding_once): Initialize safe_terminal_coding.
(syms_of_coding): Declare set-safe-terminal-coding-system as a
Lisp function.
@ -7399,7 +7399,7 @@
1997-06-18 Kenichi Handa <handa@etl.go.jp>
* coding.c (detect_coding_iso2022): Initilize mask correctly.
* coding.c (detect_coding_iso2022): Initialize mask correctly.
* fns.c (concat): Pay attention to multibyte characters when
TARGET_TYPE is Lisp_String.

2
src/ChangeLog.8
View file

@ -13404,7 +13404,7 @@
1998-10-20 Jason Rumney <jasonr@altavista.net>
* makefile.nt (w32fns.c): Add x-list-font.c to dependancies.
* makefile.nt (w32fns.c): Add x-list-font.c to dependencies.
* w32faces.c: Update comments referring to obsolete structs.
(allocate_face, copy_face, face_eql, load_font)

2
src/ChangeLog.9
View file

@ -4617,7 +4617,7 @@
* lisp.h (detect_coding_system): Prototype adjusted.
* coding.c (ONE_MORE_BYTE_CHECK_MULTIBYTE): New macro.
(detect_coding_emacs_mule, detect_coding_iso2022,)
(detect_coding_emacs_mule, detect_coding_iso2022)
(detect_coding_sjis, detect_coding_big5, detect_coding_utf_8)
(detect_coding_utf_16, detect_coding_ccl): Make them static.
New argument MULTIBYTEP. Callers changed.

3
src/callproc.c
View file

@ -712,6 +712,7 @@ usage: (call-process PROGRAM &optional INFILE BUFFER DISPLAY &rest ARGS) */)
/* If BUFFER is nil, we must read process output once and then
discard it, so setup coding system but with nil. */
setup_coding_system (Qnil, &process_coding);
process_coding.dst_multibyte = 0;
}
else
{
@ -747,6 +748,8 @@ usage: (call-process PROGRAM &optional INFILE BUFFER DISPLAY &rest ARGS) */)
&& !NILP (val))
val = raw_text_coding_system (val);
setup_coding_system (val, &process_coding);
process_coding.dst_multibyte
= ! NILP (BVAR (current_buffer, enable_multibyte_characters));
}
process_coding.src_multibyte = 0;

31
src/dispnew.c
View file

@ -429,6 +429,25 @@ margin_glyphs_to_reserve (struct window *w, int total_glyphs, Lisp_Object margin
return n;
}
#if XASSERTS
/* Return non-zero if ROW's hash value is correct, zero if not. */
int
verify_row_hash (struct glyph_row *row)
{
int area, k;
unsigned row_hash = 0;
for (area = LEFT_MARGIN_AREA; area < LAST_AREA; ++area)
for (k = 0; k < row->used[area]; ++k)
row_hash = ((((row_hash << 4) + (row_hash >> 24)) & 0x0fffffff)
+ row->glyphs[area][k].u.val
+ row->glyphs[area][k].face_id
+ row->glyphs[area][k].padding_p
+ (row->glyphs[area][k].type << 2));
return row_hash == row->hash;
}
#endif
/* Adjust glyph matrix MATRIX on window W or on a frame to changed
window sizes.
@ -600,6 +619,7 @@ adjust_glyph_matrix (struct window *w, struct glyph_matrix *matrix, int x, int y
row->glyphs[LAST_AREA]
= row->glyphs[LEFT_MARGIN_AREA] + dim.width;
}
xassert (!row->enabled_p || verify_row_hash (row));
++row;
}
}
@ -1271,6 +1291,9 @@ line_draw_cost (struct glyph_matrix *matrix, int vpos)
static inline int
row_equal_p (struct glyph_row *a, struct glyph_row *b, int mouse_face_p)
{
xassert (verify_row_hash (a));
xassert (verify_row_hash (b));
if (a == b)
return 1;
else if (a->hash != b->hash)
@ -4334,10 +4357,10 @@ scrolling_window (struct window *w, int header_line_p)
j = last_old;
while (i - 1 > first_new
&& j - 1 > first_old
&& MATRIX_ROW (current_matrix, i - 1)->enabled_p
&& (MATRIX_ROW (current_matrix, i - 1)->y
== MATRIX_ROW (desired_matrix, j - 1)->y)
&& !MATRIX_ROW (desired_matrix, j - 1)->redraw_fringe_bitmaps_p
&& MATRIX_ROW (current_matrix, j - 1)->enabled_p
&& (MATRIX_ROW (current_matrix, j - 1)->y
== MATRIX_ROW (desired_matrix, i - 1)->y)
&& !MATRIX_ROW (desired_matrix, i - 1)->redraw_fringe_bitmaps_p
&& row_equal_p (MATRIX_ROW (desired_matrix, i - 1),
MATRIX_ROW (current_matrix, j - 1), 1))
--i, --j;

2
src/keyboard.c
View file

@ -8133,7 +8133,7 @@ parse_tool_bar_item (Lisp_Object key, Lisp_Object item)
Lisp_Object caption;
int i, have_label = 0;
/* Defininition looks like `(menu-item CAPTION BINDING PROPS...)'.
/* Definition looks like `(menu-item CAPTION BINDING PROPS...)'.
Rule out items that aren't lists, don't start with
`menu-item' or whose rest following `tool-bar-item' is not a
list. */

5
src/makefile.w32-in
View file

@ -24,6 +24,9 @@ ALL = emacs
# Set EMACSLOADPATH correctly (in case already defined in environment).
EMACSLOADPATH=$(CURDIR)/../lisp
# Size in MBs of the static heap in temacs.exe.
HEAPSIZE = 27
#
# HAVE_CONFIG_H is required by some generic gnu sources stuck into
# the emacs source tree.
@ -177,7 +180,7 @@ temacs: stamp_BLD $(TEMACS)
$(TEMACS): $(TLIB0) $(TLIB1) $(TLIB2) $(TLASTLIB) $(TOBJ) $(TRES) \
../nt/$(BLD)/addsection.exe $(GNULIB)
$(LINK) $(LINK_OUT)$(TEMACS_TMP) $(FULL_LINK_FLAGS) $(TOBJ) $(TRES) $(LIBS)
"$(THISDIR)/../nt/$(BLD)/addsection" "$(TEMACS_TMP)" "$(TEMACS)" EMHEAP 21
"$(THISDIR)/../nt/$(BLD)/addsection" "$(TEMACS_TMP)" "$(TEMACS)" EMHEAP $(HEAPSIZE)
# These omit firstfile.${O}, but there's no documentation in there
# anyways.

2
src/nsfns.m
View file

@ -1057,7 +1057,7 @@ Turn the input menu (an NSMenu) into a lisp list for tracking on lisp side
return Qnil;
/* If frame is ``official'', nothing to do. */
if (!CONSP (Vframe_list) || !EQ (XCAR (Vframe_list), frame))
if (NILP (Fmemq (frame, Vframe_list)))
{
#if GLYPH_DEBUG && XASSERTS
struct ns_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f);

2
src/s/hpux10-20.h
View file

@ -89,7 +89,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
#undef HAVE_RANDOM
/* Rainer Malzbender <rainer@displaytech.com> says definining
/* Rainer Malzbender <rainer@displaytech.com> says defining
HAVE_XRMSETDATABASE allows Emacs to compile on HP-UX 10.20 using GCC. */
#ifndef HAVE_XRMSETDATABASE
#define HAVE_XRMSETDATABASE

2
src/w32fns.c
View file

@ -3986,7 +3986,7 @@ unwind_create_frame (Lisp_Object frame)
struct frame *f = XFRAME (frame);
/* If frame is ``official'', nothing to do. */
if (!CONSP (Vframe_list) || !EQ (XCAR (Vframe_list), frame))
if (NILP (Fmemq (frame, Vframe_list)))
{
#if GLYPH_DEBUG
struct w32_display_info *dpyinfo = FRAME_W32_DISPLAY_INFO (f);

4
src/w32font.c
View file

@ -2221,7 +2221,7 @@ font_supported_scripts (FONTSIGNATURE * sig)
so don't need to mark them separately. */
/* 1: Latin-1 supplement, 2: Latin Extended A, 3: Latin Extended B. */
SUBRANGE (4, Qphonetic);
/* 5: Spacing and tone modifiers, 6: Combining Diacriticals. */
/* 5: Spacing and tone modifiers, 6: Combining Diacritical Marks. */
SUBRANGE (7, Qgreek);
SUBRANGE (8, Qcoptic);
SUBRANGE (9, Qcyrillic);
@ -2311,7 +2311,7 @@ font_supported_scripts (FONTSIGNATURE * sig)
/* 115: Saurashtra, 116: Kayah Li, 117: Rejang. */
SUBRANGE (118, Qcham);
/* 119: Ancient symbols, 120: Phaistos Disc. */
/* 121: Carian, Lycian, Lydian, 122: Dominos, Mah Jong tiles. */
/* 121: Carian, Lycian, Lydian, 122: Dominoes, Mahjong tiles. */
/* 123-127: Reserved. */
/* There isn't really a main symbol range, so include symbol if any

68
src/window.c
View file

@ -465,41 +465,6 @@ Return nil if WINDOW has no previous sibling. */)
return decode_any_window (window)->prev;
}
DEFUN ("window-splits", Fwindow_splits, Swindow_splits, 0, 1, 0,
doc: /* Return splits status for the window WINDOW.
If WINDOW is omitted or nil, it defaults to the selected window.
If the value returned by this function is nil and WINDOW is resized, the
corresponding space is preferably taken from (or given to) WINDOW's
right sibling. When WINDOW is deleted, its space is given to its left
sibling.
If the value returned by this function is non-nil, resizing and deleting
WINDOW may resize all windows in the same combination. */)
(Lisp_Object window)
{
return decode_any_window (window)->splits;
}
DEFUN ("set-window-splits", Fset_window_splits, Sset_window_splits, 2, 2, 0,
doc: /* Set splits status of window WINDOW to STATUS.
If WINDOW is omitted or nil, it defaults to the selected window.
If STATUS is nil and WINDOW is later resized, the corresponding space is
preferably taken from (or given to) WINDOW's right sibling. When WINDOW
is deleted, its space is given to its left sibling.
If STATUS is non-nil, resizing and deleting WINDOW may resize all
windows in the same combination. */)
(Lisp_Object window, Lisp_Object status)
{
register struct window *w = decode_any_window (window);
w->splits = status;
return w->splits;
}
DEFUN ("window-nest", Fwindow_nest, Swindow_nest, 0, 1, 0,
doc: /* Return nest status of window WINDOW.
If WINDOW is omitted or nil, it defaults to the selected window.
@ -2769,9 +2734,6 @@ window-start value is reasonable when this function is called. */)
replace_window (root, window, 1);
/* Reset WINDOW's splits status. */
w->splits = Qnil;
/* This must become SWINDOW anyway ....... */
if (!NILP (w->buffer) && !resize_failed)
{
@ -3286,7 +3248,6 @@ make_parent_window (Lisp_Object window, int horflag)
p->start = Qnil;
p->pointm = Qnil;
p->buffer = Qnil;
p->splits = Qnil;
p->nest = Qnil;
p->window_parameters = Qnil;
}
@ -3334,7 +3295,7 @@ make_window (void)
w->start_at_line_beg = w->display_table = w->dedicated = Qnil;
w->base_line_number = w->base_line_pos = w->region_showing = Qnil;
w->column_number_displayed = w->redisplay_end_trigger = Qnil;
w->splits = w->nest = w->window_parameters = Qnil;
w->nest = w->window_parameters = Qnil;
w->prev_buffers = w->next_buffers = Qnil;
/* Initialize non-Lisp data. */
w->desired_matrix = w->current_matrix = 0;
@ -3776,10 +3737,6 @@ set correctly. See the code of `split-window' for how this is done. */)
p = XWINDOW (o->parent);
/* Store value of `window-nest' in new parent's nest slot. */
p->nest = Vwindow_nest;
/* Have PARENT inherit splits slot value from OLD. */
p->splits = o->splits;
/* Store value of `window-splits' in OLD's splits slot. */
o->splits = Vwindow_splits;
/* These get applied below. */
p->new_total = horflag ? o->total_cols : o->total_lines;
p->new_normal = new_normal;
@ -3830,9 +3787,6 @@ set correctly. See the code of `split-window' for how this is done. */)
n->scroll_bar_width = r->scroll_bar_width;
n->vertical_scroll_bar_type = r->vertical_scroll_bar_type;
/* Store `window-splits' in NEW's splits slot. */
n->splits = Vwindow_splits;
/* Directly assign orthogonal coordinates and sizes. */
if (horflag)
{
@ -3972,7 +3926,6 @@ Signal an error when WINDOW is the only window on its frame. */)
PARENT (the nest slot is not inherited). */
s->normal_cols = p->normal_cols;
s->normal_lines = p->normal_lines;
s->splits = p->splits;
/* Mark PARENT as deleted. */
p->vchild = p->hchild = Qnil;
/* Try to merge SIBLING into its new parent. */
@ -5359,7 +5312,7 @@ struct saved_window
Lisp_Object left_margin_cols, right_margin_cols;
Lisp_Object left_fringe_width, right_fringe_width, fringes_outside_margins;
Lisp_Object scroll_bar_width, vertical_scroll_bar_type, dedicated;
Lisp_Object splits, nest, window_parameters;
Lisp_Object nest, window_parameters;
};
#define SAVED_WINDOW_N(swv,n) \
@ -5590,7 +5543,6 @@ the return value is nil. Otherwise the value is t. */)
w->scroll_bar_width = p->scroll_bar_width;
w->vertical_scroll_bar_type = p->vertical_scroll_bar_type;
w->dedicated = p->dedicated;
w->splits = p->splits;
w->nest = p->nest;
w->window_parameters = p->window_parameters;
XSETFASTINT (w->last_modified, 0);
@ -5869,7 +5821,6 @@ save_window_save (Lisp_Object window, struct Lisp_Vector *vector, int i)
p->scroll_bar_width = w->scroll_bar_width;
p->vertical_scroll_bar_type = w->vertical_scroll_bar_type;
p->dedicated = w->dedicated;
p->splits = w->splits;
p->nest = w->nest;
p->window_parameters = w->window_parameters;
if (!NILP (w->buffer))
@ -6333,7 +6284,7 @@ freeze_window_starts (struct frame *f, int freeze_p)
and the like.
This ignores a couple of things like the dedicatedness status of
window, splits, nest and the like. This might have to be fixed. */
window, nest and the like. This might have to be fixed. */
int
compare_window_configurations (Lisp_Object configuration1, Lisp_Object configuration2, int ignore_positions)
@ -6545,16 +6496,7 @@ variable is non-nil, splitting a window may resize all windows in the
same combination. This also allows to split a window that is otherwise
too small or of fixed size.
The value of this variable is also assigned to the split status of the
new window and, provided the old and new window form a new combination,
to the window that was split as well. The split status of a window can
be retrieved with the function `window-splits' and altered by the
function `set-window-splits'.
If the value of the variable `window-nest' is non-nil, the space for the
new window is exclusively taken from the window that shall be split, but
the split status of the window that is split as well as that of the new
window are still set to the value of this variable. */);
This variable takes no effect if `window-nest' is non-nil. */);
Vwindow_splits = Qnil;
DEFVAR_LISP ("window-nest", Vwindow_nest,
@ -6591,8 +6533,6 @@ function `window-nest' and altered by the function `set-window-nest'. */);
defsubr (&Swindow_left_child);
defsubr (&Swindow_next_sibling);
defsubr (&Swindow_prev_sibling);
defsubr (&Swindow_splits);
defsubr (&Sset_window_splits);
defsubr (&Swindow_nest);
defsubr (&Sset_window_nest);
defsubr (&Swindow_use_time);

4
src/window.h
View file

@ -258,10 +258,6 @@ struct window
must run the redisplay-end-trigger-hook. */
Lisp_Object redisplay_end_trigger;
/* Non-nil means deleting or resizing this window distributes
space among all windows in the same combination. */
Lisp_Object splits;
/* Non-nil means this window's child windows are never
(re-)combined. */
Lisp_Object nest;

7
src/xdisp.c
View file

@ -22121,6 +22121,12 @@ fill_composite_glyph_string (struct glyph_string *s, struct face *base_face,
}
s->cmp_to = i;
if (s->face == NULL)
{
s->face = base_face->ascii_face;
s->font = s->face->font;
}
/* All glyph strings for the same composition has the same width,
i.e. the width set for the first component of the composition. */
s->width = s->first_glyph->pixel_width;
@ -27968,7 +27974,6 @@ syms_of_xdisp (void)
DEFSYM (Qhollow, "hollow");
DEFSYM (Qhand, "hand");
DEFSYM (Qarrow, "arrow");
DEFSYM (Qtext, "text");
DEFSYM (Qinhibit_free_realized_faces, "inhibit-free-realized-faces");
list_of_error = Fcons (Fcons (intern_c_string ("error"),

2
src/xfaces.c
View file

@ -27,7 +27,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
1. Font family name.
2. Font foundary name.
2. Font foundry name.
3. Relative proportionate width, aka character set width or set
width (swidth), e.g. `semi-compressed'.

2
src/xfns.c
View file

@ -2929,7 +2929,7 @@ unwind_create_frame (Lisp_Object frame)
return Qnil;
/* If frame is ``official'', nothing to do. */
if (!CONSP (Vframe_list) || !EQ (XCAR (Vframe_list), frame))
if (NILP (Fmemq (frame, Vframe_list)))
{
#if GLYPH_DEBUG && XASSERTS
struct x_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f);