From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Uwe Brauer Newsgroups: gmane.emacs.devel Subject: global-key-prefix in GNU emacs 25 Date: Wed, 09 Dec 2015 17:43:37 +0000 Message-ID: <877fknplfa.fsf@mat.ucm.es> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: ger.gmane.org 1449683064 10690 80.91.229.3 (9 Dec 2015 17:44:24 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Wed, 9 Dec 2015 17:44:24 +0000 (UTC) To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Wed Dec 09 18:44:08 2015 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1a6ime-0007mt-5N for ged-emacs-devel@m.gmane.org; Wed, 09 Dec 2015 18:44:08 +0100 Original-Received: from localhost ([::1]:37208 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1a6imd-0005GN-Ip for ged-emacs-devel@m.gmane.org; Wed, 09 Dec 2015 12:44:07 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:36099) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1a6imN-0005G7-6i for emacs-devel@gnu.org; Wed, 09 Dec 2015 12:43:53 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1a6imI-0000vM-Ut for emacs-devel@gnu.org; Wed, 09 Dec 2015 12:43:51 -0500 Original-Received: from plane.gmane.org ([80.91.229.3]:33530) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1a6imI-0000vI-K7 for emacs-devel@gnu.org; Wed, 09 Dec 2015 12:43:46 -0500 Original-Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1a6imF-00073F-Ay for emacs-devel@gnu.org; Wed, 09 Dec 2015 18:43:43 +0100 Original-Received: from gilgamesch.quim.ucm.es ([147.96.12.99]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Wed, 09 Dec 2015 18:43:43 +0100 Original-Received: from oub by gilgamesch.quim.ucm.es with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Wed, 09 Dec 2015 18:43:43 +0100 X-Injected-Via-Gmane: http://gmane.org/ Mail-Followup-To: emacs-devel@gnu.org Original-Lines: 188 Original-X-Complaints-To: usenet@ger.gmane.org X-Gmane-NNTP-Posting-Host: gilgamesch.quim.ucm.es Mail-Copies-To: never User-Agent: Gnus/5.13001 (Ma Gnus v0.10) Emacs/25.0.50 (gnu/linux) Cancel-Lock: sha1:UlHZWC4Jbc/+rOTvjAneDbZZ4vw= X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-Received-From: 80.91.229.3 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:195994 Archived-At: --=-=-= Content-Type: text/plain 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 --=-=-= Content-Type: text/plain Content-Disposition: inline; filename=ahg-bug.txt Content-Transfer-Encoding: quoted-printable 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=20 #^^[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 hel= p-command indent-for-tab-command my-toggle-justify-or-fill kill-line recent= er-top-bottom newline next-line open-line previous-line quoted-insert isear= ch-backward isearch-forward transpose-chars universal-argument scroll-up-co= mmand kill-region Control-X-prefix yank suspend-frame ESC-prefix dabbrev-ex= pand abort-recursive-edit nil undo self-insert-command self-insert-command = self-insert-command self-insert-command self-insert-command match-paren sel= f-insert-command self-insert-command self-insert-command self-insert-comman= d self-insert-command self-insert-command self-insert-command self-insert-c= ommand self-insert-command self-insert-command ...] #^^[1 0 #^^[2 0=20 #^^[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 hel= p-command indent-for-tab-command my-toggle-justify-or-fill kill-line recent= er-top-bottom newline next-line open-line previous-line quoted-insert isear= ch-backward isearch-forward transpose-chars universal-argument scroll-up-co= mmand kill-region Control-X-prefix yank suspend-frame ESC-prefix dabbrev-ex= pand abort-recursive-edit nil undo self-insert-command self-insert-command = self-insert-command self-insert-command self-insert-command match-paren sel= f-insert-command self-insert-command self-insert-command self-insert-comman= d self-insert-command self-insert-command self-insert-command self-insert-c= ommand self-insert-command self-insert-command ...] self-insert-command sel= f-insert-command self-insert-command self-insert-command self-insert-comman= d self-insert-command self-insert-command self-insert-command self-insert-c= ommand self-insert-command self-insert-command self-insert-command self-ins= ert-command self-insert-command self-insert-command self-insert-command sel= f-insert-command self-insert-command self-insert-command self-insert-comman= d self-insert-command self-insert-command self-insert-command self-insert-c= ommand self-insert-command self-insert-command self-insert-command self-ins= ert-command self-insert-command self-insert-command self-insert-command] se= lf-insert-command self-insert-command self-insert-command self-insert-comma= nd self-insert-command self-insert-command self-insert-command self-insert-= command self-insert-command self-insert-command self-insert-command self-in= sert-command self-insert-command self-insert-command self-insert-command] s= elf-insert-command self-insert-command self-insert-command self-insert-comm= and self-insert-command self-insert-command self-insert-command self-insert= -command self-insert-command self-insert-command self-insert-command self-i= nsert-command self-insert-command self-insert-command self-insert-command s= elf-insert-command self-insert-command self-insert-command self-insert-comm= and self-insert-command self-insert-command self-insert-command self-insert= -command self-insert-command self-insert-command self-insert-command self-i= nsert-command self-insert-command self-insert-command self-insert-command s= elf-insert-command self-insert-command self-insert-command self-insert-comm= and self-insert-command self-insert-command self-insert-command self-insert= -command self-insert-command self-insert-command self-insert-command self-i= nsert-command self-insert-command self-insert-command self-insert-command .= ..] (S-mouse-3 . kmacro-end-call-mouse) (remap keymap (find-file-other-wind= ow) (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-i= nsert-guillemotleft) (s-down . my-downcase-abbrev) (s-up . edit-abbrevs) (M= -up . folding-comment-fold) (M-down . folding-fold-region) (M-delete . edif= f-regions-wordwise) (C-M-delete . ediff-files) (67108924 . mark-beginning-o= f-buffer) (67108926 . mark-end-of-buffer) (8388707 . org-capture) (8388716 = . vc-ask-login-or-not) (8388713 . vc-register) (8388724 . vc-create-tag) (1= 6777334 . vc-print-root-log) (8388726 . vc-print-log) (8388711 . vc-annotat= e) (C-button1 . flyspell-correct-word) (S-button1 . modeline-buffers-menu) = (8388730 . my-insert-comment-counter) (8388727 . mark-word) (8388725 . vc-u= pdate-change-log) (8388723 . mark-end-of-sentence) (8388712 . my-hebrew-lin= e) (16777316 . vc-dir) (8388722 . vc-rcs-remove-version) (16777330 . revers= e-region) (8388721 . fill-paragraph) (8388720 . mark-end-of-paragraph) (838= 8719 . my-insert-euro) (8388718 . counter) (8388717 . my-merge-mail-alias) = (8388715 . my-toggle-vc-check-in-or-not-kill) (8388714 . session-jump-to-la= st-change) (8388710 . my-feedmail-queue-message) (8388709 . recursive-edit)= (8388708 . edebug-defun) (8388706 . bbdb) (8388705 . bbdb-create) ...) "= =03hg" (keymap (81 keymap (101 . ahg-mq-edit-series) (108 . ahg-mq-list-pat= ches) (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-c= ur-file) (114 . ahg-revert-cur-file) (97 . ahg-annotate-cur-file) (101 . ah= g-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 . a= hg-tags) (72 . ahg-heads) (103 . ahg-glog) (71 . ahg-glog) (76 . ahg-log) (= 108 . ahg-short-log) (115 . ahg-status))) global-set-key("=03hg" (keymap (81 keymap (101 . ahg-mq-edit-series) (108= . ahg-mq-list-patches) (102 . ahg-mq-convert-patch-to-changeset) (100 . ah= g-qdelete) (116 . ahg-qtop) (112 . ahg-qpop-all) (97 . ahg-qapply) (115 . a= hg-qswitch) (109 . ahg-qmove) (103 . ahg-qgoto) (114 . ahg-qrefresh) (61 . = ahg-qdiff) (110 . ahg-qnew)) (12 . ahg-log-cur-file) (102 . ahg-manifest-gr= ep) (82 . ahg-rm-cur-file) (114 . ahg-revert-cur-file) (97 . ahg-annotate-c= ur-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=00\304\305!!\210\306 L\n\"\207" [symbol = value ahg-global-map boundp global-unset-key eval global-set-key] 3](ahg-gl= obal-key-prefix "=03hg") custom-initialize-reset(ahg-global-key-prefix "=03hg") custom-declare-variable(ahg-global-key-prefix "=03hg" "Prefix of globally= -available aHg commands." :group ahg :type string :set #[(symbol value) "\3= 03!\203\f=00\304\305!!\210\306 L\n\"\207" [symbol value ahg-global-map b= oundp 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&= =07\210\306\314\315\316\304\301\312\313\317\320& \210\306\321\322\323\304\3= 01\312\324&=07\210\306\325\322\326\304\301\312\324&=07\210\306\327\330\331\= 304\301\312\332&=07\210\306\333\322\334\304\301\312\324&=07\210\306\335\322= \336\304\301\312\324&=07\210\306\337\322\340\304\301\312\324&=07\210\306\34= 1\322\342\304\301\312\324&=07\210\306\343\322\344\304\301\312\324&=07\210\3= 06\345\322\346\304\301\312\324&=07\210\306\347\302\350\304\301\312\351&=07\= 210\306\352\353\354\304\301\312\355&=07\210\306\356\302\357\304\301\312\313= &=07\210\306\360\302\361\304\301\312\324&=07\210\306\362\302\363\304\301\31= 2\324&=07\210\306\364\322\365\304\301\312\324&=07\210\306\366\302\367\304\3= 01\312\324&=07\210\370\371\372\373\304\301%\210\370\374\375\376\304\301%\21= 0\370\377\201@=00\201A=00\304\301%\210\370\201B=00\201C=00\201D=00\304\301%= \210\370\201E=00\201F=00\201G=00\304\301%\210\370\201H=00\201I=00\201J=00\3= 04\301%\210\370\201K=00\201L=00\201M=00\304\301%\210\370\201N=00\201O=00\20= 1P=00\304\301%\210\370\201Q=00\201R=00\201S=00\304\301%\210\370\201T=00\201= U=00\201V=00\304\301%\210\370\201W=00\201X=00\201Y=00\304\301%\210\370\201Z= =00\201[=00\201\\=00\304\301%\210\370\201]=00\201^=00\201_=00\304\301%\210\= 370\201`=00\201a=00\201b=00\304\301%\210\370\201c=00\201d=00\201e=00\304\30= 1%\210\370\201f=00\201g=00\201h=00\304\301%\210\370\201i=00\201j=00\201k=00= \304\301%\210\370\201l=00\201m=00\201n=00\304\301%\207" [custom-declare-gro= up ahg nil "aHg Mercurial Frontend" :group tools custom-declare-variable ah= g-hg-command "hg" "Command to use for invoking Mercurial." :type string ahg= -global-key-prefix "=03hg" "Prefix of globally-available aHg commands." :se= t #[(symbol value) "\303!\203\f=00\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-immediate= ly "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\nin= put 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-o= n-quit "If non-nil, when `ahg-buffer-quit' will restore the window configur= ation." ahg-diff-use-git-format "If non-nil, aHg commands that output a dif= f will use the git format." ahg-qrefresh-use-short-flag "If non-nil, aHg qr= efresh command will use the --short flag. See the help\nfor qrefresh for mo= re 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-su= bprocess-coding-system "If non-nil, coding system used when reading output = of hg commands." symbol ahg-log-revrange-size 100 "Length of default revisi= on range for `ahg-log',\n`ahg-short-log' and `ahg-glog'." integer ahg-map-c= mdline-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 summar= y 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) --=-=-=--