roceed; you edit at your own (and the other user's) risk.\nYou can uit; don't modify this file."] 3] put file-supersession error-conditions (file-supersession file-error error)] 4)
(defalias 'ask-user-about-supersession-threat #[(fn) " " [discard-input ((byte-code " Y
!\" ) \nU! ˂' \"A: !!U =H U =U
D\") !)" [nil answer message "%s changed on disk; really edit the buffer? (y, n or C-h) " file-name-nondirectory fn t cursor-in-echo-area read-char tem help-char help assoc ((110 . yield) (7 . yield) (121 . proceed) (63 . help)) beep "Please type y or n; or ? for help" sit-for 3 ask-user-about-supersession-help yield signal file-supersession "File changed on disk" "File on disk now will become a backup file if you save these changes." buffer-backed-up] 5))] 1 "\
Ask a user who is about to modify an obsolete buffer what to do.
This function has two choices: it can return, in which case the modification
of the buffer will proceed, or it can (signal 'file-supersession (file)),
in which case the proposed buffer modification will not be made.
You can rewrite this to use any criterion you like to choose which one to do.
The buffer in question is current when this function is called."])
(defalias (quote ask-user-about-supersession-help) #[nil "!" ["*Help*" princ "You want to modify a buffer whose disk file has changed\nsince you last read it in or saved it with this buffer.\n\nIf you say `y' to go ahead and modify this buffer,\nyou risk ruining the work of whoever rewrote the file.\nIf you say `n', the change you started to make will be aborted.\n\nUsually, you should type `n' and then `M-x revert-buffer',\nto get the latest version of the file, then make the change again."] 3])