Commit 1f9a6748 authored by Dave Cooper's avatar Dave Cooper

Merge branch 'release/1592' of https://gitlab.common-lisp.net/gendl/gendl into release/1592a

parents ba3de9e6 1406f7d8
......@@ -408,22 +408,27 @@
(defun mac-switch-meta nil
"switch meta between Option and Command"
(interactive)
(if (eq mac-option-modifier nil)
(progn
(setq mac-option-modifier 'meta)
(setq mac-command-modifier 'hyper))
(progn
(setq mac-option-modifier nil)
(setq mac-command-modifier 'meta))))
;;(defun mac-switch-meta nil
;; "switch meta between Option and Command"
;; (interactive)
;; (if (eq mac-option-modifier nil)
;; (progn
;; (setq mac-option-modifier 'meta)
;; (setq mac-command-modifier 'control))
;; (progn
;; (setq mac-option-modifier nil)
;; (setq mac-command-modifier 'meta))))
(defun mac-switch-meta nil
"make option key behave as meta"
(setq mac-option-modifier 'meta))
(when (eql system-type 'darwin)
(mac-switch-meta)
(mac-switch-meta))
;; A. REFERENCES
;;
;;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment