Develop and Download Open Source Software

小菊

Browse CVS Repository

/[OSDN]/kogiku/kogiku/kogiku.el

Diff of /kogiku/kogiku/kogiku.el

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

revision 1.4 by shirai, Sun Feb 8 02:35:29 2004 UTC revision 1.5 by jet, Sun Feb 8 18:25:52 2004 UTC
# Line 110  Line 110 
110  (defvar kogiku-original-function-for-minibuffer-local-must-match-map  (defvar kogiku-original-function-for-minibuffer-local-must-match-map
111    nil)    nil)
112    
113  (defun kogiku-completion-complete ()  (defun kogiku-completion-complete (&optional arg)
114    (interactive)    (interactive "P")
115    (if (eq minibuffer-completion-table 'read-file-name-internal)    (if (and
116           arg
117           (eq minibuffer-completion-table 'read-file-name-internal))
118        (setq minibuffer-completion-table        (setq minibuffer-completion-table
119              'kogiku-read-file-name-internal))              'kogiku-read-file-name-internal))
120    (funcall    (funcall
121     kogiku-original-function-for-minibuffer-local-completion-map))     kogiku-original-function-for-minibuffer-local-completion-map))
122    
123  (defun kogiku-must-match-complete ()  (defun kogiku-must-match-complete (&optional arg)
124    (interactive)    (interactive "P")
125    (if (eq minibuffer-completion-table 'read-file-name-internal)    (if (and
126           arg
127           (eq minibuffer-completion-table 'read-file-name-internal))
128        (setq minibuffer-completion-table        (setq minibuffer-completion-table
129              'kogiku-read-file-name-internal))              'kogiku-read-file-name-internal))
130    (funcall    (funcall
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help