X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/0d86e01634ab2a612cfc52b82dcdd99079c59a26..901d426f8e841337176c8a60deaf0ce29362040a:/dot/emacs

diff --git a/dot/emacs b/dot/emacs
index 79d7438..4f1fb58 100644
--- a/dot/emacs
+++ b/dot/emacs
@@ -579,9 +579,12 @@
 ;; Default frame size.
 
 (setq frame-background-mode (if mdw-black-background 'dark 'light)
+      frame-inhibit-implied-resize t
       default-frame-alist
       `((width . ,(+ mdw-column-width
-		     (if (>= emacs-major-version 21) 0 1)))
+		     (cond ((<= emacs-major-version 20) 1)
+			   ((= emacs-major-version 26) 3)
+			   (t 0))))
 	(height . 33)
 	(vertical-scroll-bars . right)
 	(cursor-type . bar)
@@ -623,19 +626,28 @@
       (require 'ido-completing-read+)
       (unless (fboundp 'ido-ubiquitous-mode) (require 'ido-ubiquitous))
       (ido-ubiquitous-mode 1)
-      (setq ido-cr+-max-items nil
-	    ido-ubiquitous-command-overrides
-	    (append ido-ubiquitous-command-overrides
-		    `((enable-old regexp ,(concat "\\`"
-						  "gtags-find-"
-						  "\\("    "tag"
-							"\\|file"
-							"\\|rtag"
-							"\\|symbol"
-						  "\\)"
-						  "\\("	"\\|-other-window"
-						  "\\)"
-						  "\\'")))))
+      (setq ido-cr+-max-items nil)
+      (let ((excludes `(,(concat "\\`"
+				 "gtags-find-"
+				 "\\("    "tag"
+				       "\\|file"
+				       "\\|rtag"
+				       "\\|symbol"
+				 "\\)"
+				 "\\("	"\\|-other-window"
+				 "\\)"
+				 "\\'"))))
+	(if (boundp 'ido-ubiquitous-command-overrides)
+	    (setq ido-ubiquitous-command-overrides
+		  (append ido-ubiquitous-command-overrides
+			  (mapcar (lambda (exclude)
+				    (if (symbolp exclude)
+					`(enable-old exact
+						     ,(symbol-name exclude))
+				      `(enable-old regexp ,exclude)))
+				  excludes)))
+	  (setq ido-cr+-function-blacklist
+		(append ido-cr+-function-blacklist excludes))))
       (setq magit-completing-read-function 'magit-ido-completing-read)
       (require 'smex) (smex-initialize) (global-set-key [?\M-x] 'smex))