]> code.delx.au - gnu-emacs-elpa/blobdiff - packages/gnorb/gnorb-registry.el
Fix some quoting problems in doc strings
[gnu-emacs-elpa] / packages / gnorb / gnorb-registry.el
index 92205653c7dd48a1db3a26a470b7b1ddaccd67a9..565e54eeef349fa97e3c94841b1036878d573f8e 100644 (file)
@@ -80,7 +80,7 @@ sent. Save the relevant Org ids in the 'gnorb-ids key."
 
 (defun gnorb-registry-capture ()
   "When capturing from a Gnus message, add our new Org heading id
 
 (defun gnorb-registry-capture ()
   "When capturing from a Gnus message, add our new Org heading id
-to the message's registry entry, under the 'gnorb-ids key."
+to the message's registry entry, under the `gnorb-ids' key."
   (when (and (with-current-buffer
                 (org-capture-get :original-buffer)
               (memq major-mode '(gnus-summary-mode gnus-article-mode)))
   (when (and (with-current-buffer
                 (org-capture-get :original-buffer)
               (memq major-mode '(gnus-summary-mode gnus-article-mode)))
@@ -139,7 +139,7 @@ even for headings that appear to no longer exist."
 (defun gnorb-delete-association (msg-id org-id)
   "Disassociate a message and a headline.
 
 (defun gnorb-delete-association (msg-id org-id)
   "Disassociate a message and a headline.
 
-This removes an Org heading's ORG-ID from the 'gnorb-ids key of
+This removes an Org heading's ORG-ID from the `gnorb-ids' key of
 the MSG-ID."
   (let ((org-ids (gnus-registry-get-id-key msg-id 'gnorb-ids)))
     (when (member org-id org-ids)
 the MSG-ID."
   (let ((org-ids (gnus-registry-get-id-key msg-id 'gnorb-ids)))
     (when (member org-id org-ids)
@@ -194,12 +194,12 @@ archived headings as well."
             deleted-count)))
 
 (defun gnorb-registry-org-id-search (id)
             deleted-count)))
 
 (defun gnorb-registry-org-id-search (id)
-  "Find all messages that have the org ID in their 'gnorb-ids
+  "Find all messages that have the org ID in their `gnorb-ids'
 key."
   (registry-search gnus-registry-db :member `((gnorb-ids ,id))))
 
 (defun gnorb-registry-tracked-messages ()
 key."
   (registry-search gnus-registry-db :member `((gnorb-ids ,id))))
 
 (defun gnorb-registry-tracked-messages ()
-  "Return all message-ids that have non-empty 'gnorb-ids keys."
+  "Return all message-ids that have non-empty `gnorb-ids' keys."
   (registry-search gnus-registry-db :regex `((gnorb-ids ".+"))))
 
 (defun gnorb-registry-tracked-headings ()
   (registry-search gnus-registry-db :regex `((gnorb-ids ".+"))))
 
 (defun gnorb-registry-tracked-headings ()