From 0040b4cb3e3ea6226a6bab17729e720ed57a5768 Mon Sep 17 00:00:00 2001
From: Ivan Malison <IvanMalison@gmail.com>
Date: Mon, 14 Apr 2014 13:20:24 -0700
Subject: [PATCH] Add patch to execute-extended-command for old versions of
 emacs and smex.

---
 init.el              |  10 +-
 lisp/line-num.el     | 263 -------------------------------------------
 lisp/misc/patches.el |  51 +++++++++
 3 files changed, 56 insertions(+), 268 deletions(-)
 delete mode 100644 lisp/line-num.el
 create mode 100644 lisp/misc/patches.el

diff --git a/init.el b/init.el
index 2f4ef160..5ba623fc 100644
--- a/init.el
+++ b/init.el
@@ -25,23 +25,24 @@
 (add-to-list 'custom-theme-load-path "~/.emacs.d/themes/")
 (add-to-list 'custom-theme-load-path "~/.emacs.d/elpa/")
 (load-theme 'zenburn t)
+(require 'patches)
 
 ;; =============================================================================
 ;;                                                                          ELPA
 ;; =============================================================================
 
 (require 'package)
-(add-to-list 'package-archives
-             '("marmalade" . "http://marmalade-repo.org/packages/")) 
 (add-to-list 'package-archives
              '("melpa" . "http://melpa.milkbox.net/packages/") t)
+(add-to-list 'package-archives
+             '("marmalade" . "http://marmalade-repo.org/packages/")) 
 (package-initialize)
 
 (defvar my-packages '(color-theme ctags ctags-update evil flymake mo-git-blame
 				  multiple-cursors no-easy-keys starter-kit-bindings
 				  starter-kit-ruby starter-kit magit ido-ubiquitous
 				  find-file-in-project idle-highlight-mode paredit
-				  inf-ruby undo-tree rainbow-delimiters smex)
+				  inf-ruby undo-tree rainbow-delimiters package-filter smex)
   "Packages that must be installed at launch.")
 
 (defun ensure-package-installed (packages)
@@ -225,8 +226,6 @@ Return a list of installed packages or nil for every package not installed."
 (global-set-key (kbd "C-c C-t") 'testify-run-case)
 (global-set-key (kbd "C-x C-c") 'kill-emacs)
 
-
-
 ;; Something will occasionally override this binding.
 (global-set-key "\C-cg" 'rope-goto-definition)
 
@@ -300,3 +299,4 @@ Return a list of installed packages or nil for every package not installed."
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
  '(safe-local-variable-values (quote ((python-indent . 4) (whitespace-line-column . 80) (lexical-binding . t)))))
+
diff --git a/lisp/line-num.el b/lisp/line-num.el
deleted file mode 100644
index e47f15a8..00000000
--- a/lisp/line-num.el
+++ /dev/null
@@ -1,263 +0,0 @@
-;;; line-num.el --- Display line numbers in left-margin of buffer.
-;;
-;; Filename: line-num.el
-;; Description: Display line numbers in left-margin of buffer.
-;; Author: (Darryl Okahata) darrylo@hpsrdmo, Drew Adams
-;; Maintainer: Drew Adams
-;; Copyright (C) 1999-2013, Drew Adams, all rights reserved.
-;; Copyright (C) 1989, Hewlett-Packard, all rights reserved.
-;; Created: Wed Mar 31 16:18:24 1999
-;; Version: 21.0
-;; Last-Updated: Fri Dec 28 10:06:21 2012 (-0800)
-;;           By: dradams
-;;     Update #: 214
-;; URL: http://www.emacswiki.org/line-num.el
-;; Doc URL: http://emacswiki.org/LineNumbers
-;; Keywords: local
-;; Compatibility: GNU Emacs: 20.x, 21.x, 22.x, 23.x, 24.x
-;;
-;; Features that might be required by this library:
-;;
-;;   None
-;;
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;;; Commentary:
-;;
-;;    Display line numbers in left-margin of buffer.
-;;
-;; New functions defined here:
-;;
-;;    `display-line-numbers', `toggle-line-numbers-display',
-;;    `turn-on-line-numbers-display', `turn-off-line-numbers-display'.
-;;
-;; NOTE: `setnu.el' now provides similar, but generally better,
-;; functionality.
-;;
-;; Original author was Darryl Okahata darrylo@hpsrdmo: The copy on
-;; which the current (Adams) modifications were made was obtained from
-;; Rick Kunin (rickk@sperdk).
-;;
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;;; Change Log:
-;;
-;; 2004/11/26 dadams
-;;     Replaced decf with setq...1+.
-;;     turn-off-line-numbers-display: Error if not displaying line #s.
-;;     Removed calls to `fit-frame' (and require of fit-frame.el).
-;; 2000/11/01 dadams
-;;     1. Added: toggle-line-numbers-display, turn-on-line-numbers-display,
-;;               turn-off-line-numbers-display.
-;;     2. Added global vars: displaying-line-numbers-p,
-;;        display-line-numbers-format-string, display-line-numbers-first-line,
-;;        display-line-numbers-count, display-line-numbers-buffer-name,
-;;        display-line-numbers-modified-p.
-;; 1999/04/14 dadams
-;;     Commented out assignment to unused free var: insert-end.
-;;
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program; see the file COPYING.  If not, write to
-;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth
-;; Floor, Boston, MA 02110-1301, USA.
-;;
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-;;; Code:
-
-;;>> Problem:  Tabs at beginning of lines
-
-;;;;;;;;;;;;;
-
-
-;;;###autoload
-(defun display-line-numbers ()
-  "Temporarily display line numbers in left margin of current buffer."
-  (interactive)
-  (or (eq (current-buffer) (window-buffer (selected-window)))
-      (error "Current buffer, %s, is not the selected window's buffer"
-             (buffer-name)))
-  (let ((buffer-read-only nil)
-        (modified (buffer-modified-p))
-        (name buffer-file-name)
-        (point (point-marker))
-        format-string
-        line-number
-        (count 0)
-        nlines
-        first-line)
-    (save-restriction
-      (widen)
-      (save-excursion
-        (setq first-line (window-start (selected-window)))
-        (goto-char first-line)
-        (setq line-number (1+ (count-lines (point-min) (point))))
-        (move-to-window-line -1)
-        (beginning-of-line)
-        (setq nlines (count-lines first-line (point)))
-        (let ((max (+ line-number nlines)))
-          (setq format-string (cond ((< max 100) "%2d ")
-                                    ((< max 1000) "%3d ")
-                                    ((< max 10000) "%4d ")
-                                    (t "%7d "))))))
-    (save-excursion
-      (unwind-protect
-          (progn
-            (goto-char first-line)
-            ;; defeat file locking... don't try this at home, kids!
-            (setq buffer-file-name nil)
-            (while (<= count nlines)
-              (insert-before-markers (format format-string line-number))
-              ;;;(setq insert-end (point)) THIS VAR IS FREE - AND UNUSED!
-              (setq line-number (1+ line-number))
-              (setq count (1+ count))
-              (forward-line 1))
-            (set-window-start (selected-window) first-line)
-            (goto-char point)
-            (set-buffer-modified-p modified)
-            (message "<<< Press SPACE to continue >>>")
-            (let ((char (read-char)))
-              (or (eql char ?\  )
-                  (setq unread-command-events (list char))))
-            )
-        (goto-char first-line)
-        (let ((n (1+ (- (aref format-string 1) ?0))))
-          (while (> count 0)
-            (setq count (1- count))
-            (delete-char n)
-            (forward-line 1)))
-        (setq buffer-file-name name)
-        (set-buffer-modified-p modified)))))
-
-;;;-----------------------------------------------------------------
-
-(defvar displaying-line-numbers-p nil)
-(make-variable-buffer-local 'displaying-line-numbers-p)
-(defvar display-line-numbers-format-string nil)
-(make-variable-buffer-local 'display-line-numbers-format-string)
-(defvar display-line-numbers-first-line nil)
-(make-variable-buffer-local 'display-line-numbers-first-line)
-(defvar display-line-numbers-count 0)
-(make-variable-buffer-local 'display-line-numbers-count)
-(defvar display-line-numbers-buffer-name nil)
-(make-variable-buffer-local 'display-line-numbers-buffer-name)
-(defvar display-line-numbers-modified-p nil)
-(make-variable-buffer-local 'display-line-numbers-modified-p)
-
-;;;###autoload
-(defun toggle-line-numbers-display (arg)
-  "Display/clear line numbers in left margin of current buffer.
-With prefix ARG, just number lines in current window, not all lines in
-buffer."
-  (interactive "P")
-  (if displaying-line-numbers-p
-      (turn-off-line-numbers-display)
-    (turn-on-line-numbers-display arg)))
-
-;;;###autoload
-(defun turn-on-line-numbers-display (arg)
-  "Display line numbers in left margin of current buffer.
-With prefix ARG, just number lines in current window, not all lines in
-buffer."
-  (interactive "P")
-  (or (eq (current-buffer) (window-buffer (selected-window)))
-      (error "Current buffer, %s, is not the selected window's buffer"
-             (buffer-name)))
-  (let ((buffer-read-only nil)
-        (point (point-marker))
-        line-number
-        nlines)
-    (setq display-line-numbers-buffer-name buffer-file-name)
-    (setq display-line-numbers-modified-p (buffer-modified-p))
-    (save-restriction
-      (widen)
-      (save-excursion
-        (setq display-line-numbers-first-line
-              (if arg
-                  (window-start (selected-window))
-                (point-min)))
-        (goto-char display-line-numbers-first-line)
-        (setq line-number (1+ (count-lines (point-min) (point))))
-        (if arg
-            (move-to-window-line -1)
-          (goto-char (point-max)))
-        (beginning-of-line)
-        (setq nlines (count-lines display-line-numbers-first-line (point)))
-        (let ((max (+ line-number nlines)))
-          (setq display-line-numbers-format-string (cond ((< max 100) "%2d ")
-                                    ((< max 1000) "%3d ")
-                                    ((< max 10000) "%4d ")
-                                    (t "%7d "))))))
-    (save-excursion
-      (condition-case nil
-          (progn
-            (goto-char display-line-numbers-first-line)
-            (setq buffer-file-name nil) ; To prevent saving with line numbers etc.
-            (setq displaying-line-numbers-p t)
-            (while (<= display-line-numbers-count nlines)
-              (insert-before-markers
-               (format display-line-numbers-format-string line-number))
-              (setq line-number (1+ line-number))
-              (setq display-line-numbers-count (1+ display-line-numbers-count))
-              (forward-line 1))
-            (when arg
-              (set-window-start (selected-window) display-line-numbers-first-line))
-            (goto-char point)
-            (set-buffer-modified-p display-line-numbers-modified-p))
-    (error
-     (progn
-           (goto-char display-line-numbers-first-line)
-           (let ((n (1+ (- (aref display-line-numbers-format-string 1) ?0))))
-             (while (> display-line-numbers-count 0)
-               (setq display-line-numbers-count (1- display-line-numbers-count))
-               (delete-char n)
-               (forward-line 1)))
-           (setq buffer-file-name display-line-numbers-buffer-name)
-           (set-buffer-modified-p display-line-numbers-modified-p)
-           (setq displaying-line-numbers-p nil))))))
-  (let ((curr-line (count-lines (window-start) (point))))
-    (when (> curr-line 0) (setq curr-line (1+ curr-line)))
-    (recenter curr-line)))
-
-;;;###autoload
-(defun turn-off-line-numbers-display ()
-  "Clear displayed line numbers from left margin of current buffer."
-  (interactive)
-  (unless (eq (current-buffer) (window-buffer (selected-window)))
-    (error "Current buffer, `%s', is not the selected window's buffer"
-             (buffer-name)))
-  (unless displaying-line-numbers-p
-    (error "Not displaying line numbers in buffer `%s'" (buffer-name)))
-  (let ((buffer-read-only nil))
-    (save-excursion
-      (when (boundp 'display-line-numbers-buffer-name)
-        (setq buffer-file-name display-line-numbers-buffer-name))
-      (goto-char display-line-numbers-first-line)
-      (let ((n (1+ (- (aref display-line-numbers-format-string 1) ?0))))
-        (while (> display-line-numbers-count 0)
-          (setq display-line-numbers-count (1- display-line-numbers-count))
-          (delete-char n)
-          (forward-line 1)))
-      (when (boundp 'display-line-numbers-modified-p)
-        (set-buffer-modified-p display-line-numbers-modified-p))
-      (setq displaying-line-numbers-p nil))))
-
-
-;;;;;;;;;;;;;;;;;;;;;;;
-
-(provide 'line-num)
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;; line-num.el ends here
diff --git a/lisp/misc/patches.el b/lisp/misc/patches.el
new file mode 100644
index 00000000..a00cb359
--- /dev/null
+++ b/lisp/misc/patches.el
@@ -0,0 +1,51 @@
+(if (equal (cons 1 1)
+             (ignore-errors
+               (subr-arity (symbol-function 'execute-extended-command))))
+(progn (message "Patching execute-extended-command")
+(defun execute-extended-command (prefixarg &optional command-name)
+  ;; Based on Fexecute_extended_command in keyboard.c of Emacs.
+  ;; Aaron S. Hawley <aaron.s.hawley(at)gmail.com> 2009-08-24
+  "Read a command name, then read the arguments and call the command.
+Interactively, to pass a prefix argument to the command you are
+invoking, give a prefix argument to `execute-extended-command'.
+Noninteractively, the argument PREFIXARG is the prefix argument to
+give to the command you invoke."
+  (interactive (list current-prefix-arg (read-extended-command)))
+  ;; Emacs<24 calling-convention was with a single `prefixarg' argument.
+  (if (null command-name)
+      (setq command-name (let ((current-prefix-arg prefixarg)) ; for prompt
+                           (read-extended-command))))
+  (let* ((function (and (stringp command-name) (intern-soft command-name)))
+         (binding (and suggest-key-bindings
+		       (not executing-kbd-macro)
+		       (where-is-internal function overriding-local-map t))))
+    (unless (commandp function)
+      (error "`%s' is not a valid command name" command-name))
+    (setq this-command function)
+    ;; Normally `real-this-command' should never be changed, but here we really
+    ;; want to pretend that M-x <cmd> RET is nothing more than a "key
+    ;; binding" for <cmd>, so the command the user really wanted to run is
+    ;; `function' and not `execute-extended-command'.  The difference is
+    ;; visible in cases such as M-x <cmd> RET and then C-x z (bug#11506).
+    (setq real-this-command function)
+    (let ((prefix-arg prefixarg))
+      (command-execute function 'record))
+    ;; If enabled, show which key runs this command.
+    (when binding
+      ;; But first wait, and skip the message if there is input.
+      (let* ((waited
+              ;; If this command displayed something in the echo area;
+              ;; wait a few seconds, then display our suggestion message.
+              (sit-for (cond
+                        ((zerop (length (current-message))) 0)
+                        ((numberp suggest-key-bindings) suggest-key-bindings)
+                        (t 2)))))
+        (when (and waited (not (consp unread-command-events)))
+          (with-temp-message
+              (format "You can run the command `%s' with %s"
+                      function (key-description binding))
+            (sit-for (if (numberp suggest-key-bindings)
+                         suggest-key-bindings
+                       2))))))))) (message "Not patching execute-extended-command"))
+
+(provide 'patches)