2011-04-09 Paul Eggert <eggert@cs.ucla.edu>

* lib/allocator.c: New file, automatically generated by gnulib.

ARFLAGS = cru

libgnu_a_AR = $(AR) $(ARFLAGS)

am__DEPENDENCIES_1 =

libgnu_a_OBJECTS = $(am_libgnu_a_OBJECTS)

depcomp = $(SHELL) $(top_srcdir)/depcomp

am__depfiles_maybe = depfiles

BUILT_SOURCES = arg-nonnull.h c++defs.h $(GETOPT_H) $(STDBOOL_H) \

$(STDDEF_H) $(STDINT_H) stdio.h stdlib.h sys/stat.h time.h \

unistd.h warn-on-use.h

mktime-internal.h mktime.c readlink.c stat.c stdbool.in.h \

stddef.in.h stdint.in.h stdio.in.h stdlib.in.h strftime.c \

strftime.h symlink.c sys_stat.in.h time.in.h time_r.c \

time.h-t unistd.h unistd.h-t warn-on-use.h warn-on-use.h-t

noinst_LIBRARIES = libgnu.a

DEFAULT_INCLUDES = -I. -I../src -I$(top_srcdir)/src

libgnu_a_LIBADD = $(gl_LIBOBJS)

libgnu_a_DEPENDENCIES = $(gl_LIBOBJS)

EXTRA_libgnu_a_SOURCES = md5.c ftoastr.c filemode.c getloadavg.c \

distclean-compile:

-rm -f *.tab.c

@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/careadlinkat.Po@am__quote@

@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dtoastr.Po@am__quote@

@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/filemode.Po@am__quote@

# Code from module arg-nonnull:

# Code from module c++defs:

# Code from module careadlinkat:

HAVE_IMAGEMAGICK=no

if test "${HAVE_X11}" = "yes"; then

if test "${with_imagemagick}" != "no"; then

succeeded=no

gl_source_base='lib'

# Code from module arg-nonnull:

# Code from module c++defs:

# Code from module careadlinkat:

HAVE_IMAGEMAGICK=no

if test "${HAVE_X11}" = "yes"; then

if test "${with_imagemagick}" != "no"; then

PKG_CHECK_MODULES(IMAGEMAGICK, $IMAGEMAGICK_MODULE, HAVE_IMAGEMAGICK=yes, :)

AC_SUBST(IMAGEMAGICK_CFLAGS)

AC_SUBST(IMAGEMAGICK_LIBS)

2011-03-19 Antoine Levitt <antoine.levitt@gmail.com>

* gnus.texi (Listing Groups): Document gnus-group-list-ticked

@end deffn

@deffn Method ede-proj-flush-autoconf :AFTER this

By flushing, remove any cruft that may be in the file. Subsequent

calls to @dfn{ede-proj-tweak-autoconf} can restore items removed by flush.

@end deffn

@end deffn

@deffn Method ede-proj-tweak-autoconf :AFTER this

@end deffn

@deffn Method ede-proj-compilers :AFTER obj

@end deffn

@deffn Method ede-proj-flush-autoconf :AFTER this

@end deffn

@deffn Method ede-buffer-mine :AFTER this buffer

@end deffn

@deffn Method ede-proj-tweak-autoconf :AFTER this

@end deffn

@deffn Method ede-update-version-in-source :AFTER this version

@end deffn

@deffn Method ede-proj-flush-autoconf :AFTER this

@end deffn

@deffn Method ede-buffer-mine :AFTER this buffer

@end deffn

@deffn Method ede-proj-tweak-autoconf :AFTER this

@end deffn

@deffn Method ede-update-version-in-source :AFTER this version

@subsubsection Specialized Methods

@deffn Method ede-proj-tweak-autoconf :AFTER this

@end deffn

@subsubsection Specialized Methods

@deffn Method ede-proj-flush-autoconf :AFTER this

@end deffn

@deffn Method ede-proj-makefile-insert-rules :AFTER this

@end deffn

@deffn Method ede-proj-tweak-autoconf :AFTER this

@end deffn

@item

If you use the Gnus registry: don't use the registry with

@code{nnmairix} groups (put them in

@item

Therefore: @emph{Never ever} put ``real'' mails into @code{nnmairix}

Here's a list of most of the currently known window configurations,

and when they're used:

@item group

The group buffer.

@item mml-preview

Previewing a @acronym{MIME} part.

@subsection Example Window Configurations

Fortunately, setting up the Gnus registry is pretty easy:

@lisp

(gnus-registry-initialize)

@end lisp

("spam" t)

("train" t))

gnus-registry-max-entries 500000

gnus-registry-track-extra '(sender subject))

@end lisp

You are doubtless impressed by all this, but you ask: ``I am a Gnus

user, I customize to live. Give me more.'' Here you go, these are

The groups that will not be followed by

@code{gnus-registry-split-fancy-with-parent}. They will still be

remembered by the registry. This is a list of regular expressions.

@end defvar

@defvar gnus-registry-max-entries

registry will keep.

@end defvar

@defvar gnus-registry-cache-file

@end defvar

@node Registry Article Refer Method

;; Keep enough entries to have a good hit rate when referring to an

;; article using the registry. Use long group names so that Gnus

;; knows where the article is.

(gnus-registry-initialize)

@defvar gnus-registry-track-extra

This is a list of symbols, so it's best to change it from the

people don't stick to the same groups.

@end defvar

This is a symbol, so it's best to change it from the Customize

interface. By default it's @code{nil}, but you may want to set it to

@code{majority} or @code{first} to split by sender or subject based on

@end defvar

@node Store custom flags and keywords

store arbitrary data (as long as it can be converted to a list for

storage).

@end defun

@end defun

@defvar gnus-registry-extra-entries-precious

reasons heading the bug mailing list:

@itemize @minus

@item

Unknown characters in the prompt

(when (file-remote-p default-directory)

(set (make-local-variable 'file-precious-flag) t))))

@end lisp

@end itemize

@item

@itemize @minus

@item

@ifset emacs

If you just want to have @value{ftppackagename} as default remote

files access package, you should apply the following code:

** ImageMagick support.

It is now possible to use the ImageMagick library to load many new

image formats in Emacs. By default, Emacs links with the ImageMagick

The new function `imagemagick-types' returns a list of image file

extensions that your installation of ImageMagick supports. The

2011-04-10 Leo Liu <sdl.web@gmail.com>

2011-04-09 Chong Yidong <cyd@stupidchicken.com>

(image-transform-fit-to-width): Handle image-toggle-display-image

and image-transform-resize directly.

* doc-view.el (doc-view-fit-width-to-window)

(doc-view-mode-map): Add bindings for the new functions.

* vc-annotate.el (vc-annotate-show-log-revision-at-line):

Fix typo in docstring.

(package-menu-refresh, list-packages): Use it.

(package-menu--print-info): Renamed from package-print-package.

Return insertion data instead of inserting it directly.

(package-menu-mark-delete, package-menu-mark-install)

(package-menu-mark-unmark, package-menu-backup-unmark)

(package--list-packages, package-menu-revert)

(package-menu-get-package, package-menu-get-version)

(package-menu-sort-by-column): Functions deleted.

2011-04-02 Chong Yidong <cyd@stupidchicken.com>

(open-protocol-stream): Merge into open-network-stream, leaving

open-protocol-stream as an alias. Handle nil BUFFER args.

2011-03-11 Ken Manheimer <ken.manheimer@gmail.com>

2011-03-11 Juanma Barranquero <lekktu@gmail.com>

(file-readable-p buffer-file-name)

(if auto-revert-tail-mode

;; Tramp caches the file attributes. Setting

(/= auto-revert-tail-pos

(setq size

(nth 7 (file-attributes

(when buffer-file-name

(setq eob (eobp))

(walk-windows

'no-mini t))

(if auto-revert-tail-mode

(auto-revert-tail-handler size)

(format "%s (second day)" this-month)

this-month))))

(if (= (% d 7) 6) ; Saturday--check for Shabbat Mevarchim

(format "Mevarchim Rosh Hodesh %s (%s)"

(aref h-month-names

(if (= h-month

(calendar-hebrew-last-month-of-year

h-year))

0 h-month))

(format "Mevarchim Rosh Hodesh %s (%s-%s)"

(aref h-month-names h-month)

(if (= h-day 29)

Insert the trailer to LaTeX document, pop to LaTeX buffer, add

informative header, and run HOOK."

(cal-tex-e-document)

(latex-mode)

(pop-to-buffer cal-tex-buffer)

(goto-char (point-min))

FRAME-VAR is the variable storing the currently active dedicated frame.

If the current frame's buffer uses DESIRED-MAJOR-MODE, then use that frame."

(if (not (eq (selected-frame) (symbol-value frame-var)))

(get-buffer-window (current-buffer))

(window-frame (get-buffer-window (current-buffer))))

(window-frame (get-buffer-window (current-buffer)))

;; exact structure of the original argument list as long as the new argument

;; list takes a compatible number/magnitude of actual arguments.

;; @@ Activation and deactivation:

;; ===============================

;; The definition of an advised function does not change until all its advice

;; (fii 3 2)

;; 5

;;

;; @@ Advising interactive subrs:

;; ==============================

;; For the most part there is no difference between advising functions and

If DEFINITION could be from a subr then its NAME should be

supplied to make subr arglist lookup more efficient."

(require 'help-fns)

(defun ad-docstring (definition)

"Return the unexpanded docstring of DEFINITION."

(defun ad-definition-type (definition)

"Return symbol that describes the type of DEFINITION."

(defun ad-has-proper-definition (function)

"True if FUNCTION is a symbol with a proper definition.

;; Use the advice mechanism to advise `documentation' to make it

;; generate proper documentation strings for advised definitions:

;; @@ Starting, stopping and recovering from the advice package magic:

;; ===================================================================

2011-04-07 Teodor Zlatanov <tzz@lifelogs.com>

* gnus-registry.el (gnus-registry-handle-action): More debugging.

(setq ended t)))))

(defun article-treat-date ()

(defun article-date-ut (&optional type highlight date-position)

"Convert DATE date to TYPE in the current article.

;; you, submit a bug report and I'll be glad to fix it. It needs

;; documentation in the manual (also on my to-do list).

;; (gnus-registry-initialize)

This is not required after changing `gnus-registry-cache-file'."

(interactive (list (y-or-n-p "Remake and CLEAR the Gnus registry? ")))

(when forsure

(setq gnus-registry-db (gnus-registry-make-db))))

(defun gnus-registry-read ()

;; article move/copy/spool/delete actions

(defun gnus-registry-action (action data-header from &optional to method)

(let* ((id (mail-header-id data-header))

(from (gnus-group-guess-full-name-from-command-method from))

(to (if to (gnus-group-guess-full-name-from-command-method to) nil))

(to-name (if to to "the Bit Bucket")))

to subject sender)))

(defun gnus-registry-spool-action (id group &optional subject sender)

(when (and (stringp id) (string-match "\r$" id))

(setq id (substring id 0 -1)))

(gnus-message 7 "Gnus registry: article %s spooled to %s"

"gnus-registry-handle-action %S" (list id from to subject sender))

(let ((db gnus-registry-db)

;; safe if not found

;; this could be done by calling `gnus-registry-set-id-key'

;; several times but it's better to bunch the transactions

(when (and (null found)

(memq 'sender gnus-registry-track-extra)

sender

(let ((groups (apply

'append

(mapcar

((null out)

(gnus-message

5

nil)

(t (gnus-message

5

log-agent out mode key)

nil))))

(gnus-read-active-file-1 method nil))))

;; Start early async retrieval of data.

;; Do the rest of the retrieval.

(dolist (elem type-cache)

(destructuring-bind (method method-type infos early-data) elem

(when (and method infos

(let ((updatep (gnus-check-backend-function

'request-update-info (car method))))

;; See if any of the groups from this method require updating.

;; Finish up getting the data from the methods that have -early

;; methods.

((and

(gnus-check-backend-function 'finish-retrieve-group-infos (car method))

(or (not (gnus-agent-method-p method))

(gnus-online method)))

(defun gnus-summary-select-article-buffer ()

"Reconfigure windows to show the article buffer.

buffer."

(interactive)

(if (not (gnus-buffer-live-p gnus-article-buffer))



;;; Internal variables

;; Stolen from w3.

(defvar mm-url-html-entities

'(

(if (not (and (boundp 'url-version)

(equal url-version "Emacs")))

(list (cons "Connection" "Close"))))

result)

(setq result (url-insert-file-contents url))

(save-excursion

;;; Code:

(eval-when-compile

(when (null (ignore-errors (require 'ert)))

(defmacro* ert-deftest (name () &body docstring-keys-and-body))))

(ignore-errors

(require 'ert))

(eval-and-compile

(or (ignore-errors (progn

(require 'eieio)

(format "%S" (help-make-usage 'fn arglist))))))

;; FIXME: Move to subr.el?

;; Handle symbols aliased to other symbols.

(if (and (symbolp def) (fboundp def)) (setq def (indirect-function def)))

;; If definition is a macro, find the function inside it.

(if (eq (car-safe def) 'macro) (setq def (cdr def)))

(cond

((eq (car-safe def) 'lambda) (nth 1 def))

((eq (car-safe def) 'closure) (nth 2 def))

((and (eq (car-safe def) 'autoload) (not (eq (nth 4 def) 'keymap)))

"[Arg list not available until function definition is loaded.]")

(t t)))

(if icomplete-mode

;; The following is not really necessary after first time -

;; no great loss.

;;;_ > icomplete-simple-completing-p ()

(defun icomplete-simple-completing-p ()

(ido-current-directory nil)

(ido-directory-nonreadable nil)

(ido-directory-too-big nil)

(require-match (confirm-nonexistent-file-or-buffer))

(buf (ido-read-internal 'buffer (or prompt "Buffer: ") 'ido-buffer-history default

require-match initial))

(let ((enable-recursive-minibuffers t)

(buf (ido-name (car ido-matches)))

(nextbuf (cadr ido-matches)))

;; If next match names a buffer use the buffer object; buffer

(when (and nextbuf (get-buffer nextbuf))

(setq nextbuf (get-buffer nextbuf)))

(if (null (kill-buffer buf))

(setq ido-default-item nextbuf

ido-text-init ido-text

ido-exit 'refresh)

;;; DELETE CURRENT FILE

(defun ido-delete-file-at-head ()

This command has no effect unless Emacs is compiled with

ImageMagick support."

(interactive "nScale: ")

(image-toggle-display-image))

(defun image-transform-fit-to-height ()

;;; Todo:

;; - extend `boundaries' to provide various other meta-data about the

;; output of `all-completions':

;; - preferred sorting order when displayed in *Completions*.

;; is on, the field doesn't cover the entire minibuffer contents.

(delete-region (minibuffer-prompt-end) (point-max)))

(defcustom completion-auto-help t

"Non-nil means automatically provide help for invalid completion input.

If the value is t the *Completion* buffer is displayed whenever completion

(cond

((null comp)

(minibuffer-hide-completions)

(minibuffer--bitset nil nil nil))

((eq t comp)

(minibuffer-hide-completions)

(minibuffer-hide-completions))

;; Show the completion table, if requested.

((not exact)

(minibuffer-completion-help)

(minibuffer-message "Next char not unique")))

;; If the last exact completion and this one were the same, it

t)

(t (case (completion--do-completion)

(#b000 nil)

t)

t)

(t t)))))

(end (field-end))

(all (completion-all-sorted-completions)))

(if (not (consp all))

(setq completion-cycling t)

(goto-char end)

(insert (car all))

(interactive)

(case (completion--do-completion 'completion--try-word-completion)

(#b000 nil)

t)

t)

(t t)))

(defvar completion-in-region--data nil)

(defun completion-in-region (start end collection &optional predicate)

"Complete the text between START and END using COLLECTION.

Return nil if there is no valid completion, else t.

Point needs to be somewhere between START and END."

(assert (<= start (point)) (<= (point) end))

(with-wrapper-hook

;; FIXME: Maybe we should use this hook to provide a "display

;; completions" operation as well.

(minibuffer-completion-predicate predicate)

(ol (make-overlay start end nil nil t)))

(overlay-put ol 'field 'completion)

(unwind-protect

(call-interactively 'minibuffer-complete)

(delete-overlay ol)))))

(save-excursion

(goto-char (nth 2 completion-in-region--data))

(line-end-position)))

(completion-in-region-mode -1)))

;; (defalias 'completion-in-region--prech 'completion-in-region--postch)

(delq (assq 'completion-in-region-mode minor-mode-overriding-map-alist)

minor-mode-overriding-map-alist))

(if (null completion-in-region-mode)

(minibuffer-hide-completions))

;; (add-hook 'pre-command-hook #'completion-in-region--prech)

(add-hook 'post-command-hook #'completion-in-region--postch)

(push `(completion-in-region-mode . ,completion-in-region-mode-map)

minor-mode-overriding-map-alist)))

(message

"Completion function %S uses a deprecated calling convention" fun)

(push fun completion--capf-misbehave-funs))))

(defun completion-at-point ()

"Perform completion on the text around point.

(interactive)

(let ((res (run-hook-wrapped 'completion-at-point-functions

#'completion--capf-wrapper 'all)))

(or (plist-get plist :annotation-function)

(plist-get plist :predicate))))

(defun completion-help-at-point ()

"Display the completions on the text around point.

(let ((res (run-hook-wrapped 'completion-at-point-functions

;; Ignore misbehaving functions.

#'completion--capf-wrapper 'optimist)))

(minibuffer-completion-predicate (plist-get plist :predicate))

(completion-annotate-function

(or (plist-get plist :annotation-function)

completion-annotate-function))

;; FIXME: We should somehow (ab)use completion-in-region-function or

;; introduce a corresponding hook (plus another for word-completion,

;; and another for force-completion, maybe?).

(overlay-put ol 'field 'completion)

(unwind-protect

(call-interactively 'minibuffer-completion-help)

(delete-overlay ol))))

;; The hook function already performed completion :-(

;; Not much we can do at this point.

nil)

;;; Key bindings.

(resulting-type 'plain)

starttls-command)

(when (and (or (fboundp 'open-gnutls-stream)

capabilities success-string starttls-function

(setq starttls-command

(funcall starttls-function capabilities)))

(save-excursion

(tramp-convert-file-attributes

v

(defun tramp-do-file-attributes-with-ls (vec localname &optional id-format)

"Implement `file-attributes' for Tramp files using the ls(1) command."

(tramp-get-method-parameter method 'tramp-copy-env))))

;; Check for program.

(tramp-error

v 'file-error "Cannot find copy program: %s" copy-program))

preserve-uid-gid preserve-selinux-context)

"Like `copy-file' for Tramp files.

KEEP-DATE is not handled in case NEWNAME resides on an SMB server.

(setq filename (expand-file-name filename)

newname (expand-file-name newname))

(with-progress-reporter

2011-04-14 Paul Eggert <eggert@cs.ucla.edu>

Don't publish debugger-only interfaces to other modules.

* lisp.h (safe_debug_print, debug_output_compilation_hack):

(get_tty_terminal): Now static.

(term_mouse_moveto): Do not define if HAVE_WINDOW_SYSTEM.

* termhooks.h (term_mouse_moveto): Do not declare if

* dispextern.h (tty_set_terminal_modes, tty_reset_terminal_modes):

(tty_turn_off_highlight, get_tty_terminal): Remove decls.

Now static.

* intervals.h (merge_interval_right, delete_interval): Remove decls.

* insdel.c: Make symbols static if they're not exported.

However, leave prepare_to_modify_buffer alone. It's never

called from outside this function, but that appears to be a bug.

(xic_create_fontsetname): Declare only if HAVE_X_WINDOWS &&

USE_X_TOOLKIT.

* ftxfont.c: Make symbols static if they're not exported.

(ftxfont_driver): Export only if !defined HAVE_XFT && def8ined

HAVE_FREETYPE.

* lisp.h (circular_list_error, FOREACH): Remove; unused.

* data.c (circular_list_error): Remove.

* commands.h (last_point_position, last_point_position_buffer):

(last_point_position_window): Remove decls.

* keyboard.c: Make these variables static.

to see whether these functions can be called from other modules.

DEFUN now defines a static function. To make the function external

so that it can be used in other C modules, use the new macro DEFUE.

(Feval_region, Fbacktrace, Ffetch_bytecode, Fswitch_to_buffer):

(Ffile_executable_p, Fmake_symbolic_link, Fcommand_execute):

(Fget_process, Fdocumentation_property, Fbyte_code, Ffile_attributes):

(Fset_window_margins, Fset_window_vscroll): New forward static decls.

* window.h (Fset_window_vscroll, Fset_window_margins): Remove decls.

* editfns.c (Fformat): Remove unreachable code.

2011-04-10 Paul Eggert <eggert@cs.ucla.edu>

Fix more problems found by GCC 4.6.0's static checks.

* xdisp.c (vmessage): Use a better test for character truncation.

* xselect.c (x_decline_selection_request)

(x_reply_selection_request): Avoid type-punned deref of X events.

Fix some uses of `int' instead of EMACS_INT.

* search.c (string_match_1, fast_string_match)

(Finternal_describe_syntax_value): Recognize new flag; use the

SYNTAX_FLAGS_* macros.

(scan_sexps_forward, Fparse_partial_sexp): Change representation of

(back_comment, forw_comment, Fforward_comment, scan_lists)

(scan_sexps_forward): Update code to obey the new comment style flag.

/* Like malloc, but wraps allocated block with header and trailer. */

POINTER_TYPE *

{

register unsigned char *val;

size_t overhead = ++check_depth == 1 ? XMALLOC_OVERRUN_CHECK_SIZE*2 : 0;

with header and trailer. */

POINTER_TYPE *

{

size_t overhead = ++check_depth == 1 ? XMALLOC_OVERRUN_CHECK_SIZE*2 : 0;

if (val

/* Like free, but checks block for overrun. */

void

{

++check_depth;

if (val

{

if (temp_charset_work)

{

temp_charset_work = NULL;

}

static Lisp_Object Fmake_symbolic_link (Lisp_Object, Lisp_Object, Lisp_Object);

static int a_write (int, Lisp_Object, int, int,

Lisp_Object *, struct coding_system *);



void

on the system, we copy the SELinux context of FILE to NEWNAME. */)

(Lisp_Object file, Lisp_Object newname, Lisp_Object ok_if_already_exists, Lisp_Object keep_time, Lisp_Object preserve_uid_gid, Lisp_Object preserve_selinux_context)

{

char buf[16 * 1024];

struct stat st, out_st;

Lisp_Object handler;

/* For a special file, all we can do is guess. */

total = READ_BUF_SIZE;

{

#ifdef CLASH_DETECTION

if (!NILP (BVAR (current_buffer, file_truename))

if (inserted == 0)

{

#ifdef CLASH_DETECTION

if (we_locked_file)

unlock_file (BVAR (current_buffer, file_truename));

#endif

The return value is negative in case of system call failure. */

static int

{

Lisp_Object tem;

while (NILP (*annot) || CONSP (*annot))

{

are indexes to the string STRING. */

static int

{

if (STRINGP (string))

{

}

else

{

coding->src_multibyte = (end - start) < (end_byte - start_byte);

if (CODING_REQUIRE_ENCODING (coding))

PROP (TOOL_BAR_ITEM_LABEL) = new_lbl;

else

PROP (TOOL_BAR_ITEM_LABEL) = make_string ("", 0);

}

/* If got a filter apply it on binding. */

extern void seed_random (long);

extern int emacs_open (const char *, int, int);

extern int emacs_close (int);

enum { READLINK_BUFSIZE = 1024 };

extern char *emacs_readlink (const char *, char [READLINK_BUFSIZE]);

#ifndef HAVE_MEMSET

current_sound_device->close (current_sound_device);

if (current_sound->fd > 0)

emacs_close (current_sound->fd);

return Qnil;

}

static void

vox_write (struct sound_device *sd, const char *buffer, int nbytes)

{

if (nwritten < 0)

sound_perror ("Error writing to sound device");

}

snd_pcm_drain (p->handle);

snd_pcm_close (p->handle);

}

}

}

return rtnval;

}

{

while ((rtnval = read (fildes, buf, nbyte)) == -1

&& (errno == EINTR))

return (rtnval);

}

{

bytes_written = 0;

{

rtnval = write (fildes, buf, nbyte);

/* Work-alike for termcap, plus extra features.

Copyright (C) 1985, 1986, 1993, 1994, 1995, 2000, 2001, 2002, 2003,

This program is free software; you can redistribute it and/or modify

it under the terms of the GNU General Public License as published by

if (scan_file (term, fd, &buf) == 0)

{

close (fd);

if (malloc_size)

return 0;

}

/* Free old `term' if appropriate. */

if (term != name)

/* If BP is malloc'd by us, make sure it is big enough. */

if (malloc_size)

}

close (fd);

if (malloc_size)

bp = (char *) xrealloc (bp, bp1 - bp + 1);

_after_ bidi iteration avoids affecting the visual

order of the displayed text when invisible properties

are added or removed. */

{

/* If we were `reseat'ed to a new paragraph,

determine the paragraph base direction. We need

/* Do any truncation at a character boundary. */

if (! (0 <= len && len < bufsize))

message2 (FRAME_MESSAGE_BUF (f), len, 0);

}

/* If there is a scroll margin at the top of the window, find

its character position. */

{

struct it it1;

{

char *name = xstrdup (system_font);

font = font_open_by_name (f, name);

}

}

if (send_event_p)

store_config_changed_event (Qtool_bar_style, dpyname);

}

}

if (settings.seen & SEEN_FONT)

{

if (!current_font || strcmp (current_font, settings.font) != 0)

{

current_font = settings.font;

if (send_event_p)

store_config_changed_event (Qfont_name, dpyname);

}

else

}

}