Mercurial > hg > xemacs-beta
diff lisp/hyperbole/kotl/klink.el @ 114:8619ce7e4c50 r20-1b9
Import from CVS: tag r20-1b9
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:21:54 +0200 |
parents | 4be1180a9e89 |
children |
line wrap: on
line diff
--- a/lisp/hyperbole/kotl/klink.el Mon Aug 13 09:20:50 2007 +0200 +++ b/lisp/hyperbole/kotl/klink.el Mon Aug 13 09:21:54 2007 +0200 @@ -8,7 +8,7 @@ ;; AUTHOR: Bob Weiner & Kellie Clark ;; ;; ORIG-DATE: 15-Nov-93 at 12:15:16 -;; LAST-MOD: 6-Jan-97 at 19:00:58 by Bob Weiner +;; LAST-MOD: 6-Mar-97 at 01:19:19 by Bob Weiner ;; ;; DESCRIPTION: ;; @@ -65,7 +65,7 @@ (defun klink:create (reference) "Insert at point an implicit link to REFERENCE. REFERENCE should be a cell-ref or a string containing \"filename, cell-ref\". -See documentation for 'kcell:ref-to-id' for valid cell-ref formats." +See documentation for `kcell:ref-to-id' for valid cell-ref formats." (interactive ;; Don't change the name or delete default-dir used here. It is referenced ;; in "hargs.el" for argument getting. @@ -98,7 +98,7 @@ (if cell-ref (insert ", " cell-ref)) (insert ">")) (cell-ref (insert "<@ " cell-ref ">")) - (t (error "(klink:create) Invalid reference, '%s'" reference))))) + (t (error "(klink:create) Invalid reference, `%s'" reference))))) (defun klink:at-p () "Return non-nil iff point is within a klink. @@ -161,7 +161,7 @@ < [-!&] pathname > < @ cell-ref > -See documentation for 'kcell:ref-to-id' for valid cell-ref formats." +See documentation for `kcell:ref-to-id' for valid cell-ref formats." (interactive "sKotl link specifier: ") (or (stringp link) (error "(link-to-kotl): Non-string link argument, %s" @@ -216,7 +216,7 @@ |viewspec :augment-viewspec (ignored for now) -See documentation for 'kcell:ref-to-id' for valid cell-ref formats." +See documentation for `kcell:ref-to-id' for valid cell-ref formats." (or (stringp reference) (error "(klink:parse): Non-string reference argument, %s"