Minor fixes to accomodate Zsh4

[etc/zsh.git] / .zsh / zshrc / 82-load_alias-d

diff --git a/.zsh/zshrc/82-load_alias-d b/.zsh/zshrc/82-load_alias-d
index 62e6e39f7df43e0063716bef271fc616148c1983..29880a9d4b7333fb2e730a28ec6a376a3aa7746f 100644 (file)
--- a/.zsh/zshrc/82-load_alias-d
+++ b/.zsh/zshrc/82-load_alias-d
@@ -12,9 +12,11 @@ function make_alias {
   setopt extendedglob
   local fn="${1:t}" s
   for l in ${(f)"$(<$1)"}; do
   setopt extendedglob
   local fn="${1:t}" s
   for l in ${(f)"$(<$1)"}; do

+    0=$fn

     case "$s/$l" in
       (*/\#*) continue;;
     case "$s/$l" in
       (*/\#*) continue;;

-      (/*) eval "alias $fn='${l//\$0/$fn}'"; s=s; 0=$fn;;
+      (/\(\)*) eval "function $fn$l"; s=s;;
+      (/*) eval "alias $fn='${l//\$0/$fn}'"; s=s;;

       (s/(#b)(*)) eval "$match[1]";;
     esac
   done
       (s/(#b)(*)) eval "$match[1]";;
     esac
   done