Mercurial > emacs
comparison lisp/org/org-macs.el @ 94768:c30d898f0375
(org-call-with-arg, org-autoload): Fix typos in docstrings.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Thu, 08 May 2008 15:44:24 +0000 |
parents | ba3167bc4143 |
children | c1ef445563bb |
comparison
equal
deleted
inserted
replaced
94767:8634b4393320 | 94768:c30d898f0375 |
---|---|
177 (defun org-let2 (list1 list2 &rest body) | 177 (defun org-let2 (list1 list2 &rest body) |
178 (eval (cons 'let (cons list1 (list (cons 'let (cons list2 body))))))) | 178 (eval (cons 'let (cons list1 (list (cons 'let (cons list2 body))))))) |
179 (put 'org-let2 'lisp-indent-function 2) | 179 (put 'org-let2 'lisp-indent-function 2) |
180 | 180 |
181 (defsubst org-call-with-arg (command arg) | 181 (defsubst org-call-with-arg (command arg) |
182 "Call COMMAND interactively, but pretend prefix are was ARG." | 182 "Call COMMAND interactively, but pretend prefix arg was ARG." |
183 (let ((current-prefix-arg arg)) (call-interactively command))) | 183 (let ((current-prefix-arg arg)) (call-interactively command))) |
184 | 184 |
185 (defsubst org-current-line (&optional pos) | 185 (defsubst org-current-line (&optional pos) |
186 (save-excursion | 186 (save-excursion |
187 (and pos (goto-char pos)) | 187 (and pos (goto-char pos)) |
192 (and (match-beginning n) | 192 (and (match-beginning n) |
193 (<= (match-beginning n) pos) | 193 (<= (match-beginning n) pos) |
194 (>= (match-end n) pos))) | 194 (>= (match-end n) pos))) |
195 | 195 |
196 (defun org-autoload (file functions) | 196 (defun org-autoload (file functions) |
197 "Establish autoload for all FUNCTIONS in FILE, if not boutd already." | 197 "Establish autoload for all FUNCTIONS in FILE, if not bound already." |
198 (let ((d (format "Documentation will be available after `%s.el' is loaded." | 198 (let ((d (format "Documentation will be available after `%s.el' is loaded." |
199 file)) | 199 file)) |
200 f) | 200 f) |
201 (while (setq f (pop functions)) | 201 (while (setq f (pop functions)) |
202 (or (fboundp f) (autoload f file d t))))) | 202 (or (fboundp f) (autoload f file d t))))) |