X-Git-Url: http://git.hcoop.net/bpt/emacs.git/blobdiff_plain/1913a2b35da45eeeb71ef851975be7d57c11de78..f172d0f8f64c51c1de47f23b637cc486833bbd1b:/lisp/userlock.el diff --git a/lisp/userlock.el b/lisp/userlock.el index 8a539daace..ed9ccb115d 100644 --- a/lisp/userlock.el +++ b/lisp/userlock.el @@ -1,7 +1,7 @@ ;;; userlock.el --- handle file access contention between multiple users -;; Copyright (C) 1985, 1986, 2002, 2003, 2004, -;; 2005, 2006 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 2001, 2002, 2003, 2004, +;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: internal @@ -10,7 +10,7 @@ ;; GNU Emacs is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation; either version 2, or (at your option) +;; the Free Software Foundation; either version 3, or (at your option) ;; any later version. ;; GNU Emacs is distributed in the hope that it will be useful, @@ -87,9 +87,9 @@ in any way you like." (defun ask-user-about-lock-help () (with-output-to-temp-buffer "*Help*" (princ "It has been detected that you want to modify a file that someone else has -already started modifying in EMACS. +already started modifying in Emacs. -You can teal the file; The other user becomes the +You can teal the file; the other user becomes the intruder if (s)he ever unmodifies the file and then changes it again. You can

roceed; you edit at your own (and the other user's) risk. You can uit; don't modify this file.") @@ -134,7 +134,7 @@ The buffer in question is current when this function is called." (setq answer nil)) ((eq answer 'revert) (revert-buffer nil (not (buffer-modified-p))) - ; ask confirmation iff buffer modified + ; ask confirmation if buffer modified (signal 'file-supersession (list "File reverted" fn))) ((eq answer 'yield)