1 |
;;; sun.el --- keybinding for standard default sunterm keys |
;;; sun.el --- keybinding for standard default sunterm keys |
2 |
|
|
3 |
;; Copyright (C) 1987, 2001, 2005 Free Software Foundation, Inc. |
;; Copyright (C) 1987, 2001, 2002, 2003, 2004, |
4 |
|
;; 2005 Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Author: Jeff Peck <peck@sun.com> |
;; Author: Jeff Peck <peck@sun.com> |
7 |
;; Keywords: terminals |
;; Keywords: terminals |
254 |
(while hooks |
(while hooks |
255 |
(eval (car hooks)) |
(eval (car hooks)) |
256 |
(setq hooks (cdr hooks))))) |
(setq hooks (cdr hooks))))) |
257 |
|
|
258 |
(define-key ctl-x-map "\C-@" 'sun-mouse-once)) |
(define-key ctl-x-map "\C-@" 'sun-mouse-once)) |
259 |
|
|
260 |
(defun emacstool-init () |
(defun emacstool-init () |