/[slime]/slime/swank.lisp
ViewVC logotype

Diff of /slime/swank.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.306 by heller, Fri Jun 10 17:54:22 2005 UTC revision 1.307 by crhodes, Sun Jun 12 16:33:50 2005 UTC
# Line 1881  Return its name and the string to use in Line 1881  Return its name and the string to use in
1881    "Edit WHAT in Emacs.    "Edit WHAT in Emacs.
1882    
1883  WHAT can be:  WHAT can be:
1884    A filename (string),    A pathname or a string,
1885    A list (FILENAME LINE [COLUMN]),    A list (PATHNAME-OR-STRING LINE [COLUMN]),
1886    A function name (symbol),    A function name (symbol),
1887    nil."    NIL.
1888    (let ((target  
1889           (cond ((and (listp what) (pathnamep (first what)))  Returns true if it actually called emacs, or NIL if not."
1890                  (cons (canonicalize-filename (car what)) (cdr what)))    (flet ((pathname-or-string-p (thing)
1891                 ((pathnamep what)             (or (pathnamep thing) (typep thing 'string))))
1892                  (canonicalize-filename what))      (let ((target
1893                 (t what))))             (cond ((and (listp what) (pathname-or-string-p (first what)))
1894      (send-oob-to-emacs `(:ed ,target))))                    (cons (canonicalize-filename (car what)) (cdr what)))
1895                     ((pathname-or-string-p what)
1896                      (canonicalize-filename what))
1897                     ((symbolp what) what)
1898                     (t (return-from ed-in-emacs nil)))))
1899          (send-oob-to-emacs `(:ed ,target))
1900          t)))
1901    
1902  (defslimefun value-for-editing (form)  (defslimefun value-for-editing (form)
1903    "Return a readable value of FORM for editing in Emacs.    "Return a readable value of FORM for editing in Emacs.

Legend:
Removed from v.1.306  
changed lines
  Added in v.1.307

  ViewVC Help
Powered by ViewVC 1.1.5