# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1195519235 0
# Node ID aab1a93c03caf1354adedf67a7ca25250f14ea7f
# Parent  4a7e0b7fde4e65ef357e941d237550877714a573
* progmodes/octave-mod.el (inferior-octave-send-list-and-digest):
* play/yow.el (doctor-ret-or-read):
* vc-hooks.el (vc-dired-resynch-file):
* vc-hg.el (log-view-get-marked):
* smerge-mode.el (ediff-cleanup-mess):
* pcvs.el (vc-editable-p, vc-checkout):
* pcomplete.el (comint-bol):
* informat.el (texinfo-format-refill):
* ido.el (tramp-tramp-file-p):
* ibuffer.el (ibuffer-mark-on-buffer, ibuffer-format-qualifier)
(ibuffer-generate-filter-groups, ibuffer-format-filter-group-data):
* add-log.el (c-beginning-of-defun, c-end-of-defun): Declare as
functions.

* textmodes/ispell.el (ispell-int-char): Make it a defalias
instead of fset.
(ispell-message): Use with-no-warnings for sc-cite-regexp call.

* ido.el (ido-file-internal): Move with-no-warnings to include the
ffap-string-at-point call.

* pcomplete.el (pcomplete-executables): Move defsubst before first use.

* vc-hg.el (vc-hg-revision-table): Fix last change.

diff -r 4a7e0b7fde4e -r aab1a93c03ca lisp/textmodes/ispell.el
--- a/lisp/textmodes/ispell.el	Mon Nov 19 20:04:51 2007 +0000
+++ b/lisp/textmodes/ispell.el	Tue Nov 20 00:40:35 2007 +0000
@@ -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)
-	 (fboundp 'int-char))
-    (fset 'ispell-int-char 'int-char)
-  ;; Emacs and XEmacs 19 or earlier
-  (fset 'ispell-int-char 'identity))
+(defalias 'ispell-int-char
+  ;; Allow incrementing characters as integers in XEmacs 20
+  (if (and (featurep 'xemacs)
+	   (fboundp 'int-char))
+      'int-char
+    ;; Emacs and XEmacs 19 or earlier
+    'identity))
 
 
 ;;; **********************************************************************
@@ -3533,9 +3534,9 @@
 	   (cite-regexp			;Prefix of quoted text
 	    (cond
 	     ((functionp 'sc-cite-regexp)	; sc 3.0
-	      (concat "\\(" (sc-cite-regexp) "\\)" "\\|"
-		      (with-no-warnings
-		       (ispell-non-empty-string sc-reference-tag-string))))
+	      (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 "\\)" "\\|"
 		      (with-no-warnings