Add completion for the Picture header. From http://community.livejour…

…nal.com/ljupdate/34217.html git-svn-id: https://ljupdate.googlecode.com/svn/trunk@21 e25b6a91-9619-0410-a269-c760fbc1eb27
hober · Dec 8, 2007 · a1b1bd8 · a1b1bd8
1 parent 830fe9a
commit a1b1bd8
Showing 1 changed file with 10 additions and 3 deletions.
diff --git a/lj-pcomplete.el b/lj-pcomplete.el
@@ -76,6 +76,14 @@
                         'string-lessp)
                   nil nil t))
 
+(defun pcomplete/lj-compose-header-mode/Picture ()
+  "Attempt to complete the Picture header."
+  (pcomplete-here (sort (copy-list (lj-user-get (lj-this-server)
+                                                (lj-this-user)
+                                                :pics))
+                        'string-lessp)
+                  nil nil t))
+
 (defun pcomplete/lj-compose-header-mode/Access ()
   "Attempt to complete the Access header."
   (pcomplete-here (sort
@@ -84,9 +92,8 @@
                     (mapcar 'car
                             (lj-user-get (lj-this-server)
                                          (lj-this-user)
-                                         :friends-groups))
-                    )
-                        'string-lessp)
+                                         :friends-groups)))
+                   'string-lessp)
                   nil nil t))
 
 ;; pcomplete support code