Mercurial > emacs
view lisp/=sun-keys.el @ 1515:8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
(recursive_edit_unwind, command_loop, Fthis_command_keys): Declare
these to return Lisp_Objects at the very top of the file, to avoid
having them implicitly declared as ints.
(echo_char): Use EQ to compare C to help_char.
(read_char): Remember to apply XFASTINT to the return value of
Flength before using it. Apply XINT to c when clearing its high
bits and meta bits, and when writing it to the dribble file.
(read_char_menu_prompt): Use EQ to compare obj with
menu_prompt_more_char and its control-character analog.
(read_key_sequence): Declare PROMPT to be char *, not a
Lisp_Object. Use the appropriate accessors on keybuf when looking
for ASCII function key sequences.
* keyboard.c (echobuf): Make this 300 characters, not 100. This
isn't a real fix, but it's quick.
* keyboard.c (read_char): When returning an unread switch-frame
event, jump to reread_first to return it, rather than reread; this
makes sure the event gets echoed (if appropriate) and goes into
this_command_keys.
* keyboard.c (read_key_sequence): If the key sequence starts with
a mouse click, read the key sequence using the keymaps of the
buffer clicked on, not the current buffer.
* keyboard.c (unread_switch_frame): Make this static, to indicate
that nobody outside of this file uses it.
* keyboard.c (follow_key): Ask get_keymap_1 to perform autoloads.
(read_key_sequence): When pursuing potential bindings in the
function key map, ask get_keymap_1 to perform autoloading. This
is hardly important, but it's consistent.
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Sat, 31 Oct 1992 05:21:45 +0000 |
parents | 2cdce064065f |
children |
line wrap: on
line source
;;; sun-keys.el --- support for Sun function keys ;;; Copyright (C) 1986 Free Software Foundation, Inc. ;; Author: Ian G. Batten <batten@uk.ac.bham.multics> ;; Keywords: terminals ;;; This file is part of GNU Emacs. ;; GNU Emacs is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 2, or (at your option) ;; any later version. ;; GNU Emacs is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs; see the file COPYING. If not, write to ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Commentary: ;;; Support (cleanly) for Sun function keys. Provides help facilities, ;;; better diagnostics, etc. ;;; ;;; To use: make sure your .ttyswrc binds 'F1' to <ESC> * F1 <CR> and so on. ;;; load this lot from your start_up ;;; Code: (defun sun-function-keys-dispatch (arg) "Dispatcher for function keys." (interactive "p") (let* ((key-stroke (read t)) (command (assq key-stroke sun-function-keys-command-list))) (cond (command (funcall (cdr command) arg)) (t (error "Unbound function key %s" key-stroke))))) (defvar sun-function-keys-command-list '((F1 . sun-function-keys-describe-bindings) (R8 . previous-line) ; arrow keys (R10 . backward-char) (R12 . forward-char) (R14 . next-line))) (defun sun-function-keys-bind-key (arg1 arg2) "Bind a specified key." (interactive "xFunction Key Cap Label: CCommand To Use:") (setq sun-function-keys-command-list (cons (cons arg1 arg2) sun-function-keys-command-list))) (defun sun-function-keys-describe-bindings (arg) "Describe the function key bindings we're running" (interactive) (with-output-to-temp-buffer "*Help*" (sun-function-keys-write-bindings (sort (copy-sequence sun-function-keys-command-list) '(lambda (x y) (string-lessp (car x) (car y))))))) (defun sun-function-keys-write-bindings (list) (cond ((null list) t) (t (princ (format "%s: %s\n" (car (car list)) (cdr (car list)))) (sun-function-keys-write-bindings (cdr list))))) (global-set-key "\e*" 'sun-function-keys-dispatch) (make-variable-buffer-local 'sun-function-keys-command-list) ;;; sun-keys.el ends here