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 @@ ...@@ -408,22 +408,27 @@
(defun mac-switch-meta nil
"switch meta between Option and Command" ;;(defun mac-switch-meta nil
(interactive) ;; "switch meta between Option and Command"
(if (eq mac-option-modifier nil) ;; (interactive)
(progn ;; (if (eq mac-option-modifier nil)
(setq mac-option-modifier 'meta) ;; (progn
(setq mac-command-modifier 'hyper)) ;; (setq mac-option-modifier 'meta)
(progn ;; (setq mac-command-modifier 'control))
(setq mac-option-modifier nil) ;; (progn
(setq mac-command-modifier 'meta)))) ;; (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) (when (eql system-type 'darwin)
(mac-switch-meta)
(mac-switch-meta)) (mac-switch-meta))
;; A. REFERENCES ;; 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