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

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.