Gecko [ goons4good.org ]

Name	Size	Permission	Date
charsets	[ DIR ]	drwxr-xr-x	2023-06-09 05:02
e	[ DIR ]	drwxr-xr-x	2023-06-09 05:02
forms	[ DIR ]	drwxr-xr-x	2023-06-09 05:02
gnus	[ DIR ]	drwxr-xr-x	2023-06-09 05:02
images	[ DIR ]	drwxr-xr-x	2023-06-09 05:02
nxml	[ DIR ]	drwxr-xr-x	2023-06-09 05:02
org	[ DIR ]	drwxr-xr-x	2023-06-09 05:02
refcards	[ DIR ]	drwxr-xr-x	2023-06-09 05:02
schema	[ DIR ]	drwxr-xr-x	2023-06-09 05:02
srecode	[ DIR ]	drwxr-xr-x	2023-06-09 05:02
themes	[ DIR ]	drwxr-xr-x	2023-06-09 05:02
tutorials	[ DIR ]	drwxr-xr-x	2023-06-09 05:02
AUTHORS	133.17 KB	-rw-r--r--	2013-03-04 22:48
CENSORSHIP	4.14 KB	-rw-r--r--	2012-04-13 21:33
CONTRIBUTE	7.66 KB	-rw-r--r--	2013-02-16 15:22
COPYING	34.32 KB	-rw-r--r--	2013-03-08 03:32
DEBUG	31.66 KB	-rw-r--r--	2013-02-22 12:08
DEVEL.HUMOR	8.31 KB	-rw-r--r--	2012-04-13 21:33
DISTRIB	4.5 KB	-rw-r--r--	2013-01-01 15:37
DOC-24.3.1	2.34 MB	-rw-r--r--	2023-06-07 04:19
ERC-NEWS	44.11 KB	-rw-r--r--	2013-01-01 15:37
ETAGS.EBNF	4.02 KB	-rw-r--r--	2013-01-01 15:37
ETAGS.README	2.23 KB	-rw-r--r--	2013-01-01 15:37
FTP	210 B	-rw-r--r--	2012-04-13 21:33
GNU	26.36 KB	-rw-r--r--	2013-01-01 15:37
GNUS-NEWS	2.17 KB	-rw-r--r--	2013-01-01 15:37
HELLO	4.81 KB	-rw-r--r--	2013-01-01 15:37
INTERVIEW	24.15 KB	-rw-r--r--	2012-04-13 21:33
LINUX-GNU	7.5 KB	-rw-r--r--	2012-04-13 21:33
MACHINES	7.39 KB	-rw-r--r--	2013-01-01 15:37
MAILINGLISTS	15.34 KB	-rw-r--r--	2013-01-01 15:37
MH-E-NEWS	109.71 KB	-rw-r--r--	2013-01-01 15:37
MORE.STUFF	7.48 KB	-rw-r--r--	2013-02-19 02:49
MOTIVATION	8.68 KB	-rw-r--r--	2012-04-13 21:33
NEWS	94.84 KB	-rw-r--r--	2013-03-01 03:23
NEWS.1-17	96.2 KB	-rw-r--r--	2013-01-01 15:37
NEWS.18	62.07 KB	-rw-r--r--	2013-01-01 15:37
NEWS.19	266.24 KB	-rw-r--r--	2013-01-01 15:37
NEWS.20	183.82 KB	-rw-r--r--	2013-01-01 15:37
NEWS.21	187.3 KB	-rw-r--r--	2013-01-01 15:37
NEWS.22	232.7 KB	-rw-r--r--	2013-01-01 15:37
NEWS.23	99.62 KB	-rw-r--r--	2013-01-01 15:37
NEXTSTEP	11.82 KB	-rw-r--r--	2013-01-01 15:37
NXML-NEWS	6.42 KB	-rw-r--r--	2012-04-13 21:33
ORDERS	537 B	-rw-r--r--	2012-04-13 21:33
ORG-NEWS	56.37 KB	-rw-r--r--	2013-01-08 22:56
PROBLEMS	132.29 KB	-rw-r--r--	2013-01-01 15:37
README	540 B	-rw-r--r--	2013-01-01 15:37
SERVICE	256 B	-rw-r--r--	2012-04-13 21:33
TERMS	9.82 KB	-rw-r--r--	2013-01-01 15:37
THE-GNU-PROJECT	46.03 KB	-rw-r--r--	2012-04-13 21:33
TODO	48.99 KB	-rw-r--r--	2013-02-23 16:15
WHY-FREE	11.21 KB	-rw-r--r--	2012-04-13 21:33
compilation.txt	17.59 KB	-rw-r--r--	2013-01-01 15:37
copying.paper	40.14 KB	-rw-r--r--	2012-04-13 21:33
echo.msg	3.43 KB	-rw-r--r--	2012-04-13 21:33
edt-user.el	6.85 KB	-rw-r--r--	2013-01-01 15:37
emacs-buffer.gdb	8.07 KB	-rw-r--r--	2013-01-01 15:37
emacs.desktop	455 B	-rw-r--r--	2023-06-07 03:42
emacs.icon	1.89 KB	-rw-r--r--	2012-04-13 21:33
enriched.doc	10.9 KB	-rw-r--r--	2013-01-01 15:37
gnus-tut.txt	10.35 KB	-rw-r--r--	2013-01-01 15:37
grep.txt	4.09 KB	-rw-r--r--	2013-01-01 15:37
ps-prin0.ps	5.2 KB	-rw-r--r--	2013-01-01 15:37
ps-prin1.ps	22.69 KB	-rw-r--r--	2013-01-01 15:37
publicsuffix.txt	69.13 KB	-rw-r--r--	2012-11-02 03:00
rgb.txt	18.6 KB	-rw-r--r--	2012-04-13 21:33
ses-example.ses	8.43 KB	-rw-r--r--	2013-01-01 15:37
spook.lines	9.42 KB	-rw-r--r--	2012-11-02 03:00
yow.lines	403 B	-rw-r--r--	2012-04-13 21:33

Rename

;;; edt-user.el --- Sample user customizations for Emacs EDT emulation

;; Copyright (C) 1986, 1992-1993, 2000-2013 Free Software Foundation,
;; Inc.

;; Author: Kevin Gallagher <kgallagh@@spd.dsccc.com>
;; Maintainer: Kevin Gallagher <kgallagh@@spd.dsccc.com>
;; Keywords: emulations

;; 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 3 of the License, 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.  If not, see <http://www.gnu.org/licenses/>.

;;; Commentary:

;; This is an example of the `edt-user.el' file that you can use
;; to customize the Emacs EDT emulation mode.  Copy this file to
;; somewhere in your `load-path', and edit it as desired.
;; See Info node `edt' for more details.

;; ====================================================================

;;; Code:

;;;;
;;;; Setup user custom EDT key bindings.
;;;;

(defun edt-setup-user-bindings ()
  "Assigns user custom EDT Emulation keyboard bindings."

;; PF1 (GOLD), PF2, PF3, PF4
  ;;
  ;; This file MUST contain a binding of PF1 to edt-user-gold-map.  So
  ;; DON'T CHANGE OR DELETE THE REGULAR KEY BINDING OF PF1 BELOW!
  ;; (However, you may change the GOLD-PF1 binding, if you wish.)
  (edt-bind-function-key "PF1" 'edt-user-gold-map 'edt-mark-section-wisely)
  (edt-bind-function-key "PF2" 'query-replace 'other-window)
  (edt-bind-function-key "PF4" 'edt-delete-entire-line 'edt-undelete-line)

;; EDT Keypad Keys
  (edt-bind-function-key "KP1" 'edt-word-forward 'edt-change-case)
  (edt-bind-function-key "KP3" 'edt-word-backward 'edt-copy)
  (edt-bind-function-key "KP6" 'edt-cut-or-copy 'yank)
  (edt-bind-function-key "KP8" 'edt-scroll-window 'fill-paragraph)
  (edt-bind-function-key "KP9" 'open-line 'edt-eliminate-all-tabs)
  (edt-bind-function-key "KPP"
			 'edt-toggle-select 'edt-line-to-middle-of-window)
  (edt-bind-function-key "KPE" 'edt-change-direction 'overwrite-mode)

;; GOLD bindings for regular keys.
  (edt-bind-gold-key "a" 'edt-append)
  (edt-bind-gold-key "A" 'edt-append)
  (edt-bind-gold-key "h" 'edt-electric-user-keypad-help)
  (edt-bind-gold-key "H" 'edt-electric-user-keypad-help)

;; Control bindings for regular keys.
  ;;; Leave binding of C-c as original prefix key.
  (edt-bind-key "\C-j" 'edt-duplicate-word)
  (edt-bind-key "\C-k" 'edt-define-key)
  (edt-bind-gold-key  "\C-k" 'edt-restore-key)
  (edt-bind-key "\C-l" 'edt-learn)
  ;;; Leave binding of C-m to newline.
  (edt-bind-key "\C-n" 'edt-set-screen-width-80)
  (edt-bind-key "\C-o" 'open-line)
  (edt-bind-key "\C-p" 'fill-paragraph)
  ;;; Leave binding of C-r to isearch-backward.
  ;;; Leave binding of C-s to isearch-forward.
  (edt-bind-key "\C-t" 'edt-display-the-time)
  (edt-bind-key "\C-v" 'redraw-display)
  (edt-bind-key "\C-w" 'edt-set-screen-width-132)
  ;;; Leave binding of C-x as original prefix key.
)

;;;
;;; LK-201 KEYBOARD USER EDT KEYPAD HELP
;;;

(defun edt-user-keypad-help ()
  "
                                USER EDT Keypad Active

G-a: Append to Kill Buffer
  G-b: Buffer Menu
  G-c: Compile
  G-d: Delete Window
  G-e: Exit
  G-f: Find File
  G-g: Find File Other Window
  G-h: Keypad Help
  G-i: Insert File
  G-k: Toggle Capitalization Word
  G-l: Lowercase Word or Region
  G-m: Save Some Buffers
  G-n: Next Error
  G-o: Switch Windows
  G-q: Quit
  G-r: Revert File
  G-s: Save Buffer
  G-u: Uppercase Word or Region
  G-v: Find File Other Window
  G-w: Write file
  G-y: EDT Emulation OFF
  G-z: Switch to Default EDT Key Bindings
  G-2: Split Window
  G-%: Go to Percentage
  G- : Undo  (GOLD Spacebar)
  G-=: Go to Line
  G-`: What line
  G-/: Query-Replace"

(interactive)
  (describe-function 'edt-user-keypad-help))

;;; edt-user.el ends here