From: Jan Djärv <jan.h.d@swipnet.se>
Date: Fri, 3 Dec 2010 11:48:24 +0000 (+0100)
Subject: Restore dock New Frame and Preferences menu functions (Bug#7535).
X-Git-Url: https://git.hcoop.net/bpt/emacs.git/commitdiff_plain/3e972d981f033b0197cf2c9026d0edea451a2daa

Restore dock New Frame and Preferences menu functions (Bug#7535).

* term/common-win.el (x-setup-function-keys): Restore ns-new-frame
and ns-show-prefs.

* term/ns-win.el (global-map): Restore ns-new-frame and ns-show-prefs
bindings.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f8ef108670..4ed0393594 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2010-12-03  Jan Djärv  <jan.h.d@swipnet.se>
+
+	* term/common-win.el (x-setup-function-keys): Restore ns-new-frame
+	and ns-show-prefs (Bug#7535).
+
+	* term/ns-win.el (global-map): Restore ns-new-frame and ns-show-prefs
+	bindings (Bug#7535).
+
 2010-12-03  Glenn Morris  <rgm@gnu.org>
 
 	* nxml/nxml-mode.el: Require rng-nxml.
diff --git a/lisp/term/common-win.el b/lisp/term/common-win.el
index 0df5e57ee2..f43056976a 100644
--- a/lisp/term/common-win.el
+++ b/lisp/term/common-win.el
@@ -125,9 +125,9 @@ is not used)."
 ;;;	       (cons (logior (lsh 0 16)   9) 'ns-insert-working-text)
 ;;;	       (cons (logior (lsh 0 16)  10) 'ns-delete-working-text)
 	       (cons (logior (lsh 0 16)  11) 'ns-spi-service-call)
-;;;	       (cons (logior (lsh 0 16)  12) 'ns-new-frame)
+	       (cons (logior (lsh 0 16)  12) 'ns-new-frame)
 	       (cons (logior (lsh 0 16)  13) 'ns-toggle-toolbar)
-;;;	       (cons (logior (lsh 0 16)  14) 'ns-show-prefs)
+	       (cons (logior (lsh 0 16)  14) 'ns-show-prefs)
 	       ))))
     (set-terminal-parameter frame 'x-setup-function-keys t)))
 
diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el
index 89fcfde935..77a2d3f2bc 100644
--- a/lisp/term/ns-win.el
+++ b/lisp/term/ns-win.el
@@ -171,7 +171,9 @@ The properties returned may include `top', `left', `height', and `width'."
 (define-key global-map [ns-change-font] 'ns-respond-to-change-font)
 (define-key global-map [ns-open-file-line] 'ns-open-file-select-line)
 (define-key global-map [ns-spi-service-call] 'ns-spi-service-call)
+(define-key global-map [ns-new-frame] 'make-frame)
 (define-key global-map [ns-toggle-toolbar] 'ns-toggle-toolbar)
+(define-key global-map [ns-show-prefs] 'customize)
 
 
 ;; Set up a number of aliases and other layers to pretend we're using