steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

FUEL: Remove key bindings of the form C-c <alphabetic> 

Bindings of the form C-c <alphabetic> (e.g. C-c z) are traditionally
reserved in Emacs for user-defined keymaps, and shouldn't be used by
packages.

This patch removes all bindings of that form, replacing them by C-c
C-<alphabetic> (or simply preserving a previously existing binding).
E.g., C-c z becomes C-c C-z. In most cases, the binding with two C's
was already present.

The only change not following the above rule is C-c h in the listener,
which has become C-c C-w (because the C-h suffix is also 'taken' by
Emacs conventions).
db4
Jose A. Ortega Ruiz 2010-08-12 03:09:15 +02:00
parent 53a8f004d0
commit 5d8495aa5a
4 changed files with 70 additions and 74 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

124
misc/fuel/README
View File

@ -96,67 +96,67 @@ beast.
Commands in parenthesis can be invoked interactively with Commands in parenthesis can be invoked interactively with
M-x <command>, not necessarily in a factor buffer. M-x <command>, not necessarily in a factor buffer.
|-----------------+------------------------------------------------------------| |--------------------+------------------------------------------------------------|
| C-cz | switch to listener (run-factor) | | C-c C-z | switch to listener (run-factor) |
| C-co | cycle between code, tests and docs files | | C-c C-o | cycle between code, tests and docs files |
| C-ct | run the unit tests for a vocabulary | | C-c C-t | run the unit tests for a vocabulary |
| C-cr | switch to listener and refresh all loaded vocabs | | C-c C-r | switch to listener and refresh all loaded vocabs |
| C-cs | switch to other factor buffer (fuel-switch-to-buffer) | | C-c C-s | switch to other factor buffer (fuel-switch-to-buffer) |
| C-x4s | switch to other factor buffer in other window | | C-x 4 s | switch to other factor buffer in other window |
| C-x5s | switch to other factor buffer in other frame | | C-x 5 s | switch to other factor buffer in other frame |
|-----------------+------------------------------------------------------------| |--------------------+------------------------------------------------------------|
| M-. | edit word at point in Emacs (fuel-edit-word) | | M-. | edit word at point in Emacs (fuel-edit-word) |
| M-, | go back to where M-. was last invoked | | M-, | go back to where M-. was last invoked |
| M-TAB | complete word at point | | M-TAB | complete word at point |
| C-cC-eu | update USING: line (fuel-update-usings) | | C-c C-e u | update USING: line (fuel-update-usings) |
| C-cC-ev | edit vocabulary (fuel-edit-vocabulary) | | C-c C-e v | edit vocabulary (fuel-edit-vocabulary) |
| C-cC-ew | edit word (fuel-edit-word-at-point) | | C-c C-e w | edit word (fuel-edit-word-at-point) |
| C-cC-ed | edit word's doc (C-u M-x fuel-edit-word-doc-at-point) | | C-c C-e d | edit word's doc (C-u M-x fuel-edit-word-doc-at-point) |
| C-cC-el | load vocabs in USING: form | | C-c C-e l | load vocabs in USING: form |
|-----------------+------------------------------------------------------------| |--------------------+------------------------------------------------------------|
| C-cC-er | eval region | | C-c C-e r | eval region |
| C-M-r, C-cC-ee | eval region, extending it to definition boundaries | | C-M-r, C-c C-e e | eval region, extending it to definition boundaries |
| C-M-x, C-cC-ex | eval definition around point | | C-M-x, C-c C-e x | eval definition around point |
| C-ck, C-cC-ek | run file (fuel-run-file) | | C-c C-k, C-c C-e k | run file (fuel-run-file) |
|-----------------+------------------------------------------------------------| |--------------------+------------------------------------------------------------|
| C-cC-da | toggle autodoc mode (fuel-autodoc-mode) | | C-c C-d a | toggle autodoc mode (fuel-autodoc-mode) |
| C-cC-dd | help for word at point (fuel-help) | | C-c C-d d | help for word at point (fuel-help) |
| C-cC-ds | short help word at point (fuel-help-short) | | C-c C-d s | short help word at point (fuel-help-short) |
| C-cC-de | show stack effect of current sexp (with prefix, region) | | C-c C-d e | show stack effect of current sexp (with prefix, region) |
| C-cC-dp | find words containing given substring (fuel-apropos) | | C-c C-d p | find words containing given substring (fuel-apropos) |
| C-cC-dv | show words in current file (with prefix, ask for vocab) | | C-c C-d v | show words in current file (with prefix, ask for vocab) |
|-----------------+------------------------------------------------------------| |--------------------+------------------------------------------------------------|
| C-cM-<, C-cC-d< | show callers of word or vocabulary at point | | C-c M-<, C-c C-d < | show callers of word or vocabulary at point |
| | (fuel-show-callers, fuel-vocab-usage) | | | (fuel-show-callers, fuel-vocab-usage) |
| C-cM->, C-cC-d> | show callees of word or vocabulary at point | | C-c M->, C-c C-d> | show callees of word or vocabulary at point |
| | (fuel-show-callees, fuel-vocab-uses) | | | (fuel-show-callees, fuel-vocab-uses) |
|-----------------+------------------------------------------------------------| |--------------------+------------------------------------------------------------|
| C-cC-xs | extract innermost sexp (up to point) as a separate word | | C-c C-x s | extract innermost sexp (up to point) as a separate word |
| | (fuel-refactor-extract-sexp) | | | (fuel-refactor-extract-sexp) |
| C-cC-xr | extract region as a separate word | | C-c C-x r | extract region as a separate word |
| | (fuel-refactor-extract-region) | | | (fuel-refactor-extract-region) |
| C-cC-xv | extract region as a separate vocabulary | | C-c C-x v | extract region as a separate vocabulary |
| | (fuel-refactor-extract-vocab) | | | (fuel-refactor-extract-vocab) |
| C-cC-xi | replace word by its definition (fuel-refactor-inline-word) | | C-c C-x i | replace word by its definition (fuel-refactor-inline-word) |
| C-cC-xw | rename all uses of a word (fuel-refactor-rename-word) | | C-c C-x w | rename all uses of a word (fuel-refactor-rename-word) |
| C-cC-xa | extract region as a separate ARTICLE: form | | C-c C-x a | extract region as a separate ARTICLE: form |
| C-cC-xg | convert current word definition into GENERIC + method | | C-c C-x g | convert current word definition into GENERIC + method |
| | (fuel-refactor-make-generic) | | | (fuel-refactor-make-generic) |
|-----------------+------------------------------------------------------------| |--------------------+------------------------------------------------------------|
*** In the listener: *** In the listener:
|------+----------------------------------------------------------| |---------+----------------------------------------------------------|
| TAB | complete word at point | | TAB | complete word at point |
| M-. | edit word at point in Emacs | | M-. | edit word at point in Emacs |
| C-cr | refresh all loaded vocabs | | C-c C-r | refresh all loaded vocabs |
| C-ca | toggle autodoc mode | | C-c C-a | toggle autodoc mode |
| C-cp | find words containing given substring (M-x fuel-apropos) | | C-c C-p | find words containing given substring (M-x fuel-apropos) |
| C-cs | toggle stack mode | | C-c C-s | toggle stack mode |
| C-cv | edit vocabulary | | C-c C-v | edit vocabulary |
| C-ch | help for word at point | | C-c C-w | help for word at point |
| C-ck | run file | | C-c C-k | run file |
|------+----------------------------------------------------------| |---------+----------------------------------------------------------|
*** In the debugger (it pops up upon eval/compilation errors): *** In the debugger (it pops up upon eval/compilation errors):
@ -174,9 +174,9 @@ beast.
| v | help for a vocabulary | | v | help for a vocabulary |
| a | find words containing given substring (M-x fuel-apropos) | | a | find words containing given substring (M-x fuel-apropos) |
| e | edit current article | | e | edit current article |
| ba | bookmark current page | | b a | bookmark current page |
| bb | display bookmarks | | b b | display bookmarks |
| bd | delete bookmark at point | | b d | delete bookmark at point |
| n/p | next/previous page | | n/p | next/previous page |
| l | previous page | | l | previous page |
| SPC/S-SPC | scroll up/down | | SPC/S-SPC | scroll up/down |
@ -185,7 +185,7 @@ beast.
| r | refresh page | | r | refresh page |
| c | clean browsing history | | c | clean browsing history |
| M-. | edit word at point in Emacs | | M-. | edit word at point in Emacs |
| C-cz | switch to listener | | C-c C-z | switch to listener |
| q | bury buffer | | q | bury buffer |
|-----------+----------------------------------------------------------| |-----------+----------------------------------------------------------|

3
misc/fuel/fuel-help.el
View File

@ -1,6 +1,6 @@
;;; fuel-help.el -- accessing Factor's help system ;;; fuel-help.el -- accessing Factor's help system
;; Copyright (C) 2008, 2009 Jose Antonio Ortega Ruiz ;; Copyright (C) 2008, 2009, 2010 Jose Antonio Ortega Ruiz
;; See http://factorcode.org/license.txt for BSD license. ;; See http://factorcode.org/license.txt for BSD license.
;; Author: Jose Antonio Ortega Ruiz <jao@gnu.org> ;; Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
@ -330,7 +330,6 @@ With prefix, the current page is deleted from history."
(define-key map (kbd "SPC") 'scroll-up) (define-key map (kbd "SPC") 'scroll-up)
(define-key map (kbd "S-SPC") 'scroll-down) (define-key map (kbd "S-SPC") 'scroll-down)
(define-key map "\M-." 'fuel-edit-word-at-point) (define-key map "\M-." 'fuel-edit-word-at-point)
(define-key map "\C-cz" 'run-factor)
(define-key map "\C-c\C-z" 'run-factor) (define-key map "\C-c\C-z" 'run-factor)
map)) map))

14
misc/fuel/fuel-listener.el
View File

@ -249,18 +249,16 @@ the vocabulary name."
(fuel-listener--setup-completion) (fuel-listener--setup-completion)
(fuel-listener--setup-stack-mode)) (fuel-listener--setup-stack-mode))
(define-key fuel-listener-mode-map "\C-cz" 'run-factor)
(define-key fuel-listener-mode-map "\C-c\C-z" 'run-factor) (define-key fuel-listener-mode-map "\C-c\C-z" 'run-factor)
(define-key fuel-listener-mode-map "\C-a" 'fuel-listener--bol) (define-key fuel-listener-mode-map "\C-a" 'fuel-listener--bol)
(define-key fuel-listener-mode-map "\C-ca" 'fuel-autodoc-mode) (define-key fuel-listener-mode-map "\C-c\C-a" 'fuel-autodoc-mode)
(define-key fuel-listener-mode-map "\C-ch" 'fuel-help) (define-key fuel-listener-mode-map "\C-c\C-w" 'fuel-help)
(define-key fuel-listener-mode-map "\C-cr" 'fuel-refresh-all) (define-key fuel-listener-mode-map "\C-c\C-r" 'fuel-refresh-all)
(define-key fuel-listener-mode-map "\C-cs" 'fuel-stack-mode) (define-key fuel-listener-mode-map "\C-c\C-s" 'fuel-stack-mode)
(define-key fuel-listener-mode-map "\C-cp" 'fuel-apropos) (define-key fuel-listener-mode-map "\C-c\C-p" 'fuel-apropos)
(define-key fuel-listener-mode-map "\M-." 'fuel-edit-word-at-point) (define-key fuel-listener-mode-map "\M-." 'fuel-edit-word-at-point)
(define-key fuel-listener-mode-map "\C-cv" 'fuel-edit-vocabulary)
(define-key fuel-listener-mode-map "\C-c\C-v" 'fuel-edit-vocabulary) (define-key fuel-listener-mode-map "\C-c\C-v" 'fuel-edit-vocabulary)
(define-key fuel-listener-mode-map "\C-ck" 'fuel-run-file) (define-key fuel-listener-mode-map "\C-c\C-k" 'fuel-run-file)
(define-key fuel-listener-mode-map (kbd "TAB") (define-key fuel-listener-mode-map (kbd "TAB")
'fuel-completion--complete-symbol) 'fuel-completion--complete-symbol)

3
misc/fuel/fuel-mode.el
View File

@ -1,6 +1,6 @@
;;; fuel-mode.el -- Minor mode enabling FUEL niceties ;;; fuel-mode.el -- Minor mode enabling FUEL niceties
;; Copyright (C) 2008, 2009 Jose Antonio Ortega Ruiz ;; Copyright (C) 2008, 2009, 2010 Jose Antonio Ortega Ruiz
;; See http://factorcode.org/license.txt for BSD license. ;; See http://factorcode.org/license.txt for BSD license.
;; Author: Jose Antonio Ortega Ruiz <jao@gnu.org> ;; Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
@ -184,7 +184,6 @@ interacting with a factor listener is at your disposal.
;;; Keys: ;;; Keys:
(defun fuel-mode--key-1 (k c) (defun fuel-mode--key-1 (k c)
(define-key fuel-mode-map (vector '(control ?c) k) c)
(define-key fuel-mode-map (vector '(control ?c) `(control ,k)) c)) (define-key fuel-mode-map (vector '(control ?c) `(control ,k)) c))
(defun fuel-mode--key (p k c) (defun fuel-mode--key (p k c)