Mercurial > emacs

comparison lisp/whitespace.el @ 47454:cf95d79a66c4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(whitespace-unload-hook): Call `remove-hook' with three arguments, not four.
author Juanma Barranquero <lekktu@gmail.com>
date Fri, 13 Sep 2002 06:21:32 +0000
parents b7a8fec8113c
children 37ddf84a7528
comparison
equal deleted inserted replaced
47453:2e596fc1fdac 47454:cf95d79a66c4
3 ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc. 3 ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
4 4
5 ;; Author: Rajesh Vaidheeswarran <rv@gnu.org> 5 ;; Author: Rajesh Vaidheeswarran <rv@gnu.org>
6 ;; Keywords: convenience 6 ;; Keywords: convenience
7 7
8 ;; $Id: whitespace.el,v 1.19 2001/12/13 17:34:57 rv Exp $ 8 ;; $Id: whitespace.el,v 1.20 2002/09/11 21:30:25 monnier Exp $
9 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
10 10
11 ;; GNU Emacs is free software; you can redistribute it and/or modify 11 ;; GNU Emacs is free software; you can redistribute it and/or modify
12 ;; it under the terms of the GNU General Public License as published by 12 ;; it under the terms of the GNU General Public License as published by
13 ;; the Free Software Foundation; either version 2, or (at your option) 13 ;; the Free Software Foundation; either version 2, or (at your option)
841 buffer-file-name)))) 841 buffer-file-name))))
842 nil) 842 nil)
843 843
844 (defun whitespace-unload-hook () 844 (defun whitespace-unload-hook ()
845 (remove-hook 'find-file-hook 'whitespace-buffer) 845 (remove-hook 'find-file-hook 'whitespace-buffer)
846 (remove-hook 'write-file-functions 'whitespace-write-file-hook nil t) 846 (remove-hook 'write-file-functions 'whitespace-write-file-hook t)
847 (remove-hook 'kill-buffer-hook 'whitespace-buffer)) 847 (remove-hook 'kill-buffer-hook 'whitespace-buffer))
848 848
849 (provide 'whitespace) 849 (provide 'whitespace)
850 ;;; whitespace.el ends here 850 ;;; whitespace.el ends here