[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
global-key-prefix in GNU emacs 25
From: |
Uwe Brauer |
Subject: |
global-key-prefix in GNU emacs 25 |
Date: |
Wed, 09 Dec 2015 17:43:37 +0000 |
User-agent: |
Gnus/5.13001 (Ma Gnus v0.10) Emacs/25.0.50 (gnu/linux) |
Hello
I just try out ahg.el a package for mercurial found in ELPA.
Now it seems not to work in GNU emacs 25, I wrote the author and the
problem seems to be this setting:
(defcustom ahg-global-key-prefix "^Chg"
"Prefix of globally-available aHg commands."
:group 'ahg :type 'string
:set (function (lambda (symbol value)
(when (boundp symbol) (global-unset-key (eval symbol)))
(global-set-key (set symbol value) ahg-global-map))))
This gives an error, I attach it just in case.
So how should a global-key-prefix be set in Emacs 25?
Thanks
Uwe Brauer
Debugger entered--Lisp error: (error "Key sequence C-c h g starts with
non-prefix key C-c h")
define-key((keymap #^[nil nil keymap
#^^[3 0 set-mark-command move-beginning-of-line backward-char
mode-specific-command-prefix delete-char move-end-of-line forward-char
keyboard-quit help-command indent-for-tab-command my-toggle-justify-or-fill
kill-line recenter-top-bottom newline next-line open-line previous-line
quoted-insert isearch-backward isearch-forward transpose-chars
universal-argument scroll-up-command kill-region Control-X-prefix yank
suspend-frame ESC-prefix dabbrev-expand abort-recursive-edit nil undo
self-insert-command self-insert-command self-insert-command self-insert-command
self-insert-command match-paren self-insert-command self-insert-command
self-insert-command self-insert-command self-insert-command self-insert-command
self-insert-command self-insert-command self-insert-command self-insert-command
...] #^^[1 0 #^^[2 0
#^^[3 0 set-mark-command move-beginning-of-line backward-char
mode-specific-command-prefix delete-char move-end-of-line forward-char
keyboard-quit help-command indent-for-tab-command my-toggle-justify-or-fill
kill-line recenter-top-bottom newline next-line open-line previous-line
quoted-insert isearch-backward isearch-forward transpose-chars
universal-argument scroll-up-command kill-region Control-X-prefix yank
suspend-frame ESC-prefix dabbrev-expand abort-recursive-edit nil undo
self-insert-command self-insert-command self-insert-command self-insert-command
self-insert-command match-paren self-insert-command self-insert-command
self-insert-command self-insert-command self-insert-command self-insert-command
self-insert-command self-insert-command self-insert-command self-insert-command
...] self-insert-command self-insert-command self-insert-command
self-insert-command self-insert-command self-insert-command self-insert-command
self-insert-command self-insert-command self-insert-command self-insert-command
self-insert-command self-insert-command self-insert-command self-insert-command
self-insert-command self-insert-command self-insert-command self-insert-command
self-insert-command self-insert-command self-insert-command self-insert-command
self-insert-command self-insert-command self-insert-command self-insert-command
self-insert-command self-insert-command self-insert-command
self-insert-command] self-insert-command self-insert-command
self-insert-command self-insert-command self-insert-command self-insert-command
self-insert-command self-insert-command self-insert-command self-insert-command
self-insert-command self-insert-command self-insert-command self-insert-command
self-insert-command] self-insert-command self-insert-command
self-insert-command self-insert-command self-insert-command self-insert-command
self-insert-command self-insert-command self-insert-command self-insert-command
self-insert-command self-insert-command self-insert-command self-insert-command
self-insert-command self-insert-command self-insert-command self-insert-command
self-insert-command self-insert-command self-insert-command self-insert-command
self-insert-command self-insert-command self-insert-command self-insert-command
self-insert-command self-insert-command self-insert-command self-insert-command
self-insert-command self-insert-command self-insert-command self-insert-command
self-insert-command self-insert-command self-insert-command self-insert-command
self-insert-command self-insert-command self-insert-command self-insert-command
self-insert-command self-insert-command self-insert-command ...] (S-mouse-3 .
kmacro-end-call-mouse) (remap keymap (find-file-other-window) (find-file))
(16777315 . my-insert-coding-string) (16777321 . my-toggle-ispell-or-aspell)
(pause . bbdb) (C-print . bookmark-bmenu-list) (print .
flyspell-auto-correct-word) (C-M-next . my-comment-mail) (C-M-prior .
byte-compile-and-load-file) (8388654 . my-insert-guillemotright) (8388652 .
my-insert-guillemotleft) (s-down . my-downcase-abbrev) (s-up . edit-abbrevs)
(M-up . folding-comment-fold) (M-down . folding-fold-region) (M-delete .
ediff-regions-wordwise) (C-M-delete . ediff-files) (67108924 .
mark-beginning-of-buffer) (67108926 . mark-end-of-buffer) (8388707 .
org-capture) (8388716 . vc-ask-login-or-not) (8388713 . vc-register) (8388724 .
vc-create-tag) (16777334 . vc-print-root-log) (8388726 . vc-print-log) (8388711
. vc-annotate) (C-button1 . flyspell-correct-word) (S-button1 .
modeline-buffers-menu) (8388730 . my-insert-comment-counter) (8388727 .
mark-word) (8388725 . vc-update-change-log) (8388723 . mark-end-of-sentence)
(8388712 . my-hebrew-line) (16777316 . vc-dir) (8388722 .
vc-rcs-remove-version) (16777330 . reverse-region) (8388721 . fill-paragraph)
(8388720 . mark-end-of-paragraph) (8388719 . my-insert-euro) (8388718 .
counter) (8388717 . my-merge-mail-alias) (8388715 .
my-toggle-vc-check-in-or-not-kill) (8388714 . session-jump-to-last-change)
(8388710 . my-feedmail-queue-message) (8388709 . recursive-edit) (8388708 .
edebug-defun) (8388706 . bbdb) (8388705 . bbdb-create) ...) "hg" (keymap (81
keymap (101 . ahg-mq-edit-series) (108 . ahg-mq-list-patches) (102 .
ahg-mq-convert-patch-to-changeset) (100 . ahg-qdelete) (116 . ahg-qtop) (112 .
ahg-qpop-all) (97 . ahg-qapply) (115 . ahg-qswitch) (109 . ahg-qmove) (103 .
ahg-qgoto) (114 . ahg-qrefresh) (61 . ahg-qdiff) (110 . ahg-qnew)) (12 .
ahg-log-cur-file) (102 . ahg-manifest-grep) (82 . ahg-rm-cur-file) (114 .
ahg-revert-cur-file) (97 . ahg-annotate-cur-file) (101 .
ahg-diff-ediff-cur-file) (61 . ahg-diff-cur-file) (99 . ahg-commit-cur-file)
(104 . ahg-command-help) (33 . ahg-do-command) (66 . ahg-bookmarks) (84 .
ahg-tags) (72 . ahg-heads) (103 . ahg-glog) (71 . ahg-glog) (76 . ahg-log) (108
. ahg-short-log) (115 . ahg-status)))
global-set-key("hg" (keymap (81 keymap (101 . ahg-mq-edit-series) (108 .
ahg-mq-list-patches) (102 . ahg-mq-convert-patch-to-changeset) (100 .
ahg-qdelete) (116 . ahg-qtop) (112 . ahg-qpop-all) (97 . ahg-qapply) (115 .
ahg-qswitch) (109 . ahg-qmove) (103 . ahg-qgoto) (114 . ahg-qrefresh) (61 .
ahg-qdiff) (110 . ahg-qnew)) (12 . ahg-log-cur-file) (102 . ahg-manifest-grep)
(82 . ahg-rm-cur-file) (114 . ahg-revert-cur-file) (97 . ahg-annotate-cur-file)
(101 . ahg-diff-ediff-cur-file) (61 . ahg-diff-cur-file) (99 .
ahg-commit-cur-file) (104 . ahg-command-help) (33 . ahg-do-command) (66 .
ahg-bookmarks) (84 . ahg-tags) (72 . ahg-heads) (103 . ahg-glog) (71 .
ahg-glog) (76 . ahg-log) (108 . ahg-short-log) (115 . ahg-status)))
#[(symbol value) "\303!\203\f \304\305!!\210\306 L\n\"\207" [symbol
value ahg-global-map boundp global-unset-key eval global-set-key]
3](ahg-global-key-prefix "hg")
custom-initialize-reset(ahg-global-key-prefix "hg")
custom-declare-variable(ahg-global-key-prefix "hg" "Prefix of
globally-available aHg commands." :group ahg :type string :set #[(symbol value)
"\303!\203\f \304\305!!\210\306 L\n\"\207" [symbol value ahg-global-map
boundp global-unset-key eval global-set-key] 3])
byte-code("\300\301\302\303\304\305%\210\306\307\310\311\304\301\312\313&\210\306\314\315\316\304\301\312\313\317\320&
\210\306\321\322\323\304\301\312\324&\210\306\325\322\326\304\301\312\324&\210\306\327\330\331\304\301\312\332&\210\306\333\322\334\304\301\312\324&\210\306\335\322\336\304\301\312\324&\210\306\337\322\340\304\301\312\324&\210\306\341\322\342\304\301\312\324&\210\306\343\322\344\304\301\312\324&\210\306\345\322\346\304\301\312\324&\210\306\347\302\350\304\301\312\351&\210\306\352\353\354\304\301\312\355&\210\306\356\302\357\304\301\312\313&\210\306\360\302\361\304\301\312\324&\210\306\362\302\363\304\301\312\324&\210\306\364\322\365\304\301\312\324&\210\306\366\302\367\304\301\312\324&address@hidden"
[custom-declare-group ahg nil "aHg Mercurial Frontend" :group tools
custom-declare-variable ahg-hg-command "hg" "Command to use for invoking
Mercurial." :type string ahg-global-key-prefix "hg" "Prefix of
globally-available aHg commands." :set #[(symbol value)
"\303!\203\f \304\305!!\210\306 L\n\"\207" [symbol value ahg-global-map
boundp global-unset-key eval global-set-key] 3] ahg-do-command-insert-header t
"If non-nil, `ahg-do-command' will insert a header line in the\ncommand
output." boolean ahg-do-command-show-buffer-immediately "If non-nil,
`ahg-do-command' will immediately switch to the buffer with the\ncommand
output, instead of waiting for the command to finish."
ahg-do-command-interactive-regexp
"\\<\\(in\\|incoming\\|out\\|outgoing\\|pull\\|push\\)\\>" "Regexp for commands
that might require a username/password\ninput in `ahg-do-command'." regexp
ahg-auto-refresh-status-buffer "If non-nil, automatically refresh the *aHg
status* buffer when certain\noperations (e.g. add, remove, commit) are
performed." ahg-restore-window-configuration-on-quit "If non-nil, when
`ahg-buffer-quit' will restore the window configuration."
ahg-diff-use-git-format "If non-nil, aHg commands that output a diff will use
the git format." ahg-qrefresh-use-short-flag "If non-nil, aHg qrefresh command
will use the --short flag. See the help\nfor qrefresh for more information."
ahg-yesno-short-prompt "If non-nil, use short form (y or n) when asking for
confimation to the user." ahg-i18n "If non-nil, use i18n when calling
Mercurial.\nNote: disabling i18n is done by unsetting the LANG environment
variable\nwhen calling hg. This might not always work."
ahg-subprocess-coding-system "If non-nil, coding system used when reading
output of hg commands." symbol ahg-log-revrange-size 100 "Length of default
revision range for `ahg-log',\n`ahg-short-log' and `ahg-glog'." integer
ahg-map-cmdline-file "Path to the file for mapping the command line.\nFor `nil'
the default file is used." ahg-summary-remote "If true, pass --remote to
summary command used by ahg-status" ...] 10)
require(ahg)
eval((require (quote ahg)) nil)
elisp--eval-last-sexp(nil)
eval-last-sexp(nil)
funcall-interactively(eval-last-sexp nil)
call-interactively(eval-last-sexp nil nil)
command-execute(eval-last-sexp)
- global-key-prefix in GNU emacs 25,
Uwe Brauer <=