From 4a592d90f3a67641109fec9abc9157035f09a476 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 9 Sep 2022 20:00:19 -0400 Subject: [PATCH] Cosmetic fixes for org-contacts BTW, here's another cosmetic patch. It fixes the following: - Remove some redundant dependencies (already satisfied by Emacs-27.1). - Fix a too-wide docstring. - Use `;;` for comments because `;;;` is for section headers. Stefan --- org-contacts.el | 21 +++++++++++---------- 1 file changed, 11 insertions(+), 10 deletions(-) diff --git a/org-contacts.el b/org-contacts.el index 9f35d9c..816325e 100644 --- a/org-contacts.el +++ b/org-contacts.el @@ -6,7 +6,7 @@ ;; Maintainer: stardiviner ;; Keywords: contacts, org-mode, outlines, hypermedia, calendar ;; Version: 1.0 -;; Package-Requires: ((emacs "27.1") (cl-lib "0.7") (org "9.3.4") (gnus "5.13")) +;; Package-Requires: ((emacs "27.1") (org "9.3.4")) ;; Homepage: https://repo.or.cz/org-contacts.git ;; ;; This file is not part of GNU Emacs. @@ -56,11 +56,11 @@ ;;;; Usage: -;;; How to search? -;;; - You can use [M-x org-contacts] command to search. -;;; -;;; - You can use `org-sparse-tree' [C-c / p] to filter based on a -;;; specific property. Or other matcher on `org-sparse-tree'. +;; How to search? +;; - You can use [M-x org-contacts] command to search. +;; +;; - You can use `org-sparse-tree' [C-c / p] to filter based on a +;; specific property. Or other matcher on `org-sparse-tree'. ;;; Code: @@ -691,8 +691,9 @@ description." ;;;###autoload (defun org-contacts-org-complete-function () - "Function used in `completion-at-point-functions' in `org-mode' to complete @name. -Usage: (add-hook \\='completion-at-point-functions #\\='org-contacts-org-complete-function nil \\='local)" + "completion-at-point function to complete @name in `org-mode'. +Usage: (add-hook \\='completion-at-point-functions + #\\='org-contacts-org-complete-function nil \\='local)" (when-let* ((end (point)) (begin (save-excursion (skip-chars-backward "[:alnum:]@") (point))) (symbol (buffer-substring-no-properties begin end)) @@ -1255,8 +1256,8 @@ are effectively trimmed). If nil, all zero-length substrings are retained." (cdr (reverse proplist)))) ;;;###autoload -;;; Add an Org link type `org-contact:' for easy jump to or searching org-contacts headline. -;;; link spec: [[org-contact:query][desc]] +;; Add an Org link type `org-contact:' for easy jump to or searching org-contacts headline. +;; link spec: [[org-contact:query][desc]] (if (fboundp 'org-link-set-parameters) (org-link-set-parameters "org-contact" :follow #'org-contacts-link-open