Mercurial > emacs

changeset 28616:313ef0d76864

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ispell-menu-map-needed): Check that ispell-process is bound since this might be eval'd before ispell is loaded. (ispell-message): Use a tiny bit less magic and a bit more hard data to figure out what kind of sc-cite-regexp to use.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 17 Apr 2000 11:00:39 +0000
parents 4c6883cb70ab
children 72fcbe69ee65
files lisp/textmodes/ispell.el
diffstat 1 files changed, 8 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/ispell.el	Mon Apr 17 10:47:01 2000 +0000
+++ b/lisp/textmodes/ispell.el	Mon Apr 17 11:00:39 2000 +0000
@@ -831,7 +831,7 @@
 		    :help "Supply explicit path to dictionary"))
       (define-key ispell-menu-map [ispell-kill-ispell]
 	'(menu-item "Kill Process" ispell-kill-ispell
-		    :enable (and ispell-process
+		    :enable (and (boundp 'ispell-process) ispell-process
 				 (eq (ispell-process-status) 'run))
 		    :help "Terminate Ispell subprocess"))
       (define-key ispell-menu-map [ispell-pdict-save]
@@ -2637,9 +2637,9 @@
 		      (setq recheck-region ispell-filter
 			    ispell-filter nil ; save filter
 			    shift (ispell-region
-				  word-start
-				  (+ word-start (length replace-word))
-				  t shift))
+				   word-start
+				   (+ word-start (length replace-word))
+				   t shift))
 		      (if (null shift)	; quitting check.
 			  (setq shift 0))
 		      (set-marker ispell-region-end region-end)
@@ -2653,8 +2653,8 @@
 	      ;; Move line-start across word...
 	      ;; new shift function does this now...
 	      ;;(set-marker line-start (+ line-start
-		;;			(- (length replace)
-		;;			   (length (car poss)))))
+	      ;;			(- (length replace)
+	      ;;			   (length (car poss)))))
 	      ))
 	    (if (not ispell-quit)
 		(let (message-log-max)
@@ -2940,10 +2940,10 @@
 	       "   \\|\t"))
 	   (cite-regexp			;Prefix of quoted text
 	    (cond
-	     ((featurep 'supercite)	; sc 3.0
+	     ((functionp 'sc-cite-regexp) ; sc 3.0
 	      (concat "\\(" (sc-cite-regexp) "\\)" "\\|"
 		      (ispell-non-empty-string sc-reference-tag-string)))
-	     ((featurep 'sc)		; sc 2.3
+	     ((boundp 'sc-cite-regexp)	; sc 2.3
 	      (concat "\\(" sc-cite-regexp "\\)" "\\|"
 		      (ispell-non-empty-string sc-reference-tag-string)))
 	     ((or (equal major-mode 'news-reply-mode) ;GNUS 4 & below