branch: externals/ergoemacs-mode
commit 5a1ec1008ad194b59e676e4d8cae258c798969b3
Author: Walter Landry <wlan...@caltech.edu>
Commit: Walter Landry <wlan...@caltech.edu>
Fix some warnings
---
ergoemacs-lib.el | 2 +-
ergoemacs-translate.el | 3 +--
2 files changed, 2 insertions(+), 3 deletions(-)
diff --git a/ergoemacs-lib.el b/ergoemacs-lib.el
index 1c585d9..e48f902 100644
--- a/ergoemacs-lib.el
+++ b/ergoemacs-lib.el
@@ -523,7 +523,7 @@ The reset is done with `ergoemacs-mode-reset'."
(setq file-temp (expand-file-name "ergoemacs.ini" extra-dir))
(with-temp-file file-temp
(set-buffer-file-coding-system 'utf-8)
- (insert (ergoemacs-translate--ahk-ini all all)))
+ (insert (ergoemacs-translate--ahk-ini all)))
(setq file-temp (expand-file-name "ergoemacs.ahk" extra-dir))
(with-temp-file file-temp
(set-buffer-file-coding-system 'utf-8)
diff --git a/ergoemacs-translate.el b/ergoemacs-translate.el
index 6019f90..71b682d 100644
--- a/ergoemacs-translate.el
+++ b/ergoemacs-translate.el
@@ -1076,14 +1076,13 @@ If there are no gui elements, retun nil."
(setq ret (format "%s\n%s=%s" ret f (ergoemacs-translate--ahk-code
key))))))
ret))
-(defun ergoemacs-translate--ahk-ini (&optional all-layouts all-themes)
+(defun ergoemacs-translate--ahk-ini (&optional all-layouts)
"Creates the ini file used with the autohotkey script."
(let ((layouts (or (and all-layouts (sort (ergoemacs-layouts--list)
'string<))
(and (eq (ergoemacs :layout) 'ergoemacs-layout-us) (list
"us"))
(list "us" ergoemacs-keyboard-layout)))
(themes (list "standard"))
(original-layout ergoemacs-keyboard-layout)
- (original-theme ergoemacs-theme)
ret)
(unwind-protect
(setq ret (with-temp-buffer
