comparison lisp/progmodes/idlw-shell.el @ 83353:532e0a9335a9

Merged in changes from CVS trunk. Plus added lisp/term tweaks. Patches applied: * [e-mail]--2004/emacs--cvs-trunk--0--base-0 tag of [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-474 * [e-mail]--2004/emacs--cvs-trunk--0--patch-1 Add CVS metadata files. * [e-mail]--2004/emacs--cvs-trunk--0--patch-2 Update from CVS. git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-393

83352:b258b3492423

;; idlw-shell.el --- run IDL as an inferior process of Emacs.
;; Copyright (c) 1999,2000,2001,2002,2003,2004,2005 Free Software Foundation

;; Authors: J.D. Smith <[e-mail]>
;;          Carsten Dominik <[e-mail]>
;;          Chris Chase <[e-mail]>
;; Maintainer: J.D. Smith <[e-mail]>

  ;; We have the new customize - use it to define a customizable face
  (defface idlwave-shell-bp
    '((((class color)) (:foreground "Black" :background "Pink"))
      (t (:underline t)))
    "Face for highlighting lines with breakpoints."
    :group 'idlwave-shell-highlighting-and-faces)
  ;; backward-compatibility alias
  (put 'idlwave-shell-bp-face 'face-alias 'idlwave-shell-bp))

(defcustom idlwave-shell-disabled-breakpoint-face 
  'idlwave-shell-disabled-bp
  "*The face for disabled breakpoint lines in the source code.
Allows you to choose the font, color and other properties for

  ;; We have the new customize - use it to define a customizable face
  (defface idlwave-shell-disabled-bp
    '((((class color)) (:foreground "Black" :background "gray"))
      (t (:underline t)))
    "Face for highlighting lines with breakpoints."
    :group 'idlwave-shell-highlighting-and-faces)
  ;; backward-compatibility alias
  (put 'idlwave-shell-disabled-bp-face 'face-alias 'idlwave-shell-disabled-bp))


(defcustom idlwave-shell-expression-face 'secondary-selection
  "*The face for `idlwave-shell-expression-overlay'.
Allows you to choose the font, color and other properties for
the expression printed by IDL."

;;; on drag events, calling drag-n-drop code if detected.  Ughhh...
(defun idlwave-default-mouse-track-event-is-with-button (event n)
  t)

(defun idlwave-xemacs-hack-mouse-track (event)
  (let ((oldfunc (symbol-function 'default-mouse-track-event-is-with-button)))
    (unwind-protect
	(progn
	  (fset 'default-mouse-track-event-is-with-button 
		'idlwave-default-mouse-track-event-is-with-button)
	  (mouse-track event))
      (fset 'default-mouse-track-event-is-with-button oldfunc))))
;;; End terrible hack section

(defun idlwave-shell-mouse-print (event)
  "Print value of variable at the mouse position, with `help'"
  (interactive "e")

83353:532e0a9335a9

;; idlw-shell.el --- run IDL as an inferior process of Emacs.
;; Copyright (c) 1999, 2000, 2001, 2002, 2003, 2004, 2005
;; Free Software Foundation

;; Authors: J.D. Smith <[e-mail]>
;;          Carsten Dominik <[e-mail]>
;;          Chris Chase <[e-mail]>
;; Maintainer: J.D. Smith <[e-mail]>

  ;; We have the new customize - use it to define a customizable face
  (defface idlwave-shell-bp
    '((((class color)) (:foreground "Black" :background "Pink"))
      (t (:underline t)))
    "Face for highlighting lines with breakpoints."
    :group 'idlwave-shell-highlighting-and-faces))

(defcustom idlwave-shell-disabled-breakpoint-face 
  'idlwave-shell-disabled-bp
  "*The face for disabled breakpoint lines in the source code.
Allows you to choose the font, color and other properties for

  ;; We have the new customize - use it to define a customizable face
  (defface idlwave-shell-disabled-bp
    '((((class color)) (:foreground "Black" :background "gray"))
      (t (:underline t)))
    "Face for highlighting lines with breakpoints."
    :group 'idlwave-shell-highlighting-and-faces))

(defcustom idlwave-shell-expression-face 'secondary-selection
  "*The face for `idlwave-shell-expression-overlay'.
Allows you to choose the font, color and other properties for
the expression printed by IDL."

;;; on drag events, calling drag-n-drop code if detected.  Ughhh...
(defun idlwave-default-mouse-track-event-is-with-button (event n)
  t)

(defun idlwave-xemacs-hack-mouse-track (event)
  (if (featurep 'xemacs) 
      (let ((oldfunc (symbol-function 'default-mouse-track-event-is-with-button)))
	(unwind-protect
	    (progn
	      (fset 'default-mouse-track-event-is-with-button 
		    'idlwave-default-mouse-track-event-is-with-button)
	      (mouse-track event))
	  (fset 'default-mouse-track-event-is-with-button oldfunc)))))
;;; End terrible hack section

(defun idlwave-shell-mouse-print (event)
  "Print value of variable at the mouse position, with `help'"
  (interactive "e")