Mercurial > emacs

changeset 11527:7956811d4d9a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(info-insert-file-contents): Set default-directory around call to shell-command-on-region. (Info-find-node, Info-restore-point, Info-search, Info-forward-node, Info-backward-node): Use string-equal, not equal, to compare node names.
author Richard M. Stallman <rms@gnu.org>
date Mon, 24 Apr 1995 15:31:19 +0000
parents 885c533e786e
children 29d1cbdd2ca4
files lisp/info.el
diffstat 1 files changed, 17 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/info.el	Mon Apr 24 15:27:35 1995 +0000
+++ b/lisp/info.el	Mon Apr 24 15:31:19 1995 +0000
@@ -164,7 +164,8 @@
 	(setq decoder nil))
     (insert-file-contents fullname visit)
     (if decoder
-	(let ((buffer-read-only nil))
+	(let ((buffer-read-only nil)
+	      (default-directory (file-directory fullname)))
 	  (shell-command-on-region (point-min) (point-max) decoder t)))))
 
 ;;;###autoload (add-hook 'same-window-buffer-names "*info*")
@@ -278,7 +279,8 @@
 	      (set-marker Info-tag-table-marker nil)
 	      (goto-char (point-max))
 	      (forward-line -8)
-	      (or (equal nodename "*")
+	      ;; Use string-equal, not equal, to ignore text props.
+	      (or (string-equal nodename "*")
 		  (not (search-forward "\^_\nEnd tag table\n" nil t))
 		  (let (pos)
 		    ;; We have a tag table.  Find its beginning.
@@ -303,7 +305,8 @@
 	      (setq Info-current-file
 		    (if (eq filename t) "dir"
 		      (file-name-sans-versions buffer-file-name)))))
-	(if (equal nodename "*")
+	;; Use string-equal, not equal, to ignore text props.
+	(if (string-equal nodename "*")
 	    (progn (setq Info-current-node nodename)
 		   (Info-set-mode-line))
 	  ;; Search file for a suitable node.
@@ -637,7 +640,8 @@
   "If this node has been visited, restore the point value when we left."
   (while hl
     (if (and (equal (nth 0 (car hl)) Info-current-file)
-	     (equal (nth 1 (car hl)) Info-current-node))
+	     ;; Use string-equal, not equal, to ignore text props.
+	     (string-equal (nth 1 (car hl)) Info-current-node))
 	(progn
 	  (goto-char (nth 2 (car hl)))
 	  (setq hl nil))		;terminate the while at next iter
@@ -706,7 +710,8 @@
     (widen)
     (goto-char found)
     (Info-select-node)
-    (or (and (equal onode Info-current-node)
+    ;; Use string-equal, not equal, to ignore text props.
+    (or (and (string-equal onode Info-current-node)
 	     (equal ofile Info-current-file))
 	(setq Info-history (cons (list ofile onode opoint)
 				 Info-history)))))
@@ -1032,7 +1037,9 @@
          (Info-next)
          t)
         ((and (save-excursion (search-backward "up:" nil t))
-	      (not (equal (downcase (Info-extract-pointer "up")) "top")))
+	      ;; Use string-equal, not equal, to ignore text props.
+	      (not (string-equal (downcase (Info-extract-pointer "up"))
+				 "top")))
          (let ((old-node Info-current-node))
            (Info-up)
            (let (Info-history success)
@@ -1050,7 +1057,10 @@
     (cond ((and upnode (string-match "(" upnode))
 	   (error "First node in file"))
 	  ((and upnode (or (null prevnode)
-			   (equal (downcase prevnode) (downcase upnode))))
+			   ;; Use string-equal, not equal,
+			   ;; to ignore text properties.
+			   (string-equal (downcase prevnode)
+					 (downcase upnode))))
 	   (Info-up))
 	  (prevnode
 	   ;; If we move back at the same level,