X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/85ba4cded3ef5a834c880edfdb6cf7ec3a747e9b..42b2a986d9d4b7040fb20c90ec0efeffb78e761a:/lisp/net/newst-treeview.el diff --git a/lisp/net/newst-treeview.el b/lisp/net/newst-treeview.el index 5e38a905ad..d003554e54 100644 --- a/lisp/net/newst-treeview.el +++ b/lisp/net/newst-treeview.el @@ -1,6 +1,6 @@ ;;; newst-treeview.el --- Treeview frontend for newsticker. -;; Copyright (C) 2008-2011 Free Software Foundation, Inc. +;; Copyright (C) 2008-2012 Free Software Foundation, Inc. ;; Author: Ulf Jasper ;; Filename: newst-treeview.el @@ -227,7 +227,7 @@ their id stays constant." (string= (widget-get node1 :tag) (widget-get node2 :tag))))) (defun newsticker--treeview-do-get-node-of-feed (feed-name startnode) - "Recursivly search node for feed FEED-NAME starting from STARTNODE." + "Recursively search node for feed FEED-NAME starting from STARTNODE." ;;(message "%s/%s" feed-name (widget-get startnode :nt-feed)) (if (string= feed-name (or (widget-get startnode :nt-feed) (widget-get startnode :nt-vfeed))) @@ -245,7 +245,7 @@ their id stays constant." newsticker--treeview-vfeed-tree))) (defun newsticker--treeview-do-get-node (id startnode) - "Recursivly search node with ID starting from STARTNODE." + "Recursively search node with ID starting from STARTNODE." (if (newsticker--treeview-ids-eq id (widget-get startnode :nt-id)) (throw 'found startnode) (let ((children (widget-get startnode :children))) @@ -1793,7 +1793,7 @@ Update teeview afterwards unless NO-UPDATE is non-nil." result)) (defun newsticker--group-remove-obsolete-feeds (group) - "Recursively remove obselete feeds from GROUP." + "Recursively remove obsolete feeds from GROUP." (let ((result nil) (urls (append newsticker-url-list newsticker-url-list-defaults))) (mapc (lambda (g)