Develop and Download Open Source Software

Browse CVS Repository

Diff of /kogiku/kogiku/kogiku.el

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.7 by shirai, Mon Feb 9 09:06:17 2004 UTC revision 1.8 by shirai, Mon Feb 9 10:14:25 2004 UTC
# Line 226  Line 226 
226    (kogiku-file-name-completion string dir t))    (kogiku-file-name-completion string dir t))
227    
228  (defun kogiku-double-dollars (input)  (defun kogiku-double-dollars (input)
229    (replace-regexp-in-string "\\$" "$$" input))    (let ((ret ""))
230        (while (string-match "\\$" input)
231          (setq ret (concat ret
232                            (substring input 0 (match-beginning 0))
233                            "$$"))
234          (setq input (substring input (match-end 0))))
235        (concat ret input)))
236    
237  (defun kogiku-read-file-name-internal (string dir action)  (defun kogiku-read-file-name-internal (string dir action)
238    (block nil    (block nil

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26