Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

fix up ns-extended-platform-support-mode

  • Loading branch information...
commit 66b49b089fc27e774332e7e01999c6fe99744394 1 parent 3d1b171
Adrian Robert authored
Showing with 16 additions and 10 deletions.
  1. +6 −0 lisp/ChangeLog
  2. +10 −10 lisp/term/ns-win.el
View
6 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
View
20 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)
Please sign in to comment.
Something went wrong with that request. Please try again.