/[emacs]/emacs/lisp/emulation/ws-mode.el
ViewVC logotype

Diff of /emacs/lisp/emulation/ws-mode.el

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

revision 1.19 by pj, Thu Dec 20 18:54:45 2001 UTC revision 1.19.4.1 by miles, Fri Apr 4 06:20:20 2003 UTC
# Line 42  Line 42 
42    (setq wordstar-C-k-map (make-keymap))    (setq wordstar-C-k-map (make-keymap))
43    (setq wordstar-C-o-map (make-keymap))    (setq wordstar-C-o-map (make-keymap))
44    (setq wordstar-C-q-map (make-keymap))    (setq wordstar-C-q-map (make-keymap))
45      
46    (define-key wordstar-mode-map "\C-a" 'backward-word)    (define-key wordstar-mode-map "\C-a" 'backward-word)
47    (define-key wordstar-mode-map "\C-b" 'fill-paragraph)    (define-key wordstar-mode-map "\C-b" 'fill-paragraph)
48    (define-key wordstar-mode-map "\C-c" 'scroll-up)    (define-key wordstar-mode-map "\C-c" 'scroll-up)
# Line 68  Line 68 
68    (define-key wordstar-mode-map "\C-x" 'next-line)    (define-key wordstar-mode-map "\C-x" 'next-line)
69    (define-key wordstar-mode-map "\C-y" 'kill-complete-line)    (define-key wordstar-mode-map "\C-y" 'kill-complete-line)
70    (define-key wordstar-mode-map "\C-z" 'scroll-up-line)    (define-key wordstar-mode-map "\C-z" 'scroll-up-line)
71      
72    ;; wordstar-C-k-map    ;; wordstar-C-k-map
73      
74    (define-key wordstar-C-k-map " " ())    (define-key wordstar-C-k-map " " ())
75    (define-key wordstar-C-k-map "0" 'ws-set-marker-0)    (define-key wordstar-C-k-map "0" 'ws-set-marker-0)
76    (define-key wordstar-C-k-map "1" 'ws-set-marker-1)    (define-key wordstar-C-k-map "1" 'ws-set-marker-1)
# Line 116  Line 116 
116    (define-key wordstar-C-k-map "\C-x" 'save-buffers-kill-emacs)    (define-key wordstar-C-k-map "\C-x" 'save-buffers-kill-emacs)
117    (define-key wordstar-C-k-map "y" 'ws-delete-block)    (define-key wordstar-C-k-map "y" 'ws-delete-block)
118    (define-key wordstar-C-k-map "\C-y" 'ws-delete-block)    (define-key wordstar-C-k-map "\C-y" 'ws-delete-block)
119      
120    ;; wordstar-C-j-map not yet implemented    ;; wordstar-C-j-map not yet implemented
121      
122    ;; wordstar-C-o-map    ;; wordstar-C-o-map
123      
124    (define-key wordstar-C-o-map " " ())    (define-key wordstar-C-o-map " " ())
125    (define-key wordstar-C-o-map "c" 'wordstar-center-line)    (define-key wordstar-C-o-map "c" 'wordstar-center-line)
126    (define-key wordstar-C-o-map "\C-c" 'wordstar-center-line)    (define-key wordstar-C-o-map "\C-c" 'wordstar-center-line)
# Line 141  Line 141 
141    (define-key wordstar-C-o-map "wh" 'split-window-horizontally)    (define-key wordstar-C-o-map "wh" 'split-window-horizontally)
142    (define-key wordstar-C-o-map "wo" 'other-window)    (define-key wordstar-C-o-map "wo" 'other-window)
143    (define-key wordstar-C-o-map "wv" 'split-window-vertically)    (define-key wordstar-C-o-map "wv" 'split-window-vertically)
144      
145    ;; wordstar-C-q-map    ;; wordstar-C-q-map
146    (define-key wordstar-C-q-map " " ())    (define-key wordstar-C-q-map " " ())
147    (define-key wordstar-C-q-map "0" 'ws-find-marker-0)    (define-key wordstar-C-q-map "0" 'ws-find-marker-0)
# Line 336  the distance between the end of the text Line 336  the distance between the end of the text
336        (delete-horizontal-space)        (delete-horizontal-space)
337        (setq line-length (current-column))        (setq line-length (current-column))
338        (beginning-of-line)        (beginning-of-line)
339        (indent-to        (indent-to
340         (+ left-margin         (+ left-margin
341            (/ (- fill-column left-margin line-length) 2))))))            (/ (- fill-column left-margin line-length) 2))))))
342    
343  (defun scroll-down-line ()  (defun scroll-down-line ()
# Line 368  the distance between the end of the text Line 368  the distance between the end of the text
368  (defvar ws-block-end-marker nil "End of \"Block\" in WordStar mode.")  (defvar ws-block-end-marker nil "End of \"Block\" in WordStar mode.")
369    
370  (defvar ws-search-string nil "String of last search in WordStar mode.")  (defvar ws-search-string nil "String of last search in WordStar mode.")
371  (defvar ws-search-direction t  (defvar ws-search-direction t
372    "Direction of last search in WordStar mode. t if forward, nil if backward.")    "Direction of last search in WordStar mode. t if forward, nil if backward.")
373    
374  (defvar ws-last-cursorposition nil  (defvar ws-last-cursorposition nil
375    "Position before last search etc. in WordStar mode.")    "Position before last search etc. in WordStar mode.")
376    
377  (defvar ws-last-errormessage nil  (defvar ws-last-errormessage nil
378    "Last error message issued by a WordStar mode function.")    "Last error message issued by a WordStar mode function.")
379    
380  ;;;;;;;;;;;  ;;;;;;;;;;;
# Line 510  in ws-last-errormessage for recovery wit Line 510  in ws-last-errormessage for recovery wit
510    "In WordStar mode: Move block to current cursor position."    "In WordStar mode: Move block to current cursor position."
511    (interactive)    (interactive)
512    (if (and ws-block-begin-marker ws-block-end-marker)    (if (and ws-block-begin-marker ws-block-end-marker)
513        (let ()        (let ()
514          (kill-region ws-block-begin-marker ws-block-end-marker)          (kill-region ws-block-begin-marker ws-block-end-marker)
515          (yank)          (yank)
516          (save-excursion          (save-excursion
# Line 702  This will only work for errors raised by Line 702  This will only work for errors raised by
702      (kill-region p (point))))      (kill-region p (point))))
703    
704  (defun ws-kill-bol ()  (defun ws-kill-bol ()
705    "In WordStar mode: Kill to beginning of line    "In WordStar mode: Kill to beginning of line
706  \(like WordStar, not like Emacs)."  \(like WordStar, not like Emacs)."
707    (interactive)    (interactive)
708    (let ((p (point)))    (let ((p (point)))
# Line 730  This will only work for errors raised by Line 730  This will only work for errors raised by
730    
731  (defun ws-query-replace (from to)  (defun ws-query-replace (from to)
732    "In WordStar mode: Search string, remember string for repetition."    "In WordStar mode: Search string, remember string for repetition."
733    (interactive "sReplace:    (interactive "sReplace:
734  sWith: " )  sWith: " )
735    (setq ws-search-string from)    (setq ws-search-string from)
736    (setq ws-search-direction t)    (setq ws-search-direction t)

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.19.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26