diff options
| author | Stefan Monnier | 2000-08-16 20:38:40 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2000-08-16 20:38:40 +0000 |
| commit | 1e495fc7643d76017c7ae0bd062e623f286ac8df (patch) | |
| tree | c9ba04a9bf5e2067b9fd016bc759800a1382dd8f /lisp/mail | |
| parent | 7e86942c8a01172bbe30a401c7a7555753e683c4 (diff) | |
| download | emacs-1e495fc7643d76017c7ae0bd062e623f286ac8df.tar.gz emacs-1e495fc7643d76017c7ae0bd062e623f286ac8df.zip | |
(mh-make-local-vars):
Replace make-variable-buffer-local with make-local-variable.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/mh-e.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/mail/mh-e.el b/lisp/mail/mh-e.el index 8c3635c3df1..2a3462d6513 100644 --- a/lisp/mail/mh-e.el +++ b/lisp/mail/mh-e.el | |||
| @@ -60,7 +60,7 @@ | |||
| 60 | ;; Modified by James Larus, BBN, July 1984 and UCB, 1984 & 1985. | 60 | ;; Modified by James Larus, BBN, July 1984 and UCB, 1984 & 1985. |
| 61 | ;; Rewritten for GNU Emacs, James Larus 1985. larus@ginger.berkeley.edu | 61 | ;; Rewritten for GNU Emacs, James Larus 1985. larus@ginger.berkeley.edu |
| 62 | ;; Modified by Stephen Gildea 1988. gildea@lcs.mit.edu | 62 | ;; Modified by Stephen Gildea 1988. gildea@lcs.mit.edu |
| 63 | (defconst mh-e-RCS-id "$Id: mh-e.el,v 1.24 2000/05/22 17:33:32 fx Exp $") | 63 | (defconst mh-e-RCS-id "$Id: mh-e.el,v 1.25 2000/05/23 20:10:46 monnier Exp $") |
| 64 | 64 | ||
| 65 | ;;; Code: | 65 | ;;; Code: |
| 66 | 66 | ||
| @@ -845,8 +845,7 @@ The value of mh-folder-mode-hook is called when a new folder is set up." | |||
| 845 | ;; Take VARIABLE-VALUE pairs and make local variables initialized to the | 845 | ;; Take VARIABLE-VALUE pairs and make local variables initialized to the |
| 846 | ;; value. | 846 | ;; value. |
| 847 | (while pairs | 847 | (while pairs |
| 848 | (make-variable-buffer-local (car pairs)) | 848 | (set (make-local-variable (car pairs)) (car (cdr pairs))) |
| 849 | (set (car pairs) (car (cdr pairs))) | ||
| 850 | (setq pairs (cdr (cdr pairs))))) | 849 | (setq pairs (cdr (cdr pairs))))) |
| 851 | 850 | ||
| 852 | 851 | ||