Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
4155:47a8f73cd71d 4156:346788f5aa64
2807 2807
2808 (make-variable-buffer-local 'save-buffer-coding-system) 2808 (make-variable-buffer-local 'save-buffer-coding-system)
2809 (put 'save-buffer-coding-system 'permanent-local t) 2809 (put 'save-buffer-coding-system 'permanent-local t)
2810 2810
2811 (defun files-fetch-hook-value (hook) 2811 (defun files-fetch-hook-value (hook)
2812 (let ((localval (symbol-value hook)) 2812 (let ((localval (copy-list (symbol-value hook)))
2813 (globalval (default-value hook))) 2813 (globalval (copy-list (default-value hook))))
2814 (if (memq t localval) 2814 (if (memq t localval)
2815 (setq localval (append (delq t localval) (delq t globalval)))) 2815 (setq localval (append (delq t localval) (delq t globalval))))
2816 localval)) 2816 localval))
2817 2817
2818 (defun basic-save-buffer () 2818 (defun basic-save-buffer ()