From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED.blaine.gmane.org!not-for-mail From: VanL Newsgroups: gmane.emacs.devel Subject: Re: Emacs Mac port Date: Thu, 05 Dec 2019 16:16:12 +1100 Organization: BMF Prizefighter 'President' Trump 2020 Keep America Great =?utf-8?B?yZnJmTBA?= Ultimat Fighting Cybr Message-ID: References: <0100016ecaff2ce1-0e196691-7294-4b32-bb3a-f63572d3ece8-000000@email.amazonses.com> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Injection-Info: blaine.gmane.org; posting-host="blaine.gmane.org:195.159.176.226"; logging-data="29703"; mail-complaints-to="usenet@blaine.gmane.org" User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/26.3 (darwin) To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Thu Dec 05 06:16:47 2019 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([209.51.188.17]) by blaine.gmane.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.89) (envelope-from ) id 1icjVP-0007b0-3R for ged-emacs-devel@m.gmane.org; Thu, 05 Dec 2019 06:16:47 +0100 Original-Received: from localhost ([::1]:50150 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1icjVN-0007wJ-B7 for ged-emacs-devel@m.gmane.org; Thu, 05 Dec 2019 00:16:45 -0500 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:60841) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1icjVE-0007up-IS for emacs-devel@gnu.org; Thu, 05 Dec 2019 00:16:37 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1icjVD-0005Rv-DR for emacs-devel@gnu.org; Thu, 05 Dec 2019 00:16:36 -0500 Original-Received: from 195-159-176-226.customer.powertech.no ([195.159.176.226]:50464 helo=blaine.gmane.org) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1icjVD-0005LM-3m for emacs-devel@gnu.org; Thu, 05 Dec 2019 00:16:35 -0500 Original-Received: from list by blaine.gmane.org with local (Exim 4.89) (envelope-from ) id 1icjV8-0007Kk-Vz for emacs-devel@gnu.org; Thu, 05 Dec 2019 06:16:30 +0100 X-Injected-Via-Gmane: http://gmane.org/ Cancel-Lock: sha1:LqbK7XVFytZis8CtHYHytxDxiPg= X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] [fuzzy] X-Received-From: 195.159.176.226 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.23 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: "Emacs-devel" Xref: news.gmane.org gmane.emacs.devel:243141 Archived-At: --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit YAMAMOTO Mitsuharu writes: >> An earlier version of emacs-mac-app had the ability to fill >> ½-fullscreen on long press of the maximize button. The current >> version does not do that. >> >> ---> Installing emacs-mac-app @7.8_1+rsvg >> ---> Activating emacs-mac-app @7.8_1+rsvg > > Works here. Which version of macOS are you using? > Is it reproducible without any customizations? > (say, $ open /Applications/MacPorts/EmacsMac.app --args -Q) Starting EmacsMac.app as suggested allows the expected, desired behavior. The macOS version string is GNU Emacs 26.3 (build 1, x86_64-apple-darwin15.6.0, Carbon Version 157 AppKit 1404.47) of 2019-12-04 Something in my customization has introduced the undesired behavior. --=-=-= Content-Type: application/emacs-lisp Content-Disposition: attachment; filename=xxx.el Content-Transfer-Encoding: quoted-printable Content-Description: undesired behavior introduced in emacs customization (package-initialize) (require 'package) (global-set-key (kbd "C-?") 'help-command) (global-set-key (kbd "M-?") 'mark-paragraph) (global-set-key (kbd "C-h") 'delete-backward-char) (global-set-key (kbd "") 'delete-forward-char) (global-set-key (kbd "C-S-h") 'kill-whole-line) (global-set-key (kbd "M-h") 'backward-kill-word) (global-set-key (kbd "H-/") 'make-frame-command) (global-set-key (kbd "H-\\") 'delete-frame) (defun x-face-height (arg) "Face height is set." (interactive "nInsert number: ") (set-face-attribute 'default (selected-frame) :height arg)) (global-set-key (kbd "H-=3D") 'x-face-height) (add-hook 'emacs-lisp-mode-hook 'show-paren-mode) (global-set-key (kbd "s-l") 'forward-paragraph) (global-set-key (kbd "s-p") 'backward-paragraph) (global-set-key (kbd "s-[") 'recenter-top-bottom) (global-set-key (kbd "s-.") 'next-line) (global-set-key (kbd "s-;") 'previous-line) (setq user-mail-address "xxx@bughat.com" user-full-name "xxx" calendar-location-name "xxx, xxx" calendar-longitude xxx.xxx calendar-latitude xxx.xxx) (global-set-key (kbd "C-x C-b") 'ibuffer) (set-face-background 'fringe "gray") (defun x-normal-frame-size () "Frame size is normal." (interactive) (set-frame-size (selected-frame) 84 24)) (global-set-key (kbd "H-p") 'x-normal-frame-size) (defun x-focus-frame-size () "Focus frame size is normal." (interactive) (progn (set-face-attribute 'default (selected-frame) :height 200) (set-frame-size (selected-frame) 84 24))) (global-set-key (kbd "H-_") 'x-focus-frame-size) (setq locale-coding-system 'utf-8) (set-terminal-coding-system 'utf-8) (set-keyboard-coding-system 'utf-8) (set-selection-coding-system 'utf-8) (prefer-coding-system 'utf-8) (global-set-key (kbd "H-0") 'delete-window) (global-set-key (kbd "H--") 'delete-other-windows) (global-set-key (kbd "H-o") 'other-window) (global-set-key (kbd "H-'") 'delete-frame) (defun x-wide-frame-size () "Frame size is wide." (interactive) (set-frame-size (selected-frame) 103 36)) (global-set-key (kbd "H-l") 'x-wide-frame-size) (defun x-org-tree-to-indirect-buffer-jump () "let indirect buffer take full window frame" (interactive) (prog1 (org-tree-to-indirect-buffer) (delete-window))) (add-hook 'org-mode-hook (lambda () (define-key org-mode-map (kbd "H-.") 'x-org-tree-to-indirect-buffer-jump))) (add-hook 'eww-mode-hook (lambda () (define-key eww-mode-map (kbd "H-|") 'hl-line-mode))) (add-hook 'eww-mode-hook (lambda () (define-key eww-mode-map (kbd "b") 'scroll-down-command))) (add-hook 'view-mode-hook (lambda () (define-key view-mode-map (kbd "b") 'View-scroll-page-backward))) (add-hook 'help-mode-hook (lambda () (define-key help-mode-map (kbd "b") 'scroll-down-command))) (add-hook 'log-view-mode-hook (lambda () (define-key log-view-mode-map (kbd "b") 'scroll-down-command))) ;;; ----- (custom-set-variables ;; custom-set-variables was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful. ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. '(canlock-password "600dcbcafd9de585fe73fa9e0b97b5bec1f2dab1") '(display-buffer-reuse-frames t) '(electric-indent-mode nil) '(epa-pinentry-mode (quote loopback)) '(gnus-summary-line-format "%U%R%z%I%(%[%4L: %-2,2f%]%) %s ") '(mac-command-modifier (quote alt)) '(mac-option-modifier (quote meta)) '(mac-right-command-modifier (quote super)) '(mac-right-option-modifier (quote hyper)) '(menu-bar-mode nil) '(org-return-follows-link t) '(ring-bell-function (quote ignore)) '(safe-local-variable-values (quote ((eval auto-revert-mode t)))) '(same-window-buffer-names (quote ("*vc-diff*" "*vc-change-log*"))) '(scroll-bar-mode nil) '(tool-bar-mode nil)) (custom-set-faces ;; custom-set-faces was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful. ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. '(default ((t (:inherit nil :stipple nil :background "gainsboro" :foregrou= nd "black" :inverse-video nil :box nil :strike-through nil :overline nil :u= nderline nil :slant normal :weight normal :height 144 :width normal :foundr= y "nil" :family "Monaco")))) '(cursor ((t (:background "orange red")))) '(custom-variable-tag ((t (:foreground "blue4" :weight bold)))) '(font-lock-comment-face ((t (:foreground "dim gray")))) '(font-lock-function-name-face ((t (:foreground "Blue4")))) '(font-lock-keyword-face ((t (:foreground "Purple4")))) '(org-table ((t (:foreground "Blue4")))) '(widget-field ((t (:background "gray92"))))) --=-=-=--