diff options
| author | Adrian Robert <Adrian.B.Robert@gmail.com> | 2008-07-27 02:28:50 +0000 |
|---|---|---|
| committer | Adrian Robert <Adrian.B.Robert@gmail.com> | 2008-07-27 02:28:50 +0000 |
| commit | 7f19297073b2dd6c28987bf5663933591f59e91e (patch) | |
| tree | 8301ab2f109f779a89a2af9e86e6a66eb3895489 /lisp | |
| parent | 988221332b99b02f893e200236d9619ba2f7c48e (diff) | |
| download | emacs-7f19297073b2dd6c28987bf5663933591f59e91e.tar.gz emacs-7f19297073b2dd6c28987bf5663933591f59e91e.tar.bz2 emacs-7f19297073b2dd6c28987bf5663933591f59e91e.zip | |
fix up ns-extended-platform-support-mode
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/term/ns-win.el | 20 |
2 files changed, 16 insertions, 10 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index af55d6d8ed3..5442fbd6191 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2008-07-26 Adrian Robert <Adrian.B.Robert@gmail.com> + + * term/ns-win.el (ns-extended-platform-support-mode): Get rid of + bindings for functions deleted by Dan N. 2008-07-21. Set + where-is-preferred-modifier. Add show-manual option to Help menu. + 2008-07-26 Michael Albinus <michael.albinus@gmx.de> * net/tramp.el (tramp-handle-start-file-process): Set diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el index d6416c1b16e..6b332976a4e 100644 --- a/lisp/term/ns-win.el +++ b/lisp/term/ns-win.el @@ -336,12 +336,8 @@ this defaults to \"printenv\"." :group 'ns (if ns-extended-platform-support-mode (progn - (global-set-key [M-up] 'down-one) - (global-set-key [M-down] 'up-one) - ;; These conflict w/word-left, word-right. - ;;(global-set-key [M-left] 'left-one) - ;;(global-set-key [M-right] 'right-one) - + (defun ns-show-manual () "Show Emacs.app manual" (interactive) (info "ns-emacs")) + (setq where-is-preferred-modifier 'super) (setq scroll-preserve-screen-position t) (transient-mark-mode 1) @@ -349,16 +345,20 @@ this defaults to \"printenv\"." ;; Nextstep-specific items (easy-menu-remove-item global-map '("menu-bar") 'file) (easy-menu-add-item global-map '(menu-bar) - (cons "File" menu-bar-ns-file-menu) 'edit)) + (cons "File" menu-bar-ns-file-menu) 'edit) + (define-key menu-bar-help-menu [ns-manual] + '(menu-item "Emacs.app Manual" ns-show-manual))) (progn ;; Undo everything above. - (global-unset-key [M-up]) - (global-unset-key [M-down]) + (fmakunbound 'ns-show-manual) + (setq where-is-preferred-modifier 'nil) (setq scroll-preserve-screen-position nil) (transient-mark-mode 0) (easy-menu-remove-item global-map '("menu-bar") 'file) (easy-menu-add-item global-map '(menu-bar) - (cons "File" menu-bar-file-menu) 'edit)))) + (cons "File" menu-bar-file-menu) 'edit) + (easy-menu-remove-item global-map '("menu-bar" "help-menu") 'ns-manual) +))) (defun x-setup-function-keys (frame) |