Return to dot.emacs_x11 CVS log

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

Annotation of 43BSDReno/contrib/emacs-18.55/dist-1.3/fi/dot.emacs_x11, revision 1.1

1.1     ! root        1: ;;                             -[Fri Nov 18 20:21:56 1988 by layer]-
        !             2: ;; Sample X11 bindings for .emacs file
        !             3: ;;
        !             4: ;; $Header: dot.emacs_x11,v 1.1 88/11/18 20:22:52 layer Exp $
        !             5: 
        !             6: (require 'x-mouse)
        !             7: 
        !             8: (defun x-lisp-find-tag (arg)
        !             9:   (x-mouse-set-point arg)
        !            10:   (cond ((eq major-mode 'fi:common-lisp-mode) (fi:lisp-find-tag))
        !            11:        (t (find-tag-other-window (find-tag-default)))))
        !            12: 
        !            13: (defun x-lisp-eval-defun (arg)
        !            14:   (x-mouse-set-point arg)
        !            15:   (cond ((memq major-mode '(fi:common-lisp-mode fi:franz-lisp-mode
        !            16:                            fi:lisp-mode))
        !            17:         (fi:lisp-eval-defun nil))
        !            18:        ((eq major-mode 'fi:emacs-lisp-mode) (eval-defun))))
        !            19: 
        !            20: (defun x-lisp-arglist (arg)
        !            21:   (x-mouse-set-point arg)
        !            22:   (cond ((eq major-mode 'fi:common-lisp-mode) (fi:lisp-arglist))
        !            23:        (t (describe-function (intern (find-tag-default))))))
        !            24: 
        !            25: (define-key mouse-map x-button-left-up 'x-lisp-find-tag)
        !            26: (define-key mouse-map x-button-middle-up 'x-lisp-eval-defun)
        !            27: (define-key mouse-map x-button-right-up 'x-lisp-arglist)
        !            28: 
        !            29: ;; we ignore mouse button-down events, because if we put something
        !            30: ;; on it the `up' event will cause the minibuffer output to disappear
        !            31: (define-key mouse-map x-button-left 'x-mouse-ignore)
        !            32: (define-key mouse-map x-button-middle 'x-mouse-ignore)
        !            33: (define-key mouse-map x-button-right 'x-mouse-ignore)
        !            34: (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.