home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / fj / editor / emacs / 1412 < prev    next >
Encoding:
Text File  |  1993-01-28  |  1.4 KB  |  46 lines
  1. Path: sparky!uunet!ccut!news.u-tokyo.ac.jp!wnoc-tyo-news!rena!omnis.co.jp!kaede!hermit
  2. From: hermit@omnis.co.jp (Katsuhiro Hermit Endo)
  3. Newsgroups: fj.editor.emacs
  4. Subject: Re: [Q] I want to get the column just under a point.
  5. Message-ID: <HERMIT.93Jan28105743@kaede.omnis.co.jp>
  6. Date: 28 Jan 93 01:57:43 GMT
  7. References: <MASAJI.93Jan25175445@sage.isl.melco.co.jp>
  8. Sender: hermit@omnis.co.jp
  9. Distribution: fj
  10. Organization: Omnis,inc., Tokyo, JAPAN
  11. Lines: 32
  12. In-reply-to: masaji@isl.melco.co.jp's message of 25 Jan 93 17:54:45 JST
  13.  
  14.  
  15.   Hermit $@$H?=$7$^$9!#(J
  16.  
  17. > $@$O$8$a$^$7$F!"?eLn!w;0I)EE5!(J($@3t(J) $@$H?=$7$^$9!#(J
  18.  
  19.   $@$3$s$K$A$O!#(J
  20.  
  21.  
  22. >     $@Nc$($P(J       x <- $@$3$3$N0LCV$KBP$9$k(J
  23. >              y <- $@$3$N0LCV$rCN$j$?$$(J
  24.  
  25.   $@$3$s$J;v$G$7$g$&$+!)(J
  26.  
  27. (defun get-vertical-point (direction)
  28.   "Returns vertical point, up for DIRECTION value of -1, down for -1."
  29.   (let ((temporary-goal-column (current-column)))
  30.     (save-excursion
  31.       (forward-line direction)
  32.       (move-to-column temporary-goal-column)
  33.       ;; $@L\E*$N9T$,C;$$!#(J
  34.       (if (< (current-column) temporary-goal-column) (error ""))
  35.       (point))))
  36.  
  37.  
  38.   $@$A$g$&$I;d$O!"(J(next-line) $@$H$+$r8+$F!"AR8KHV$r3HD%$7$F$$$?(J
  39. $@$H$3$m$G$9!#$3$l$O!"$=$N0lIt$G$9!#(J
  40.  
  41. # $@4X?tL>$,JQ$G$4$a$s$J$5$$!#(J
  42.  
  43. --
  44.                                $@1sF#(J Hermit $@>!9-(J     66$@!4(J
  45.   $@$o$?$7(J $@$T$h$C$F$^$9$%!A(J     hermit@omnis.co.jp   ($@#v!w(J
  46.