Browse CVS Repository
Diff of /kogiku/kogiku/kogiku.el
 Parent Directory
|  Revision Log
|  Revision Graph
|  Patch
| 389 |
(let* ((full (buffer-substring-no-properties |
(let* ((full (buffer-substring-no-properties |
| 390 |
(kogiku-field-beginning) (point-max))) |
(kogiku-field-beginning) (point-max))) |
| 391 |
(dir (or (file-name-directory full) default-directory)) |
(dir (or (file-name-directory full) default-directory)) |
| 392 |
(file (file-name-nondirectory full)) |
(file (or (file-name-nondirectory full) "")) |
| 393 |
(files (cdr (assoc dir kogiku-minibuffer-prompt-advocate-files))) |
(files (cdr (assoc dir kogiku-minibuffer-prompt-advocate-files))) |
| 394 |
(count 0) |
(count 0) |
| 395 |
(kcount 0) |
(kcount 0) |
| 398 |
(catch 'advocate |
(catch 'advocate |
| 399 |
(unless (and (not files) |
(unless (and (not files) |
| 400 |
(or (not (eq (point) (point-max))) |
(or (not (eq (point) (point-max))) |
| 401 |
|
(not dir) |
| 402 |
(and (string-match "^\\(/[^/]+:\\)\\|\\(//[^/]+/[^/]+\\)" dir) |
(and (string-match "^\\(/[^/]+:\\)\\|\\(//[^/]+/[^/]+\\)" dir) |
| 403 |
(setq host (concat "^" (regexp-quote (match-string 0 dir)))) |
(setq host (concat "^" (regexp-quote (match-string 0 dir)))) |
| 404 |
(not (string-match host default-directory))))) |
(not (string-match host default-directory))))) |
|
|
Legend:
| Removed from v.1.27 |
|
| changed lines |
| |
Added in v.1.28 |
|
|
| 
Parent Directory
Revision Log
Revision Graph
Patch