Mercurial > emacs

comparison lisp/term/x-win.el @ 8760:14951c0ea4f8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Don't call menu-bar-mode.
author Richard M. Stallman <rms@gnu.org>
date Thu, 15 Sep 1994 20:10:12 +0000
parents acca78b72dd6
children b7eb229e956b
comparison
equal deleted inserted replaced
8759:19d9177069c4 8760:14951c0ea4f8
618 ;; Change any . or * characters in x-resource-name to hyphens, 618 ;; Change any . or * characters in x-resource-name to hyphens,
619 ;; so as not to choke when we use it in X resource queries. 619 ;; so as not to choke when we use it in X resource queries.
620 (while (setq i (string-match "[.*]" x-resource-name)) 620 (while (setq i (string-match "[.*]" x-resource-name))
621 (aset x-resource-name i ?-)))) 621 (aset x-resource-name i ?-))))
622 622
623 (menu-bar-mode t)
624
625 (x-open-connection (or x-display-name 623 (x-open-connection (or x-display-name
626 (setq x-display-name (getenv "DISPLAY"))) 624 (setq x-display-name (getenv "DISPLAY")))
627 x-command-line-resources) 625 x-command-line-resources)
628 626
629 (setq frame-creation-function 'x-create-frame-with-faces) 627 (setq frame-creation-function 'x-create-frame-with-faces)