[Emacs-diffs] Changes to emacs/lisp/dframe.el

[Juanma Barranquero]

Index: emacs/lisp/dframe.el
diff -c emacs/lisp/dframe.el:1.4 emacs/lisp/dframe.el:1.5
*** emacs/lisp/dframe.el:1.4    Tue Oct  4 14:06:44 2005
--- emacs/lisp/dframe.el        Thu Oct  6 08:19:10 2005
***************
*** 109,114 ****
--- 109,117 ----
  ;;  * The timer managers doesn't handle multiple different timeouts.
  ;;  * You can't specify continuous timouts (as opposed to just lidle timers.)
  
+ (defvar x-pointer-hand2)
+ (defvar x-pointer-top-left-arrow)
+ 
  ;;; Code:
  (defvar dframe-xemacsp (string-match "XEmacs" emacs-version)
    "Non-nil if we are running in the XEmacs environment.")
***************
*** 151,157 ****
  (if (fboundp 'frame-parameter)
  
      (defalias 'dframe-frame-parameter 'frame-parameter)
!   
    (defun dframe-frame-parameter (frame parameter)
      "Return FRAME's PARAMETER value."
      (cdr (assoc parameter (frame-parameters frame)))))
--- 154,160 ----
  (if (fboundp 'frame-parameter)
  
      (defalias 'dframe-frame-parameter 'frame-parameter)
! 
    (defun dframe-frame-parameter (frame parameter)
      "Return FRAME's PARAMETER value."
      (cdr (assoc parameter (frame-parameters frame)))))
***************
*** 716,722 ****
    (when (or (not (dframe-mouse-event-p last-input-event))
              dframe-activity-change-focus-flag)
      (dframe-select-attached-frame)
!     ;; KB: For what is this - raising the frame?? 
      (other-frame 0)))
  
  
--- 719,725 ----
    (when (or (not (dframe-mouse-event-p last-input-event))
              dframe-activity-change-focus-flag)
      (dframe-select-attached-frame)
!     ;; KB: For what is this - raising the frame??
      (other-frame 0)))
  
  
***************
*** 903,909 ****
                 (windowp (posn-window (event-end event))) ; Sometimes
                                        ; there is no window to jump into.
                 ))
!            
      (funcall dframe-track-mouse-function event)))
  
  (defun dframe-track-mouse-xemacs (event)
--- 906,912 ----
                 (windowp (posn-window (event-end event))) ; Sometimes
                                        ; there is no window to jump into.
                 ))
! 
      (funcall dframe-track-mouse-function event)))
  
  (defun dframe-track-mouse-xemacs (event)