From d20b580b8fd0a5a9460be418bc2f44e7e0d9c5a3 Mon Sep 17 00:00:00 2001 From: okazaki Date: Sun, 21 May 2000 14:55:32 +0000 Subject: [PATCH] * wl-folder.el (wl-folder-buffer-cur-path): Make buffer-local. --- wl/wl-folder.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/wl/wl-folder.el b/wl/wl-folder.el index 5614345..796fb2f 100644 --- a/wl/wl-folder.el +++ b/wl/wl-folder.el @@ -81,13 +81,16 @@ (defvar wl-folder-queue-glyph nil) (defvar wl-folder-buffer-disp-summary nil) -(make-variable-buffer-local 'wl-folder-buffer-disp-summary) (defvar wl-folder-buffer-cur-entity-id nil) -(make-variable-buffer-local 'wl-folder-buffer-cur-entity-id) (defvar wl-folder-buffer-cur-path nil) -(make-variable-buffer-local 'wl-folder-buffer-cur-entity-id) (defvar wl-folder-buffer-cur-point nil) -(make-variable-buffer-local 'wl-folder-buffer-cur-point) + +(mapcar + (function make-variable-buffer-local) + (list 'wl-folder-buffer-disp-summary + 'wl-folder-buffer-cur-entity-id + 'wl-folder-buffer-cur-path + 'wl-folder-buffer-cur-point)) (defconst wl-folder-entity-regexp "^\\([ ]*\\)\\(\\[[\\+-]\\]\\)?\\([^\\[].+\\):[-*0-9]+/[-*0-9]+/[-*0-9]+") (defconst wl-folder-group-regexp "^\\([ ]*\\)\\[\\([\\+-]\\)\\]\\(.+\\):[-0-9-]+/[0-9-]+/[0-9-]+\n") -- 1.7.10.4