diff --git a/ChangeLog b/ChangeLog
index 64d83e5df..fc124abad 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,6 @@
+2010-09-07 Holger Vogt
+ * vectors.c: add plot [alli | allv | ally]
+
 2010-09-04 Dietmar Warning
  * misc/tilde.c: prevent unreached statement if pwd.h available
  * define.h: recover signaltype for SunStudio compiler signal function
diff --git a/src/frontend/vectors.c b/src/frontend/vectors.c
index e3066763f..4435dd4a4 100644
--- a/src/frontend/vectors.c
+++ b/src/frontend/vectors.c
@@ -56,6 +56,60 @@ findvec(char *word, struct plot *pl)
         return (newv);
     }
 
+    if (cieq(word, "allv")) {
+        for (d = pl->pl_dvecs; d; d = d->v_next) {
+            if ((d->v_flags & VF_PERMANENT) && (d->v_type == 3)) {
+                if (d->v_link2) {
+                    v = vec_copy(d);
+                    vec_new(v);
+                } else
+                    v = d;
+                if (end)
+                    end->v_link2 = v;
+                else
+                    newv = v;
+                end = v;
+            }
+        }
+        return (newv);
+    }
+
+    if (cieq(word, "alli")) {
+        for (d = pl->pl_dvecs; d; d = d->v_next) {
+            if ((d->v_flags & VF_PERMANENT) && (d->v_type == 4)) {
+                if (d->v_link2) {
+                    v = vec_copy(d);
+                    vec_new(v);
+                } else
+                    v = d;
+                if (end)
+                    end->v_link2 = v;
+                else
+                    newv = v;
+                end = v;
+            }
+        }
+        return (newv);
+    }
+
+    if (cieq(word, "ally")) {
+        for (d = pl->pl_dvecs; d; d = d->v_next) {
+            if ((d->v_flags & VF_PERMANENT) && (!cieq(d->v_name, pl->pl_scale->v_name))) {
+                if (d->v_link2) {
+                    v = vec_copy(d);
+                    vec_new(v);
+                } else
+                    v = d;
+                if (end)
+                    end->v_link2 = v;
+                else
+                    newv = v;
+                end = v;
+            }
+        }
+        return (newv);
+    }
+
     for (d = pl->pl_dvecs; d; d = d->v_next)
         if (cieq(word, d->v_name) && (d->v_flags & VF_PERMANENT))
             break;