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:25:56 -0500 Message-ID: NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: multipart/alternative; boundary=90e6ba6136ac8fafa704fe266435 X-Trace: ger.gmane.org 1405340863 13775 80.91.229.3 (14 Jul 2014 12:27:43 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Mon, 14 Jul 2014 12:27:43 +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:27:36 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 1X6fLx-0000b1-KM for geb-bug-gnu-emacs@m.gmane.org; Mon, 14 Jul 2014 14:27:34 +0200 Original-Received: from localhost ([::1]:57064 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1X6fLx-00046U-8F for geb-bug-gnu-emacs@m.gmane.org; Mon, 14 Jul 2014 08:27:33 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:52054) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1X6fLW-0003es-VA for bug-gnu-emacs@gnu.org; Mon, 14 Jul 2014 08:27:11 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1X6fLS-0001N5-Lz for bug-gnu-emacs@gnu.org; Mon, 14 Jul 2014 08:27:06 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:59003) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1X6fLS-0001Mx-J0 for bug-gnu-emacs@gnu.org; Mon, 14 Jul 2014 08:27:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1X6fLR-0000WV-Vk for bug-gnu-emacs@gnu.org; Mon, 14 Jul 2014 08:27: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:27:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 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.14053407841961 (code B ref -1); Mon, 14 Jul 2014 12:27:01 +0000 Original-Received: (at submit) by debbugs.gnu.org; 14 Jul 2014 12:26:24 +0000 Original-Received: from localhost ([127.0.0.1]:54269 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1X6fKm-0000VU-6h for submit@debbugs.gnu.org; Mon, 14 Jul 2014 08:26:24 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:49268) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1X6fKg-0000VB-TW for submit@debbugs.gnu.org; Mon, 14 Jul 2014 08:26:18 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1X6fKX-0000jv-HN for submit@debbugs.gnu.org; Mon, 14 Jul 2014 08:26:09 -0400 Original-Received: from lists.gnu.org ([2001:4830:134:3::11]:36012) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1X6fKX-0000jk-EV for submit@debbugs.gnu.org; Mon, 14 Jul 2014 08:26:05 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:50829) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1X6fKT-0003TB-H7 for bug-gnu-emacs@gnu.org; Mon, 14 Jul 2014 08:26:05 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1X6fKP-0000eP-Hg for bug-gnu-emacs@gnu.org; Mon, 14 Jul 2014 08:26:01 -0400 Original-Received: from mail-ig0-x22d.google.com ([2607:f8b0:4001:c05::22d]:45005) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1X6fKP-0000e1-7O for bug-gnu-emacs@gnu.org; Mon, 14 Jul 2014 08:25:57 -0400 Original-Received: by mail-ig0-f173.google.com with SMTP id h18so1641892igc.6 for ; Mon, 14 Jul 2014 05:25:56 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=mime-version:date:message-id:subject:from:to:content-type; bh=xxA4tRHYQbuJnEOHlPw/NItmaF8e4tetUUMtT6Iitbk=; b=gKGXnOwTWCR6wTfqwwT0V/aT5o9Q6LfTLHyaz7eYlWw5/4V31JZLlW/YsTCHVY+rrf 5aPzrSqIJe8hyjjF9wF9il3QcWpp6E8Bdrl4trxs/Nx8AdWotmXk4pfScVXKWPlUqzW4 /ofk5jQEas1HyhDUi7nkvBxkkTQV/dc/87YqXwhnNt9Dr8ApUlZxEt4S5dew4IrTOoYs tdwvGKwAEsMk4QTNJXiUaA+o4LAZmjKlOqAcfgpPGrl2UrjfpCL18FkVdkUfP05dH/O4 L7cM12+pqErrDQwCNMNioQjK01+RTWH6GDJP5VMoLkq9ZHfco4B/pfsqwBHi29vL71H0 CK8Q== X-Received: by 10.42.130.133 with SMTP id v5mr7878049ics.57.1405340756191; Mon, 14 Jul 2014 05:25:56 -0700 (PDT) Original-Received: by 10.64.98.97 with HTTP; Mon, 14 Jul 2014 05:25:56 -0700 (PDT) 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:91531 Archived-At: --90e6ba6136ac8fafa704fe266435 Content-Type: text/plain; charset=UTF-8 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) --90e6ba6136ac8fafa704fe266435 Content-Type: text/html; charset=UTF-8 Content-Transfer-Encoding: quoted-printable

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

Compiling file e:/EmacsPortable.App/Data/src/ergoemacs-mode/ergoema= cs-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.=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-l= oaddefs 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)

--90e6ba6136ac8fafa704fe266435--