mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

fix up ns-extended-platform-support-mode

Browse source
This commit is contained in:
Adrian Robert 2008-07-27 02:28:50 +00:00
parent 988221332b
commit 7f19297073
2 changed files with 16 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -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

20
lisp/term/ns-win.el
View file

@ -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)