# HG changeset patch # User Stefan Monnier # Date 1270004033 14400 # Node ID db1a1651507b087bf3627104fadeec4782087f75 # Parent 6db4a0b4404d1b4abdfc5f6eb4b5be749b0bfb99 * simple.el (append-to-buffer): Simplify. diff -r 6db4a0b4404d -r db1a1651507b lisp/ChangeLog --- a/lisp/ChangeLog Tue Mar 30 22:37:57 2010 -0400 +++ b/lisp/ChangeLog Tue Mar 30 22:53:53 2010 -0400 @@ -1,3 +1,7 @@ +2010-03-31 Stefan Monnier + + * simple.el (append-to-buffer): Simplify. + 2010-03-31 Tomas Abrahamsson * textmodes/artist.el (artist-mode): Fix typo in docstring. @@ -10,7 +14,7 @@ * language/indian.el (devanagari-composable-pattern) (tamil-composable-pattern, kannada-composable-pattern) - (malayalam-composable-pattern): Adjusted for the new Unicode + (malayalam-composable-pattern): Adjust for the new Unicode specification. (bengali-composable-pattern, gurmukhi-composable-pattern) (gujarati-composable-pattern, oriya-composable-pattern) @@ -103,8 +107,8 @@ Chong Yidong * subr.el: Extend progress reporters to perform "spinning". - (progress-reporter-update, progress-reporter-do-update): Handle - non-numeric value arguments. + (progress-reporter-update, progress-reporter-do-update): + Handle non-numeric value arguments. (progress-reporter--pulse-characters): New var. 2010-03-28 Chong Yidong @@ -119,9 +123,9 @@ 2010-03-27 Nick Roberts Restore GDB/MI fuctionality removed by r99212. - * lisp/progmodes/gdb-mi.el: Restored. - * lisp/progmodes/gdb-ui.el: Removed. - * lisp/progmodes/gud.el: Re-accommodated for gdb-mi.el. + * lisp/progmodes/gdb-mi.el: Restore. + * lisp/progmodes/gdb-ui.el: Remove. + * lisp/progmodes/gud.el: Re-accommodate for gdb-mi.el. 2010-03-25 Glenn Morris @@ -436,11 +440,13 @@ * vc-bzr.el (vc-bzr-checkin): Pass extra arguments to the commit command. - (log-edit-extra-flags, log-edit-before-checkin-process): New declarations. + (log-edit-extra-flags, log-edit-before-checkin-process): + New declarations. * vc-hg.el (vc-hg-checkin): Pass extra arguments to the commit command. - (log-edit-extra-flags, log-edit-before-checkin-process): New declarations. + (log-edit-extra-flags, log-edit-before-checkin-process): + New declarations. (vc-hg-log-edit-mode): New derived mode. * vc-arch.el (vc-arch-checkin): @@ -539,8 +545,8 @@ (widget-field-value-set): New fun. (editable-field): Use it. (widget-field-value-get): Clean up unused var. - (widget-color-value-create, widget-color--choose-action): New - funs. Allow using list-colors-display to choose color. + (widget-color-value-create, widget-color--choose-action): + New funs. Allow using list-colors-display to choose color. 2010-03-12 Chong Yidong @@ -551,8 +557,7 @@ (custom-buffer-create-internal): Add custom-apropos search field. (custom-add-parent-links): Don't display parent doc. (custom-group-value-create): Don't sort top-level custom group. - (custom-magic-value-create): Show visibility button before option - name. + (custom-magic-value-create): Show visibility button before option name. (custom-variable-state): New fun, from custom-variable-state-set. (custom-variable-state-set): Use it. @@ -690,8 +695,8 @@ 2010-03-07 Štěpán Němec (tiny change) - * vc-git.el (vc-git-annotate-extract-revision-at-line): Use - vc-git-root as default directory for revision path (Bug#5657). + * vc-git.el (vc-git-annotate-extract-revision-at-line): + Use vc-git-root as default directory for revision path (Bug#5657). 2010-03-06 Chong Yidong @@ -780,8 +785,8 @@ 2010-02-28 Michael Albinus * net/dbus.el (dbus-introspect, dbus-get-property) - (dbus-set-property, dbus-get-all-properties): Use - `dbus-call-method' when noninteractive. (Bug#5645) + (dbus-set-property, dbus-get-all-properties): + Use `dbus-call-method' when noninteractive. (Bug#5645) 2010-02-28 Chong Yidong @@ -2166,9 +2171,9 @@ 2009-12-18 Ulf Jasper - * calendar/icalendar.el (icalendar--convert-tz-offset): Fixed - timezone names. - (icalendar--convert-tz-offset): Fixed the "last-day-problem". + * calendar/icalendar.el (icalendar--convert-tz-offset): + Fix timezone names. + (icalendar--convert-tz-offset): Fix the "last-day-problem". (icalendar--add-diary-entry): Remove the trailing blank that diary-make-entry inserts. @@ -2185,7 +2190,7 @@ (tramp-advice-file-expand-wildcards): Remove it. * net/tramp-compat.el (top): Autoload `tramp-handle-file-remote-p'. - (tramp-advice-file-expand-wildcards): Moved from tramp.el. + (tramp-advice-file-expand-wildcards): Move from tramp.el. Activate advice for older GNU Emacs versions. (Bug#5237) 2009-12-17 Juanma Barranquero @@ -2202,12 +2207,12 @@ * files.el (hack-local-variables-filter): While ignoring duplicates, don't take `mode' into account. - (hack-local-variables-filter, hack-dir-local-variables): Don't - remove duplicate `mode' from local-variables-alist (like `eval'). + (hack-local-variables-filter, hack-dir-local-variables): + Don't remove duplicate `mode' from local-variables-alist (like `eval'). 2009-12-17 Juri Linkov - Make `dired-diff' more safe. (Bug#5225) + Make `dired-diff' safer. (Bug#5225) * dired-aux.el (dired-diff): Signal an error when `file' equals to `current' or when `file' is a directory of the `current' file. @@ -2404,7 +2409,7 @@ 2009-12-09 Vivek Dasmohapatra - Drop some properties to avoid surprises. + Drop some properties to avoid surprises (bug#5002). * htmlfontify.el (hfy-ignored-properties): New defcustom. (hfy-fontify-buffer): Use it. diff -r 6db4a0b4404d -r db1a1651507b lisp/simple.el --- a/lisp/simple.el Tue Mar 30 22:37:57 2010 -0400 +++ b/lisp/simple.el Tue Mar 30 22:53:53 2010 -0400 @@ -3468,18 +3468,18 @@ (interactive (list (read-buffer "Append to buffer: " (other-buffer (current-buffer) t)) (region-beginning) (region-end))) - (let ((oldbuf (current-buffer))) - (let* ((append-to (get-buffer-create buffer)) - (windows (get-buffer-window-list append-to t t)) - point) - (save-excursion - (with-current-buffer append-to - (setq point (point)) - (barf-if-buffer-read-only) - (insert-buffer-substring oldbuf start end) - (dolist (window windows) - (when (= (window-point window) point) - (set-window-point window (point))))))))) + (let* ((oldbuf (current-buffer)) + (append-to (get-buffer-create buffer)) + (windows (get-buffer-window-list append-to t t)) + point) + (save-excursion + (with-current-buffer append-to + (setq point (point)) + (barf-if-buffer-read-only) + (insert-buffer-substring oldbuf start end) + (dolist (window windows) + (when (= (window-point window) point) + (set-window-point window (point)))))))) (defun prepend-to-buffer (buffer start end) "Prepend to specified buffer the text of the region.