Return to dot.emacs_x11 CVS log

Up to [CSRG BSD Unix] / 43BSDReno / contrib / emacs-18.55 / dist-1.3 / fi

BSD 4.3reno

;;				-[Fri Nov 18 20:21:56 1988 by layer]-
;; Sample X11 bindings for .emacs file
;;
;; $Header: /var/lib/cvsd/repos/CSRG/43BSDReno/contrib/emacs-18.55/dist-1.3/fi/dot.emacs_x11,v 1.1.1.1 2018/04/24 16:12:57 root Exp $

(require 'x-mouse)

(defun x-lisp-find-tag (arg)
  (x-mouse-set-point arg)
  (cond ((eq major-mode 'fi:common-lisp-mode) (fi:lisp-find-tag))
	(t (find-tag-other-window (find-tag-default)))))

(defun x-lisp-eval-defun (arg)
  (x-mouse-set-point arg)
  (cond ((memq major-mode '(fi:common-lisp-mode fi:franz-lisp-mode
			    fi:lisp-mode))
	 (fi:lisp-eval-defun nil))
	((eq major-mode 'fi:emacs-lisp-mode) (eval-defun))))

(defun x-lisp-arglist (arg)
  (x-mouse-set-point arg)
  (cond ((eq major-mode 'fi:common-lisp-mode) (fi:lisp-arglist))
	(t (describe-function (intern (find-tag-default))))))

(define-key mouse-map x-button-left-up 'x-lisp-find-tag)
(define-key mouse-map x-button-middle-up 'x-lisp-eval-defun)
(define-key mouse-map x-button-right-up 'x-lisp-arglist)

;; we ignore mouse button-down events, because if we put something
;; on it the `up' event will cause the minibuffer output to disappear
(define-key mouse-map x-button-left 'x-mouse-ignore)
(define-key mouse-map x-button-middle 'x-mouse-ignore)
(define-key mouse-map x-button-right 'x-mouse-ignore)
(define-key mouse-map x-button-c-left 'x-mouse-ignore)

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.