Mercurial > emacs

comparison lisp/term/ns-win.el @ 97042:0ac199626cb9 before-remove-carbon

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix up ns-extended-platform-support-mode
author Adrian Robert <Adrian.B.Robert@gmail.com>
date Sun, 27 Jul 2008 02:28:50 +0000
parents 72d6895432c7
children 68cf271f3d30
comparison
equal deleted inserted replaced
97041:2f9e37c17512 97042:0ac199626cb9
334 :init-value nil 334 :init-value nil
335 :global t 335 :global t
336 :group 'ns 336 :group 'ns
337 (if ns-extended-platform-support-mode 337 (if ns-extended-platform-support-mode
338 (progn 338 (progn
339 (global-set-key [M-up] 'down-one) 339 (defun ns-show-manual () "Show Emacs.app manual" (interactive) (info "ns-emacs"))
340 (global-set-key [M-down] 'up-one) 340 (setq where-is-preferred-modifier 'super)
341 ;; These conflict w/word-left, word-right.
342 ;;(global-set-key [M-left] 'left-one)
343 ;;(global-set-key [M-right] 'right-one)
344
345 (setq scroll-preserve-screen-position t) 341 (setq scroll-preserve-screen-position t)
346 (transient-mark-mode 1) 342 (transient-mark-mode 1)
347 343
348 ;; Change file menu to simplify and add a couple of 344 ;; Change file menu to simplify and add a couple of
349 ;; Nextstep-specific items 345 ;; Nextstep-specific items
350 (easy-menu-remove-item global-map '("menu-bar") 'file) 346 (easy-menu-remove-item global-map '("menu-bar") 'file)
351 (easy-menu-add-item global-map '(menu-bar) 347 (easy-menu-add-item global-map '(menu-bar)
352 (cons "File" menu-bar-ns-file-menu) 'edit)) 348 (cons "File" menu-bar-ns-file-menu) 'edit)
349 (define-key menu-bar-help-menu [ns-manual]
350 '(menu-item "Emacs.app Manual" ns-show-manual)))
353 (progn 351 (progn
354 ;; Undo everything above. 352 ;; Undo everything above.
355 (global-unset-key [M-up]) 353 (fmakunbound 'ns-show-manual)
356 (global-unset-key [M-down]) 354 (setq where-is-preferred-modifier 'nil)
357 (setq scroll-preserve-screen-position nil) 355 (setq scroll-preserve-screen-position nil)
358 (transient-mark-mode 0) 356 (transient-mark-mode 0)
359 (easy-menu-remove-item global-map '("menu-bar") 'file) 357 (easy-menu-remove-item global-map '("menu-bar") 'file)
360 (easy-menu-add-item global-map '(menu-bar) 358 (easy-menu-add-item global-map '(menu-bar)
361 (cons "File" menu-bar-file-menu) 'edit)))) 359 (cons "File" menu-bar-file-menu) 'edit)
360 (easy-menu-remove-item global-map '("menu-bar" "help-menu") 'ns-manual)
361 )))
362 362
363 363
364 (defun x-setup-function-keys (frame) 364 (defun x-setup-function-keys (frame)
365 "Set up function Keys for Nextstep for frame FRAME." 365 "Set up function Keys for Nextstep for frame FRAME."
366 (unless (terminal-parameter frame 'x-setup-function-keys) 366 (unless (terminal-parameter frame 'x-setup-function-keys)