diff options
| -rw-r--r-- | misc/elscreen/Makefile | 1 | ||||
| -rw-r--r-- | misc/elscreen/files/patch-elscreen.el | 25 |
2 files changed, 26 insertions, 0 deletions
diff --git a/misc/elscreen/Makefile b/misc/elscreen/Makefile index 115b30c..ccca88c 100644 --- a/misc/elscreen/Makefile +++ b/misc/elscreen/Makefile @@ -7,6 +7,7 @@ PORTNAME= elscreen PORTVERSION= 1.2.2 +PORTREVISION= 1 CATEGORIES= misc elisp MASTER_SITES= ftp://ftp.morishima.net/pub/morishima.net/naoto/ElScreen/%SUBDIR%/ MASTER_SITE_SUBDIR= . old diff --git a/misc/elscreen/files/patch-elscreen.el b/misc/elscreen/files/patch-elscreen.el new file mode 100644 index 0000000..7e45463 --- /dev/null +++ b/misc/elscreen/files/patch-elscreen.el @@ -0,0 +1,25 @@ +--- elscreen.el.orig Wed Sep 19 10:44:10 2001 ++++ elscreen.el Sat Jun 15 15:55:59 2002 +@@ -479,7 +479,7 @@ + (car (nth j elscreen-mode-to-screen-alist)) + elscreen-mode-names) + (progn +- (put-alist ++ (set-alist + 'elscreen-tmp-name-alist + i (cdr (nth j elscreen-mode-to-screen-alist))) + (setq flag nil))) +@@ -590,9 +590,10 @@ + + + (defun elscreen-message (message &optional sec) +- (setq elscreen-last-message message) +- (message message) +- (sit-for (or sec 3)) ++ (when message ++ (setq elscreen-last-message message) ++ (message "%s" message) ++ (sit-for (or sec 3))) + (message nil)) + + ; |
