Author: sasugaanija
Date: Sat Dec 8 01:40:47 2007
New Revision: 5054
Modified:
trunk/emacs/uim-util.el
Log:
* emacs/uim-util.el
- (uim-replace-tab): Comment out debug message
- (uim-tab-pad-space): ditto
- (uim-goto-char): ditto
Modified: trunk/emacs/uim-util.el
==============================================================================
--- trunk/emacs/uim-util.el (original)
+++ trunk/emacs/uim-util.el Sat Dec 8 01:40:47 2007
@@ -130,7 +130,7 @@
;; Replace tabs to the same width white spaces.
;;
(defun uim-replace-tab (start end)
-; (uim-debug (format "uim-replace-tab %s %s" start end))
+ ;;(uim-debug (format "uim-replace-tab %s %s" start end))
(let (tpos (cnt 0) (ofs 0) tabwidth)
(save-excursion
(goto-char start)
@@ -160,7 +160,7 @@
;; Replace tabs and spaces.
;;
(defun uim-tab-pad-space (start end)
- (uim-debug (format "uim-tab-pad-space %s %s" start end))
+ ;;(uim-debug (format "uim-tab-pad-space %s %s" start end))
(let (org lstart lend (endorg end) tabspace)
(setq org (point))
(save-excursion
@@ -299,7 +299,7 @@
(defun uim-goto-char (pt)
- (uim-debug (format "uim-goto-char: %s" pt))
+ ;;(uim-debug (format "uim-goto-char: %s" pt))
(set-window-point (get-buffer-window (current-buffer)) pt))
(defun uim-point ()
