emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/tooltip.el
Date: Fri, 04 Apr 2003 01:23:15 -0500

Index: emacs/lisp/tooltip.el
diff -c emacs/lisp/tooltip.el:1.31 emacs/lisp/tooltip.el:1.32
*** emacs/lisp/tooltip.el:1.31  Sat Dec 21 19:21:06 2002
--- emacs/lisp/tooltip.el       Tue Feb  4 07:09:56 2003
***************
*** 286,292 ****
  
  (defun tooltip-set-param (alist key value)
    "Change the value of KEY in alist ALIST to VALUE.
! If there's no association for KEY in ALIST, add one, otherwise 
  change the existing association.  Value is the resulting alist."
    (let ((param (assq key alist)))
      (if (consp param)
--- 286,292 ----
  
  (defun tooltip-set-param (alist key value)
    "Change the value of KEY in alist ALIST to VALUE.
! If there's no association for KEY in ALIST, add one, otherwise
  change the existing association.  Value is the resulting alist."
    (let ((param (assq key alist)))
      (if (consp param)
***************
*** 321,327 ****
                      tooltip-hide-delay
                      tooltip-x-offset
                      tooltip-y-offset))
!       (error 
         (message "Error while displaying tooltip: %s" error)
         (sit-for 1)
         (message "%s" text)))))
--- 321,327 ----
                      tooltip-hide-delay
                      tooltip-x-offset
                      tooltip-y-offset))
!       (error
         (message "Error while displaying tooltip: %s" error)
         (sit-for 1)
         (message "%s" text)))))
***************
*** 411,417 ****
      (message "Dereferencing is now %s."
             (if tooltip-gud-dereference "on" "off"))))
  
! ; This will only display data that comes in one chunk. 
  ; Larger arrays (say 400 elements) are displayed in
  ; the tootip incompletely and spill over into the gud buffer.
  ; Switching the process-filter creates timing problems and
--- 411,417 ----
      (message "Dereferencing is now %s."
             (if tooltip-gud-dereference "on" "off"))))
  
! ; This will only display data that comes in one chunk.
  ; Larger arrays (say 400 elements) are displayed in
  ; the tootip incompletely and spill over into the gud buffer.
  ; Switching the process-filter creates timing problems and
***************
*** 455,470 ****
          (let ((cmd (tooltip-gud-print-command expr)))
            (unless (null cmd)         ; CMD can be nil if unknown debugger
              (case gud-minor-mode
!                   (gdba (gdb-enqueue-input 
                           (list  (concat cmd "\n") 'gdb-tooltip-print)))
!                   (t 
                     (setq tooltip-gud-original-filter (process-filter process))
                       (set-process-filter process 'tooltip-gud-process-output)
                       (gud-basic-call cmd)))
                    expr)))))))
  
  (defun gdb-tooltip-print ()
!   (tooltip-show 
     (with-current-buffer (gdb-get-buffer 'gdb-partial-output-buffer)
       (buffer-string))))
  
--- 455,470 ----
          (let ((cmd (tooltip-gud-print-command expr)))
            (unless (null cmd)         ; CMD can be nil if unknown debugger
              (case gud-minor-mode
!                   (gdba (gdb-enqueue-input
                           (list  (concat cmd "\n") 'gdb-tooltip-print)))
!                   (t
                     (setq tooltip-gud-original-filter (process-filter process))
                       (set-process-filter process 'tooltip-gud-process-output)
                       (gud-basic-call cmd)))
                    expr)))))))
  
  (defun gdb-tooltip-print ()
!   (tooltip-show
     (with-current-buffer (gdb-get-buffer 'gdb-partial-output-buffer)
       (buffer-string))))
  
***************
*** 488,494 ****
           ;; Keep what we have.
           )
          (t
!          ;; A different help.  Remove a previous tooltip, and 
           ;; display a new one, with some delay.
           (tooltip-hide)
           (tooltip-start-delayed-tip)))))
--- 488,494 ----
           ;; Keep what we have.
           )
          (t
!          ;; A different help.  Remove a previous tooltip, and
           ;; display a new one, with some delay.
           (tooltip-hide)
           (tooltip-start-delayed-tip)))))




reply via email to

[Prev in Thread] Current Thread [Next in Thread]