(FILECREATED "14-Nov-86 15:00:18" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH151.;1
 1296   

      changes to:  (VARS RHTPATCH151COMS))


(* Copyright (c) 1986 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT RHTPATCH151COMS)

(RPAQQ RHTPATCH151COMS
 ((* * Fixes missing InterestedWindow var in NCLocalDevice.DeleteNoteFile.)
			  (* * Changes to NCLOCALDEVICE)
			  (FNS NCLocalDevice.DeleteNoteFile)))
(* * Fixes missing InterestedWindow var in NCLocalDevice.DeleteNoteFile.)


(* * Changes to NCLOCALDEVICE)


(DEFINEQ

(NCLocalDevice.DeleteNoteFile

  (LAMBDA (FILENAME)                                         (* rht: "14-Nov-86 14:48")


          (* * The local device delete notefile. Contains a lot of the statements borrowed from the original delete 

	  notefile.)




          (* * rht & rg 11/14/86: The print statement should be ripped out and perhaps moved to NC.DeleteDatabaseFile.

	  This fn should return some sort of error code instead.)



    (
COND

      ((
OPENP
 FILENAME)
	(
NC.PrintMsg
 NIL T FILENAME " is an open file." (
CHARACTER
 13)
		       "Delete cancelled."
		       (
CHARACTER
 13))
	NIL)
      (T (
DELFILE
 FILENAME)))))
)
(PUTPROPS RHTPATCH151 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (532 1214 (NCLocalDevice.DeleteNoteFile 542 . 1212)))))
STOP