Changeset 71 for lang/elisp/pdicv-mode/trunk/nt-file.el

Timestamp:

01/30/09 23:52:02 (16 years ago)

Author:

naoya_t

Message:

 

Files:

• lang/elisp/pdicv-mode/trunk/nt-file.el (modified) (3 diffs)

lang/elisp/pdicv-mode/trunk/nt-file.el

@@ -1 +1 @@
 ;;; nt-file.el --- file-related functions
 ;;
-;; Copyright (C) 2005 Naoya TOZUKA. All Rights Reserved.
+;; Copyright (C) 2005-2009 naoya_t. All Rights Reserved.
 ;;
-;; Author: Naoya TOZUKA <pdicviewer@gmail.com>
-;; Maintainer: Naoya TOZUKA <pdicviewer@gmail.com>
-;; Primary distribution site: http://pdicviewer.naochan.com/el/
+;; Author: naoya_t <naoya.t@aqua.plala.or.jp>
+;; Maintainer: naoya_t <naoya.t@aqua.plala.or.jp>
+;; Primary distribution site:
+;;   http://lambdarepos.svnrepository.com/svn/share/lang/elisp/pdicv-mode/trunk
 ;;
 ;; Created: 16 Feb 2005 (formerly nt-utils)
@@ -36 +37 @@
       (setq my-buffer (buffer-substring 1 (+ 1 read-length)))
       (kill-buffer buffer-name)
-      my-buffer
-      ) ; let
-    ) ; save-current-buffer
-  )
+      my-buffer)))
 
 (defun nt:scan-latest-version (filename-format min max)
@@ -47 +45 @@
         (let ((file (format filename-format version)))
           (if (file-readable-p file) (throw 'scan-latest-version (list file version))
-            (setq version (1- version))
-            );fi
-          );let
-        );wend
-      nil
-      );let
-    );caught
-  )
+            (setq version (1- version)))))
+      nil)))
 
 ;;; nt-file.el ends here