(mouse-drag-secondary): Make sure to return nil

[gnu-emacs] / lisp / vms-patch.el

diff --git a/lisp/vms-patch.el b/lisp/vms-patch.el
index 7f88e23b7fe0fea7d4c5979514ae2d056fbd7b0d..41dcd99fbcb037514f10f688833b36c7433c64db 100644 (file)
--- a/lisp/vms-patch.el
+++ b/lisp/vms-patch.el
@@ -18,8 +18,9 @@
 ;; GNU General Public License for more details.
 
 ;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to
-;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
 
 ;;; Code:
 
@@ -54,10 +55,11 @@ otherwise a string <2> or <3> or ... is appended to get an unused name."
 
 (defun make-auto-save-file-name ()
   "Return file name to use for auto-saves of current buffer.
-Does not consider auto-save-visited-file-name; that is checked
-before calling this function.
-This is a separate function so your .emacs file or site-init.el can redefine it.
-See also auto-save-file-name-p."
+This function does not consider `auto-save-visited-file-name';
+the caller should check that before calling this function.
+This is a separate function so that your `.emacs' file or the site's
+`site-init.el' can redefine it.
+See also `auto-save-file-name-p'."
   (if buffer-file-name
       (concat (file-name-directory buffer-file-name)
              "_$"
@@ -66,9 +68,10 @@ See also auto-save-file-name-p."
     (expand-file-name (concat "_$_" (make-legal-file-name (buffer-name)) "$"))))
 
 (defun auto-save-file-name-p (filename)
-  "Return t if FILENAME can be yielded by make-auto-save-file-name.
+  "Return t if FILENAME can be yielded by `make-auto-save-file-name'.
 FILENAME should lack slashes.
-This is a separate function so your .emacs file or site-init.el can redefine it."
+This is a separate function so that your `.emacs' file or the site's
+`site-init.el' can redefine it."
   (string-match "^_\\$.*\\$" filename))
 
 ;;;
@@ -168,7 +171,7 @@ spawned Emacs and doing things like \"emacs -l myfile.el -f doit\""
         (send-command-to-subprocess
          1
          (concat command
-                 " sys$login:delete-me.txt/name=""GNUprintbuffer"" "
+                 " sys$login:delete-me.txt/name=\"GNUprintbuffer\" "
                  (mapconcat 'identity switches " "))
          nil nil nil)))