summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/km-editing.el4
-rw-r--r--lisp/km-org.el5
2 files changed, 4 insertions, 5 deletions
diff --git a/lisp/km-editing.el b/lisp/km-editing.el
index f11c20b..63ca7d4 100644
--- a/lisp/km-editing.el
+++ b/lisp/km-editing.el
@@ -21,7 +21,6 @@
;;; Code:
(require 'outline)
-(require 's)
(require 'select)
(require 'thingatpt)
(require 'whitespace)
@@ -199,7 +198,8 @@ level)."
(user-error "Buffer's comment string consists of more than one character"))
(save-excursion
(widen)
- (let ((outline-regexp (concat (s-repeat 4 comment-start) "*")))
+ (let ((outline-regexp (concat (make-string 4 (string-to-char comment-start))
+ "*")))
(outline-mark-subtree)
(narrow-to-region (region-beginning) (region-end)))))
diff --git a/lisp/km-org.el b/lisp/km-org.el
index 0ade476..aa0b7c0 100644
--- a/lisp/km-org.el
+++ b/lisp/km-org.el
@@ -24,7 +24,6 @@
(require 'org)
(require 'org-link-edit)
(require 'ox-ascii)
-(require 's)
;;;###autoload
(defun km/org-tree-to-indirect-buffer (&optional arg)
@@ -165,8 +164,8 @@ current heading."
(let ((prop (org-entry-get nil "sort" 'inherit)))
(when prop
(let* ((current-level (org-current-level))
- (sort-prop (s-split " by " prop))
- (levels (mapcar #'string-to-number (s-split nil (car sort-prop))))
+ (sort-prop (split-string prop " by "))
+ (levels (mapcar #'string-to-number (split-string (car sort-prop))))
(sorting-type (cadr sort-prop))
sorting-func)
(if sorting-type