Mercurial > hg > xemacs-beta

diff lisp/files.el @ 4156:346788f5aa64

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-08-31 08:34:25 by didierv] Preserve hooks locality in files-fetch-hook-value
author didierv
date Fri, 31 Aug 2007 08:34:27 +0000
parents f901409b074b
children c5a2b80bc4fa
line wrap: on
line diff
--- a/lisp/files.el	Thu Aug 30 21:51:16 2007 +0000
+++ b/lisp/files.el	Fri Aug 31 08:34:27 2007 +0000
@@ -2809,8 +2809,8 @@
 (put 'save-buffer-coding-system 'permanent-local t)
 
 (defun files-fetch-hook-value (hook)
-  (let ((localval (symbol-value hook))
-	(globalval (default-value hook)))
+  (let ((localval (copy-list (symbol-value hook)))
+	(globalval (copy-list (default-value hook))))
     (if (memq t localval)
 	(setq localval (append (delq t localval) (delq t globalval))))
     localval))