diff options
Diffstat (limited to 'app-emacs/elscreen/files/elscreen-1.4.6-emacs-24.patch')
-rw-r--r-- | app-emacs/elscreen/files/elscreen-1.4.6-emacs-24.patch | 154 |
1 files changed, 154 insertions, 0 deletions
diff --git a/app-emacs/elscreen/files/elscreen-1.4.6-emacs-24.patch b/app-emacs/elscreen/files/elscreen-1.4.6-emacs-24.patch new file mode 100644 index 000000000000..dbcb77557f17 --- /dev/null +++ b/app-emacs/elscreen/files/elscreen-1.4.6-emacs-24.patch @@ -0,0 +1,154 @@ +--- elscreen-1.4.6-orig/elscreen.el 2013-05-23 21:31:14.011823000 +1000 ++++ elscreen-1.4.6/elscreen.el 2013-10-03 20:55:35.497650931 +1000 +@@ -29,9 +29,9 @@ + (eval-when-compile + (require 'static)) + +-(static-defconst elscreen-on-xemacs (featurep 'xemacs)) +-(static-defconst elscreen-on-emacs (and (not elscreen-on-xemacs) +- (>= emacs-major-version 21))) ++(static-defconst elscreen-on-xemacs (featurep 'xemacs) ++ (static-defconst elscreen-on-emacs (and (not elscreen-on-xemacs) ++ (>= emacs-major-version 21)))) + + + ;;; User Customizable Variables: +@@ -148,7 +148,8 @@ + + (static-when elscreen-on-emacs ;; GNU Emacs 21 + (make-obsolete-variable 'elscreen-tab-display-create-screen +- 'elscreen-tab-display-control) ++ 'elscreen-tab-display-control ++ "1.4.6") + (defcustom elscreen-tab-display-control t + "*Non-nil to display control tab at the most left side." + :tag "Show/Hide the Control Tab" +@@ -201,13 +202,13 @@ + (((class color)) + (:background "blue" :foreground "black" :underline t))) + "Face for tabs other than current screen one." +- :group 'elscreen)) ++ :group 'elscreen) + + + ;;; Key & Menu bindings: + +-(defvar elscreen-map (make-sparse-keymap) +- "Keymap for ElScreen.") ++ (defvar elscreen-map (make-sparse-keymap) ++ "Keymap for ElScreen.")) + (define-key elscreen-map "\C-c" 'elscreen-create) + (define-key elscreen-map "c" 'elscreen-create) + (define-key elscreen-map "C" 'elscreen-clone) +@@ -899,13 +900,13 @@ + screen-list-string) + (cond + ((not (elscreen-screen-live-p screen)) ;; XXX +- (when (interactive-p) ++ (when (called-interactively-p 'any) + (elscreen-message "There is no such screen"))) + ((null screen-list) +- (when (interactive-p) ++ (when (called-interactively-p 'any) + (elscreen-message "There is only one screen, cannot kill"))) + ((or +- (not (interactive-p)) ++ (not (called-interactively-p 'any)) + (yes-or-no-p (format "Really kill screens other than %d? " screen))) + (setq screen-list-string (mapconcat + (lambda (screen) +@@ -914,7 +915,7 @@ + screen-list ",")) + (elscreen-goto-internal screen) + (elscreen-notify-screen-modification 'force-immediately) +- (when (interactive-p) ++ (when (called-interactively-p 'any) + (elscreen-message (format "screen %s killed" screen-list-string))))) + screen-list)) + +@@ -984,7 +985,7 @@ + (defun elscreen-jump () + "Switch to specified screen." + (interactive) +- (let ((next-screen (string-to-number (string last-command-char)))) ++ (let ((next-screen (string-to-number (string last-command-event)))) + (if (and (<= 0 next-screen) (<= next-screen 9)) + (elscreen-goto next-screen)))) + (defalias 'elscreen-jump-0 'elscreen-jump) +@@ -1046,7 +1047,7 @@ + (princ (substitute-command-keys + (mapconcat 'symbol-value + elscreen-help-symbol-list "\n\n"))) +- (print-help-return-message))) ++ (help-print-return-message))) + + + ;;; Utility Functions +@@ -1180,7 +1181,7 @@ + creating one if none already exists." + (interactive) + (let* ((prompt "Go to the screen with specified buffer: ") +- (create (or create (interactive-p))) ++ (create (or create (called-interactively-p 'any))) + (buffer-name (or (and (bufferp buffer) (buffer-name buffer)) + (and (stringp buffer) buffer) + (and (featurep 'iswitchb) +@@ -1207,7 +1208,7 @@ + Use \\[toggle-read-only] to permit editing." + (interactive "FFind file read-only in new screen: ") + (elscreen-find-file filename) +- (toggle-read-only 1)) ++ (read-only-mode 1)) + + (defun elscreen-dired (dirname &optional switches) + (interactive (progn +@@ -1373,27 +1374,28 @@ + (defvar elscreen-e21-tab-format nil) + (make-variable-buffer-local 'elscreen-e21-tab-format) + +- (defsubst elscreen-e21-tab-create-keymap (&rest definitions) +- (let ((keymap (make-sparse-keymap)) +- (key-function-pairs +- (eval-when-compile +- (mapcar +- (lambda (key) +- (cons key 'ignore)) +- (list 'mouse-1 'mouse-2 'mouse-3 +- 'down-mouse-1 'down-mouse-2 'down-mouse-3 +- 'drag-mouse-1 'drag-mouse-2 'drag-mouse-3))))) +- (while definitions +- (set-alist 'key-function-pairs (car definitions) (cadr definitions)) +- (setq definitions (cddr definitions))) +- (mapc +- (lambda (key-function-pair) +- (let ((key (car key-function-pair)) +- (function (cdr key-function-pair))) +- (define-key keymap (vector 'header-line key) function))) +- key-function-pairs) +- keymap)) +- ++ (eval-when-compile ++ (defsubst elscreen-e21-tab-create-keymap (&rest definitions) ++ (let ((keymap (make-sparse-keymap)) ++ (key-function-pairs ++ (eval-when-compile ++ (mapcar ++ (lambda (key) ++ (cons key 'ignore)) ++ (list 'mouse-1 'mouse-2 'mouse-3 ++ 'down-mouse-1 'down-mouse-2 'down-mouse-3 ++ 'drag-mouse-1 'drag-mouse-2 'drag-mouse-3))))) ++ (while definitions ++ (set-alist 'key-function-pairs (car definitions) (cadr definitions)) ++ (setq definitions (cddr definitions))) ++ (mapc ++ (lambda (key-function-pair) ++ (let ((key (car key-function-pair)) ++ (function (cdr key-function-pair))) ++ (define-key keymap (vector 'header-line key) function))) ++ key-function-pairs) ++ keymap))) ++ + (defsubst elscreen-e21-tab-width () + (if (numberp elscreen-display-tab) + elscreen-display-tab |