[Emacs-diffs] Changes to emacs/lisp/textmodes/ispell.el,v

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   07/11/20 00:40:36

Index: ispell.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/textmodes/ispell.el,v
retrieving revision 1.215
retrieving revision 1.216
diff -u -b -r1.215 -r1.216
--- ispell.el   18 Oct 2007 00:07:48 -0000      1.215
+++ ispell.el   20 Nov 2007 00:40:35 -0000      1.216
@@ -1161,12 +1161,13 @@
              (delete-menu-item '("Edit" "Spell")) ; in case already defined
              (add-menu '("Edit") "Spell" ispell-menu-xemacs))))))
 
-;;; Allow incrementing characters as integers in XEmacs 20
-(if (and (featurep 'xemacs)
+(defalias 'ispell-int-char
+  ;; Allow incrementing characters as integers in XEmacs 20
+  (if (and (featurep 'xemacs)
         (fboundp 'int-char))
-    (fset 'ispell-int-char 'int-char)
+      'int-char
   ;; Emacs and XEmacs 19 or earlier
-  (fset 'ispell-int-char 'identity))
+    'identity))
 
 
 ;;; **********************************************************************
@@ -3533,8 +3534,8 @@
           (cite-regexp                 ;Prefix of quoted text
            (cond
             ((functionp 'sc-cite-regexp)       ; sc 3.0
-             (concat "\\(" (sc-cite-regexp) "\\)" "\\|"
                      (with-no-warnings
+               (concat "\\(" (sc-cite-regexp) "\\)" "\\|"
                       (ispell-non-empty-string sc-reference-tag-string))))
             ((boundp 'sc-cite-regexp)          ; sc 2.3
              (concat "\\(" sc-cite-regexp "\\)" "\\|"