Re: How to unify notation for file accesses thru Samba?

[Sébastien Vauban]

Hi Michael,

>> I have this in my `bookmarks.txt' file:
>>
>> --8<---------------cut here---------------start------------->8---
>> ("Users on RUSSELL"
>>  ((filename . "^/RUSSELL")
>>   (front-context-string . "sva\n  drwxrwxrwx")
>>   (rear-context-string . " 0 Jan  8 09:41 ")
>>   (position . 659)))
>> --8<---------------cut here---------------end--------------->8---
>>
>> Though, selecting the corresponding line from my bookmarks list
>> erroneously tells me:
>>
>> --8<---------------cut here---------------start------------->8---
>> RUSSELL nonexistent.  Relocate "Users on RUSSELL"? (y or n)
>> --8<---------------cut here---------------end--------------->8---
>
> I haven't tested, but I would put the following into your bookmarks:
>
>   ((filename . "/RUSSELL")
>
> The "^" is needed for the regexp in abbreviations, but it is
> NOT useful when you specify a file name.

Of course, you're right!!

I removed the `^' from the filename in the `bookmarks.txt' file,
and have this in my `.emacs':

--8<---------------cut here---------------start------------->8---
(add-to-list
 'directory-abbrev-alist
 (if (memq system-type '(cygwin windows-nt))
     '("^/RUSSELL" . "//RUSSELL/Users")
   '("^/RUSSELL" . "/smb:sva@RUSSELL:/Users")))
--8<---------------cut here---------------end--------------->8---

Though it now asks me for a password, I still have a problem
after entering it:

--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (file-error "Permission denied")
  signal(file-error ("Permission denied"))
  tramp-error(["smb" "sva" "RUSSELL" "/.bzr/checkout/"] file-error "Permission 
denied")
  apply(tramp-error ["smb" "sva" "RUSSELL" "/.bzr/checkout/"] file-error 
"Permission denied" nil)
  byte-code("ĎÅÆ      \n%)‡" [vec-or-proc signal fmt-string args ((byte-code 
"ƒ-Ä  !„-ÅÆÇ!ƒ†&È!ƒ#É!†&Ê!!ˆËÌ!ˆ)ć" [vec-or-proc tramp-verbose 
enable-recursive-minibuffers buffer zerop t pop-to-buffer bufferp processp 
process-buffer tramp-get-buffer sit-for 30] 3)) apply tramp-error] 6)
  tramp-process-actions(#<process *tramp/smb sva@RUSSELL*> ["smb" "sva" 
"RUSSELL" "/.bzr/checkout/"] ((tramp-smb-prompt tramp-action-succeed) 
(tramp-password-prompt-regexp tramp-action-password) (tramp-wrong-passwd-regexp 
tramp-action-permission-denied) (tramp-smb-errors 
tramp-action-permission-denied) (tramp-process-alive-regexp 
tramp-action-process-alive)))
  tramp-smb-maybe-open-connection(["smb" "sva" "RUSSELL" "/.bzr/checkout/"])
  tramp-smb-send-command(["smb" "sva" "RUSSELL" "/.bzr/checkout/"] "dir 
\"checkout/*\"")
  tramp-smb-get-file-entries("/smb:sva@RUSSELL:/.bzr/checkout/")
  tramp-smb-handle-file-attributes("/smb:sva@RUSSELL:/.bzr/checkout/format")
  apply(tramp-smb-handle-file-attributes 
"/smb:sva@RUSSELL:/.bzr/checkout/format")
  tramp-smb-file-name-handler(file-attributes 
"/smb:sva@RUSSELL:/.bzr/checkout/format")
  apply(tramp-smb-file-name-handler file-attributes 
"/smb:sva@RUSSELL:/.bzr/checkout/format")
  tramp-file-name-handler(file-attributes 
"/smb:sva@RUSSELL:/.bzr/checkout/format")
  file-attributes("/smb:sva@RUSSELL:/.bzr/checkout/format")
  tramp-smb-handle-file-exists-p("/smb:sva@RUSSELL:/.bzr/checkout/format")
  apply(tramp-smb-handle-file-exists-p "/smb:sva@RUSSELL:/.bzr/checkout/format")
  tramp-smb-file-name-handler(file-exists-p 
"/smb:sva@RUSSELL:/.bzr/checkout/format")
  apply(tramp-smb-file-name-handler file-exists-p 
"/smb:sva@RUSSELL:/.bzr/checkout/format")
  tramp-file-name-handler(file-exists-p 
"/smb:sva@RUSSELL:/.bzr/checkout/format")
  file-exists-p("/smb:sva@RUSSELL:/.bzr/checkout/format")
  vc-find-root("/RUSSELL" ".bzr/checkout/format")
  (if (vc-find-root file vc-bzr-admin-checkout-format-file) (progn (load 
"vc-bzr") (vc-bzr-registered file)))
  vc-bzr-registered("/RUSSELL")
  apply(vc-bzr-registered "/RUSSELL")
  vc-call-backend(Bzr registered "/RUSSELL")
  #[(b) "Âà    #…Ä   Å#…ÆÇÈ\"‡" [b file vc-call-backend registered 
vc-file-setprop vc-backend throw found t] 4](Bzr)
  mapc(#[(b) "Âà       #…Ä   Å#…ÆÇÈ\"‡" [b file vc-call-backend 
registered vc-file-setprop vc-backend throw found t] 4] (RCS CVS SVN SCCS Bzr 
Git Hg Mtn Arch MCVS))
  byte-code("ÃÄ\"ÅÆ   ƒ     Ç=ƒ\n‚      \nB\"ˆ)ÈÄÇ#ˆÉ‡" [file backend 
vc-handled-backends vc-file-getprop vc-backend mapc #[(b) "Âà   #…Ä   Å#…
ÆÇÈ\"‡" [b file vc-call-backend registered vc-file-setprop vc-backend throw 
found t] 4] none vc-file-setprop nil] 4)
  vc-registered("/RUSSELL")
  vc-backend("/RUSSELL")
  bookmark-file-or-variation-thereof("/RUSSELL")
  bookmark-jump-noselect("Users on RUSSELL")
  bookmark-jump-internal("Users on RUSSELL")
  bookmark-jump("Users on RUSSELL")
  bookmark-bmenu-this-window()
  call-interactively(bookmark-bmenu-this-window nil nil)
--8<---------------cut here---------------end--------------->8---

I don't understand from where the reference to `/.bzr/checkout/'
comes... Any other good idea, once again?

Thank you very much,
  Seb

-- 
Sébastien Vauban