Revert previous accidental commit

.dir-locals.el

@@ -1,5 +1,6 @@
 ((nil . ((tab-width . 8)
-         (sentence-end-double-space . t)))
+         (sentence-end-double-space . t)
+         (fill-column . 70)))
  (c-mode . ((c-file-style . "GNU")))
  (objc-mode . ((c-file-style . "GNU")))
  ;; You must set bugtracker_debbugs_url in your bazaar.conf for this to work.
@@ -9,6 +10,7 @@
                    (log-edit-font-lock-gnu-style . t)
                    (log-edit-setup-add-author . t)))
  (change-log-mode . ((add-log-time-zone-rule . t)
+		     (fill-column . 74)
 		     (bug-reference-url-format . "http://debbugs.gnu.org/%s")
-                     (mode . bug-reference)
+		     (mode . bug-reference)))
-		     )))
+ (diff-mode . ((mode . whitespace))))

Makefile.in

@@ -721,8 +721,8 @@ uninstall: uninstall-$(NTDIR) uninstall-doc
 	-unset CDPATH; \
 	for dir in "$(DESTDIR)${lispdir}" "$(DESTDIR)${etcdir}" ; do 	\
 	  if [ -d "$${dir}" ]; then			\
-	    case `cd "$${dir}" && /bin/pwd` in		\
+	    case `cd "$${dir}" ; /bin/pwd` in		\
-	      "`cd ${srcdir} && /bin/pwd`"* ) ;;		\
+	      "`cd ${srcdir} ; /bin/pwd`"* ) ;;		\
 	      * ) rm -rf "$${dir}" ;;			\
 	    esac ;					\
 	    case "$${dir}" in				\

lisp/cedet/pulse.el

@@ -91,8 +91,6 @@ Face used for temporary highlighting of tags for effect."
 
 ;;; Code:
 ;;
-
-;;FIXME
 (defun pulse-int-to-hex (int &optional nb-digits)
   "Convert integer argument INT to a #XXXXXXXXXXXX format hex string.
 Each X in the output string is a hexadecimal digit.

lisp/emacs-lisp/autoload.el

@@ -812,40 +812,14 @@ write its autoloads into the specified file instead."
 	    (setq files (delete file files)))))
       ;; Elements remaining in FILES have no existing autoload sections yet.
       (dolist (file files)
-        (unless (member (expand-file-name file) autoload-excludes)
+        (cond
+         ((member (expand-file-name file) autoload-excludes) nil)
          ;; Passing nil as second argument forces
          ;; autoload-generate-file-autoloads to look for the right
          ;; spot where to insert each autoloads section.
-	  (let ((obuf
+         ((autoload-generate-file-autoloads file nil buffer-file-name)
-		 (autoload-generate-file-autoloads file nil buffer-file-name))
+          (push file no-autoloads))))
-		ofile ofound oform opoint)
+
-	    (when obuf
-	      (push file no-autoloads)
-	      ;; Did processing file update some other ofile?
-	      (when (bufferp obuf)
-		(with-current-buffer obuf
-		  (setq ofile (file-relative-name buffer-file-name)))
-		;; Did we already scan ofile?
-		(and (member ofile done)
-		     (not (member ofile no-autoloads))
-		     (save-excursion
-		       (goto-char (point-min))
-		       (while
-			   (and
-			    (not ofound)
-			    (search-forward
-			     generate-autoload-section-header nil t))
-			 (setq opoint (point)
-			       oform (autoload-read-section-header))
-			 (when (setq ofound
-				     (string= ofile (nth 3 oform)))
-			   (delete-region opoint (point))
-			   (autoload-insert-section-header
-			    (current-buffer)
-			    (nth 1 oform)
-			    (nth 2 oform)
-			    (nth 3 oform)
-			    (nth 5 (file-attributes ofile))))))))))))
       (when no-autoloads
 	;; Sort them for better readability.
 	(setq no-autoloads (sort no-autoloads 'string<))

lisp/emacs-lisp/trace.el

@@ -139,6 +139,7 @@
   :prefix "trace-"
   :group 'lisp)
 
+;;;###autoload
 (defcustom trace-buffer "*trace-output*"
   "Trace output will by default go to that buffer."
   :type 'string)

lisp/erc/erc-menu.el

@@ -34,12 +34,8 @@
   "ERC menu support."
   :group 'erc)
 
-(defvar erc-menu-visible t
-  "Non-nil if the Erc menu is visible.")
-
 (defvar erc-menu-definition
   (list "ERC"
-	:visible (lambda () erc-menu-visible)
 	["Connect to server..." erc t]
 	["Disconnect from server..." erc-quit-server erc-server-connected]
 	"-"
@@ -108,31 +104,33 @@
   "ERC menu definition.")
 
 (defvar erc-menu-defined nil
-  "Internal ERC variable, non-nil if the ERC menu has been defined.")
+  "Internal variable used to keep track of whether we've defined the
+ERC menu yet.")
 
 ;;;###autoload (autoload 'erc-menu-mode "erc-menu" nil t)
 (define-erc-module menu nil
   "Enable a menu in ERC buffers."
   ((unless erc-menu-defined
-     ;; Make sure the menu only gets defined once, since Emacs
+     ;; make sure the menu only gets defined once, since Emacs 22
-     ;; activates it immediately.
+     ;; activates it immediately
      (easy-menu-define erc-menu erc-mode-map "ERC menu" erc-menu-definition)
      (setq erc-menu-defined t))
    (if (featurep 'xemacs)
        (progn
-	 ;; The menu isn't automatically added to the menu bar in XEmacs.
+	 ;; the menu isn't automatically added to the menu bar in
+	 ;; XEmacs
 	 (add-hook 'erc-mode-hook 'erc-menu-add)
 	 (dolist (buffer (erc-buffer-list))
 	   (with-current-buffer buffer (erc-menu-add))))
-     (setq erc-menu-visible t)
      (erc-menu-add)))
   ((if (featurep 'xemacs)
        (progn
 	 (remove-hook 'erc-mode-hook 'erc-menu-add)
 	 (dolist (buffer (erc-buffer-list))
 	   (with-current-buffer buffer (erc-menu-remove))))
-     (setq erc-menu-visible nil)
+     (erc-menu-remove)
-     (erc-menu-remove))))
+     ;; `easy-menu-remove' is a no-op in Emacs 22
+     (message "You might have to restart Emacs to remove the ERC menu"))))
 
 ;; silence byte-compiler warning
 (defvar erc-menu)
@@ -147,10 +145,10 @@
 
 (provide 'erc-menu)
 
-
+;;; erc-menu.el ends here
+;;
 ;; Local Variables:
 ;; indent-tabs-mode: t
 ;; tab-width: 8
 ;; End:
 
-;;; erc-menu.el ends here

lisp/finder.el

@@ -429,7 +429,6 @@ FILE should be in a form suitable for passing to `locate-library'."
     (goto-char (posn-point (event-start event)))
     (finder-select)))
 
-;; FIXME why does this even exist - it's just an alias for finder-list-keywords?
 ;;;###autoload
 (defun finder-by-keyword ()
   "Find packages matching a given keyword."

lisp/gnus/gnus-uu.el

@@ -978,7 +978,6 @@ When called interactively, prompt for REGEXP."
 
 ;; Binhex treatment - not very advanced.
 
-;; FIXME? This duplicates binhex-begin-line etc from binhex.el.
 (defvar gnus-uu-binhex-body-line
   "^[^:]...............................................................$")
 (defvar gnus-uu-binhex-begin-line

lisp/mail/unrmail.el

@@ -241,8 +241,8 @@ The variable `unrmail-mbox-format' controls which mbox format to use."
 	    ;; Convert From to >From, etc.
 	    (let ((case-fold-search nil)
 		  (fromline (if (eq 'mboxrd unrmail-mbox-format)
-			    "\n>*From "
+			    "^>*From "
-			  "\nFrom ")))
+			  "^From ")))
 	      (while (re-search-forward fromline nil t)
 		(beginning-of-line)
 		(insert ?>)

lisp/play/gamegrid.el

@@ -479,28 +479,27 @@ FILE is created there."
 ;;        FILE in the user's home directory.  There is presumably no
 ;;        shared game directory.
 
+(defvar gamegrid-shared-game-dir)
+
 (defun gamegrid-add-score-with-update-game-score (file score)
-  (let ((setuid
+  (let ((gamegrid-shared-game-dir
 	 (not (zerop (logand (file-modes
 			      (expand-file-name "update-game-score"
 						exec-directory))
 			     #o4000)))))
     (cond ((file-name-absolute-p file)
 	   (gamegrid-add-score-insecure file score))
-	  ;; Use the setuid "update-game-score" program to update a
+	  ((and gamegrid-shared-game-dir
-	  ;; pre-existing system-wide score file.
-	  ((and setuid
 		(file-exists-p (expand-file-name file shared-game-score-directory)))
+	   ;; Use the setuid "update-game-score" program to update a
+	   ;; system-wide score file.
 	   (gamegrid-add-score-with-update-game-score-1 file
-	    (expand-file-name file shared-game-score-directory) score setuid))
+	    (expand-file-name file shared-game-score-directory) score))
-	  ;; We have setuid, but the score file does not exist.
+	  ;; Else: Add the score to a score file in the user's home
-	  ;; FIXME - Why not try to create it?
+	  ;; directory.
-	  ;; Maybe the logic is that this is being called by a game
+	  (gamegrid-shared-game-dir
-	  ;; that is not part of the standard Emacs install?
+	   ;; If `gamegrid-shared-game-dir' is non-nil, then
-	  ;; I see no reason why we should not try to use a shared
+	   ;; "update-gamescore" program is setuid, so don't use it.
-	  ;; score file though, and fall back to a private one if we
-	  ;; lack permission to create a shared file.
-	  (setuid
 	   (unless (file-exists-p
 		    (directory-file-name gamegrid-user-score-file-directory))
 	     (make-directory gamegrid-user-score-file-directory t))
@@ -516,8 +515,7 @@ FILE is created there."
 	       (write-region "" nil f nil 'silent nil 'excl))
 	     (gamegrid-add-score-with-update-game-score-1 file f score))))))
 
-(defun gamegrid-add-score-with-update-game-score-1 (file target score
+(defun gamegrid-add-score-with-update-game-score-1 (file target score)
-							 &optional setuid)
   (let ((default-directory "/")
 	(errbuf (generate-new-buffer " *update-game-score loss*"))
         (marker-string (concat
@@ -539,7 +537,7 @@ FILE is created there."
 	 (expand-file-name "update-game-score" exec-directory)
 	 nil errbuf nil
 	 "-m" (int-to-string gamegrid-score-file-length)
-	 "-d" (if setuid
+	 "-d" (if gamegrid-shared-game-dir
 		  (expand-file-name shared-game-score-directory)
 		(file-name-directory target))
 	 file

lisp/shadowfile.el

@@ -117,7 +117,6 @@ ensure consistency.  Default: ~/.emacs.d/shadows"
   :type '(choice (const nil) file)
   :group 'shadow)
 
-;; FIXME use .emacs.d
 (defcustom shadow-todo-file nil
   "File to store the list of uncopied shadows in.
 This means that if a remote system is down, or for any reason you cannot or
@@ -439,17 +438,14 @@ It may have different filenames on each site.  When this file is edited, the
 new version will be copied to each of the other locations.  Sites can be
 specific hostnames, or names of clusters (see `shadow-define-cluster')."
   (interactive)
-  (let ((name (if (buffer-file-name)
+  (let* ((hup (shadow-parse-fullname
-		  (nth 2 (shadow-parse-fullname
+	       (shadow-contract-file-name (buffer-file-name))))
-			  (shadow-contract-file-name (buffer-file-name))))))
+	 (name (nth 2 hup))
 	 user site group)
     (while (setq site (shadow-read-site))
-      ;; FIXME fix read-string calls
       (setq user (read-string (format "Username (default %s): "
 				      (shadow-get-user site)))
-	    name (read-string "Filename: " nil nil name))
+	    name (read-string "Filename: " name))
-      (if (zerop (length name))
-	  (error "You must specify a filename"))
       (setq group (cons (shadow-make-fullname site
 					      (if (string-equal "" user)
 						  (shadow-get-user site)

lisp/vc/vc.el

@@ -2198,7 +2198,6 @@ Does nothing if IS-START-REVISION is non-nil, or if LIMIT is nil,
 or if PL-RETURN is 'limit-unsupported."
   (when (and limit (not (eq 'limit-unsupported pl-return))
 	     (not is-start-revision))
-    (save-excursion
     (goto-char (point-max))
     (insert "\n")
     (insert-text-button "Show 2X entries"
@@ -2213,7 +2212,7 @@ or if PL-RETURN is 'limit-unsupported."
                                   (vc-print-log-internal
                                    log-view-vc-backend log-view-vc-fileset
                                    working-revision nil nil))
-                          'help-echo "Show the log again, including all entries"))))
+                        'help-echo "Show the log again, including all entries")))
 
 (defun vc-print-log-internal (backend files working-revision
                                       &optional is-start-revision limit)
@@ -2250,8 +2249,7 @@ earlier revisions.  Show up to LIMIT entries (non-nil means unlimited)."
 	 (vc-print-log-setup-buttons working-revision
 				     is-start-revision limit ret))
        (lambda (bk)
-         (if (or working-revision (eobp))
+	 (vc-call-backend bk 'show-log-entry working-revision))
-             (vc-call-backend bk 'show-log-entry working-revision)))
        (lambda (_ignore-auto _noconfirm)
 	 (vc-print-log-internal backend files working-revision
                                 is-start-revision limit))))))