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"