Using saved parent location: http://bzr.savannah.gnu.org/r/emacs/trunk/ Now on revision 99586. ------------------------------------------------------------ revno: 99586 committer: Glenn Morris branch nick: trunk timestamp: Sun 2010-02-28 23:13:57 -0800 message: Rename a command in ru-refcard.tex. * refcards/ru-refcard.tex: Rename \year command to \cyear, since the former seems to be already used in some TeX installations. diff: === modified file 'etc/ChangeLog' --- etc/ChangeLog 2010-03-01 02:40:56 +0000 +++ etc/ChangeLog 2010-03-01 07:13:57 +0000 @@ -1,5 +1,8 @@ 2010-03-01 Glenn Morris + * refcards/ru-refcard.tex: Rename \year command to \cyear, since + the former seems to be already used in some TeX installations. + * refcards/calccard.tex, refcards/cs-dired-ref.tex: * refcards/cs-refcard.tex, refcards/cs-survival.tex: * refcards/de-refcard.tex, refcards/dired-ref.tex: === modified file 'etc/refcards/ru-refcard.tex' --- etc/refcards/ru-refcard.tex 2010-03-01 02:36:15 +0000 +++ etc/refcards/ru-refcard.tex 2010-03-01 07:13:57 +0000 @@ -23,15 +23,15 @@ \setlength{\ColThreeWidth}{25mm} \newcommand{\versionemacs}[0]{23} % version of Emacs this is for -\newcommand{\year}[0]{2010} % copyright year +\newcommand{\cyear}[0]{2010} % copyright year \newcommand\shortcopyrightnotice[0]{\vskip 1ex plus 2 fill - \centerline{\footnotesize \copyright\ \year\ Free Software Foundation, Inc. + \centerline{\footnotesize \copyright\ \cyear\ Free Software Foundation, Inc. Permissions on back.}} \newcommand\copyrightnotice[0]{ \vskip 1ex plus 2 fill\begingroup\footnotesize -\centerline{Copyright \copyright\ \year\ Free Software Foundation, Inc.} +\centerline{Copyright \copyright\ \cyear\ Free Software Foundation, Inc.} \centerline{For GNU Emacs version \versionemacs} \centerline{Designed by Stephen Gildea} \centerline{ðÅÒÅ×ÏÄ Alex Ott } ------------------------------------------------------------ revno: 99585 committer: Glenn Morris branch nick: trunk timestamp: Sun 2010-02-28 18:40:56 -0800 message: Fix some ChangeLog typos. diff: === modified file 'etc/ChangeLog' --- etc/ChangeLog 2010-03-01 02:36:15 +0000 +++ etc/ChangeLog 2010-03-01 02:40:56 +0000 @@ -19,9 +19,9 @@ 2010-02-14 Chong Yidong - * etc/images/custom/down-pushed.xpm, etc/images/custom/down.xpm: - * etc/images/custom/right-pushed.xpm: - * etc/images/custom/right-pushed.xpm: Increase height by four + * images/custom/down-pushed.xpm, images/custom/down.xpm: + * images/custom/right-pushed.xpm: + * images/custom/right-pushed.xpm: Increase height by four pixels, to improve text alignment. 2010-01-16 Mario Lang @@ -31,10 +31,10 @@ 2010-01-14 Nick Roberts - * etc/images/gud/recstart.xpm, etc/images/gud/recstop.xpm: - * etc/images/gud/rcont.xpm, etc/images/gud/rnext.xpm: - * etc/images/gud/rfinish.xpm, etc/images/gud/rnexti.xpm: - * etc/images/gud/rstep.xpm, etc/images/gud/rstepi.xpm: + * images/gud/recstart.xpm, images/gud/recstop.xpm: + * images/gud/rcont.xpm, images/gud/rnext.xpm: + * images/gud/rfinish.xpm, images/gud/rnexti.xpm: + * images/gud/rstep.xpm, images/gud/rstepi.xpm: New icons for reverse debugging. 2010-01-14 Juanma Barranquero @@ -2573,7 +2573,7 @@ * images/gud/ni.xpm, images/gud/ni.xpm * images/gud/s.xpm, images/gud/s.xpm * images/gud/si.xpm, images/gud/si.xpm: Rename to - next.*, nexti.*, step.*, and stepi.* , respectively, as the + next.*, nexti.*, step.*, and stepi.*, respectively, as the file-name no longer clashes on 8+3 filesystems. 2005-10-14 Bill Wohler ------------------------------------------------------------ revno: 99584 committer: Glenn Morris branch nick: trunk timestamp: Sun 2010-02-28 18:36:15 -0800 message: Update short copyright year in refcard tex files. * refcards/calccard.tex, refcards/cs-dired-ref.tex: * refcards/cs-refcard.tex, refcards/cs-survival.tex: * refcards/de-refcard.tex, refcards/dired-ref.tex: * refcards/fr-dired-ref.tex, refcards/fr-refcard.tex: * refcards/fr-survival.tex, refcards/orgcard.pdf: * refcards/orgcard.tex, refcards/pl-refcard.tex: * refcards/pt-br-refcard.tex, refcards/refcard.tex: * refcards/ru-refcard.tex, refcards/sk-dired-ref.tex: * refcards/sk-refcard.tex, refcards/sk-survival.tex: * refcards/survival.tex, refcards/vipcard.tex: * refcards/viperCard.tex: Update short copyright year to 2010. diff: === modified file 'etc/ChangeLog' --- etc/ChangeLog 2010-02-26 04:35:34 +0000 +++ etc/ChangeLog 2010-03-01 02:36:15 +0000 @@ -1,3 +1,17 @@ +2010-03-01 Glenn Morris + + * refcards/calccard.tex, refcards/cs-dired-ref.tex: + * refcards/cs-refcard.tex, refcards/cs-survival.tex: + * refcards/de-refcard.tex, refcards/dired-ref.tex: + * refcards/fr-dired-ref.tex, refcards/fr-refcard.tex: + * refcards/fr-survival.tex, refcards/orgcard.pdf: + * refcards/orgcard.tex, refcards/pl-refcard.tex: + * refcards/pt-br-refcard.tex, refcards/refcard.tex: + * refcards/ru-refcard.tex, refcards/sk-dired-ref.tex: + * refcards/sk-refcard.tex, refcards/sk-survival.tex: + * refcards/survival.tex, refcards/vipcard.tex: + * refcards/viperCard.tex: Update short copyright year to 2010. + 2010-02-26 Glenn Morris * tutorials/TUTORIAL.es, tutorials/TUTORIAL.pt_BR: === modified file 'etc/refcards/calccard.tex' --- etc/refcards/calccard.tex 2010-01-13 08:35:10 +0000 +++ etc/refcards/calccard.tex 2010-03-01 02:36:15 +0000 @@ -20,8 +20,8 @@ % Typical command to format: tex calccard.tex % Typical command to print (3 cols): dvips -t landscape calccard.dvi -% Copyright (C) 1987, 1992, 2001, 2002, 2003, 2004, -% 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. +% Copyright (C) 1987, 1992, 2001, 2002, 2003, 2004, 2005, 2006, 2007, +% 2008, 2009, 2010 Free Software Foundation, Inc. % This file is part of GNU Emacs. @@ -65,7 +65,7 @@ % Internet: gildea@stop.mail-abuse.org \def\emacsversionnumber{23} -\def\year{2009} % latest copyright year +\def\year{2010} % latest copyright year \def\shortcopyrightnotice{\vskip 1ex plus 2 fill \centerline{\small \copyright\ \year\ Free Software Foundation, Inc. === modified file 'etc/refcards/cs-dired-ref.tex' --- etc/refcards/cs-dired-ref.tex 2010-01-13 08:35:10 +0000 +++ etc/refcards/cs-dired-ref.tex 2010-03-01 02:36:15 +0000 @@ -43,7 +43,7 @@ \pdflayout=(0) \def\versionemacs{23} % version of Emacs this is for -\def\year{2009} % latest copyright year +\def\year{2010} % latest copyright year % Nothing else needs to be changed. === modified file 'etc/refcards/cs-refcard.tex' --- etc/refcards/cs-refcard.tex 2010-01-13 08:35:10 +0000 +++ etc/refcards/cs-refcard.tex 2010-03-01 02:36:15 +0000 @@ -60,7 +60,7 @@ \pdflayout=(0) \def\versionemacs{23} % version of Emacs this is for -\def\year{2009} % latest copyright year +\def\year{2010} % latest copyright year % Nothing else needs to be changed. === modified file 'etc/refcards/cs-survival.tex' --- etc/refcards/cs-survival.tex 2010-01-13 08:35:10 +0000 +++ etc/refcards/cs-survival.tex 2010-03-01 02:36:15 +0000 @@ -56,7 +56,7 @@ \chyph \def\versionemacs{23} % version of Emacs this is for -\def\year{2009} % latest copyright year +\def\year{2010} % latest copyright year \def\copyrightnotice{\penalty-1\vfill \vbox{\smallfont\baselineskip=0.8\baselineskip\raggedcenter === modified file 'etc/refcards/de-refcard.tex' --- etc/refcards/de-refcard.tex 2010-01-13 08:35:10 +0000 +++ etc/refcards/de-refcard.tex 2010-03-01 02:36:15 +0000 @@ -62,7 +62,7 @@ \mdqoff % deactivates the "-char \def\versionemacs{23} % version of Emacs this is for -\def\year{2009} % latest copyright year +\def\year{2010} % latest copyright year % Nothing else needs to be changed below this line. === modified file 'etc/refcards/dired-ref.tex' --- etc/refcards/dired-ref.tex 2010-01-13 08:35:10 +0000 +++ etc/refcards/dired-ref.tex 2010-03-01 02:36:15 +0000 @@ -45,7 +45,7 @@ \pdflayout=(1) \def\versionemacs{23} % version of Emacs this is for -\def\year{2009} % latest copyright year +\def\year{2010} % latest copyright year % Nothing else needs to be changed. === modified file 'etc/refcards/fr-dired-ref.tex' --- etc/refcards/fr-dired-ref.tex 2010-01-13 08:35:10 +0000 +++ etc/refcards/fr-dired-ref.tex 2010-03-01 02:36:15 +0000 @@ -37,7 +37,7 @@ \pdflayout=(0) \def\versionemacs{23} % version of Emacs this is for -\def\year{2009} % latest copyright year +\def\year{2010} % latest copyright year % Nothing else needs to be changed. === modified file 'etc/refcards/fr-refcard.tex' --- etc/refcards/fr-refcard.tex 2010-01-13 08:35:10 +0000 +++ etc/refcards/fr-refcard.tex 2010-03-01 02:36:15 +0000 @@ -57,7 +57,7 @@ \pdflayout=(0l) \def\versionemacs{23} % version of Emacs this is for -\def\year{2009} % latest copyright year +\def\year{2010} % latest copyright year % Nothing else needs to be changed below this line. === modified file 'etc/refcards/fr-survival.tex' --- etc/refcards/fr-survival.tex 2010-01-13 08:35:10 +0000 +++ etc/refcards/fr-survival.tex 2010-03-01 02:36:15 +0000 @@ -51,7 +51,7 @@ \pdflayout=(0) \def\versionemacs{23} % version of Emacs this is for -\def\year{2009} % latest copyright year +\def\year{2010} % latest copyright year \def\copyrightnotice{\penalty-1\vfill \vbox{\smallfont\baselineskip=0.8\baselineskip\raggedcenter === modified file 'etc/refcards/orgcard.pdf' Binary files etc/refcards/orgcard.pdf 2009-07-15 03:23:41 +0000 and etc/refcards/orgcard.pdf 2010-03-01 02:36:15 +0000 differ === modified file 'etc/refcards/orgcard.tex' --- etc/refcards/orgcard.tex 2010-01-13 08:35:10 +0000 +++ etc/refcards/orgcard.tex 2010-03-01 02:36:15 +0000 @@ -1,7 +1,7 @@ % Reference Card for Org Mode \def\orgversionnumber{6.33x} \def\versionyear{2009} % latest update -\def\year{2009} % latest copyright year +\def\year{2010} % latest copyright year %**start of header \newcount\columnsperpage === modified file 'etc/refcards/pl-refcard.tex' --- etc/refcards/pl-refcard.tex 2010-01-13 08:35:10 +0000 +++ etc/refcards/pl-refcard.tex 2010-03-01 02:36:15 +0000 @@ -71,7 +71,7 @@ \pdflayout=(0) \def\versionemacs{23} % version of Emacs this is for -\def\year{2009} % latest copyright year +\def\year{2010} % latest copyright year % Nothing else needs to be changed. === modified file 'etc/refcards/pt-br-refcard.tex' --- etc/refcards/pt-br-refcard.tex 2010-01-13 08:35:10 +0000 +++ etc/refcards/pt-br-refcard.tex 2010-03-01 02:36:15 +0000 @@ -63,7 +63,7 @@ \pdflayout=(0l) \def\versionemacs{23} % version of Emacs this is for -\def\year{2009} % latest copyright year +\def\year{2010} % latest copyright year % Nothing else needs to be changed below this line. === modified file 'etc/refcards/refcard.tex' --- etc/refcards/refcard.tex 2010-01-13 08:35:10 +0000 +++ etc/refcards/refcard.tex 2010-03-01 02:36:15 +0000 @@ -64,7 +64,7 @@ % Nothing else needs to be changed below this line. \def\versionemacs{23} % version of Emacs this is for -\def\year{2009} % copyright year +\def\year{2010} % copyright year \def\shortcopyrightnotice{\vskip 1ex plus 2 fill \centerline{\small \copyright\ \year\ Free Software Foundation, Inc. === modified file 'etc/refcards/ru-refcard.tex' --- etc/refcards/ru-refcard.tex 2010-01-13 08:35:10 +0000 +++ etc/refcards/ru-refcard.tex 2010-03-01 02:36:15 +0000 @@ -23,7 +23,7 @@ \setlength{\ColThreeWidth}{25mm} \newcommand{\versionemacs}[0]{23} % version of Emacs this is for -\newcommand{\year}[0]{2009} % copyright year +\newcommand{\year}[0]{2010} % copyright year \newcommand\shortcopyrightnotice[0]{\vskip 1ex plus 2 fill \centerline{\footnotesize \copyright\ \year\ Free Software Foundation, Inc. === modified file 'etc/refcards/sk-dired-ref.tex' --- etc/refcards/sk-dired-ref.tex 2010-01-13 08:35:10 +0000 +++ etc/refcards/sk-dired-ref.tex 2010-03-01 02:36:15 +0000 @@ -44,7 +44,7 @@ \pdflayout=(0) \def\versionemacs{23} % version of Emacs this is for -\def\year{2009} % latest copyright year +\def\year{2010} % latest copyright year % Nothing else needs to be changed. === modified file 'etc/refcards/sk-refcard.tex' --- etc/refcards/sk-refcard.tex 2010-01-13 08:35:10 +0000 +++ etc/refcards/sk-refcard.tex 2010-03-01 02:36:15 +0000 @@ -61,7 +61,7 @@ \pdflayout=(0) \def\versionemacs{23} % version of Emacs this is for -\def\year{2009} % latest copyright year +\def\year{2010} % latest copyright year % Nothing else needs to be changed. === modified file 'etc/refcards/sk-survival.tex' --- etc/refcards/sk-survival.tex 2010-01-13 08:35:10 +0000 +++ etc/refcards/sk-survival.tex 2010-03-01 02:36:15 +0000 @@ -57,7 +57,7 @@ \shyph \def\versionemacs{23} % version of Emacs this is for -\def\year{2009} % latest copyright year +\def\year{2010} % latest copyright year \def\copyrightnotice{\penalty-1\vfill \vbox{\smallfont\baselineskip=0.8\baselineskip\raggedcenter === modified file 'etc/refcards/survival.tex' --- etc/refcards/survival.tex 2010-01-13 08:35:10 +0000 +++ etc/refcards/survival.tex 2010-03-01 02:36:15 +0000 @@ -46,7 +46,7 @@ \pdflayout=(1) \def\versionemacs{23} % version of Emacs this is for -\def\year{2009} % latest copyright year +\def\year{2010} % latest copyright year \def\copyrightnotice{\penalty-1\vfill \vbox{\smallfont\baselineskip=0.8\baselineskip\raggedcenter === modified file 'etc/refcards/vipcard.tex' --- etc/refcards/vipcard.tex 2010-01-13 08:35:10 +0000 +++ etc/refcards/vipcard.tex 2010-03-01 02:36:15 +0000 @@ -51,7 +51,7 @@ \pdflayout=(1) \def\versionemacs{18} % version of Emacs this is for -\def\year{2009} % latest copyright year +\def\year{2010} % latest copyright year \def\versionvip{3.5} % Nothing else needs to be changed. === modified file 'etc/refcards/viperCard.tex' --- etc/refcards/viperCard.tex 2010-01-13 08:35:10 +0000 +++ etc/refcards/viperCard.tex 2010-03-01 02:36:15 +0000 @@ -54,7 +54,7 @@ \pdflayout=(1) \def\versionemacs{21} % version of Emacs this is for -\def\year{2009} % latest copyright year +\def\year{2010} % latest copyright year \def\versionxemacs{20} % version of XEmacs this is for \def\versionviper{3.0} % version of Viper this is for ------------------------------------------------------------ revno: 99583 [merge] committer: Katsumi Yamaoka branch nick: trunk timestamp: Sun 2010-02-28 23:38:45 +0000 message: (menu-bar-manuals-menu): Fix typo. diff: === modified file 'lisp/ChangeLog' --- lisp/ChangeLog 2010-02-28 14:36:24 +0000 +++ lisp/ChangeLog 2010-02-28 23:37:19 +0000 @@ -1,3 +1,7 @@ +2010-02-28 Katsumi Yamaoka + + * menu-bar.el (menu-bar-manuals-menu): Fix typo. + 2010-02-28 Jan Djärv * scroll-bar.el (scroll-bar-drag-1): Add save-excursion, bug #5654. === modified file 'lisp/menu-bar.el' --- lisp/menu-bar.el 2010-01-13 08:35:10 +0000 +++ lisp/menu-bar.el 2010-02-28 23:37:19 +0000 @@ -1500,7 +1500,7 @@ (define-key menu-bar-manuals-menu [emacs-lisp-reference] `(menu-item ,(purecopy "Emacs Lisp Reference") menu-bar-read-lispref :help ,(purecopy "Read the Emacs Lisp Reference manual"))) -(define-key menu-bar-manuals-menu [emac-lisp-intro] +(define-key menu-bar-manuals-menu [emacs-lisp-intro] `(menu-item ,(purecopy "Introduction to Emacs Lisp") menu-bar-read-lispintro :help ,(purecopy "Read the Introduction to Emacs Lisp Programming"))) ------------------------------------------------------------ revno: 99582 committer: Chong Yidong branch nick: trunk timestamp: Sun 2010-02-28 16:34:58 -0500 message: Minor doc fix. diff: === modified file 'lisp/progmodes/sh-script.el' --- lisp/progmodes/sh-script.el 2010-01-13 08:35:10 +0000 +++ lisp/progmodes/sh-script.el 2010-02-28 21:34:58 +0000 @@ -1186,7 +1186,7 @@ "Variables controlling indentation in shell scripts. Note: customizing these variables will not affect existing buffers if -`sh-make-vars-local' is no-nil. See the documentation for +`sh-make-vars-local' is non-nil. See the documentation for variable `sh-make-vars-local', command `sh-make-vars-local' and command `sh-reset-indent-vars-to-global-values'." :group 'sh-script) ------------------------------------------------------------ revno: 99581 [merge] committer: Jan D. branch nick: trunk timestamp: Sun 2010-02-28 15:37:20 +0100 message: scroll-bar.el (scroll-bar-drag-1): Add save-excursion, bug #5654. diff: === modified file 'lisp/ChangeLog' --- lisp/ChangeLog 2010-02-28 11:36:39 +0000 +++ lisp/ChangeLog 2010-02-28 14:36:24 +0000 @@ -1,3 +1,7 @@ +2010-02-28 Jan Djärv + + * scroll-bar.el (scroll-bar-drag-1): Add save-excursion, bug #5654. + 2010-02-28 Michael Albinus * net/tramp.el (tramp-handle-write-region): START can be a string. === modified file 'lisp/scroll-bar.el' --- lisp/scroll-bar.el 2010-01-13 08:35:10 +0000 +++ lisp/scroll-bar.el 2010-02-28 14:36:34 +0000 @@ -210,13 +210,14 @@ (let* ((start-position (event-start event)) (window (nth 0 start-position)) (portion-whole (nth 2 start-position))) - (with-current-buffer (window-buffer window) - ;; Calculate position relative to the accessible part of the buffer. - (goto-char (+ (point-min) - (scroll-bar-scale portion-whole - (- (point-max) (point-min))))) - (vertical-motion 0 window) - (set-window-start window (point))))) + (save-excursion + (with-current-buffer (window-buffer window) + ;; Calculate position relative to the accessible part of the buffer. + (goto-char (+ (point-min) + (scroll-bar-scale portion-whole + (- (point-max) (point-min))))) + (vertical-motion 0 window) + (set-window-start window (point)))))) (defun scroll-bar-drag (event) "Scroll the window by dragging the scroll bar slider. ------------------------------------------------------------ revno: 99580 committer: Chong Yidong branch nick: trunk timestamp: Sun 2010-02-28 09:19:31 -0500 message: Fix use of unitialized memory. * charset.c (load_charset_map_from_file) (load_charset_map_from_vector): Zero out allocated charset_map_entries before using them. diff: === modified file 'src/ChangeLog' --- src/ChangeLog 2010-02-27 14:28:52 +0000 +++ src/ChangeLog 2010-02-28 14:19:31 +0000 @@ -1,3 +1,9 @@ +2010-02-28 Chong Yidong + + * charset.c (load_charset_map_from_file) + (load_charset_map_from_vector): Zero out allocated + charset_map_entries before using them. + 2010-02-27 Andreas Schwab * w32uniscribe.c (uniscribe_check_otf): Fix length check. === modified file 'src/charset.c' --- src/charset.c 2010-02-06 13:23:33 +0000 +++ src/charset.c 2010-02-28 14:19:31 +0000 @@ -531,6 +531,7 @@ SAFE_ALLOCA (head, struct charset_map_entries *, sizeof (struct charset_map_entries)); entries = head; + bzero (entries, sizeof (struct charset_map_entries)); n_entries = 0; eof = 0; @@ -557,6 +558,7 @@ SAFE_ALLOCA (entries->next, struct charset_map_entries *, sizeof (struct charset_map_entries)); entries = entries->next; + bzero (entries, sizeof (struct charset_map_entries)); } idx = n_entries % 0x10000; entries->entry[idx].from = from; @@ -596,6 +598,7 @@ SAFE_ALLOCA (head, struct charset_map_entries *, sizeof (struct charset_map_entries)); entries = head; + bzero (entries, sizeof (struct charset_map_entries)); n_entries = 0; for (i = 0; i < len; i += 2) @@ -632,6 +635,7 @@ SAFE_ALLOCA (entries->next, struct charset_map_entries *, sizeof (struct charset_map_entries)); entries = entries->next; + bzero (entries, sizeof (struct charset_map_entries)); } idx = n_entries % 0x10000; entries->entry[idx].from = from; ------------------------------------------------------------ revno: 99579 committer: Michael Albinus branch nick: trunk timestamp: Sun 2010-02-28 12:36:39 +0100 message: * net/tramp.el (tramp-handle-write-region): START can be a string. Take care in the checks. diff: === modified file 'lisp/ChangeLog' --- lisp/ChangeLog 2010-02-28 10:27:39 +0000 +++ lisp/ChangeLog 2010-02-28 11:36:39 +0000 @@ -1,5 +1,11 @@ 2010-02-28 Michael Albinus + * net/tramp.el (tramp-handle-write-region): START can be a string. + Take care in the checks. Reported by Dan Davison + . + +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) === modified file 'lisp/net/tramp.el' --- lisp/net/tramp.el 2010-02-22 13:48:52 +0000 +++ lisp/net/tramp.el 2010-02-28 11:36:39 +0000 @@ -5045,11 +5045,12 @@ ;; encoding function, then that is used for encoding the ;; contents of the tmp file. (cond - ;; `rename-file' handles direct copy and out-of-band methods. + ;; `copy-file' handles direct copy and out-of-band methods. ((or (tramp-local-host-p v) (tramp-method-out-of-band-p - v (- (or end (point-max)) (or start (point-min))))) - (if (and (= (or end (point-max)) (point-max)) + v (nth 7 (file-attributes tmpfile)))) + (if (and (not (stringp start)) + (= (or end (point-max)) (point-max)) (= (or start (point-min)) (point-min)) (tramp-get-method-parameter method 'tramp-copy-keep-tmpfile)) ------------------------------------------------------------ revno: 99578 committer: Michael Albinus branch nick: trunk timestamp: Sun 2010-02-28 11:27:39 +0100 message: * net/dbus.el (dbus-introspect, dbus-get-property) (dbus-set-property, dbus-get-all-properties): Use `dbus-call-method' when noninteractive. (Bug#5645) diff: === modified file 'lisp/ChangeLog' --- lisp/ChangeLog 2010-02-28 01:22:44 +0000 +++ lisp/ChangeLog 2010-02-28 10:27:39 +0000 @@ -1,3 +1,9 @@ +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) + 2010-02-28 Chong Yidong * textmodes/reftex-toc.el (reftex-toc-promote-prepare): === modified file 'lisp/net/dbus.el' --- lisp/net/dbus.el 2010-01-13 08:35:10 +0000 +++ lisp/net/dbus.el 2010-02-28 10:27:39 +0000 @@ -573,7 +573,8 @@ ;; is used, because the handler can be registered in our Emacs ;; instance; caller an callee would block each other. (dbus-ignore-errors - (dbus-call-method-non-blocking + (funcall + (if noninteractive 'dbus-call-method 'dbus-call-method-non-blocking) bus service path dbus-interface-introspectable "Introspect"))) (defun dbus-introspect-xml (bus service path) @@ -831,7 +832,8 @@ (dbus-ignore-errors ;; "Get" returns a variant, so we must use the `car'. (car - (dbus-call-method-non-blocking + (funcall + (if noninteractive 'dbus-call-method 'dbus-call-method-non-blocking) bus service path dbus-interface-properties "Get" :timeout 500 interface property)))) @@ -842,7 +844,8 @@ returned." (dbus-ignore-errors ;; "Set" requires a variant. - (dbus-call-method-non-blocking + (funcall + (if noninteractive 'dbus-call-method 'dbus-call-method-non-blocking) bus service path dbus-interface-properties "Set" :timeout 500 interface property (list :variant value)) ;; Return VALUE. @@ -857,7 +860,10 @@ ;; "GetAll" returns "a{sv}". (let (result) (dolist (dict - (dbus-call-method-non-blocking + (funcall + (if noninteractive + 'dbus-call-method + 'dbus-call-method-non-blocking) bus service path dbus-interface-properties "GetAll" :timeout 500 interface) result) ------------------------------------------------------------ revno: 99577 committer: Michael Albinus branch nick: trunk timestamp: Sun 2010-02-28 11:05:21 +0100 message: *** empty log message *** diff: === modified file 'doc/misc/ChangeLog' --- doc/misc/ChangeLog 2010-02-28 10:03:02 +0000 +++ doc/misc/ChangeLog 2010-02-28 10:05:21 +0000 @@ -1,7 +1,7 @@ 2010-02-28 Michael Albinus - * dbus.el (Errors and Events): D-Bus messages are retrieved only, when - Emacs runs in interactive mode. (Bug#5645) + * dbus.texi (Errors and Events): D-Bus messages are retrieved only, + when Emacs runs in interactive mode. (Bug#5645) 2010-02-16 Glenn Morris ------------------------------------------------------------ revno: 99576 committer: Michael Albinus branch nick: trunk timestamp: Sun 2010-02-28 11:03:02 +0100 message: * dbus.el (Errors and Events): D-Bus messages are retrieved only, when Emacs runs in interactive mode. (Bug#5645) diff: === modified file 'doc/misc/ChangeLog' --- doc/misc/ChangeLog 2010-02-16 02:44:29 +0000 +++ doc/misc/ChangeLog 2010-02-28 10:03:02 +0000 @@ -1,3 +1,8 @@ +2010-02-28 Michael Albinus + + * dbus.el (Errors and Events): D-Bus messages are retrieved only, when + Emacs runs in interactive mode. (Bug#5645) + 2010-02-16 Glenn Morris * nxml-mode.texi (Commands for locating a schema): Fix keybinding. === modified file 'doc/misc/dbus.texi' --- doc/misc/dbus.texi 2010-01-13 08:35:10 +0000 +++ doc/misc/dbus.texi 2010-02-28 10:03:02 +0000 @@ -1591,8 +1591,9 @@ @code{t}. @end defspec -Incoming D-Bus messages are handled as Emacs events (see @pxref{Misc -Events, , , elisp}). The generated event has this form: +Incoming D-Bus messages are handled as Emacs events, see @pxref{Misc +Events, , , elisp}. They are retrieved only, when Emacs runs in +interactive mode. The generated event has this form: @lisp (dbus-event @var{bus} @var{type} @var{serial} @var{service} @var{path} @var{interface} @var{member} @var{handler} ------------------------------------------------------------ revno: 99575 committer: Chong Yidong branch nick: trunk timestamp: Sat 2010-02-27 20:22:44 -0500 message: Fix more save-excursion warnings. * textmodes/reftex-toc.el (reftex-toc-promote-prepare): * emacs-lisp/elint.el (elint-add-required-env): * cedet/semantic/db-find.el (semanticdb-find-translate-path-brutish-default): * cedet/ede/make.el (ede-make-check-version): * calendar/icalendar.el (icalendar--add-diary-entry): * calc/calcalg2.el (math-tracing-integral): Use with-current-buffer instead of save-excursion. diff: === modified file 'lisp/ChangeLog' --- lisp/ChangeLog 2010-02-28 01:11:15 +0000 +++ lisp/ChangeLog 2010-02-28 01:22:44 +0000 @@ -1,5 +1,12 @@ 2010-02-28 Chong Yidong + * textmodes/reftex-toc.el (reftex-toc-promote-prepare): + * emacs-lisp/elint.el (elint-add-required-env): + * cedet/semantic/db-find.el + (semanticdb-find-translate-path-brutish-default): + * cedet/ede/make.el (ede-make-check-version): + * calendar/icalendar.el (icalendar--add-diary-entry): + * calc/calcalg2.el (math-tracing-integral): * files.el (recover-session-finish): Use with-current-buffer instead of save-excursion. === modified file 'lisp/calc/calcalg2.el' --- lisp/calc/calcalg2.el 2010-01-13 08:35:10 +0000 +++ lisp/calc/calcalg2.el 2010-02-28 01:22:44 +0000 @@ -670,8 +670,8 @@ (defmacro math-tracing-integral (&rest parts) (list 'and 'trace-buffer - (list 'save-excursion - '(set-buffer trace-buffer) + (list 'with-current-buffer + 'trace-buffer '(goto-char (point-max)) (list 'and '(bolp) === modified file 'lisp/calendar/icalendar.el' --- lisp/calendar/icalendar.el 2010-02-19 18:59:00 +0000 +++ lisp/calendar/icalendar.el 2010-02-28 01:22:44 +0000 @@ -2246,8 +2246,7 @@ 'make-diary-entry) string non-marking diary-file))) ;; Würgaround to remove the trailing blank char - (save-excursion - (set-buffer (find-file diary-file)) + (with-current-buffer (find-file diary-file) (goto-char (point-max)) (if (= (char-before) ? ) (delete-char -1))) === modified file 'lisp/cedet/ede/make.el' --- lisp/cedet/ede/make.el 2010-01-13 08:35:10 +0000 +++ lisp/cedet/ede/make.el 2010-02-28 01:22:44 +0000 @@ -76,9 +76,8 @@ (rev nil) (ans nil) ) - (save-excursion + (with-current-buffer b ;; Setup, and execute make. - (set-buffer b) (setq default-directory cd) (erase-buffer) (call-process ede-make-command nil b nil === modified file 'lisp/cedet/semantic/db-find.el' --- lisp/cedet/semantic/db-find.el 2010-01-18 04:39:40 +0000 +++ lisp/cedet/semantic/db-find.el 2010-02-28 01:22:44 +0000 @@ -326,9 +326,8 @@ (cond ((null path) semanticdb-current-database) ((semanticdb-table-p path) (oref path parent-db)) (t (let ((tt (semantic-something-to-tag-table path))) - (save-excursion - ;; @todo - What does this DO ??!?! - (set-buffer (semantic-tag-buffer (car tt))) + ;; @todo - What does this DO ??!?! + (with-current-buffer (semantic-tag-buffer (car tt)) semanticdb-current-database)))))) (apply #'nconc === modified file 'lisp/emacs-lisp/elint.el' --- lisp/emacs-lisp/elint.el 2010-02-14 17:28:10 +0000 +++ lisp/emacs-lisp/elint.el 2010-02-28 01:22:44 +0000 @@ -505,11 +505,10 @@ ;; (Messes up the "Initializing elint..." message.) ;;; (message nil) (if lib - (save-excursion + (with-current-buffer (find-file-noselect lib) ;; FIXME this doesn't use a temp buffer, because it ;; stores the result in buffer-local variables so that ;; it can be reused. - (set-buffer (find-file-noselect lib)) (elint-update-env) (setq env (elint-env-add-env env elint-buffer-env))) ;;; (with-temp-buffer === modified file 'lisp/textmodes/reftex-toc.el' --- lisp/textmodes/reftex-toc.el 2010-02-14 17:28:10 +0000 +++ lisp/textmodes/reftex-toc.el 2010-02-28 01:22:44 +0000 @@ -665,9 +665,8 @@ (if (and (markerp marker) (marker-buffer marker)) ;; Buffer is still live and we have the marker. (progn - (save-excursion + (with-current-buffer (marker-buffer marker) ;; Goto the buffer and check of section is unchanged - (set-buffer (marker-buffer marker)) (goto-char (marker-position marker)) (if (looking-at (regexp-quote literal)) ;; OK, get the makro name ------------------------------------------------------------ Use --include-merges or -n0 to see merged revisions.