Commit dfbae223 authored by David Byers's avatar David Byers
Browse files

Synched strings.

Copied thing-at-point-looking-at from thingatpt.el so we don't rely
on internal functions in other packages.
parent 11579e01
2000-05-04 David Byers <davby@ida.liu.se>
* edit-text.el (lyskom-edit-insert-buglist): Use our copy of
thing-at-point-looking-at instead of the one in thingatpt.
* utilities.el (lyskom-thing-at-point-looking-at): Copied from
thing-at-point-looking-at in thingatpt.el
* english-strings.el (lyskom-en-edit-mode-map): Added binding for
kom-edit-insert-buglist.
2000-05-01 David Byers <davby@ida.liu.se>
* async.el (lyskom-parse-async): Expanded comment for
......
......@@ -1789,7 +1789,7 @@ buglist style, automating the removal of closed subjects and change-marks."
(goto-char delete-to)
(beginning-of-line)
;; Are we looking at a headline?
(if (thing-at-point-looking-at "^\\s-\\{0,2\\}[^ \t(*![]")
(if (lyskom-thing-at-point-looking-at "^\\s-\\{0,2\\}[^ \t(*![]")
;; yes -- hence we need to move point somewhat
(progn
(beginning-of-line)
......
......@@ -89,6 +89,7 @@
(define-key lyskom-en-edit-prefix (kbd "C-i ?") 'lyskom-help)
(define-key lyskom-en-edit-prefix (kbd "C-i C-c") 'kom-edit-insert-commented)
(define-key lyskom-en-edit-prefix (kbd "C-i C-y") 'kom-edit-insert-commented)
(define-key lyskom-sv-edit-prefix (kbd "C-b") 'kom-edit-insert-buglist)
(define-key lyskom-en-edit-prefix (kbd "C-i 1") 'kom-edit-insert-digit-text)
(define-key lyskom-en-edit-prefix (kbd "C-i 2") 'kom-edit-insert-digit-text)
(define-key lyskom-en-edit-prefix (kbd "C-i 3") 'kom-edit-insert-digit-text)
......@@ -1040,7 +1041,7 @@ You should set it to a better value.\n")
(process-signal . "Signal from the process.")
(dead-session . "No active LysKOM session.")
(not-lyskom-buffer . "This is not an active LysKOM session")
(not-lyskom-buffer . "This is not an active LysKOM session.")
(closed-connection . "
**************************************************
%#2s
......@@ -1389,6 +1390,9 @@ You must become an active member of the conference to enter it.\n")
(start-keep-alive . "Sending data at %#1d second intervals to keep the connection active.")
(stop-keep-alive . "No longer keeping connection active by sending extra data.")
(review-noconversion-q . "Review which text unconverted?")
(review-commented-q . "Review the commented for which text?")
))
......@@ -1714,6 +1718,7 @@ You must become an active member of the conference to enter it.\n")
(kom-edit-add-copy . "Add carbon copy")
(kom-edit-show-commented . "Review commented")
(kom-edit-insert-commented . "Cite commented")
(kom-edit-insert-buglist . "Paste commented bug list")
(kom-edit-add-bcc . "Add blind carbon copy")
(kom-edit-add-cross-reference . "Add cross reference")
(kom-edit-add-no-comments . "Request no comments")
......
......@@ -108,6 +108,7 @@ access this variable directly.")
(defvar lp--list-start-marker nil)
(defvar lp--list-end-marker nil)
(defvar lp--selected-entry-list nil)
(defvar lp--buffer-done nil)
;;; ============================================================
......
......@@ -323,6 +323,37 @@ of \(current-time\)."
(error nil)))
;; Stolen from thingatpt.el
;; FIXME: We may not really need this function. Check the callers.
(defun lyskom-thing-at-point-looking-at (regexp)
"Return non-nil if point is in or just after a match for REGEXP.
Set the match data from the earliest such match ending at or after
point."
(save-excursion
(let ((old-point (point)) match)
(and (looking-at regexp)
(>= (match-end 0) old-point)
(setq match (point)))
;; Search back repeatedly from end of next match.
;; This may fail if next match ends before this match does.
(re-search-forward regexp nil 'limit)
(while (and (re-search-backward regexp nil t)
(or (> (match-beginning 0) old-point)
(and (looking-at regexp) ; Extend match-end past search start
(>= (match-end 0) old-point)
(setq match (point))))))
(if (not match) nil
(goto-char match)
;; Back up a char at a time in case search skipped
;; intermediate match straddling search start pos.
(while (and (not (bobp))
(progn (backward-char 1) (looking-at regexp))
(>= (match-end 0) old-point)
(setq match (point))))
(goto-char match)
(looking-at regexp)))))
;; Stolen from Gnu Emacs
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment