53 lines
1.5 KiB
EmacsLisp
53 lines
1.5 KiB
EmacsLisp
--- contrib/dblack/emacs/ri.el.orig Fri Mar 16 12:25:28 2001
|
|
+++ contrib/dblack/emacs/ri.el Sat Apr 7 02:55:55 2001
|
|
@@ -82,7 +82,10 @@
|
|
;;; <ENTER> for convenience)
|
|
;;;
|
|
;;; (setq ri-key-quit "q")
|
|
-;;; bound to function ri-quit, which is probably quit-window)
|
|
+;;; bound to function ri-quit, which is probably delete-window)
|
|
+;;;
|
|
+;;; (setq ri-key-kill "Q")
|
|
+;;; bound to function ri-kill, which is probably kill-buffer & delete-window)
|
|
;;;
|
|
;;; (setq ri-key-fnt "\C-i")
|
|
;;; find-next-term (TAB)
|
|
@@ -233,9 +236,14 @@
|
|
(defvar ri-switch-to-ri-buffer t)
|
|
(defvar ri-read-only t)
|
|
|
|
+;; Locations
|
|
+(defvar ri-ri-command "/usr/local/bin/ri")
|
|
+(defvar ri-emacsrb "Emacs")
|
|
+
|
|
;; Key bindings
|
|
(defvar ri-key-stcap "\C-m")
|
|
(defvar ri-key-quit "q")
|
|
+(defvar ri-key-kill "Q")
|
|
(defvar ri-key-fnt "\C-i")
|
|
(defvar ri-key-fpt "\M-\C-i")
|
|
|
|
@@ -276,6 +284,7 @@
|
|
(and ri-read-only
|
|
(setq buffer-read-only t))
|
|
(local-set-key ri-key-quit 'ri-quit)
|
|
+ (local-set-key ri-key-kill 'ri-kill)
|
|
(local-set-key ri-key-stcap 'ri-show-term-composite-at-point)
|
|
(local-set-key ri-key-fnt 'ri-find-next-term)
|
|
(local-set-key ri-key-fpt 'ri-find-previous-term))
|
|
@@ -365,7 +374,13 @@
|
|
(defun ri-quit()
|
|
"Function bound to 'q' key in ri output buffer(s)"
|
|
(interactive)
|
|
- (quit-window))
|
|
+ (delete-window))
|
|
+
|
|
+(defun ri-kill()
|
|
+ "Function bound to 'Q' key in ri output buffer(s)"
|
|
+ (interactive)
|
|
+ (kill-buffer nil)
|
|
+ (delete-window))
|
|
|
|
;;; Functions to find and show terms at or beyond point
|
|
|