From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Matthew Fidler Newsgroups: gmane.emacs.bugs Subject: bug#18014: 24.3; Unused Lexical argument warning, when argument is used in a function... Date: Mon, 14 Jul 2014 07:28:44 -0500 Message-ID: References: NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: multipart/alternative; boundary=089e0149392492f17604fe266e65 X-Trace: ger.gmane.org 1405341028 15663 80.91.229.3 (14 Jul 2014 12:30:28 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Mon, 14 Jul 2014 12:30:28 +0000 (UTC) To: 18014@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Mon Jul 14 14:30:19 2014 Return-path: Envelope-to: geb-bug-gnu-emacs@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 1X6fOa-0002NP-42 for geb-bug-gnu-emacs@m.gmane.org; Mon, 14 Jul 2014 14:30:16 +0200 Original-Received: from localhost ([::1]:57075 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1X6fOZ-0004bJ-Nv for geb-bug-gnu-emacs@m.gmane.org; Mon, 14 Jul 2014 08:30:15 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:55595) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1X6fOS-0004WU-FF for bug-gnu-emacs@gnu.org; Mon, 14 Jul 2014 08:30:12 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1X6fON-0003lv-Ve for bug-gnu-emacs@gnu.org; Mon, 14 Jul 2014 08:30:08 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:59008) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1X6fON-0003kl-NY for bug-gnu-emacs@gnu.org; Mon, 14 Jul 2014 08:30:03 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1X6fOM-0000bh-Hk for bug-gnu-emacs@gnu.org; Mon, 14 Jul 2014 08:30:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Matthew Fidler Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Mon, 14 Jul 2014 12:30:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 18014 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.14053409512249 (code B ref -1); Mon, 14 Jul 2014 12:30:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 14 Jul 2014 12:29:11 +0000 Original-Received: from localhost ([127.0.0.1]:54274 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1X6fNT-0000aA-Vk for submit@debbugs.gnu.org; Mon, 14 Jul 2014 08:29:10 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:52579) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1X6fNP-0000Zc-RG for submit@debbugs.gnu.org; Mon, 14 Jul 2014 08:29:06 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1X6fNG-0002wC-6V for submit@debbugs.gnu.org; Mon, 14 Jul 2014 08:28:58 -0400 Original-Received: from lists.gnu.org ([2001:4830:134:3::11]:54456) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1X6fNG-0002w0-3U for submit@debbugs.gnu.org; Mon, 14 Jul 2014 08:28:54 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:54041) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1X6fNB-0004Hq-Pa for bug-gnu-emacs@gnu.org; Mon, 14 Jul 2014 08:28:54 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1X6fN7-0002oZ-2y for bug-gnu-emacs@gnu.org; Mon, 14 Jul 2014 08:28:49 -0400 Original-Received: from mail-ig0-x236.google.com ([2607:f8b0:4001:c05::236]:53864) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1X6fN6-0002oM-Ne for bug-gnu-emacs@gnu.org; Mon, 14 Jul 2014 08:28:45 -0400 Original-Received: by mail-ig0-f182.google.com with SMTP id c1so1645331igq.15 for ; Mon, 14 Jul 2014 05:28:44 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=mime-version:in-reply-to:references:date:message-id:subject:from:to :content-type; bh=uQWxWe1af6cKKupBpfkRxeIroh5loD2aoMpsWbi0ggc=; b=z8WuedDCUtODJNBqcDj4wCHC+nNYjZw03d1Whge/r/kV7dVgwoE7gMhF089xe5lahu SM80AVZN2HUiMJWD/u3kJSTwW05BWQlp9dGhLxsKhr8kxwkdnOOhm3UGhW6Z9Ck7gat3 yyIaFkRyf1IWtbjru+lqLgeeDN3PSGOo1Z/XQp5E7jQPKOsFCyb4oeY/U+bY/jB74DDi hcFlqaC/2xIvcX48GgMtmKZF0UYH4l99VzxhOMz5RXPaqTIKHpV+eeosjMoPu6efmp/Q IC51Yq5njlXLbTEWmcXahsfUdsBuj6UFbfmTU0I6jBxS8QG1ZOxa3cE2ILchLyTr+1Fs b8+Q== X-Received: by 10.50.111.19 with SMTP id ie19mr25361878igb.4.1405340924177; Mon, 14 Jul 2014 05:28:44 -0700 (PDT) Original-Received: by 10.64.98.97 with HTTP; Mon, 14 Jul 2014 05:28:44 -0700 (PDT) In-Reply-To: X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:91532 Archived-At: --089e0149392492f17604fe266e65 Content-Type: text/plain; charset=UTF-8 As a follow-up, when changing key to _key, I get the following warning Compiling file e:/EmacsPortable.App/Data/src/ergoemacs-mode/ergoemacs-translate.el at Mon Jul 14 07:27:43 2014 ergoemacs-translate.el:695:1:Warning: argument `_key' not left unused It can't be both... On Mon, Jul 14, 2014 at 7:25 AM, Matthew Fidler wrote: > I'm getting a warning for ergoemacs-translate: > > Compiling file > e:/EmacsPortable.App/Data/src/ergoemacs-mode/ergoemacs-translate.el at Mon > Jul 14 07:17:14 2014 > ergoemacs-translate.el:695:1:Warning: Unused lexical argument `key' > > I do use the argument key to calculate the translation, but the compiler > claims I am not. I'm not sure if it is a bug in the warning or a bug in > my code. For now, I can change key to _key to ignore the warning, but I > do think that this is an invalid warning. > > Here is the offending function: > > (defun ergoemacs-translate (key) > "Translates KEY and returns a plist of the translations. > > :shift-translated > S-a -> a > M-S-a -> M-a > C-S-a -> C-a > Anything without shift is nil. > > All other translations are defined in `ergoemacs-translations'. > > There are also :XXX-key and :XXX-pretty for actual key-strokes > and `ergoemacs-pretty-key' descriptions. > > " > (let* ((ret (gethash key ergoemacs-translate-hash)) > (orig-key (or (and (stringp key) key) (key-description key))) > case-fold-search > only-key > shift-translated > (ergoemacs-use-ergoemacs-key-descriptions t) > shifted-key > unshifted-key) > (if ret ret > (cond > ((string-match "\\(^<.+>$\\|SPC\\|DEL\\|ESC\\|RET\\|TAB\\)" key) > (setq only-key (replace-regexp-in-string "[CMS]-" "" key t)) > (if (string-match "S-" key) > (setq shifted-key (replace-match "" t nil key)) > (setq shifted-key (concat "S-" key)))) > (t > (setq only-key (replace-regexp-in-string "^.*\\(.\\)$" "\\1" key t) > shifted-key (assoc only-key ergoemacs-shifted-assoc)) > (when shifted-key > (setq shifted-key (cdr shifted-key))))) > (when (and (string-match "\\([A-Z]\\)$" key) > (not (string-match > "\\<\\(SPC\\|DEL\\|ESC\\|RET\\|TAB\\)\\>" key))) > (setq key > (replace-match > (concat "S-" (downcase (match-string 1 key))) t t key))) > (when shifted-key > (setq unshifted-key only-key) > (unless (string-match > "\\(^<.+>$\\|\\\\|\\\\|\\\\|\\\\|\\\\)" > shifted-key) > (when (string-match "[A-Z]" shifted-key) > (setq shifted-key (concat "S-" (downcase shifted-key)))) > (when (string-match "[A-Z]" unshifted-key) > (setq unshifted-key (concat "S-" (downcase unshifted-key)))))) > (when (string-match "S-" key) > (setq shift-translated (replace-regexp-in-string "S-" "" key t))) > > (if shift-translated > (progn > (setq ret (plist-put ret ':shift-translated > (ergoemacs-translate-shifted shift-translated))) > (setq ret (plist-put ret ':shift-translated-key > (read-kbd-macro (ergoemacs-translate-shifted shift-translated) t))) > (setq ret (plist-put ret ':shift-translated-pretty > (ergoemacs-pretty-key shift-translated)))) > (setq ret (plist-put ret ':shift-translated nil)) > (setq ret (plist-put ret ':shift-translated-key nil)) > (setq ret (plist-put ret ':shift-translated-pretty nil))) > > (when shifted-key > (setq ret (plist-put ret ':shifted (ergoemacs-translate-shifted > shifted-key))) > (setq ret (plist-put ret ':shifted-key (read-kbd-macro > (ergoemacs-translate-shifted shifted-key) t))) > (setq ret (plist-put ret ':shifted-pretty (ergoemacs-pretty-key > shifted-key)))) > (when unshifted-key > (setq ret (plist-put ret ':unshifted (ergoemacs-translate-shifted > unshifted-key))) > (setq ret (plist-put ret ':unshifted-key (read-kbd-macro > (ergoemacs-translate-shifted unshifted-key) t))) > (setq ret (plist-put ret ':unshifted-pretty (ergoemacs-pretty-key > unshifted-key)))) > (setq ret (plist-put ret ':ctl (ergoemacs-translate-shifted > (concat "C-" unshifted-key)))) > (setq ret (plist-put ret ':ctl-key (read-kbd-macro (plist-get ret > ':ctl) t))) > (setq ret (plist-put ret ':ctl-pretty (ergoemacs-pretty-key > (plist-get ret ':ctl)))) > > (setq ret (plist-put ret ':raw (ergoemacs-translate-shifted > (replace-regexp-in-string > "\\<[CSMS]-" "" key)))) > (setq ret (plist-put ret ':raw-key (read-kbd-macro (plist-get ret > ':raw) t))) > (setq ret (plist-put ret ':raw-pretty (ergoemacs-pretty-key > (plist-get ret ':raw)))) > (if (assoc (plist-get ret ':raw) ergoemacs-shifted-assoc) > (progn > (setq ret (plist-put ret ':raw-shift > (ergoemacs-translate-shifted > (replace-regexp-in-string > "\\<[CSM]-" "" > (cdr (assoc (plist-get ret ':raw) > ergoemacs-shifted-assoc)))))) > (setq ret (plist-put ret ':raw-shift-key > (read-kbd-macro (plist-get ret > ':raw-shift) t))) > (setq ret (plist-put ret ':raw-shift-pretty > (ergoemacs-pretty-key > (plist-get ret ':raw-shift))))) > (setq ret (plist-put ret ':raw-shift nil)) > (setq ret (plist-put ret ':raw-shift-key nil)) > (setq ret (plist-put ret ':raw-shift-pretty nil))) > > (setq ret (plist-put ret ':alt (ergoemacs-translate-shifted > (concat "M-" unshifted-key)))) > (setq ret (plist-put ret ':alt-key (read-kbd-macro (plist-get ret > ':alt) t))) > (setq ret (plist-put ret ':alt-pretty (ergoemacs-pretty-key > (plist-get ret ':alt)))) > > (when unshifted-key > (setq ret (plist-put ret ':alt-ctl (ergoemacs-translate-shifted > (concat "M-C-" > unshifted-key)))) > (setq ret (plist-put ret ':alt-ctl-key (read-kbd-macro (plist-get > ret ':alt-ctl) t))) > (setq ret (plist-put ret ':alt-ctl-pretty (ergoemacs-pretty-key > (plist-get ret ':alt-ctl))))) > > (when shifted-key > (setq ret (plist-put ret ':ctl-shift (ergoemacs-translate-shifted > (concat "C-" shifted-key)))) > (setq ret (plist-put ret ':ctl-shift-key (read-kbd-macro > (plist-get ret ':ctl-shift) t))) > (setq ret (plist-put ret ':ctl-shift-pretty (ergoemacs-pretty-key > (plist-get ret ':ctl-shift)))) > (setq ret (plist-put ret ':alt-shift (ergoemacs-translate-shifted > (concat "M-" shifted-key)))) > (setq ret (plist-put ret ':alt-shift-key (read-kbd-macro > (plist-get ret ':alt-shift) t))) > (setq ret (plist-put ret ':alt-shift-pretty (ergoemacs-pretty-key > (plist-get ret ':alt-shift)))) > (setq ret (plist-put ret ':alt-ctl-shift > (ergoemacs-translate-shifted > (concat "M-C-" > shifted-key)))) > (setq ret (plist-put ret ':alt-ctl-shift-key (read-kbd-macro > (plist-get ret ':alt-ctl-shift) t))) > (setq ret (plist-put ret ':alt-ctl-shift-pretty > (ergoemacs-pretty-key (plist-get ret ':alt-ctl-shift))))) > (maphash > (lambda(key plist) > (setq ret (ergoemacs-translation-install plist orig-key ret))) > ergoemacs-translations) > (puthash orig-key ret ergoemacs-translate-hash) > (puthash key ret ergoemacs-translate-hash) > ret))) > > > In GNU Emacs 24.3.1 (i386-mingw-nt6.1.7601) > of 2013-03-17 on MARVIN > Windowing system distributor `Microsoft Corp.', version 6.1.7601 > Configured using: > `configure --with-gcc (4.7) --cflags > -ID:/devel/emacs/libs/libXpm-3.5.8/include > -ID:/devel/emacs/libs/libXpm-3.5.8/src > -ID:/devel/emacs/libs/libpng-dev_1.4.3-1/include > -ID:/devel/emacs/libs/zlib-dev_1.2.5-2/include > -ID:/devel/emacs/libs/giflib-4.1.4-1/include > -ID:/devel/emacs/libs/jpeg-6b-4/include > -ID:/devel/emacs/libs/tiff-3.8.2-1/include > -ID:/devel/emacs/libs/gnutls-3.0.9/include > -ID:/devel/emacs/libs/libiconv-1.13.1-1-dev/include > -ID:/devel/emacs/libs/libxml2-2.7.8/include/libxml2' > > Important settings: > value of $EMACSDATA: > C:\Users\fidlema3\EmacsPortable.App\App\eps\..\emacs-24.3\etc > value of $EMACSDOC: > C:\Users\fidlema3\EmacsPortable.App\App\eps\..\emacs-24.3\etc > value of $EMACSLOADPATH: > C:\Users\fidlema3\EmacsPortable.App\App\eps\..\site-lisp;C:\Users\fidlema3\EmacsPortable.App\App\eps\..\emacs-24.3\lisp > value of $LANG: en > locale-coding-system: cp1252 > default enable-multibyte-characters: t > > Major mode: Emacs-Lisp > > Minor modes in effect: > eldoc-mode: t > rainbow-mode: t > show-paren-mode: t > golden-ratio-mode: t > keyfreq-autosave-mode: t > keyfreq-mode: t > Info-breadcrumbs-in-mode-line-mode: t > tabbar-mwheel-mode: t > tabbar-mode: t > savehist-mode: t > global-linum-mode: t > linum-mode: t > global-subword-mode: t > subword-mode: t > yas-global-mode: t > yas-minor-mode: t > ido-ubiquitous-mode: t > global-auto-complete-mode: t > auto-complete-mode: t > auto-indent-global-mode: t > auto-indent-mode: t > smartparens-global-mode: t > smartparens-mode: t > helm-mode: t > helm-match-plugin-mode: t > helm-occur-match-plugin-mode: t > delete-selection-mode: t > ergoemacs-mode: t > global-undo-tree-mode: t > undo-tree-mode: t > ido-everywhere: t > shell-dirtrack-mode: t > flyspell-mode: t > recentf-mode: t > tooltip-mode: t > mouse-wheel-mode: t > file-name-shadow-mode: t > global-font-lock-mode: t > font-lock-mode: t > blink-cursor-mode: t > auto-composition-mode: t > auto-encryption-mode: t > auto-compression-mode: t > column-number-mode: t > line-number-mode: t > auto-fill-function: do-auto-fill > transient-mark-mode: t > > Recent input: > > M-3 g e r r g o e m a c s - t h e m e - > y e r g o e m a c s - t r a n > > > > > M-u M-j o r i > M-e M-e M-e M-e M-e M-e M-e M-e M-h o r i g - k e y > M-h M-h M-j M-j M-j M-e M-e M-e M-e M-e M-e M-e M-e > M-e M-e M-i M-i M-i M-i M-u M-. C-q ) M-e M-n M-n M-n > M-n M-n M-n M-n M-n M-n M-n M-n M-n M-n M-n C-w C-g > C-z M-u M-u M-u M-u M-u M-u M-u M-u M-u M-m M-y M-y > M-i M-8 M-8 e e a n d SPC e e s t r i > n g p SPC k e y M-i SPC M-l M-l M-l M-n M-8 > e e o r SPC M-. M-n M-n SPC e e k e y - d e > s c r i p t i o n SPC k e y M-e M-e M-e M-e M-e M-e > M-e M-e M-e M-e M-8 M-x r > > > w M-r M-3 > > > > > M-SPC M-. M-c > > > > Recent messages: > Mark set > Mark saved where search started [2 times] > Quit > Type 8 to expand again, - to contract, 0 to reset [3 times] > Saving file > e:/EmacsPortable.App/Data/src/ergoemacs-mode/ergoemacs-translate.el... > Wrote e:/EmacsPortable.App/Data/src/ergoemacs-mode/ergoemacs-translate.el > Compiling > e:/EmacsPortable.App/Data/src/ergoemacs-mode/ergoemacs-translate.el...done > Wrote e:/EmacsPortable.App/Data/src/ergoemacs-mode/ergoemacs-translate.elc > Compiling > e:/EmacsPortable.App/Data/src/ergoemacs-mode/ergoemacs-translate.el...done > Wrote e:/EmacsPortable.App/Data/src/ergoemacs-mode/ergoemacs-translate.elc > > Load-path shadows: > c:/Users/fidlema3/EmacsPortable.App/Data/start/EmacsMate/elpa-24.3/ess-20130628.1043/.dir-locals > hides > c:/Users/fidlema3/EmacsPortable.App/Data/start/EmacsMate/elpa-24.3/highlight-symbol-20130628.1552/.dir-locals > c:/Users/fidlema3/EmacsPortable.App/Data/start/EmacsMate/elpa-24.3/ess-20130628.1043/.dir-locals > hides > c:/Users/fidlema3/EmacsPortable.App/Data/start/EmacsMate/elpa-24.3/js2-mode-20131118.1516/.dir-locals > e:/EmacsPortable.App/Data/start/shared/init hides > c:/Users/fidlema3/EmacsPortable.App/Data/start/EmacsMate/init > c:/Users/fidlema3/EmacsPortable.App/Data/start/EmacsMate/custom hides > c:/Users/fidlema3/EmacsPortable.App/App/eps/../emacs-24.3/lisp/custom > c:/Users/fidlema3/EmacsPortable.App/Data/start/EmacsMate/elpa-24.3/ess-20130628.1043/.dir-locals > hides > c:/Users/fidlema3/EmacsPortable.App/App/emacs-24.3/lisp/gnus/.dir-locals > c:/Users/fidlema3/EmacsPortable.App/Data/start/EmacsMate/elpa-24.3/cl-lib-0.3/cl-lib > hides > c:/Users/fidlema3/EmacsPortable.App/App/emacs-24.3/lisp/emacs-lisp/cl-lib > > Features: > (shadow sort mail-extr emacsbug message rfc822 mml mml-sec mm-decode > mm-bodies mm-encode mail-parse rfc2231 mailabbrev gmm-utils mailheader > sendmail rfc2047 rfc2045 ietf-drums mail-utils expand-region > text-mode-expansions the-org-mode-expansions html-mode-expansions > er-basic-expansions expand-region-custom expand-region-core misearch > multi-isearch ergoemacs-macros image-file vc-git helm-misc > browse-kill-ring ruler-mode mule-util diminish eldoc rainbow-mode melpa > o-blog o-blog-bootstrap o-blog-i18n o-blog-grid o-blog-source > o-blog-alert time-stamp html2text sgml-mode htmlize maxframe > w32-fullscreen epshell paren golden-ratio keyfreq solarized-light-theme > solarized info+ tabbar-ruler color tabbar savehist linum-off linum > subword extend-dnd dired+ iimage ob-ditaa ob-clojure ob-haskell ob-js > ob-python ob-ruby ob-perl ob-plantuml ob-R ob-sh org-clock org-exp > ob-exp org-exp-blocks org-agenda textmate-to-yas texmate-to-yas > textmate-import texmate-import yasnippet ido-ubiquitous pos-tip > auto-complete-config auto-complete popup auto-indent-mode > smartparens-config smartparens dash helm-mode helm-files image-dired > dired-x dired-aux thingatpt helm-buffers helm-elscreen helm-tags > helm-bookmark helm-adaptative helm-info helm-net browse-url xml url > url-proxy url-privacy url-expand url-methods url-history url-cookie > url-domsuf url-util mailcap helm-plugin helm-locate helm-help > helm-match-plugin helm-grep helm-regexp grep helm-external helm-utils > dired compile helm printing ps-print ps-def lpr ergoemacs-menus delsel > ergoemacs-mode two-column ergoemacs-advices cus-edit cus-start cus-load > ergoemacs-extras ergoemacs-shortcuts ergoemacs-translate descr-text > help-mode ergoemacs-functions ergoemacs-modal ergoemacs-unbind edmacro > kmacro ergoemacs-themes ergoemacs-theme-engine eieio-base > ergoemacs-layouts undo-tree diff ess-smart-underscore ess ess-inf > ess-mode ess-noweb-mode ess-utils ess-custom executable ess-compat > ess-R-object-tooltip ac-helm-autoloads ace-jump-mode-autoloads > auctex-autoloads tex-site auto-compile-autoloads auto-complete-autoloads > auto-indent-mode-autoloads autopair-autoloads bm-autoloads > browse-kill-ring-autoloads diminish-autoloads dired+-autoloads > ergoemacs-mode-autoloads ess-smart-underscore-autoloads evil-autoloads > evil-numbers-autoloads expand-region-autoloads extend-dnd-autoloads > flx-ido-autoloads flx-autoloads fold-dwim-autoloads > golden-ratio-autoloads goto-chg-autoloads helm-autoloads help+-autoloads > highlight-symbol-autoloads htmlize-autoloads icicles-autoloads > ido-ubiquitous-autoloads ido-vertical-mode-autoloads info+-autoloads > js2-mode-autoloads finder-inf keyfreq-autoloads lacarte-autoloads > linum-off-autoloads melpa-autoloads monokai-theme-autoloads > multi-term-autoloads multiple-cursors-autoloads nsis-mode-autoloads > ntcmd-autoloads org-cua-dwim-autoloads org-outlook-autoloads org-outlook > org-protocol org-readme-autoloads lib-requires-autoloads > header2-autoloads http-post-simple-autoloads org-table-comment-autoloads > packed-autoloads magit-autoloads git-rebase-mode-autoloads > git-commit-mode-autoloads paredit-autoloads phi-search-autoloads > popup-autoloads pos-tip-autoloads powerline-autoloads powerline > powerline-separators powerline-themes projectile-autoloads > rainbow-mode-autoloads s-autoloads slime-autoloads smartparens-autoloads > dash-autoloads smex-autoloads solarized-theme-autoloads > sr-speedbar-autoloads ssh-autoloads tabbar-ruler-autoloads info > tabbar-autoloads textmate-to-yas-autoloads undo-tree-autoloads > visual-regexp-autoloads cl-lib-autoloads yaoddmuse-autoloads > yasnippet-autoloads zenburn-theme-autoloads uniquify ffap url-parse > url-vars saveplace package org warnings ob-tangle ob-ref ob-lob ob-table > org-footnote org-src ob-comint ob-keys org-pcomplete org-list org-faces > org-entities noutline outline easy-mmode org-version ob-emacs-lisp ob > org-compat org-macs ob-eval org-loaddefs find-func cal-menu calendar > cal-loaddefs ido tramp tramp-compat auth-source eieio byte-opt bytecomp > byte-compile cconv gnus-util mm-util mail-prsvr password-cache > tramp-loaddefs shell pcomplete comint ansi-color ring format-spec > flyspell rw-hunspell rw-ispell ispell rw-language-and-country-codes > server recentf tree-widget wid-edit easymenu advice help-fns > advice-preload cl-macs gv cl cl-lib time-date tooltip ediff-hook > vc-hooks lisp-float-type mwheel dos-w32 ls-lisp w32-common-fns > disp-table w32-win w32-vars tool-bar dnd fontset image regexp-opt fringe > tabulated-list newcomment lisp-mode register page menu-bar rfn-eshadow > timer select scroll-bar mouse jit-lock font-lock syntax facemenu > font-core frame cham georgian utf-8-lang misc-lang vietnamese tibetan > thai tai-viet lao korean japanese hebrew greek romanian slovak czech > european ethiopic indian cyrillic chinese case-table epa-hook > jka-cmpr-hook help simple abbrev minibuffer loaddefs button faces > cus-face macroexp files text-properties overlay sha1 md5 base64 format > env code-pages mule custom widget hashtable-print-readable backquote > make-network-process w32 multi-tty emacs) > --089e0149392492f17604fe266e65 Content-Type: text/html; charset=UTF-8 Content-Transfer-Encoding: quoted-printable
As a follow-up, when changing key to _key, I get the = following warning
=C2=A0
Compiling file e:/EmacsPortabl= e.App/Data/src/ergoemacs-mode/ergoemacs-translate.el at Mon Jul 14 07:27:43= 2014
ergoemacs-translate.el:695:1:Warning: argument `_key' not left unused
=C2=A0
It can't be both...


On Mon, Jul 14, 2014 at 7:2= 5 AM, Matthew Fidler <matthew.fidler@gmail.com> wrote= :

I'm getting a warnin= g=C2=A0 for ergoemacs-translate:

Compiling file e:/EmacsPortable.App/= Data/src/ergoemacs-mode/ergoemacs-translate.el at Mon Jul 14 07:17:14 2014<= br> ergoemacs-translate.el:695:1:Warning: Unused lexical argument `key'

I do use the argument key to calculate the translation, but the compiler=
claims I am not.=C2=A0 I'm not sure if it is a bug in the warning o= r a bug in
my code.=C2=A0 For now, I can change key to _key to ignore th= e warning, but I
do think that this is an invalid warning.

Here is the offending funct= ion:

(defun ergoemacs-translate (key)
=C2=A0 "Translates KEY = and returns a plist of the translations.

:shift-translated
=C2=A0= =C2=A0=C2=A0 S-a=C2=A0=C2=A0=C2=A0 -> a
=C2=A0=C2=A0=C2=A0 M-S-a=C2=A0 -> M-a
=C2=A0=C2=A0=C2=A0 C-S-a=C2=A0 = -> C-a
=C2=A0=C2=A0=C2=A0 Anything without shift is nil.

All ot= her translations are defined in `ergoemacs-translations'.

There a= re also :XXX-key and :XXX-pretty for actual key-strokes
and `ergoemacs-pretty-key' descriptions.

"
=C2=A0 (let* (= (ret (gethash key ergoemacs-translate-hash))
=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0 (orig-key (or (and (stringp key) key) (key-descriptio= n key)))
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 case-fold-sear= ch
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 only-key
=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 shift-translated
=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (ergoemacs-use-ergoemacs-key-descriptions t)=
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 shifted-key
=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 unshifted-key)
=C2=A0=C2=A0= =C2=A0 (if ret ret
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (cond
=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0 ((string-match "\\(^<.+>$\\|SPC\\|DEL\\= |ESC\\|RET\\|TAB\\)" key)
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (setq only-key (replace-regexp-i= n-string "[CMS]-" "" key t))
=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0 (if (string-match "S-" key)
=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (setq shifted-key (r= eplace-match "" t nil key))
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0 (setq shifted-key (concat "S-" key))))
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (t
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0 (setq only-key (replace-regexp-in-string "^.*\\(.\\)$&quo= t; "\\1" key t)
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 shifted-key (assoc only-key ergoemacs-shi= fted-assoc))
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (when shifted-ke= y
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (setq shifted-k= ey (cdr shifted-key)))))
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (when (and (string-match "\\([A-Z]\\)$&= quot; key)
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (not (string-match "\\<\\(SPC\= \|DEL\\|ESC\\|RET\\|TAB\\)\\>" key)))
=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0 (setq key
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (replace-match
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0 (concat "S-" (downcase (match-string 1 key))) t t key))= )
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (when shifted-key
=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0 (setq unshifted-key only-key)
=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0 (unless (string-match "\\(^<.+>$\\|\= \<SPC\\>\\|\\<DEL\\>\\|\\<ESC\\>\\|\\<RET\\>\\|\\&l= t;TAB\\>\\)" shifted-key)
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (when (string-match = "[A-Z]" shifted-key)
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0 (setq shifted-key (concat "S-" (downc= ase shifted-key))))
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0 (when (string-match "[A-Z]" unshifted-key)
=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (setq unshifted-key (co= ncat "S-" (downcase unshifted-key))))))
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (when (string-match "S-" key)
= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (setq shift-translated (replace-= regexp-in-string "S-" "" key t)))
=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (if shift-translated
=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (progn
=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (setq ret (plist-put= ret ':shift-translated (ergoemacs-translate-shifted shift-translated))= )
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (setq re= t (plist-put ret ':shift-translated-key (read-kbd-macro (ergoemacs-tran= slate-shifted shift-translated) t)))
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (setq ret (plist-put ret ':shift-tran= slated-pretty (ergoemacs-pretty-key shift-translated))))
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (setq ret (plist-put ret ':s= hift-translated nil))
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (setq r= et (plist-put ret ':shift-translated-key nil))
=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0 (setq ret (plist-put ret ':shift-translated-prett= y nil)))
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0
=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0 (when shifted-key
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (setq ret (plist-put ret ':s= hifted (ergoemacs-translate-shifted shifted-key)))
=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0 (setq ret (plist-put ret ':shifted-key (read-kbd-= macro (ergoemacs-translate-shifted shifted-key) t)))
=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0 (setq ret (plist-put ret ':shifted-pretty (erg= oemacs-pretty-key shifted-key))))
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (when unshifted-key
=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0 (setq ret (plist-put ret ':unshifted (ergoemacs-t= ranslate-shifted unshifted-key)))
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0 (setq ret (plist-put ret ':unshifted-key (read-kbd-macro (ergoem= acs-translate-shifted unshifted-key) t)))
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (setq ret (plist-put ret ':u= nshifted-pretty (ergoemacs-pretty-key unshifted-key))))
=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0 (setq ret (plist-put ret ':ctl (ergoemacs-translate-shi= fted
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0 (concat "C-" unshifted-key))))
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (setq ret (plist-put ret ':ctl-key (read= -kbd-macro (plist-get ret ':ctl) t)))
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= (setq ret (plist-put ret ':ctl-pretty (ergoemacs-pretty-key (plist-get= ret ':ctl))))

=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (setq ret (plist-pu= t ret ':raw (ergoemacs-translate-shifted
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (r= eplace-regexp-in-string
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 "\\<[CSMS]-" "" key))= ))
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (setq ret (plist-put ret ':raw-key= =C2=A0 (read-kbd-macro (plist-get ret ':raw) t)))
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (setq ret (plist-put ret ':raw-pretty (e= rgoemacs-pretty-key
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (plist-get = ret ':raw))))
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (if (assoc (plist-get r= et ':raw) ergoemacs-shifted-assoc)
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (progn
=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (setq ret (plist-= put ret ':raw-shift
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (ergo= emacs-translate-shifted
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= (replace-regexp-in-string
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0 "\\<[CSM]-" ""
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (cdr (assoc (plist-g= et ret ':raw) ergoemacs-shifted-assoc))))))
=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (setq ret (plist-put ret ':r= aw-shift-key
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (read-kbd-macr= o (plist-get ret ':raw-shift) t)))
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (setq re= t (plist-put ret ':raw-shift-pretty
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0 (ergoemacs-pretty-key
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0 (plist-get ret ':raw-shift)))))
=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0 (setq ret (plist-put ret ':raw-shift nil))
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (setq ret (plist-put ret ':r= aw-shift-key nil))
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (setq ret = (plist-put ret ':raw-shift-pretty nil)))
=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (setq ret (plist-put ret ':alt (= ergoemacs-translate-shifted
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (concat "M-" unshifted-key))))
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (setq ret (plist-put ret ':alt-key (read= -kbd-macro (plist-get ret ':alt) t)))
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= (setq ret (plist-put ret ':alt-pretty (ergoemacs-pretty-key (plist-get= ret ':alt))))
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0
=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0 (when unshifted-key
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (setq ret (plist-put ret ':a= lt-ctl (ergoemacs-translate-shifted
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (c= oncat "M-C-" unshifted-key))))
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0 (setq ret (plist-put ret ':alt-ctl-key (read-kbd-macro (pl= ist-get ret ':alt-ctl) t)))
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (setq ret (plist-put ret ':a= lt-ctl-pretty (ergoemacs-pretty-key (plist-get ret ':alt-ctl)))))

=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (when shifted-key
=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0 (setq ret (plist-put ret ':ctl-shift (ergoemacs-t= ranslate-shifted
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (concat "C-" shifte= d-key))))
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (setq ret (plist-pu= t ret ':ctl-shift-key (read-kbd-macro (plist-get ret ':ctl-shift) t= )))
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (setq ret (plist-put ret = ':ctl-shift-pretty (ergoemacs-pretty-key (plist-get ret ':ctl-shift= ))))
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (setq ret (plist-put ret ':a= lt-shift (ergoemacs-translate-shifted
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0 (concat "M-" shifted-key))))
=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0 (setq ret (plist-put ret ':alt-shift-key (read= -kbd-macro (plist-get ret ':alt-shift) t)))
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (setq ret (plist-put ret ':a= lt-shift-pretty (ergoemacs-pretty-key (plist-get ret ':alt-shift))))=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (setq ret (plist-put ret ':= alt-ctl-shift (ergoemacs-translate-shifted
=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (concat "M-C-" shifted= -key))))
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (setq ret (plist-put ret ':a= lt-ctl-shift-key (read-kbd-macro (plist-get ret ':alt-ctl-shift) t)))=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (setq ret (plist-put ret '= :alt-ctl-shift-pretty (ergoemacs-pretty-key (plist-get ret ':alt-ctl-sh= ift)))))
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (maphash
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0 (lambda(key plist)
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0 (setq ret (ergoemacs-translation-install plist orig-key ret)))
=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 ergoemacs-translations)
=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0 (puthash orig-key ret ergoemacs-translate-hash)
=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0 (puthash key ret ergoemacs-translate-hash)
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 ret)))


In GNU Emacs 24.3.1 (i386-m= ingw-nt6.1.7601)
=C2=A0of 2013-03-17 on MARVIN
Windowing system distr= ibutor `Microsoft Corp.', version 6.1.7601
Configured using:
=C2= =A0`configure --with-gcc (4.7) --cflags
=C2=A0-ID:/devel/emacs/libs/libXpm-3.5.8/include
=C2=A0-ID:/devel/emacs/= libs/libXpm-3.5.8/src
=C2=A0-ID:/devel/emacs/libs/libpng-dev_1.4.3-1/inc= lude
=C2=A0-ID:/devel/emacs/libs/zlib-dev_1.2.5-2/include
=C2=A0-ID:/= devel/emacs/libs/giflib-4.1.4-1/include
=C2=A0-ID:/devel/emacs/libs/jpeg-6b-4/include
=C2=A0-ID:/devel/emacs/lib= s/tiff-3.8.2-1/include
=C2=A0-ID:/devel/emacs/libs/gnutls-3.0.9/include<= br>=C2=A0-ID:/devel/emacs/libs/libiconv-1.13.1-1-dev/include
=C2=A0-ID:/= devel/emacs/libs/libxml2-2.7.8/include/libxml2'

Important settings:
=C2=A0 value of $EMACSDATA: C:\Users\fidlema3\Ema= csPortable.App\App\eps\..\emacs-24.3\etc
=C2=A0 value of $EMACSDOC: C:\U= sers\fidlema3\EmacsPortable.App\App\eps\..\emacs-24.3\etc
=C2=A0 value o= f $EMACSLOADPATH: C:\Users\fidlema3\EmacsPortable.App\App\eps\..\site-lisp;= C:\Users\fidlema3\EmacsPortable.App\App\eps\..\emacs-24.3\lisp
=C2=A0 value of $LANG: en
=C2=A0 locale-coding-system: cp1252
=C2=A0 = default enable-multibyte-characters: t

Major mode: Emacs-Lisp

M= inor modes in effect:
=C2=A0 eldoc-mode: t
=C2=A0 rainbow-mode: t
= =C2=A0 show-paren-mode: t
=C2=A0 golden-ratio-mode: t
=C2=A0 keyfreq-autosave-mode: t
=C2=A0 ke= yfreq-mode: t
=C2=A0 Info-breadcrumbs-in-mode-line-mode: t
=C2=A0 tab= bar-mwheel-mode: t
=C2=A0 tabbar-mode: t
=C2=A0 savehist-mode: t
= =C2=A0 global-linum-mode: t
=C2=A0 linum-mode: t
=C2=A0 global-subword-mode: t
=C2=A0 subword-mode: t
=C2=A0 yas-globa= l-mode: t
=C2=A0 yas-minor-mode: t
=C2=A0 ido-ubiquitous-mode: t
= =C2=A0 global-auto-complete-mode: t
=C2=A0 auto-complete-mode: t
=C2= =A0 auto-indent-global-mode: t
=C2=A0 auto-indent-mode: t
=C2=A0 smartparens-global-mode: t
=C2=A0 smartparens-mode: t
=C2=A0 h= elm-mode: t
=C2=A0 helm-match-plugin-mode: t
=C2=A0 helm-occur-match-= plugin-mode: t
=C2=A0 delete-selection-mode: t
=C2=A0 ergoemacs-mode:= t
=C2=A0 global-undo-tree-mode: t
=C2=A0 undo-tree-mode: t
=C2=A0 ido-everywhere: t
=C2=A0 shell-dirtra= ck-mode: t
=C2=A0 flyspell-mode: t
=C2=A0 recentf-mode: t
=C2=A0 t= ooltip-mode: t
=C2=A0 mouse-wheel-mode: t
=C2=A0 file-name-shadow-mod= e: t
=C2=A0 global-font-lock-mode: t
=C2=A0 font-lock-mode: t
=C2=A0 blink-cursor-mode: t
=C2=A0 auto-comp= osition-mode: t
=C2=A0 auto-encryption-mode: t
=C2=A0 auto-compressio= n-mode: t
=C2=A0 column-number-mode: t
=C2=A0 line-number-mode: t
= =C2=A0 auto-fill-function: do-auto-fill
=C2=A0 transient-mark-mode: t

Recent input:
<down-mouse-1> &= lt;drag-mouse-1> <down-mouse-1> <mouse-1>
M-3 <apps&g= t; g e r r g o e m a c s - t h e m e - <return>
<apps> y e = r g o e m a c s - t r a n <return> <help-echo>
<help-echo> <help-echo> <help-echo> <help-echo> <= ;help-echo>
<help-echo> <menu-bar> <emacs-lisp> &l= t;byte-compile>
<help-echo> <down-mouse-1> <mouse-1&g= t; <help-echo> <help-echo>
<down-mouse-1> <mouse-2> <wheel-down> <wheel-down> =
<wheel-down> <down-mouse-1> <mouse-1> M-u M-j o r i <= br>M-e M-e M-e M-e M-e M-e M-e M-e M-h o r i g - k e y
M-h M-h M-j M-j = M-j M-e M-e M-e M-e M-e M-e M-e M-e
M-e M-e M-i M-i M-i M-i M-u M-. C-q ) M-e M-n M-n M-n
M-n M-n M-n M-n M= -n M-n M-n M-n M-n M-n M-n C-w C-g
C-z M-u M-u M-u M-u M-u M-u M-u M-u = M-u M-m M-y M-y
M-i M-8 M-8 <apps> e e a n d SPC <apps> e e= s t r i
n g p SPC k e y M-i SPC M-l M-l M-l M-n M-8 <apps>
e e o r SPC M-= . M-n M-n SPC <apps> e e k e y - d e
s c r i p t i o n SPC k e y = M-e M-e M-e M-e M-e M-e
M-e M-e M-e M-e M-8 M-x <backspace> <a= pps> r <help-echo>
<help-echo> <help-echo> <help-echo> <help-echo> <= ;help-echo>
<help-echo> <menu-bar> <emacs-lisp> &l= t;byte-compile>
<down-mouse-1> <mouse-1> <apps> w = M-r M-3 <help-echo>
<help-echo> <help-echo> <help-echo> <help-echo> <= ;help-echo>
<help-echo> <menu-bar> <emacs-lisp> &l= t;byte-compile>
<help-echo> <down-mouse-1> <mouse-2&g= t; <help-echo> <down-mouse-1>
<mouse-1> <down-mouse-1> <mouse-1> <down-mouse-1> &= lt;mouse-1>
<lwindow> <down-mouse-1> <mouse-1> M-S= PC M-. M-c <help-echo>
<down-mouse-1> <mouse-1> <h= elp-echo> <help-echo> <help-echo>
<menu-bar> <help-menu> <send-bug-report>

Recent mes= sages:
Mark set
Mark saved where search started [2 times]
Quit
= Type 8 to expand again, - to contract, 0 to reset [3 times]
Saving file = e:/EmacsPortable.App/Data/src/ergoemacs-mode/ergoemacs-translate.el...
Wrote e:/EmacsPortable.App/Data/src/ergoemacs-mode/ergoemacs-translate.elCompiling e:/EmacsPortable.App/Data/src/ergoemacs-mode/ergoemacs-translat= e.el...done
Wrote e:/EmacsPortable.App/Data/src/ergoemacs-mode/ergoemacs= -translate.elc
Compiling e:/EmacsPortable.App/Data/src/ergoemacs-mode/ergoemacs-translate.= el...done
Wrote e:/EmacsPortable.App/Data/src/ergoemacs-mode/ergoemacs-t= ranslate.elc

Load-path shadows:
c:/Users/fidlema3/EmacsPortable.Ap= p/Data/start/EmacsMate/elpa-24.3/ess-20130628.1043/.dir-locals hides c:/Use= rs/fidlema3/EmacsPortable.App/Data/start/EmacsMate/elpa-24.3/highlight-symb= ol-20130628.1552/.dir-locals
c:/Users/fidlema3/EmacsPortable.App/Data/start/EmacsMate/elpa-24.3/ess-2013= 0628.1043/.dir-locals hides c:/Users/fidlema3/EmacsPortable.App/Data/start/= EmacsMate/elpa-24.3/js2-mode-20131118.1516/.dir-locals
e:/EmacsPortable.= App/Data/start/shared/init hides c:/Users/fidlema3/EmacsPortable.App/Data/s= tart/EmacsMate/init
c:/Users/fidlema3/EmacsPortable.App/Data/start/EmacsMate/custom hides c:/Us= ers/fidlema3/EmacsPortable.App/App/eps/../emacs-24.3/lisp/custom
c:/User= s/fidlema3/EmacsPortable.App/Data/start/EmacsMate/elpa-24.3/ess-20130628.10= 43/.dir-locals hides c:/Users/fidlema3/EmacsPortable.App/App/emacs-24.3/lis= p/gnus/.dir-locals
c:/Users/fidlema3/EmacsPortable.App/Data/start/EmacsMate/elpa-24.3/cl-lib-0= .3/cl-lib hides c:/Users/fidlema3/EmacsPortable.App/App/emacs-24.3/lisp/ema= cs-lisp/cl-lib

Features:
(shadow sort mail-extr emacsbug message r= fc822 mml mml-sec mm-decode
mm-bodies mm-encode mail-parse rfc2231 mailabbrev gmm-utils mailheader
s= endmail rfc2047 rfc2045 ietf-drums mail-utils expand-region
text-mode-ex= pansions the-org-mode-expansions html-mode-expansions
er-basic-expansion= s expand-region-custom expand-region-core misearch
multi-isearch ergoemacs-macros image-file vc-git helm-misc
browse-kill-r= ing ruler-mode mule-util diminish eldoc rainbow-mode melpa
o-blog o-blog= -bootstrap o-blog-i18n o-blog-grid o-blog-source
o-blog-alert time-stamp= html2text sgml-mode htmlize maxframe
w32-fullscreen epshell paren golden-ratio keyfreq solarized-light-theme
= solarized info+ tabbar-ruler color tabbar savehist linum-off linum
subwo= rd extend-dnd dired+ iimage ob-ditaa ob-clojure ob-haskell ob-js
ob-pyth= on ob-ruby ob-perl ob-plantuml ob-R ob-sh org-clock org-exp
ob-exp org-exp-blocks org-agenda textmate-to-yas texmate-to-yas
textmate= -import texmate-import yasnippet ido-ubiquitous pos-tip
auto-complete-co= nfig auto-complete popup auto-indent-mode
smartparens-config smartparens= dash helm-mode helm-files image-dired
dired-x dired-aux thingatpt helm-buffers helm-elscreen helm-tags
helm-bo= okmark helm-adaptative helm-info helm-net browse-url xml url
url-proxy u= rl-privacy url-expand url-methods url-history url-cookie
url-domsuf url-= util mailcap helm-plugin helm-locate helm-help
helm-match-plugin helm-grep helm-regexp grep helm-external helm-utils
di= red compile helm printing ps-print ps-def lpr ergoemacs-menus delsel
erg= oemacs-mode two-column ergoemacs-advices cus-edit cus-start cus-load
ergoemacs-extras ergoemacs-shortcuts ergoemacs-translate descr-text
help= -mode ergoemacs-functions ergoemacs-modal ergoemacs-unbind edmacro
kmacr= o ergoemacs-themes ergoemacs-theme-engine eieio-base
ergoemacs-layouts u= ndo-tree diff ess-smart-underscore ess ess-inf
ess-mode ess-noweb-mode ess-utils ess-custom executable ess-compat
ess-R= -object-tooltip ac-helm-autoloads ace-jump-mode-autoloads
auctex-autoloa= ds tex-site auto-compile-autoloads auto-complete-autoloads
auto-indent-m= ode-autoloads autopair-autoloads bm-autoloads
browse-kill-ring-autoloads diminish-autoloads dired+-autoloads
ergoemacs= -mode-autoloads ess-smart-underscore-autoloads evil-autoloads
evil-numbe= rs-autoloads expand-region-autoloads extend-dnd-autoloads
flx-ido-autolo= ads flx-autoloads fold-dwim-autoloads
golden-ratio-autoloads goto-chg-autoloads helm-autoloads help+-autoloadshighlight-symbol-autoloads htmlize-autoloads icicles-autoloads
ido-ubiq= uitous-autoloads ido-vertical-mode-autoloads info+-autoloads
js2-mode-au= toloads finder-inf keyfreq-autoloads lacarte-autoloads
linum-off-autoloads melpa-autoloads monokai-theme-autoloads
multi-term-a= utoloads multiple-cursors-autoloads nsis-mode-autoloads
ntcmd-autoloads = org-cua-dwim-autoloads org-outlook-autoloads org-outlook
org-protocol or= g-readme-autoloads lib-requires-autoloads
header2-autoloads http-post-simple-autoloads org-table-comment-autoloadspacked-autoloads magit-autoloads git-rebase-mode-autoloads
git-commit-m= ode-autoloads paredit-autoloads phi-search-autoloads
popup-autoloads pos= -tip-autoloads powerline-autoloads powerline
powerline-separators powerline-themes projectile-autoloads
rainbow-mode-= autoloads s-autoloads slime-autoloads smartparens-autoloads
dash-autoloa= ds smex-autoloads solarized-theme-autoloads
sr-speedbar-autoloads ssh-au= toloads tabbar-ruler-autoloads info
tabbar-autoloads textmate-to-yas-autoloads undo-tree-autoloads
visual-re= gexp-autoloads cl-lib-autoloads yaoddmuse-autoloads
yasnippet-autoloads = zenburn-theme-autoloads uniquify ffap url-parse
url-vars saveplace packa= ge org warnings ob-tangle ob-ref ob-lob ob-table
org-footnote org-src ob-comint ob-keys org-pcomplete org-list org-faces
= org-entities noutline outline easy-mmode org-version ob-emacs-lisp ob
or= g-compat org-macs ob-eval org-loaddefs find-func cal-menu calendar
cal-loaddefs ido tramp tramp-compat auth-source eieio byte-opt bytecomp
byte-compile cconv gnus-util mm-util mail-prsvr password-cache
tramp-loa= ddefs shell pcomplete comint ansi-color ring format-spec
flyspell rw-hun= spell rw-ispell ispell rw-language-and-country-codes
server recentf tree= -widget wid-edit easymenu advice help-fns
advice-preload cl-macs gv cl cl-lib time-date tooltip ediff-hook
vc-hook= s lisp-float-type mwheel dos-w32 ls-lisp w32-common-fns
disp-table w32-w= in w32-vars tool-bar dnd fontset image regexp-opt fringe
tabulated-list = newcomment lisp-mode register page menu-bar rfn-eshadow
timer select scroll-bar mouse jit-lock font-lock syntax facemenu
font-co= re frame cham georgian utf-8-lang misc-lang vietnamese tibetan
thai tai-= viet lao korean japanese hebrew greek romanian slovak czech
european eth= iopic indian cyrillic chinese case-table epa-hook
jka-cmpr-hook help simple abbrev minibuffer loaddefs button faces
cus-fa= ce macroexp files text-properties overlay sha1 md5 base64 format
env cod= e-pages mule custom widget hashtable-print-readable backquote
make-netwo= rk-process w32 multi-tty emacs)


--089e0149392492f17604fe266e65--