diff options
| author | Eli Zaretskii | 2013-09-05 15:43:11 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2013-09-05 15:43:11 +0300 |
| commit | 5877bb8d7e55eda3f81a36bfabe4dd816a34269f (patch) | |
| tree | 779550b544f248132cd97c819070fb8aa0aa8bd7 | |
| parent | e7873136dd8dbacbbebf534500355d29a07fed8e (diff) | |
| download | emacs-5877bb8d7e55eda3f81a36bfabe4dd816a34269f.tar.gz emacs-5877bb8d7e55eda3f81a36bfabe4dd816a34269f.zip | |
Removed unnecessary tests for GUI sessions and created menu faces.
| -rw-r--r-- | lisp/dired.el | 2 | ||||
| -rw-r--r-- | lisp/faces.el | 11 | ||||
| -rw-r--r-- | src/menu.c | 7 |
3 files changed, 10 insertions, 10 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index f830623a255..b9f974234fb 100644 --- a/lisp/dired.el +++ b/lisp/dired.el | |||
| @@ -4352,7 +4352,7 @@ instead. | |||
| 4352 | 4352 | ||
| 4353 | ;;;*** | 4353 | ;;;*** |
| 4354 | 4354 | ||
| 4355 | ;;;### (autoloads nil "dired-x" "dired-x.el" "1419d865898f84c17f172320e578380c") | 4355 | ;;;### (autoloads nil "dired-x" "dired-x.el" "130484d4c94bb9929c210774f9e475f5") |
| 4356 | ;;; Generated autoloads from dired-x.el | 4356 | ;;; Generated autoloads from dired-x.el |
| 4357 | 4357 | ||
| 4358 | (autoload 'dired-jump "dired-x" "\ | 4358 | (autoload 'dired-jump "dired-x" "\ |
diff --git a/lisp/faces.el b/lisp/faces.el index 9a34aec2549..f5957d9dbad 100644 --- a/lisp/faces.el +++ b/lisp/faces.el | |||
| @@ -2135,8 +2135,15 @@ terminal type to a different value." | |||
| 2135 | (defun tty-set-up-initial-frame-faces () | 2135 | (defun tty-set-up-initial-frame-faces () |
| 2136 | (let ((frame (selected-frame))) | 2136 | (let ((frame (selected-frame))) |
| 2137 | (frame-set-background-mode frame t) | 2137 | (frame-set-background-mode frame t) |
| 2138 | (face-set-after-frame-default frame))) | 2138 | (face-set-after-frame-default frame) |
| 2139 | 2139 | (make-face 'tty-menu-enabled-face) | |
| 2140 | (make-face 'tty-menu-disabled-face) | ||
| 2141 | (make-face 'tty-menu-selected-face) | ||
| 2142 | (set-face-foreground 'tty-menu-enabled-face "yellow") | ||
| 2143 | (set-face-foreground 'tty-menu-disabled-face "white") | ||
| 2144 | (set-face-background 'tty-menu-enabled-face "blue") | ||
| 2145 | (set-face-background 'tty-menu-disabled-face "blue") | ||
| 2146 | (set-face-background 'tty-menu-selected-face "red"))) | ||
| 2140 | 2147 | ||
| 2141 | 2148 | ||
| 2142 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 2149 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
diff --git a/src/menu.c b/src/menu.c index 2b199ffdf09..b9d1b7668b1 100644 --- a/src/menu.c +++ b/src/menu.c | |||
| @@ -1077,8 +1077,6 @@ no quit occurs and `x-popup-menu' returns nil. */) | |||
| 1077 | { | 1077 | { |
| 1078 | bool get_current_pos_p = 0; | 1078 | bool get_current_pos_p = 0; |
| 1079 | 1079 | ||
| 1080 | check_window_system (SELECTED_FRAME ()); | ||
| 1081 | |||
| 1082 | /* Decode the first argument: find the window and the coordinates. */ | 1080 | /* Decode the first argument: find the window and the coordinates. */ |
| 1083 | if (EQ (position, Qt) | 1081 | if (EQ (position, Qt) |
| 1084 | || (CONSP (position) && (EQ (XCAR (position), Qmenu_bar) | 1082 | || (CONSP (position) && (EQ (XCAR (position), Qmenu_bar) |
| @@ -1194,11 +1192,6 @@ no quit occurs and `x-popup-menu' returns nil. */) | |||
| 1194 | xpos += XINT (x); | 1192 | xpos += XINT (x); |
| 1195 | ypos += XINT (y); | 1193 | ypos += XINT (y); |
| 1196 | 1194 | ||
| 1197 | /* FIXME: Find a more general check! */ | ||
| 1198 | if (!(FRAME_X_P (f) || FRAME_MSDOS_P (f) | ||
| 1199 | || FRAME_W32_P (f) || FRAME_NS_P (f))) | ||
| 1200 | error ("Can not put GUI menu on this terminal"); | ||
| 1201 | |||
| 1202 | XSETFRAME (Vmenu_updating_frame, f); | 1195 | XSETFRAME (Vmenu_updating_frame, f); |
| 1203 | } | 1196 | } |
| 1204 | #endif /* HAVE_MENUS */ | 1197 | #endif /* HAVE_MENUS */ |