[Emacs-diffs] trunk r113611: * lisp/emacs-lisp/re-builder.el (reb-color-display-p):

[Dmitry Antipov]

------------------------------------------------------------
revno: 113611
revision-id: address@hidden
parent: address@hidden
committer: Dmitry Antipov <address@hidden>
branch nick: trunk
timestamp: Wed 2013-07-31 10:52:26 +0400
message:
  * lisp/emacs-lisp/re-builder.el (reb-color-display-p):
  * lisp/files.el (save-buffers-kill-terminal):
  * lisp/net/browse-url.el (browse-url):
  * lisp/server.el (server-save-buffers-kill-terminal):
  * lisp/textmodes/reftex-toc.el (reftex-toc, reftex-toc-revert):
  Prefer nil to selected-frame for the first arg of frame-parameter.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/emacs-lisp/re-builder.el  
rebuilder.el-20091113204419-o5vbwnq5f7feedwu-1773
  lisp/files.el                  files.el-20091113204419-o5vbwnq5f7feedwu-265
  lisp/net/browse-url.el         
browseurl.el-20091113204419-o5vbwnq5f7feedwu-1785
  lisp/server.el                 server.el-20091113204419-o5vbwnq5f7feedwu-107
  lisp/textmodes/reftex-toc.el   
reftextoc.el-20091113204419-o5vbwnq5f7feedwu-1337

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-07-30 20:42:15 +0000
+++ b/lisp/ChangeLog    2013-07-31 06:52:26 +0000
@@ -1,3 +1,12 @@
+2013-07-31  Dmitry Antipov <address@hidden>
+
+       * emacs-lisp/re-builder.el (reb-color-display-p):
+       * files.el (save-buffers-kill-terminal):
+       * net/browse-url.el (browse-url):
+       * server.el (server-save-buffers-kill-terminal):
+       * textmodes/reftex-toc.el (reftex-toc, reftex-toc-revert):
+       Prefer nil to selected-frame for the first arg of frame-parameter.
+
 2013-07-30  Stephen Berman  <address@hidden>
 
        * minibuffer.el (completion--twq-all): Try and preserve each

=== modified file 'lisp/emacs-lisp/re-builder.el'
--- a/lisp/emacs-lisp/re-builder.el     2013-01-01 09:11:05 +0000
+++ b/lisp/emacs-lisp/re-builder.el     2013-07-31 06:52:26 +0000
@@ -319,7 +319,7 @@
   (eq 'color
       ;; emacs/xemacs compatibility
       (if (fboundp 'frame-parameter)
-         (frame-parameter (selected-frame) 'display-type)
+         (frame-parameter nil 'display-type)
        (if (fboundp 'frame-property)
            (frame-property (selected-frame) 'display-type)))))
 

=== modified file 'lisp/files.el'
--- a/lisp/files.el     2013-07-24 04:56:12 +0000
+++ b/lisp/files.el     2013-07-31 06:52:26 +0000
@@ -6479,7 +6479,7 @@
 If emacsclient was started with a list of filenames to edit, then
 only these files will be asked to be saved."
   (interactive "P")
-  (if (frame-parameter (selected-frame) 'client)
+  (if (frame-parameter nil 'client)
       (server-save-buffers-kill-terminal arg)
     (save-buffers-kill-emacs arg)))
 

=== modified file 'lisp/net/browse-url.el'
--- a/lisp/net/browse-url.el    2013-06-19 07:37:45 +0000
+++ b/lisp/net/browse-url.el    2013-07-31 06:52:26 +0000
@@ -816,8 +816,8 @@
     ;; When connected to various displays, be careful to use the display of
     ;; the currently selected frame, rather than the original start display,
     ;; which may not even exist any more.
-    (if (stringp (frame-parameter (selected-frame) 'display))
-        (setenv "DISPLAY" (frame-parameter (selected-frame) 'display)))
+    (if (stringp (frame-parameter nil 'display))
+        (setenv "DISPLAY" (frame-parameter nil 'display)))
     (if (and (consp function)
             (not (functionp function)))
        ;; The `function' can be an alist; look down it for first match

=== modified file 'lisp/server.el'
--- a/lisp/server.el    2013-02-13 04:31:09 +0000
+++ b/lisp/server.el    2013-07-31 06:52:26 +0000
@@ -1611,7 +1611,7 @@
 
 If emacsclient was started with a list of filenames to edit, then
 only these files will be asked to be saved."
-  (let ((proc (frame-parameter (selected-frame) 'client)))
+  (let ((proc (frame-parameter nil 'client)))
     (cond ((eq proc 'nowait)
           ;; Nowait frames have no client buffer list.
           (if (cdr (frame-list))

=== modified file 'lisp/textmodes/reftex-toc.el'
--- a/lisp/textmodes/reftex-toc.el      2013-01-02 16:13:04 +0000
+++ b/lisp/textmodes/reftex-toc.el      2013-07-31 06:52:26 +0000
@@ -229,7 +229,7 @@
                       (car (reftex-where-am-I))))
          (unsplittable (if (fboundp 'frame-property)
                            (frame-property (selected-frame) 'unsplittable)
-                         (frame-parameter (selected-frame) 'unsplittable)))
+                         (frame-parameter nil 'unsplittable)))
          offset toc-window)
 
     (if (setq toc-window (get-buffer-window
@@ -587,7 +587,7 @@
   (let ((unsplittable
          (if (fboundp 'frame-property)
              (frame-property (selected-frame) 'unsplittable)
-           (frame-parameter (selected-frame) 'unsplittable)))
+           (frame-parameter nil 'unsplittable)))
         (reftex-rebuilding-toc t))
     (if unsplittable
         (switch-to-buffer