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.15 by shirai, Tue Feb 10 11:47:59 2004 UTC revision 1.16 by shirai, Tue Feb 10 11:52:26 2004 UTC
# Line 144  If nil, kogiku toggle with a prefix argu Line 144  If nil, kogiku toggle with a prefix argu
144      (let ((prompt (buffer-substring (point-min) (field-beginning)))      (let ((prompt (buffer-substring (point-min) (field-beginning)))
145            (props (text-properties-at (point-min)))            (props (text-properties-at (point-min)))
146            (indicator (format "[%s]" kogiku-minibuffer-prompt-string))            (indicator (format "[%s]" kogiku-minibuffer-prompt-string))
           (space " ")  
147            (buffer-read-only nil)            (buffer-read-only nil)
148            (inhibit-read-only t))            (inhibit-read-only t))
149        (save-excursion        (save-excursion
150          (if (eq minibuffer-completion-table 'kogiku-read-file-name-internal)          (if (eq minibuffer-completion-table 'kogiku-read-file-name-internal)
151              (when (string-match ":[^:]*" prompt)              (when (string-match ":[^:]*" prompt)
               (set-text-properties 0 (length space) props space)  
152                (set-text-properties 0 (length indicator) props indicator)                (set-text-properties 0 (length indicator) props indicator)
153                (add-text-properties 0 (length indicator)                (add-text-properties 0 (length indicator)
154                                     '(face kogiku-indicator-face) indicator)                                     '(face kogiku-indicator-face) indicator)
155                (setq prompt (concat (substring prompt 0 (match-beginning 0))                (setq prompt (concat (substring prompt 0 (match-beginning 0))
156                                     space indicator                                     indicator
157                                     (substring prompt (match-beginning 0))))                                     (substring prompt (match-beginning 0))))
158                (delete-region (point-min) (field-beginning))                (delete-region (point-min) (field-beginning))
159                (goto-char (point-min))                (goto-char (point-min))
160                (insert prompt))                (insert prompt))
161            (when (string-match (regexp-quote (concat space indicator)) prompt)            (when (string-match (regexp-quote indicator) prompt)
162              (setq prompt (replace-match "" nil nil prompt))              (setq prompt (replace-match "" nil nil prompt))
163              (set-text-properties 0 (length prompt) props prompt)              (set-text-properties 0 (length prompt) props prompt)
164              (delete-region (point-min) (field-beginning))              (delete-region (point-min) (field-beginning))
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help